Eliminar la extensión de archivo y la ruta de una cadena en Perl

Question

Quiero obtener un nombre de archivo sin su ruta (si es parte de la cadena) y también la extensión.

Por ejemplo:

/path/to/file/fileName.txt  # results in "fileName" 
fileName.txt     # results in "fileName" 
/path/to/file/file.with.periods.txt # results in "file.with.periods" 

Así que, básicamente, quiero quitar nada antes e incluyendo el último "/" si está presente y también el último "" junto con cualquier metacaracteres después de él.

Lo siento por una pregunta tan novato, pero soy nuevo en Perl.

Answer 1

Para obtener portables el nombre de un archivo dado un camino completo, recomendaría el módulo File::Basename, que es parte del núcleo.

Para hacer heurísticas sobre las extensiones de archivo que volvería para una expresión regular como

(my $without_extension = $basename) =~ s/\.[^.]+$//; 

Answer 2

Puede hacer esto con sustituciones simples:

$name =~ s{.*/}{};  # removes path 
$name =~ s{\.[^.]+$}{}; # removes extension 

Este ejemplo asume que / es el separador de ruta .

Answer 3

Aunque otros han respondido, después de leer un poco en nombre base por la respuesta de rafl:

($file,$dir,$ext) = fileparse($fullname, qr/\.[^.]*/); 
# dir="/usr/local/src/" file="perl-5.6.1.tar" ext=".gz" 

parece resolver el problema en una línea.

¿Hay algún problema relacionado con esto, a diferencia de las otras soluciones?