Re: [PERL] Fjerne .tar.gz

[Ole Tange <sslug@sslug>]

On 30 Jul 2000, Tim Jakobsen wrote:

> Hej !
> 
> Gider du ikke prøve at forklare hvad det er der sker for der er ikke
> andet i @uden_tar_gz end 1'taller. Derimod ser det ud til at @ls
> indeholder filnavnene uden .tar.gz..

Hov:

#!/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