Regex in split (gelöst) - #142702 (Allgemeines zu Perl)

PETER_PAN2009

2010-11-13 13:44

User since
2009-08-24
111 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen!

Ich möchte ganz gerne mit SPLIT den Dateinamen und die Endung in Variablen speichern.
Wenn der Dateiname nur aus einem Punkt besteht, klappt das wunderbar!

Code: (dl )

1
2

my $file = 'Perl.exe'
my ($text,$endung) = split(/\./, $file);

Wenn der Dateiname aber mehrere Punkte hat, bekomme ich komische Werte. Ich habes auch schon folgendermaßen versucht:

Code: (dl )

1
2

my $file = 'Perl.TEST.exe'
my ($text,$endung) = split(/\.$/, $file);

...$endung ist in diesem Fall undef!

Hat jemand ne Idee??

Vielen Dank
Gruß
Peter