这个Perl语法构造是什么?

前端之家收集整理的这篇文章主要介绍了这个Perl语法构造是什么?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我在之前的 Sorting file names by numeric value帖子中有一个跟进问题.

解决方案是这段代码

opendir(XMLDIR,$xmldirname);
my @files = sort {substr($a,index($a,'.')) <=> substr($b,index($b,'.'))} readdir(XMLDIR);

我真的不明白readdir前面的整个{…}是做什么的,或者更确切地说,它是如何做它正在做的事情.当然,我可以看到两个值相互比较.但是整个事情是什么样的语法结构? $a和$b来自哪里?我可以在Perl书中看到哪些标题?这是一个特殊的东西,只适用于sort {}还是有其他方法可以使用这个构造?

解决方法

采用的语法是 sort

sort BLOCK LIST

LIST表示的表达式是返回要排序的值列表.在您的情况下,这是readdir(XMLDIR).它返回目录中文件名的列表.

BLOCK是有趣的部分.它表示curlies中的代码,由排序算法调用以与要排序的元素进行比较.要比较的元素以$a和$b的形式提供,代码应评估为以下之一:

>如果$a应该放在$b之前,则为负值,
>如果相对于$b应该放置$a无关紧要,则为零,或者
>如果$a应该放在$b之后,则为正值.

substr($a,’.’))在第一个之前提取文件名的一部分.在这种情况下,它提取文件名中的数字.

然后,如上所述,从两个文件名中提取的数字通过< =>,重新调整-1,0或1进行数值比较.

请注意,您的代码会发出警告,因为它没有考虑readdir将返回的内容.并且…我通过在原始问题中添加answer解决这个问题.

猜你在找的Perl相关文章