perl获取脚本名字

且看一段代码

( my $pgm = $0 ) =~ s!.*/(.*)!$1! ;

如果我们运行脚本的命令是perl d:/code/test.pl -f c:/test

那么$0获取的是脚本本身，也即d:/code/test.pl

正则表达式s!.*/(.*)!$1!是将脚本全名中的路径去掉，得到test.pl

所以这行代码执行过后，$pgm的值就是test.pl，perl果然是强大呀！