Làm thế nào tôi có thể nhận được phân cách thư mục (đường dẫn tệp) trong Perl?

Question

Trong trường hợp của Java, chúng ta có thể nhận được phân cách đường dẫn sử dụng

System.getProperty("path.separator"); 

Có cách nào tương tự trong Perl? Tất cả những gì tôi muốn làm là tìm một thư mục, thư mục con ngay lập tức. Giả sử tôi đang được trao hai đối số $a và $b; Tôi đang tách phần đầu tiên dựa trên dấu phân cách đường dẫn và nối lại nó trừ đoạn cuối cùng và so sánh với đối số thứ hai.

Vấn đề là mã của tôi phải chung chung và tôi cần biết phân tách đường dẫn phụ thuộc vào hệ thống là gì?

Answer 1

Câu trả lời được chấp nhận giải quyết vấn đề thực sự của bạn, nhưng nếu bạn thực sự muốn nhận được phân cách (sử dụng module lõi chỉ perl):

my $sep = File::Spec->catfile('', ''); 

Điều này kết hợp hai tên tệp trống với dấu phân cách của hệ thống hiện tại, chỉ để lại dấu tách.

Answer 2

Bạn có thể sử dụng SL constant in File::Util.

Answer 3

Bạn không nên tạo đường dẫn tập tin bằng tay - thay vì sử dụng File::Spec mô-đun:

($volume, $directories,$file) = File::Spec->splitpath($path); 
@dirs = File::Spec->splitdir($directories); 
$path = File::Spec->catdir(@directories); 
$path = File::Spec->catfile(@directories, $filename);