Re: [PERL] Fjerne .tar.gz

["Nezar Nielsen" <sslug@sslug>]

----- Original Message -----
From: "Tim Jakobsen" <sslug@sslug>
Newsgroups: sslug.perl
To: <sslug@sslug>
Sent: Sunday, July 30, 2000 10:35 PM
Subject: [PERL] Fjerne .tar.gz
>

> Hej !
>
> 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?

Hvis du gerne vil have det til at virke på alle[tm] platforme må det være
noget i stil med(Ole's lidt modificeret):
(tager kun "egentlige" filer med)

#!/usr/bin/perl -w
opendir(D,".") || die("hmm:$!");
push @filer,grep {-f $_} map { s/\.t(ar\.)?gz$//i, $_ } readdir(D);

Du bør nok holde øje med "dobbelte" filer - hvis du f.eks har en fil der
hedder fez.bin og fez.bin.tar.gz ..så vil det resultere i to nøgler med
samme værdi i dit array..

--
Mvh. Nezar Nielsen
http://fez.dk/
Pizza-eater.