Perl/File::Basename

Módulo	File::Basename
Versión	5.10.1
Uso	{{{use}}}
Propósito	Disecciona una ruta de un fichero en directorio, nombre y sufijo.

Referencia

fileparse

my $path = "/usr/share/myprogram/fonts/readme.txt";

my ($dir, $name, $extension) = fileparse($path, qw(txt lst) );

Esta función disecciona un nombre de un archivo (una ruta de acceso) y obtiene los tres elementos que la componen: directorio, nombre y sufijo.

Si el contexto de llamada es una lista la función retorna los tres elementos mientras que si es un valor escalar retorna el nombre del archivo.

La lista de extensiones es opcional y consiste en una lista de patrones o expresiones regulares que se validan contra el nombre de archivo, retirándose aquella porción que coincide y empleándola como nombre de archivo.

Empleando esta función está garantizado que la expresión $dir . $name . $extensión apunta al mismo lugar que la variable $path original.