Entfernen Sie Dateierweiterung und Pfad aus einer Zeichenfolge in Perl

Question

Ich möchte einen Dateinamen ohne seinen Pfad (wenn es Teil der Zeichenfolge ist) und auch die Erweiterung abrufen.

Zum Beispiel: „“

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

Also im Grunde mag ich, bevor irgendetwas entfernen und mit dem letzten „/“ falls vorhanden und auch den letzten zusammen mit irgendwelchen Meta-Zeichen danach.

Sorry für solch eine neue Frage, aber ich bin neu in Perl.

Answer 1

Zum portablen Abrufen des Basisnamens einer Datei mit einem vollständigen Pfad würde ich das Modul File::Basename empfehlen, das Teil des Kerns ist.

tun Heuristik auf Dateiendungen I wie für einen regulären Ausdruck gehen würde

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

Answer 2

Sie dies mit einfachen Substitutionen tun können:

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

Dieses Beispiel geht davon aus, dass / der Pfad Separators .

Answer 3

Obwohl andere geantwortet haben, nach ein bisschen auf Basisnamen pro Rafl Antwort zu lesen:

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

scheint das Problem in einer Zeile zu lösen.

Gibt es irgendwelche Probleme im Zusammenhang mit den anderen Lösungen?