这段代码怎么样

yybmsrs

1. while ($_ = $ARGV[ $[ ], /^-/) {
   
2.     shift(@ARGV);
   
3.     /^--$/ && ($opt_last = 1, last);
   
4. 
   
5.     /^--sort=name/ && ($opt_sort_summary_by_name++, next);
   
6.     /^--sort=ratio/ && ($opt_sort_summary_by_ratio++, next);
   
7.     /^-s/ && ($opt_summary_only++, next);
   
8.     /^-t/ && ($opt_clear_time++, next);
   
9. }
   

复制代码

zhlong8

很普通的代码嘛，就是用 $[ 中二了点

substr函数

perl招人好难。。
可能可能会是这个
就看这个。。

yybmsrs

回复 2# zhlong8


    就是被这个吓住了

zhlong8

回复 4# yybmsrs


    恐惧源于未知，除了单独一个 // 相当于 ($_ =~ //) 之外还有什么？

lichmama

回复 5# zhlong8


    请问那个 $[ 是什么鬼？

104359176

左边很好看，右边看不懂。估摸着是匹配用的。Perl 代码适合对算法加密啊！

yybmsrs

回复 6# lichmama


    $[ 数组中第一个元素的索引号

zhlong8

回复 6# lichmama


    $[ 是为了安慰那些从数组索引从1开始的语言转过来的人的，并没有卵用，已从核心删除，为了保持先前兼容变成模块实现默认开启

lichmama

回复 9# zhlong8


    谢谢。