perl获取脚本名字

登陆注册

原作者: [db:作者] 来自: [db:来源] 收藏邀请

且看一段代码

( 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果然是强大呀！

该文章已有0人参与评论

专题导读

TIOBE 7月排行：Python 过分炒作，Perl 成受害者？发布时间：2022-07-22

Perl获取主机名、用户、组、网络信息发布时间：2022-07-22

在线客服（服务时间 9:00～18:00）

在线QQ客服

地址：深圳市南山区西丽大学城创智工业园

电邮：jeky_zhao#qq.com

移动电话：139-2527-9053