[18323] in Perl-Users-Digest
Perl-Users Digest, Issue: 491 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Mar 15 03:05:37 2001
Date: Thu, 15 Mar 2001 00:05:10 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <984643510-v10-i491@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 15 Mar 2001 Volume: 10 Number: 491
Today's topics:
Re: 2-dimensional arrays (Gwyn Judd)
Re: Backtick program output question! (Tad McClellan)
Re: Backtick program output question! (Tad McClellan)
Re: better way for if structure ... (Tad McClellan)
Re: FAQ 6.5: How do I substitute case insensitively o <c_clarkson@hotmail.com>
Re: FAQ 6.5: How do I substitute case insensitively o <uri@sysarch.com>
Re: FAQ 6.5: How do I substitute case insensitively o (Gwyn Judd)
Re: How to Print "system" failure ...was <Print own "di (Iain Chalmers)
Re: HTTP Client Question <spohn@bigfoot.com>
Re: Maintaining the number format and not exponential (Gwyn Judd)
Re: Memory and Perl (Gwyn Judd)
Re: Perl Version Question (Chris Fedde)
Re: Print own "die" message <brondsema@my-deja.com>
Re: Print own "die" message <brondsema@my-deja.com>
Re: Time Conversion (Chris Fedde)
Re: Use PERL or Java? Which is faster? (Chris Fedde)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 15 Mar 2001 06:39:19 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: 2-dimensional arrays
Message-Id: <slrn9b0osm.6ai.tjla@thislove.dyndns.org>
I was shocked! How could Milliwave <milliwave@rfengineering.freeserve.co.uk>
say such a terrible thing:
>I would ideally like to make use of the variables already in the while loop
His example does, more or less, given certain probably true assumptions
about the format of your data. I think you would agree that his code is
significantly simpler as well :)
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
:ECP: /E-C-P/ n. See {spam} and {velveeta}.
From "The New Hackers Dictionary", version 4.2
------------------------------
Date: Wed, 14 Mar 2001 23:19:19 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Backtick program output question!
Message-Id: <slrn9b0gm6.4pl.tadmc@tadmc26.august.net>
[ Please put your comments *following* the quoted text that
you are commenting on, as described in:
http://www.geocities.com/nnqweb/nquote.html
]
Aaron Cline <acline@okstateREMOVECAPS.edu> wrote:
>Steven Smolinski wrote:
>> You ought to get in the habit of checking the docs first. You'll save
>> time at the very least.
>Thanks for the reply. I will check the man pages next time. They are just
>daugnting when you really don't know what you're looking for.
^^^^^^^^^^
Ah but you _did_ know. All you need is a tool to do word searches,
you already have good key words to search for.
Find out where the *.pod files got installed on your system,
go there, and grep away.
grep -i backtick *.pod
finds only 63 lines (one of them the line Steven quoted). You can
skim through 63 lines, and find the answer to your question in less
than a minute.
You also said "error output", so you might have searched for:
grep -i backtick *.pod | grep -i error
"Because backticks do not affect standard error, use
shell file descriptor"
There is the answer!
Some other helpful search tips:
Try the term with Initial Caps hoping to find it in a title or at
the beginning of a sentence.
grep Backtick *.pod
"Backticks and open() read B<only> the STDOUT of your command."
That would have done it too.
Search only the "headlines":
grep ^= *.pod | grep -i backtick
(but that techinique didn't happen to turn up anything useful
for your particular problem.
)
See also "How to Research The Fabulous Perl Manual" which
is still inwork but has plenty of useful stuff in it
already (long URL word wrapped):
http://www.xray.mpe.mpg.de/cgi-bin/extract-mbox/perl5-porters/
2000-05?25048%2E957207786%40chthon
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 14 Mar 2001 22:53:24 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Backtick program output question!
Message-Id: <slrn9b0f5k.4pl.tadmc@tadmc26.august.net>
Steven Smolinski <sjs@linux.ca> wrote:
>Aaron Cline <acline@okstateREMOVECAPS.edu> wrote:
>> How can I get
>> this error output into the variable??
Aaron's is a Frequently Asked Question:
"How can I capture STDERR from an external command?"
You should check the Perl FAQs before posting to the Perl newsgroup.
>Better yet, you won't provoke Tad.
Too late. :-)
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 14 Mar 2001 23:47:13 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: better way for if structure ...
Message-Id: <slrn9b0iag.4pl.tadmc@tadmc26.august.net>
Jens Luedicke <jens@irs-net.com> wrote:
>
>Is there a better way to do that? It works but I'm not happy
>with the if-structure ..
>
>$filter_success = &filter_action($i->{action}, $i->{folder}, @$data)
> if $i->{type} eq "From" and $head[$_][0] =~ /$i->{pattern}/
> or $i->{type} eq "Subject" and $head[$_][1] =~ /$i->{pattern}/
> or $i->{type} eq "To" and $head[$_][2] =~ /$i->{pattern}/
> or $i->{type} eq "Cc" and $head[$_][4] =~ /$i->{pattern}/
For the lines above, you could do something like:
my %headers;
@headers{ qw/From Subject To Cc/ } = ( 0, 1, 2, 4);
if ( grep $_ eq $i->{type}, keys %headers ) { # make sure it is a key
if ( $head[$_][$headers{$i->{type}}] =~ /$i->{pattern}/ ) {
But that is hardly any better.
If you use a LoH instead of LoL it would be measurably better:
if ( grep $_ eq $i->{type}, keys %{$head[$_]} ) {
if ( $head[$_]{$i->{type}} =~ /$i->{pattern}/ ) {
> or $i->{type} eq "Header" and $headings[$_] =~ /$i->{pattern}/
> or $i->{type} eq "Body" and $messages[$_] =~ /$i->{pattern}/;
Those two lines break the pattern though...
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 14 Mar 2001 18:43:23 -0600
From: "Charles K. Clarkson" <c_clarkson@hotmail.com>
Subject: Re: FAQ 6.5: How do I substitute case insensitively on the LHS, but preserving case on the RHS?
Message-Id: <0FC3FCEAFC3B02D8.0B6622C24D414399.D581D5B9E94EEDB1@lp.airnews.net>
PerlFAQ Server <faq@denver.pm.org>
: How do I substitute case insensitively on the LHS, but
: preserving case on the RHS?
What is RHS and LHS?
Charles K. Clarkson
------------------------------
Date: Thu, 15 Mar 2001 06:33:21 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: FAQ 6.5: How do I substitute case insensitively on the LHS, but preserving case on the RHS?
Message-Id: <x71yrza6dq.fsf@home.sysarch.com>
>>>>> "CKC" == Charles K Clarkson <c_clarkson@hotmail.com> writes:
CKC> PerlFAQ Server <faq@denver.pm.org>
CKC> : How do I substitute case insensitively on the LHS, but
CKC> : preserving case on the RHS?
CKC> What is RHS and LHS?
RHS is right hand side. LHS is left as an exercise to the reader.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Thu, 15 Mar 2001 06:42:04 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: FAQ 6.5: How do I substitute case insensitively on the LHS, but preserving case on the RHS?
Message-Id: <slrn9b0p1r.6ai.tjla@thislove.dyndns.org>
I was shocked! How could Charles K. Clarkson <c_clarkson@hotmail.com>
say such a terrible thing:
>PerlFAQ Server <faq@denver.pm.org>
>: How do I substitute case insensitively on the LHS, but
>: preserving case on the RHS?
>
>
> What is RHS and LHS?
RHS --------->
<--------- LHS
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
What sin has not been committed in the name of efficiency?
------------------------------
Date: Thu, 15 Mar 2001 16:12:04 +1100
From: bigiain@mightymedia.com.au (Iain Chalmers)
Subject: Re: How to Print "system" failure ...was <Print own "die" message"
Message-Id: <bigiain-1503011612040001@bigman.mighty.com.au>
In article <3AB04750.C5B4788F@home.com>, "What A Man !"
<whataman@home.com> wrote:
>Iain Chalmers wrote:
>>
>> In article <3AB01C54.E1CB14C3@home.com>, "What A Man !"
>> <whataman@home.com> wrote:
>>
>> >So, I guess my error message is now coming out fine now by just using
>> >"print", but then my "system" coding doesn't work. If the "system"
>> >command fails, I want it to do everything in the print statement.
>> >
>> >Here's where I'm at...
>> >
>> >system("gtar -xzf $tmpfile -C $tmpdir 2>&1")
>> > or print
>> > "<body><!--#echo banner=''-->
>> > <font size=3><BR><BR></font>
>> > <font size=4 face=Verdana,Arial color=990033><BR><BR>
>> > <blockquote><STRONG>Sorry, but there is something wrong
>> > with that TAR file.</STRONG></blockquote></font></body>";
>> > rmdir $tmpdir; unlink $tmpfile; exit();
>> >
>> >As I stated, the "system("gtar)" line works by itself... but when I add
>> >the print message all I get is the print message and it never works.
>> >
>> >I hope I explained it better this time. Is something wrong with my
>> >syntax?
>>
>> Whats the return value of system? (perldoc -f system)
>Studied this and lipc too. I'm not sure how to find this out. I guess it
>would be true, which is 1?
You guess wrong - did you read this bit? "The return value is the exit
status of the program as returned by the C<wait()> call.?"
try this code and see if you can work out why it does what it does:
#first include whatever setup you use for $tmpdir && $tmpfile
if (system("gtar -xzf $tmpfile -C $tmpdir 2>&1")){print 'true';}
else {print 'false';}
>>
>> Whats does gtar return on success?
>Don't know how to find this out either?
man tar
what does tar return when you type "tar zxf something.tar.gz" at the
command line?
>>
>> So whats the boolean value of a successful "system("gtar -xzf $tmpfile -C
>> $tmpdir 2>&1")"???
>Boolean? What does that mean? I've seen that word relating to search
>engines?
eeerrkk! go read some programming texts!
A boolean expression has two possible values, "true" and "false".
This is *fundamental* programming stuff...
>>
>> Now why are you "or"ing that with your error message?
>Because I didn't want to use another conditional statement if I didn't
>have to. I already have so many if/else/unless/while's that it's hard to
>keep track of.
>
>Yes, I'm totally lost on this. I take it that changing from system to
>backticks wouldn't be any easier, huh?
Nope - your mistake is that you made an assumption that your system call
will return true - it doesn't, it returns whatever the output of the
program you call is. In this case, tar returns *nothing* if its successful
(and _something_ (an error message) if it fails). In perl a return from
the program of *nothing* evaluates as FALSE! The system call is only going
to return TRUE if the call to tar fails (because you get an error message,
and anything other than 0 or undef evaluates as TRUE). So, since the
lefthand expression of your "or" statement is FALSE, perl has to evaluate
the righthand side (the print statement).
The simple answer is to change the "or" to an "and", but just telling you
to do that wouldn't have helped you understand *why*...
big
------------------------------
Date: Thu, 15 Mar 2001 00:12:36 -0600
From: "Al Spohn" <spohn@bigfoot.com>
Subject: Re: HTTP Client Question
Message-Id: <tb0napoppopgc6@corp.supernews.com>
David H. Adler <dha@panix6.panix.com> wrote in message
news:slrn9b0fnm.r1e.dha@panix6.panix.com...
> [jeapordectamy performed]
>
> >David H. Adler <dha@panix2.panix.com> wrote in message
> >news:slrn9avi7u.bch.dha@panix2.panix.com...
> >> On Wed, 14 Mar 2001 16:55:46 GMT, Bob Dilworth <avast@hortonsbay.com>
> >wrote:
> >> >
> >> >Abigail is indicating that you're now part of her kill file which
means
> >> >she'll not be reading any of your postings any more. My advice is to
> >> >welcome such "plonking" since it'll weed out the Taliban and you can
> >> >concentrate on getting help from folks who are less concerned with a
> >> >slavish regard for random rules.
> >>
> >> Of course, the fact that abigail is one of the more knowledgeable
> >> posters here, and that many of the other experts may well have followed
> >> suit silently, is unimportant.
> >>
> >> </sarcasm>
>
> On Wed, 14 Mar 2001 16:04:38 -0600, Al Spohn <spohn@mayo.edu> wrote:
> >Terrifying to consider the possibility that all perl experts might suffer
> >from the same disorder. On the bright side, nobody having seen any of my
> >perl code would ever confuse me for a member of that group :-).
>
> Terrifying to consider that so many people think it a perfectly
> acceptable thing to come into an established forum of a large group of
> people and expect them to follow differnent rules just for him, when he
> also expects them to put themselves out for him.
Come on, it's not as though I barged in asking how many peanuts are in a
Snickers bar, or solicited folks to check out my X-rated site, or
cross-posted the same question to 129 groups. Granted, my question could
have been focused to be a little more perl-centric, but it certainly didn't
call for what I thought was a pointlessly snide response on Abigail's part.
And contrary to your earlier comment, the extent to which one is
knowledgeable *is* unimportant when it comes down to basic courtesy or
making the distinction between silly nit-picking and constructive
suggestions concerning group etiquette. If getting slammed every time one
posts imperfectly is what the rules are all about, then yes, I guess I do
expect people to follow different rules - but hopefully not for just me, but
also for the next poor slob who happens along looking for help and ends up
committing some typographical/semantic sin that gets him/her in deep poop
with the local post militia.
------------------------------
Date: Thu, 15 Mar 2001 06:45:30 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Maintaining the number format and not exponential
Message-Id: <slrn9b0p89.6ai.tjla@thislove.dyndns.org>
I was shocked! How could Heather <hans-n-heather@fish.net>
say such a terrible thing:
>In article <3AB023DE.860F9C64@la.znet.com>, Kira <callgirl@la.znet.com>
>wrote:
>>
>> You misspelled "troll."
>
>If by trolling you mean "try to converse in as sober and inoffensive a
>way as possible to get her to explain what she meant," then yes, guilty
>as charged. I'm not interested in other people's animosities around
No, what she meant was, when you said "Godzilla", you misspelt "troll".
Some things never change.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
There was a young lady named Brook
Who never could learn how to cook.
But on a divan
She could please any man-
She knew every darn trick in the book!
------------------------------
Date: Thu, 15 Mar 2001 06:55:14 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Memory and Perl
Message-Id: <slrn9b0pqg.6ai.tjla@thislove.dyndns.org>
I was shocked! How could Collin Borrlewyn <collin@crosslink.net>
say such a terrible thing:
>When it comes to that, what about efficiency? Is any particular sort of loop
>inherently more efficient than another? There are many places where I could
>interchange for and foreach without trouble, for example, but is one
>better/more efficient?
"for" and "foreach" are exactly equivalent.
>And, is there a memory-saving way to pass variables between subroutines
>without simply creating duplicate local variables?
Sure, use references. @_ holds a reference to every parameter you
passed, so if you do:
sub something
{
my $thing = shift @_;
print $thing;
}
Then you make a copy of whatever was in $_[0]. On the other hand if you
do:
sub something
{
print $_[0];
}
Then you don't.
>All the perl docs that I've looked at have seemed to say about memory is
>"use mod_perl", "you can't shrink a hash/array", and some stuff about
>substr() and vec().
Well, you can shrink an array by assigning to $#array. This doesn't mean
that Perl will give that memory back to the OS. Or even that Perl will
reuse that memory. The advice on using substr and vec is definitely
useful in certain circumstances. Other than that I can give you no
specific advice, however finding out where your program is using the
most memory will help you in figuring out ways to reduce its memory
usage.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
Man's horizons are bounded by his vision.
------------------------------
Date: Thu, 15 Mar 2001 06:45:35 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: Perl Version Question
Message-Id: <jyZr6.980$T3.196892672@news.frii.net>
In article <98p5aq$cqf$1@slb1.atl.mindspring.net>,
Ed Doyle <doyleed@sprynet.com> wrote:
[...]
>
>Suppose I add a perl script that has a line
>
>use File::Basename;
>
>Is there something I can put in that script that queries whether the version
>of perl being run at that site in fact supports use File::Baseline.
>
You can place the use statement inside an eval. That way the program will
not die if the use fails. And the error output from the failure will be in $@.
>
>If there was, I could add a line checking if the version of perl was greater
>then x where x was the first version to support use File::Baseline;
>
perl -e 'use 6.0'
Perl v6.0.0 required--this is only v5.6.0, stopped (did you mean v6.0.0?) at -e
line 1.
This stuff is in the perlfunc manual page in the entry for "use";
chris
--
This space intentionally left blank
------------------------------
Date: Thu, 15 Mar 2001 05:18:52 GMT
From: "Dave Brondsema" <brondsema@my-deja.com>
Subject: Re: Print own "die" message
Message-Id: <0hYr6.59375$W05.12202552@news1.rdc1.mi.home.com>
"BUCK NAKED1" <dennis100@webtv.net> wrote in message
news:4729-3AAFB417-13@storefull-247.iap.bryant.webtv.net...
> I've studied die in perlfunc, but can't figure this out. How do you die
> and print just your own message? For ex: when I used something like
>
> open(FH, "file.txt") or print "<font size=3 color=660000>Cannot open
> this file</font>\n";
>
> .. and it fails to open, it prints my message, but also prints other
> stuff from STDIN. I just want it to print my message.
>
> I've also tried warn and carp.
>
> IOW, I want to check a file open for success. If it fails, I want it to
> print to the browser something like "File Could Not Be Opened" and
> that's all I want it to print.
>
> I'd also like to prevent my error msg from going to the server's default
> screen for die messages.
>
> Thanks for any assistance or tips.
>
> --Dennis
>
open(F, "file.txt") or die ("Can't open datafile: $!");
# fyi: $! holds the error message
# more info at perlvar
(http://www.perl.com/pub/doc/manual/html/pod/perlvar.html for the 'net
inclined)
------------------------------
Date: Thu, 15 Mar 2001 05:20:46 GMT
From: "Dave Brondsema" <brondsema@my-deja.com>
Subject: Re: Print own "die" message
Message-Id: <OiYr6.59386$W05.12203747@news1.rdc1.mi.home.com>
"Dave Brondsema" <brondsema@my-deja.com> wrote in message
news:0hYr6.59375$W05.12202552@news1.rdc1.mi.home.com...
>
> "BUCK NAKED1" <dennis100@webtv.net> wrote in message
> news:4729-3AAFB417-13@storefull-247.iap.bryant.webtv.net...
> > I've studied die in perlfunc, but can't figure this out. How do you die
> > and print just your own message? For ex: when I used something like
> >
> > open(FH, "file.txt") or print "<font size=3 color=660000>Cannot open
> > this file</font>\n";
> >
> > .. and it fails to open, it prints my message, but also prints other
> > stuff from STDIN. I just want it to print my message.
> >
> > I've also tried warn and carp.
> >
> > IOW, I want to check a file open for success. If it fails, I want it to
> > print to the browser something like "File Could Not Be Opened" and
> > that's all I want it to print.
> >
> > I'd also like to prevent my error msg from going to the server's default
> > screen for die messages.
> >
> > Thanks for any assistance or tips.
> >
> > --Dennis
> >
>
> open(F, "file.txt") or die ("Can't open datafile: $!");
> # fyi: $! holds the error message
> # more info at perlvar
> (http://www.perl.com/pub/doc/manual/html/pod/perlvar.html for the 'net
> inclined)
>
>
I would also follow Brad's suggestion of
use CGI::Carp qw(fatalsToBrowser);
This ensures that if you die before printing headers, you still can see the
error message (carp will print headers before printing an error message)
------------------------------
Date: Thu, 15 Mar 2001 06:10:12 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: Time Conversion
Message-Id: <81Zr6.978$T3.135400960@news.frii.net>
In article <3AA6527E.99EF9591@crc.ca>, Sylvie <sylvie.noel@crc.ca> wrote:
>Is it possible to convert human-readable time information (day, month,
>year, etc.) back to the machine version?
>
>I know you can use localtime to go from the machine's time to something
>people can read, but I want to do the opposite.
>
>I need to specify a starting date and an ending date to extract
>information from a file. I have both types of date information (machine
>and human-readable), and it seems a lot simpler to use the (machine)
>numbers than the (human) text.
>
>Thanks,
>Sylvie
>
Throwing in my two cents. Time::ParseDate provides a parsedate
function that works very well inside the unix epoch
(Jan 1 00:00:00 1970 - Tue Jan 19 03:14:07 2038 for machines with 32 bit time_t)
It also does a prety good job on odd time specifications like "yesterday",
"last thursday" and "monday after next at noon".
perl -MTime::ParseDate -le '
print scalar(localtime(parsedate("monday after next at noon")))'
Mon Mar 26 12:00:00 2001
--
This space intentionally left blank
------------------------------
Date: Thu, 15 Mar 2001 06:28:52 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: Use PERL or Java? Which is faster?
Message-Id: <EiZr6.979$T3.197997568@news.frii.net>
In article <3AA8CCDC.6451AD1A@sergeant.org>,
Matt Sergeant <matt@sergeant.org> wrote:
>brian d foy wrote:
>>
>> In article <3AA75788.3CF1C6D2@bigfoot.com>, Thorbjørn Ravn Andersen
>> <thunderbear@bigfoot.com> wrote:
>>
>> > Daniel Berger wrote:
>> >
>> > > As for speed, I have *yet* to see a Java app that was as fast or faster
>than Perl/Tk,
>> > > or Perl in general for that matter.
>> >
>> > I parse XML with Java because it is a _lot_ faster than with Perl.
>>
>> do you have some benchmarks for whatever you were doing? it would
>> be interesting to see the relative speeds. :)
>
>There were some on XML.com a long time ago done by Clark Cooper (XML::Parser
>author). Basically it went something like:
>
>Raw expat: 1 # index
>Java (IBM): 5
>Java (Sun): 6
>XML::Parser: 20
>PyExpat: 21
>
>This is from memory, mind you. I'm sure you could probably search XML.com to
>find it (I'm being lazy :-)
>
http://www.xml.com/pub/a/Benchmark/exec.html
From my reading of this I'd say that the "perl penalty" is more
like 2/1 rather than 4/1 as you quote. It is nearly two years
old though and much has changed since then.
chris
--
This space intentionally left blank
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 491
**************************************
