2013-02-01T15:52:21 Superfrank

Code: (dl )

1
2

my $dir = 'aaa/bbb/ccc.php';
$dir =~ s/\/([^\/]{1,})$/$1/;

Das sieht nicht so ganz richtig aus.

Der zu ersetzende Ausdruck ist fast komplett mit den runden Klammern eingeklammert, d.h. $1 auf der rechten Seite ist genau der ursprünglich gematchte String, abgesehen von dem Schrägstrich. Das einzige, was Dein Ausdruck macht, ist also, dass er den Schrägstrich entfernt.

Ich schlage vor, Path::Class oder File::Basename zu benutzen. Letzteres wird mit Perl ausgeliefert.