用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)

用perl获取某一文件所在路径，参考代码如下：\x0d\x0a\x0d\x0ause Cwd 'abs_path'\x0d\x0aprint abs_path($0)."\n"\x0d\x0aman Cwd\x0d\x0aNAME\x0d\x0aCwd - get pathname of current working directory\x0d\x0aSYNOPSIS\x0d\x0ause Cwd\x0d\x0amy $dir = getcwd\x0d\x0ause Cwd 'abs_path'\x0d\x0amy $abs_path = abs_path($file)

没有权限的话，只能改动程序

你用

perl -i -pe 's/(usr\/)local\/(bin\/perl)/$1$2/' *.pl

---

可以一次把所有 *.pl 的程序改完。