¿Cómo obtengo el nombre dir de un archivo con Perl?

Question

En mi script de Perl, tengo el parámetro $FILE=/etc/sysconfig/network

de qué manera (en Perl) que puede cortar sólo el directorio y poner el directorio de $ DIR parámetro

con el fin de conseguir:

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

Más información sobre File::Basename en Perldoc.

Answer 2

Uso del módulo File::Basename núcleo:

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

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

Esto muestra:

/etc/sysconfig

Answer 3

¡Cuidado! dirname() es deliberadamente tonto para emular el comando de shell dirname. No es tanto "dame el directorio parte de esta ruta de archivo" como "dame todo menos la última parte de esta ruta". ¿Por qué es eso importante?

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

Esto está muy bien, con tal de que te das cuenta que dirname no devuelve el nombredir.

Si desea que lo anterior regrese /foo/bar/, es mejor que use File :: Spec.

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