我可以使用Perl的解压缩将字符串分解为变量吗？

Question

我有一个图像文件名,由四部分组成:

1. $Directory (图像所在的目录)
2. $Name (对于一个艺术网站,这是绘画名称参考#)
3. $File (图像文件名减去扩展名)
4. $Extension (图片扩展名)

$example 100020003000.png

我希望相应地分解它:

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

我想知道substr是否是分解传入的最佳选择,$example所以我可以使用4个变量来完成这些操作,例如验证/错误检查,从其$Name赋值中获取详细名称等等.我发现这篇文章:

解压缩比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 #

那么,我可以使用解压缩,或者甚至是更高效的其他方法吗？

我还想避免加载任何模块,除非这样做会因为某些原因使用更少的资源.Mod是我luv'em的好工具,但我认为这里没有必要.

我意识到我应该将vars推入数组/ hash,但是,我真的是一个初学者,我需要进一步指导如何做到这一点以及如何将它们拉回来.

感谢stackoverflow.com上的所有人!

Answer 1

绝对:

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

Answer 2

我只是使用正则表达式:

my ($dir, $name, $file, $ext) = $path =~ m:(.*)/(.*)/(.*)\.(.*):;

或者,为了匹配您的具体示例:

my ($dir, $name, $file, $ext) = $example =~ m:^(\d{4})(\d{4})(\d{4})\.(.{3})$:;