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果然是强大呀!
- 上一篇 »PHP获取当前运行文件的路径,名字,服务器路径
- 下一篇 »sql盲注脚本--python