đường dẫn tuyệt đối tương đối perl

Question

Tiếp theo thiết lập thư mục:

/dira/dirb 
/dira/dirb/myprog.pl 

/dira/dirb/testa/myfilesdir Chứa các file sau

/dira/dirb/testa/myfilesdir/file1.txt 
/dira/dirb/testa/myfilesdir/file2.txt 

dir hiện tại:

/dir/dirb 

./myprog.pl -p testa/myfilesdir 

Cycle qua file

while (my $file_to_proc = readdir(DIR)) { 
... 

$file_to_proc = file1.txt 
$file_to_proc = file2.txt 

những gì tôi muốn là

$myfile = /dira/dirb/testa/myfilesdir/file1.txt 
$myfile = /dira/dirb/testa/myfilesdir/file2.txt 

Cố gắng một vài mô-đun perl khác nhau (rel2abs CWD) nhưng nó được sử dụng thư mục hiện hành. Tôi không thể sử dụng thư mục hiện tại vì đầu vào có thể là đường dẫn tương đối hoặc tuyệt đối.

Answer 1

Sử dụng mô-đun File::Spec. Ở đây một ví dụ:

use warnings; 
use strict; 
use File::Spec; 

for (@ARGV) { 
    chomp; 
    if (-f $_) { 
     printf qq[%s\n], File::Spec->rel2abs($_); 
    } 
} 

Run nó thích:

perl script.pl mydir/* 

Và nó sẽ in đường dẫn tuyệt đối của file.

---

CẬP NHẬT với chương trình hiệu quả hơn. Nhờ các đề xuất của TLP.

use warnings; 
use strict; 
use File::Spec; 

for (@ARGV) { 
    if (-f) { 
     print File::Spec->rel2abs($_), "\n"; 
    } 
}