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果然是强大呀！ 阅读全文
posted @ 2011-11-10 10:56 perlman 阅读(2565) 评论(0) 推荐(0) 编辑
