Re: [PERL] Fjerne .tar.gz

["Nezar Nielsen" <sslug@sslug>]

----- Original Message -----
From: "Nezar Nielsen" <sslug@sslug>
To: <sslug@sslug>
Sent: Monday, July 31, 2000 12:16 AM
Subject: Re: [PERL] Fjerne .tar.gz


> > 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 -w
> opendir(D,".") || die("hmm:$!");
> push @filer,grep {-f $_} map { s/\.t(ar\.)?gz$//i, $_ } readdir(D);

hov, hvis kun det skal være ls -1, så skal det være

push @filer,grep {!/^\./ && -f $_} map { s/\.t(ar\.)?gz$//i, $_ }
readdir(D);

--
Mvh. Nezar Nielsen
http://fez.dk/
Sofavælger.