Re: perl one-liner for find->exec->rm - SOLVED

Gary Stainburn wrote: > Hi all, > > I added a chomp giving - > > find . -type f|perl -ne 'chomp ; unlink||die "$_ : $!\n"' You could avoid the pipes and try this instead perl -MFile::Find -e 'find (sub {unlink|| die "$File::Find::name : $!\n" if (-f)}, ".")' > > > and it worked. > > Gary > >

Re: perl one-liner for find->exec->rm - SOLVED

Hi all, I added a chomp giving - find . -type f|perl -ne 'chomp ; unlink||die "$_ : $!\n"' and it worked. Gary On Tuesday 28 May 2002 9:51 am, Gary Stainburn wrote: > On Tuesday 28 May 2002 9:42 am, Gary Stainburn wrote: > > Hi all, > > > > Can anyone give me the one-liner to replace > > > >