且看一段代码
( 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 on 2011-11-10 10:56 perlman 阅读(2563) 评论(0) 编辑 收藏 举报