NetNews Usenet Archive 1992 #30/NN_1992_30.iso/spool/comp/lang/perl/7459

Text File | 1992-12-16 | 1.6 KB | 43 lines

Newsgroups: comp.lang.perl
Path: sparky!uunet!uunet.ca!cognos!alanm
From: [e-mail] (Alan Myrvold)
Subject: Re: Thanks to all of you that bought camel books!
Message-ID: <[e-mail]>
Organization: Cognos Incorporated, Ottawa CANADA
References: <[e-mail]>
Date: Wed, 16 Dec 1992 16:06:15 GMT
Lines: 32

In article <[e-mail]> [e-mail] (Randal L. Schwartz) writes:
>And be watching *soon* for Learning Perl (which would be getting done
>faster if there wasn't ten new inches of snow on Mt. Hood today....
>ackcckck!) appearing on OR&A shelves around the world.

But how does 10" of new snow delay things?
Were you alpine skiing, telemarking, x-country skate style,
   x-country classical, or just frustrated at the traffic headaches?
My bet is on Randal being a radical snowboarding dude. :-)

I found the tutorial in the Camel book quite good for learning Perl,
but then again, I had read the man page all the way through first.
Plus, how long will Learning Perl exist before it is obsoleted by version 5
changes?

ob. perl code :

#!/usr/local/bin/perl

# lower_files : rename uppercase files with version numbers (ftp'd from VMS)
#               to something sane.
for $f (grep(/[A-Z]/,<*>)) {
   ($g = $f) =~ tr/A-Z/a-z/;
   $g =~ s/;[0-9]+//;
   print "renaming $f to $g\n";
   rename($f,$g);
}
---
Alan Myrvold          3755 Riverside Dr.
Cognos Incorporated   P.O. Box 9707          [e-mail]
[phone] x3317  Ottawa, Ontario
                      CANADA  K1G 3Z4