perl - 我可以使用Perl的解压缩将字符串分解为var吗？

我有一个包含四个部分的图像文件名:

$Directory(图像所在的目录)

$Name(对于艺术网站，这是绘画名称参考编号)

$File(图像文件名减去扩展名)

$Extension(图像扩展名)

$example 100020003000.png

我希望据此细分:

$dir=1000 $name=2000 $file=3000 $ext=.png

我想知道substr是否是拆分传入的$example的最佳选择，因此我可以使用4个变量(例如验证/错误检查)，从其$Name分配中获取详细名称或其他方法来完成任务。我发现了这篇文章:

is unpack faster than substr?
因此，在我的初学者中，“石头工具”方法是:

my $example = "100020003000.png";
my $dir = substr($example, 0,4);
my $name = substr($example, 5,4);
my $file = substr($example, 9,4);
my $ext = substr($example, 14,3); # will add the the  "." later #

因此，我可以使用解压缩还是使用其他更有效的方法？

我也想避免加载任何模块，除非出于某种原因这样做会占用更少的资源。 Mods是我爱的伟大工具，但是，我认为这里没有必要。

我意识到我可能应该将var推入数组/哈希中，但是，我真的是一个初学者，我需要进一步的指导以了解如何执行该操作以及如何将它们撤回。

感谢stackoverflow.com上的所有人!

最佳答案

绝对:

my $example = "100020003000.png";
my ($dir, $name, $file, $ext) = unpack 'A4' x 4, $example;

print "$dir\t$name\t$file\t$ext\n";

输出:

1000 2000 3000 .png