我有一个图像文件名,由四部分组成：
> $Directory(图像所在的目录)
> $Name(对于一个艺术网站,这是绘画名称参考#)
> $File(图像文件名减去扩展名)
> $Extension(图片扩展名)
$example 100020003000.png
我希望相应地分解它：
$dir=1000 $name=2000 $file=3000 $ext=.png
我想知道substr是否是分解传入的$示例的最佳选择,因此我可以使用4个变量进行处理,例如验证/错误检查,从其$Name赋值中获取详细名称等等.我发现这篇文章：
is unpack faster than substr?
所以,在我的初学者“石头工具”的方法：
my $example = "100020003000.png"; my $dir = substr($example,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上的所有人！
解决方法
绝对：
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