On Jun 23, 5:57pm, Eric Thelin wrote:
> Ah, but the shell script will count the files in the whole tree from the
> starting directory down. But the perl version will only count files in
> the directory itself. So for most uses the shell script is better. So
> newbies would be better off using the shell script. Of course this
> leaves a challenge for the perl hackers to fix\b\b\bimprove the perl
> version. OK, so I am writing this because I want the perl script to be
> as good as the shell one but I am too lazy to do it myself :)
Ummm... I think you'd better try it. Both scripts have identical
functionality.
I've tested it on my /usr/local hierarchy and got identical results:
ocotillo:ptests$ ./fsizes2.pl /usr/local
107029246
ocotillo:ptests$ ./fsizes2.sh /usr/local
107029246
> On Thu, 22 Jun 2000, Kevin Buettner wrote:
>
> > On Jun 22, 1:29am, Kevin Buettner wrote:
> >
> > > Below another way to do it that doesn't use perl.
> > [...]
> > > find $1 -type f -not -type l -printf '%s\n' | awk -- '{s += $0} END {print s}'
> >
> > Okay, I'm wasting way too much time on this, but I couldn't very well
> > submit a twenty-three line perl solution and what amounts to find+awk
> > one liner and leave it at that. Newbies out there might get the wrong
> > idea and start writing shell scripts instead of perl scripts!
> >
> > So here's another shell script which is very similar to fsizes.sh, but
> > uses a perl one-liner to do the job of both find and awk in that other
> > script.
> >
> > --- fsizes2.sh ---
> > #!/bin/sh
> >
> > if [ -z "$1" ]; then
> > echo "usage $0 root-dir"
> > exit 1
> > fi
> >
> > perl -MFile::Find -e 'find sub {$s += -s if -f && !-l}, @ARGV; print "$s\n"' $1
> > --- end fsizes2.sh ---
> >
> > And here's the equivalent code in pure perl...
> >
> > --- fsizes2.pl ---
> > #!/usr/bin/perl -w
> >
> > use File::Find;
> >
> > die "Usage $0 root-dir\n" unless defined $ARGV[0];
> >
> > find sub { $s += -s if (-f && !-l)}, $ARGV[0];
> > print "$s\n";
> > --- end fsizes2.pl ---
> >
> > I'd be curious to see what a Python solution looks like.
> >
> > _______________________________________________
> > Plug-discuss mailing list - Plug-discuss@lists.PLUG.phoenix.az.us
> > http://lists.PLUG.phoenix.az.us/mailman/listinfo/plug-discuss
> >
>
> --
>
>
> _______________________________________________
> Plug-discuss mailing list - Plug-discuss@lists.PLUG.phoenix.az.us
> http://lists.PLUG.phoenix.az.us/mailman/listinfo/plug-discuss
>-- End of excerpt from Eric Thelin
(text/plain)