用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获取某一文件所在路径

，参陵兄侍考代尘模码如下：

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)

---

系统bug。在电脑里perl运行凳拍液中，找不到指定路径是系统枣物bug导致的，需要重启系统解决。Perl是一种能完成任务的语言。从一开始，Perl就设计成可以把简单工作简单化，同时又不失去处理困难问题能贺滑力的语言。