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
>
> 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
> > >
> > >
> > > find . -type f -exec rm {} \;
> > >
> > > with
> > >
> > > find . -type f |perl -?????????
> > >
> > > to improve the speed when deleting a large squid cache
> >
> > sorry, I forgot to include how far I've got. Where's the closest I've got,
> > and the output I got:
> >
> > [gary@gary tmp]$ find . -type f|perl -ne 'unlink||die "cannot unlink $_:
> > $!"' cannot unlink ./1/a
> >
> > : No such file or directory at -e line 1, <> line 1.
> >
> > [gary@gary tmp]$ ll 1
> > total 28
> > -rw-rw-r-- 1 gary gary 6 May 28 09:47 a
> > -rw-rw-r-- 1 gary gary 6 May 28 09:47 b
> > -rw-rw-r-- 1 gary gary 6 May 28 09:47 c
> > -rw-rw-r-- 1 gary gary 6 May 28 09:47 d
> > -rw-rw-r-- 1 gary gary 6 May 28 09:47 e
> > -rw-rw-r-- 1 gary gary 6 May 28 09:47 f
> > -rw-rw-r-- 1 gary gary 6 May 28 09:47 g
> > [gary@gary tmp]$
>
> --
> Gary Stainburn
>
> This email does not contain private or confidential material as it
> may be snooped on by interested government parties for unknown
> and undisclosed purposes - Regulation of Investigatory Powers Act, 2000
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
