Rimuovere l'estensione del file e il percorso da una stringa in Perl

Question

Voglio ottenere un nome file senza il suo percorso (se fa parte della stringa) e anche l'estensione.

Ad esempio: ""

/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" 

Quindi, fondamentalmente, voglio togliere nulla prima e compreso l'ultimo "/" se presente e anche l'ultimo insieme a qualsiasi meta personaggio dopo di esso.

Ci scusiamo per una domanda simile a un novizio, ma sono nuovo di perl.

Answer 1

Per ottenere il nome di base di un file con un percorso completo, consigliamo il modulo File::Basename, che fa parte del core.

Per fare euristica su estensioni di file mi piacerebbe andare per un'espressione regolare come

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

Answer 2

si può fare questo con semplici sostituzioni:

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

Questo esempio presuppone che / è il separatore di percorso .

Answer 3

Anche se altri hanno risposto, dopo aver letto un po 'sul nome di base per la risposta di Rafl:

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

sembra risolvere il problema in una sola riga.

Ci sono problemi relativi a questo, contrari alle altre soluzioni?