perl精悍代码（个人不断收集中...）

1) 模块是否安装

perl -MMODULE::NAME -e 0

2) 看机器都安装了哪些模块

perl -MExtUtils::Installed -le "print foreach ExtUtils::Installed->new->modules"

3) 看perl内置安装了哪些模块？

perl -MModule::CoreList -le "print foreach Module::CoreList->find_modules"

4) 判断字符串还是数字？在perl语言会自动为你判断当前语境是数字还是字符串，然后自动为你转换，看以用下面的命令对$_进行判断

print "$_ is a string\n" if (~$_ & $_) ne '0';

5) 素数判断(正则法)

perl -lne '(1 x $_) =~ /^1?$|^(11+)?\1+$/ || print "$_ is prime"'

6) 两数互质判断（正则法）

perl -e 'print "coprime\n" if "@{[1 x pop]} @{ [1 x pop] }" !~ /^(11+)\1* \1+$/' 3 4

7) select刷新缓冲

select((select(SOCK), $|=1)[0]);

8) 求两数最小值

[ $a => $b ] -> [ $b <= $a ];

9) 前导0替换为空格

s/\G0/ /g;

10) uniq

sort keys %{ { map { $_, 1 } @list } }

11) 文件每两行输出

12) 文件每两行输出，hack写法

perl -lpe '$\=--$|?$,:$/' file;

13) 打印文件中第一列相同的前两行

perl -ane 'print if $h{$F[0]}++ < 2' file


file as:

A 73

A 58

A 43

B 51

B 89

B 86

B 1675

B 39

C 69

D 57

D 38

E 36

E 44

E 85

E 64

E 103

E 36

Perl对URL进行编码
转自 

用替换的方法进行解码

perl -pe 's/%(..)/pack("c", hex($1))/eg' keywords.list