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

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

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

代码:

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

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

    原文作者:_時_
    原文地址: https://blog.csdn.net/PurpleGalaxy/article/details/41315873
    本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系博主进行删除。
点赞