Tôi cần sử dụng (các) mô-đun Perl nào để có được đường dẫn tuyệt đối (bao gồm tên tệp) từ một mô-đun tương đối trên Windows?

Question

Tôi chỉ có thể tưởng tượng mình không tìm kiếm chính xác; điều này có vẻ như một câu hỏi rõ ràng để được hỏi ở đây. Lời xin lỗi của tôi nếu điều này là một bản sao.

Tôi đang viết một chương trình Perl sẽ lấy tên tệp làm đối số dòng lệnh. Tôi cần phải chuyển đổi tên tập tin (hoặc tên tập tin với một đường dẫn tương đối đính kèm) vào một đường dẫn tuyệt đối (đặc biệt để làm việc với Win32 :: OLE).

Tôi đã thử sử dụng Cwd 's' abs_path ', và điều đó gần như làm những gì tôi muốn, nhưng nó trả về nó bằng cách sử dụng đường dẫn kiểu Unix thay vì một đường dẫn Win32.

Có mô-đun nào sẽ chuyển đổi đường dẫn hoặc có lẽ mô-đun tốt hơn để sử dụng ngay từ đầu không?

Answer 1

tôi sử dụng rel2abs từ File::Spec. Tuy nhiên, bạn phải cẩn thận: có thể gọi getdcwd từ Cwd và bạn sẽ cho rằng bạn muốn thư mục làm việc hiện tại cho ổ đĩa hiện tại. Nếu tệp nằm trên một số ổ đĩa khác, bạn sẽ phải tự sửa lỗi đó hoặc cung cấp đối số thứ hai để đặt đường dẫn cơ bản.

Answer 2

use File::Spec::Functions qw(rel2abs); 
print rel2abs($ARGV[0]), "\n"; 

Answer 3

my($foo) = abs_path($some_file); 
$foo =~ s{/}{\\}g; 

print "FOO: $foo\n"; 

Answer 4

Tôi sử dụng abs_path của Cwd và sau đó sử dụng regex để chuyển đổi dấu gạch chéo khi tôi thực sự cần. Nhưng tôi đã thấy rằng đối với hầu hết các công dụng, các dấu gạch chéo kiểu Unix hoạt động tốt. Nó chỉ thỉnh thoảng "chuyển một tên tập tin vào chương trình có giới hạn khó chịu" mà tôi cần phải chuyển đổi các dấu gạch chéo.

use Cwd 'abs_path'; 
my $path = abs_path($rel_path); 

# and only if necessary... 
$path =~ s'[/\\]+'\\'g; # use Windows-style slashes 
$path =~ s'^\\'\\\\'; # handle network path 

Nhưng sau đó .. Tôi sử dụng nhiều đường dẫn mạng, có hoặc không có tham chiếu biến tần được ánh xạ. Số dặm của bạn có thể thay đổi.