Re: [PERL] Fjerne .tar.gz

[Ole Tange <sslug@sslug>]

On 30 Jul 2000, Tim Jakobsen wrote:

> Hvis man laver en fil via ls -1 og derefter ønsker at få perl til at
> fjerne endelsen(.tar.gz) på disse filer samt smide filnavnene ind i et 
> array hvordan gøres dette så nemmest?

#!/usr/bin/perl

chomp(@ls=`ls -1`);
@uden_tar_gz = map { s/\.tar\.gz$//i } @ls;


/Ole
-- 
Du må ikke spamme.
   -- Frit efter Markedsføringsloven §6a
      http://www.fs.dk/jura/loveregl/mfl/l_mfl.htm