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果然是强大呀！
转自： http://www.cnblogs.com/softwaretesting/archive/2011/11/10/2244171.html
