Re: [PERL] Fjerne .tar.gz

["Nezar Nielsen" <sslug@sslug>]

----- Original Message -----
From: "Christian Borup" <sslug@sslug>
Newsgroups: sslug.perl
To: <sslug@sslug>
Sent: Tuesday, August 01, 2000 9:59 PM
Subject: Re: [PERL] Fjerne .tar.gz


> Nezar Nielsen wrote:
>
> > push @filer,grep {!/^\./ && -f $_} map { s/\.t(ar\.)?gz$//i, $_ }
> > readdir(D);
>
> Ville det ikke være bedre at bytte om på map og grep'en :-)

Jo, selvfølgelig, jeg så den også godt, da jeg havde postet beskeden, men
håbede ingen lagde mærke til det ;)

--
Mvh. Nezar Nielsen
Viskelæder-fabrikant.