perl获取当前执行文件的路径

发布时间：2020-12-15 23:50:57 所属栏目：大数据来源：网络整理

导读：如下，想要获得11.pl的路径，相对路径和绝对路径： zczhangjx@zctech-chengjb:~/智呈监控系统/shell-perl$ ./11.pl./11.pl/home/zczhangjx/智呈监控系统/shell-perl/11.pl 代码： #!/usr/bin/perluse File::Basename; print "$0n";use Cwd 'abs_path';use w

如下，想要获得11.pl的路径，相对路径和绝对路径：

zczhangjx@zctech-chengjb:~/智呈监控系统/shell-perl$ ./11.pl
./11.pl
/home/zczhangjx/智呈监控系统/shell-perl/11.pl

代码：

#!/usr/bin/perl
use File::Basename;     
print "$0n";

use Cwd 'abs_path';
use warnings;
print(abs_path($0)."n");

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!