单行代码的Perl 程序

jeff_gu

最近研究perl的单行代码，命令行使用，发现perl真是强大，网上讲到perl的单行代码举例最多的是Abigail@fnx.com 提供的：
perl -le 'print "RIME" if (1 x shift) !~ /^(11+)\1+$/' 19
但是有点疑问就是为什么1 x shift是打印出来19个连续的1呢。其他都还好明白。
我对这段代码改些成
perl -le 'print "prime" if($ARGV[0]%2)' 19
我觉得要更紧凑更易懂一点。
想不通Abigail@fnx.com当时为什么那么写。

flw

shift 可以取得 19，
1x19 中的 x 是埃克思，而不是乘号。x 表示字符串重复。

apile

perldoc perlrun有很多這類的可以看...
perl -le 'print "prime" if($ARGV[0]%2)' 19
這個不一定是prime吧??