Re: [Fun With Perl] index.html

[Bennett Todd <bet@newritz.mordor.net>]

1999-06-11-14:35:36 John Porter:
> > you can use Hrvoje Niksic's utility "wget" and perl?
> > (wget is avaliable as a debian GNU/Linux package)
> 
> Debian-specific/only?  Pretty useless, in that case.

Not at all; I use it on Red Hat 5.2, Red Hat 6.0, Solaris 2.x, and SunOS 4.x
as well, it's nicely portable. I suspect the previous comment didn't intend to
imply that it was Debian-only, but rather to say that if you didn't know where
to get it, you could quickly track it down by starting with a package search
from <URL:http://www.debian.org/>. While I personally strongly prefer Red Hat
over Debian, I have to give 'em credit, they have succeeded in policing up the
best software in the field and providing nice one-stop shopping; I search for
SRPMs first, but if I don't find 'em I use Debian as a search engine for
running down sources (which I then wrap into an SRPM).

> I confess I'm not familiar with the workings of wget;
> please enlighten as to how it differs from GET, which comes with LWP.

I don't know GET, but wget is an efficient, flexible downloader, has a _lot_
of options for setting it on recursive tree crawls and controlling where and
how it wanders.

And now for some perl-related content, I often find myself using various
idiomatic one-liners; ones that leap to mind are:

	perl -MWHere::What -le 'print $Where::What::VERSION'
	less `perl -le 'print for grep{-f}map{"$_/Where/What.pm"}@INC'`
	ls|perl -lne 'rename $_,"\L$_" if /A-Z/'
	ls|perl -lne 'rename $_,sprintf("%05d.txt",$1) if /(\d+)\.txt/'
	...|perl -lane '$s+=$F[-1];END{print $s}'

-Bennett
perl -MDate::Parse -le 'print int((str2time("2000-01-01")-time)/86400)'

==== Want to unsubscribe from this list? (Don't you love us anymore?)
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org