perl 获取目录信息

 1 #!/usr/bin/perl -w
 2 use strict;
 3 use FindBin qw($Bin $Script);
 4 
 5 my $rp=$Bin;
 6 print "the script dir:$rp
script name:$Script
";
 7 
 8 use Cwd qw(abs_path getcwd);
 9 my $abs=abs_path(getcwd());
10 print "current path is:$abs
"

作者：天使不设防

出处：https://www.cnblogs.com/mmtinfo/

本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利.