Re: [PERL] Regulært udtryk, der matcher sidste / i en streng

[Peter Makholm <sslug@sslug>]

David Darville <sslug@sslug> writes:

> ($sti, $filnavn) = $_ =~ /(.+)\/(.+)/;

Det vil virke men jeg tror følgende er hurtigere:

@path = split /\//;
$filnavn = pop @path;
$sti = join "/", @path;

Det vil iøvrigt også virke hvis filen ligger i roden eller i det
aktuelle katalog (ved brug af relative filnavne), men det kan dit
regulære udtryk også let skrives om til.