用perl获取某一文件所在路径，参考代码如下：
use Cwd 'abs_path';
print abs_path($0)."\n";
man Cwd
NAME
Cwd - get pathname of current working directory
SYNOPSIS
use Cwd;
my $dir = getcwd;
use Cwd 'abs_path';
my $abs_path = abs_path($file);
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024