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

发布时间：2020-12-16 06:10:49 所属栏目：大数据来源：网络整理

导读：我有一个图像文件名,由四部分组成： $Directory(图像所在的目录) $Name(对于一个艺术网站,这是绘画名称参考#) $File(图像文件名减去扩展名) $Extension(图片扩展名) $example 100020003000.png 我希望相应地分解它： $dir=1000 $name=2000 $file=3000 $ext=.

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

> $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 "$dirt$namet$filet$extn";

输出：

1000    2000    3000    .png

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!