Perl ile bir dosyanın adını nasıl alabilirim? Benim perl komut dosyasında

Question

, benim hemen sadece dizini kesip sırayla $ DIR param içindeki

dizini koyabilirsiniz (perl'de) hangi yolla param $FILE=/etc/sysconfig/network

var:

$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); 

perldoc.

Answer 2

Kullanım File::Basename çekirdek modülü:

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

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

Bu yazdırır:

/etc/sysconfig

Answer 3

dikkat! dirname(), dirname kabuk komutunu taklit etmek için kasıtlı olarak aptalcadır. "Bu dosya yolunun dizinini bana ver" o kadar çok değil, "bu yolun son kısmını ama hepsini ver" şeklinde değil. Bu neden önemli?

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

Bu sadece çok uzun dirname dirname dönmez farkında olarak, gayet iyi.

Yukarıdakilerin /foo/bar/ değerini döndürmesini istiyorsanız, File :: Spec.

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