Làm thế nào để có được tên dir của một tập tin với Perl?

Question

Trong kịch bản perl của tôi, tôi có param $FILE=/etc/sysconfig/network

trong đó chiều (trong perl) Tôi có thể cắt chỉ thư mục và đưa vào thư mục trong $ DIR param

để có được:

$DIR=/etc/sysconfig 

(like dirname /etc/sysconfig/network in shell script) 

Answer 1

use File::Basename; 

($name,$path,$suffix) = fileparse($fullname,@suffixlist); 

$name = fileparse($fullname,@suffixlist); 
$basename = basename($fullname,@suffixlist); 
$dirname = dirname($fullname); 

Đọc thêm về File::Basename trong perldoc.

Answer 2

Sử dụng các module File::Basename lõi:

use strict; 
use warnings; 
use File::Basename; 

my $FILE = '/etc/sysconfig/network'; 
my $DIR = dirname($FILE); 
print $DIR, "\n"; 

này in ra:

/etc/sysconfig

Answer 3

Coi chừng! dirname() là cố ý câm để thi đua lệnh dirname trình bao. Nó không phải là quá nhiều "cung cấp cho tôi một phần thư mục của đường dẫn tập tin này" như "cho tôi tất cả, nhưng phần cuối cùng của con đường này". Tại sao điều đó quan trọng?

my $dir = "/foo/bar/"; # obviously a directory 
print dirname($dir);  # prints /foo 

Điều này là tốt, miễn là bạn nhận ra rằng dirname không trả về tên dir.

Nếu bạn muốn ở trên trả lại /foo/bar/, bạn nên sử dụng Tệp :: Spec.

use File::Spec; 
my($vol,$dir,$file) = File::Spec->splitpath($path);