Re: [PERL] Fjerne .tar.gz

[Christian Borup <sslug@sslug>]

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 :-)

./borup