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

[Peter Andreasen <sslug@sslug>]

* Peter Makholm (sslug@sslug) [2001-03-29 09:01]:
> 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;

Og, sædvanen tro, er der også et modul, nemlig <insert drum roll>

  File::Basename

som i hvert fald i fra perl 5.6 er med som standard. Man kan således
skrive

  use File::Basename;

  $pathname = "/long/path/ending/with/important/file";
  $filnavn = basename($pathname);
  $dirname = dirname($pathname);

Der er self. en man-side til File::Basename.

 - peter

-- 
ln -s /dev/random ~/.plan