Perl：获取目录中文件的路径

Question

我打开目录a/b/c/

c有d1 , d2, d3 d4

我想打印d1 d2 d3 d4

的路径

像

a/b/c/d1
a/b/c/d2
a/b/c/d3 and soo on

Answer 1

use Cwd 'abs_path';

print "$_\n" for map abs_path($_), glob("a/b/c/*");

Answer 2

你可以试试Cwd

perl -e 'use Cwd 'abs_path'; print abs_path("myfile");'

Answer 3

除非你想要优化路径（在这种情况下你想要File::Spec->canonpath而不是Cwd::abs_path），你可以简单地使用

"$dir/$fn"