[18387] in Perl-Users-Digest
Perl-Users Digest, Issue: 555 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 23 14:05:46 2001
Date: Fri, 23 Mar 2001 11:05:14 -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: <985374313-v10-i555@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 23 Mar 2001 Volume: 10 Number: 555
Today's topics:
- Looking for this type of TALKBACK user feedback scrip <vemba72@hotmail.com>
Re: ?? Size limit on files/arrays?? (Chris Fedde)
Can perl handle 'fields' like awk can? (e)
Re: Can perl handle 'fields' like awk can? (Abigail)
Re: DBI and Activestate's perlapp <goldbb2@earthlink.net>
Docs didn't help - problem setting locale under WinNT <sb@engelschall.com>
Re: every 15 seconds <tom@power.net.uk>
Re: every 15 seconds (Rafael Garcia-Suarez)
Re: every 15 seconds <djberge@uswest.com>
Re: Hmmm... Which PERL Book Is Best Suited For This??? <djberge@uswest.com>
Re: Hmmm... Which PERL Book Is Best Suited For This??? (Mr. M.J. Lush)
How can I read a file backwards? <djberge@uswest.com>
Re: how do I deal with "Uncaught exception..."? <goldbb2@earthlink.net>
Re: how do I deal with "Uncaught exception..."? <jazrant@zsc.nrcan.zc.ca>
Newbie question <howard.miller@marketingms.com>
Re: Newbie question <johnm@aiamail.com>
Re: Passing arguments to subroutines... <joe+usenet@sunstarsys.com>
Re: PERL <djmarcus@ex-pressnet.com>
Re: PERL <lmoran@wtsg.com>
Re: PERL <uri@sysarch.com>
Re: PERL <lmoran@wtsg.com>
PLEASE HELP (0/1) <michael1981@btinternet.com>
Re: Pointers in Perl (Anno Siegel)
Re: Pointers in Perl (Abigail)
Re: Pointers in Perl (Anno Siegel)
Routine to Color-Code Java/C/C++ Code <nigel.parker@wanadoo.fr>
Re: Script mysteriously erases file it's supposed to ap <bernie@fantasyfarm.com>
Re: Still can't die with Tar (BUCK NAKED1)
Re: Tree of user defined objects (Mark Jason Dominus)
use CGI error (Cosmic Cruizer)
Re: using closures (road to OO) <b_nospam_ill.kemp@wire2.com>
Re: Weird(?) magic word for sh to invoke perl under Lin <goldbb2@earthlink.net>
Re: Weird(?) magic word for sh to invoke perl under Lin (Abigail)
Why isn't The Perl Journal accepting new sbscriptions? <djmarcus@ex-pressnet.com>
Re: Why isn't The Perl Journal accepting new sbscriptio (Chris Fedde)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 23 Mar 2001 11:36:59 -0500
From: "Jon" <vemba72@hotmail.com>
Subject: - Looking for this type of TALKBACK user feedback script...
Message-Id: <RZKu6.5411$le2.89619@weber.videotron.net>
Looking for a Talkback-type script that will do exactly THIS :
http://rds.ca/canadien/chroniques/HOCKEYLNHCAN3AAEC7FC.html
I've looked EVERYWHERE. The closest thing I've found was Wayoftheweb.com's
version of a talkback script, but it doesn't function the same way as this
one (see link) does. Or, if it does, it's really explained poorly.
I used to think "Talkback" was the name of the script I was looking for but
I believe it's become a qualifying term used to describe all
article-specific user feedback scripts.
Anyhow, if you can help, it would be most appreciated...
jon
------------------------------
Date: Fri, 23 Mar 2001 18:26:03 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: ?? Size limit on files/arrays??
Message-Id: <%yMu6.205$T3.190129152@news.frii.net>
In article <99fqo3$hrd$1@imas0002.us.dg.com>,
Mike Matteson <Mike_Matteson@dg.com> wrote:
>I've encountered an odd limit twice now in trying to process a list (of DNS
>host/IP lines) where the perl script didn't complain, but didn't process
>some of the lines. I have a 48,419 item list, and the sort and copy would
>only process 48,215 lines. No errors given, just silently went on with a
>smaller-than-expected output file. Odly enough, it works in a small test
>script, but not in the main script that contains other arrays, etc.
> If anyone has encountered this and has a 'fix' or some idea of where to
>attack it, I'd sure appreciate any ideas/comments.
> Thanks,
>
> Mike Matteson
>
This does seem odd. I've not seen perl exhibit any static limits
on sizes other than those of the box itself. Much less silently
fail because of one. Are you sure that your program is not ignoring
an error or an exit code? I have seen programs get extreemly slow
when their data structures start causing the program to swap.
Internal sorts of large data sets can be slow.
Look at http://www.sysarch.com/perl/sort_paper.html for some thoughts on
this. The definition of large is subjective,
wc /usr/share/dict/web2
235881 235881 2493066 /usr/share/dict/web2
time sort /usr/share/dict/web2 > /dev/null
real 0m4.315s
user 0m2.432s
sys 0m0.329s
time perl -le '@x = <>;print sort @x;' /usr/share/dict/web2 > /dev/null
real 7m32.091s
user 6m20.769s
sys 0m4.050s
I didn't think this would be as bad as it appears here. According to top
and vmstat my system was not swapping durring this so I would have expected
the sort to be fast.
--
This space intentionally left blank
------------------------------
Date: 23 Mar 2001 17:51:36 GMT
From: sendthis@yahoo.delthisandasdf.com (e)
Subject: Can perl handle 'fields' like awk can?
Message-Id: <AB908D5F12924C82.8EB88DD09177740B.ED3AA4EA29F2BC31@lp.airnews.net>
I'm not very familiar with PERL, I have a book opened, but it doesn't seem to
tell how to manipulate data separated by delimiters or i'm not using the right
keywords to look it up.
I want to access the 7th field, data after the 6th <tab>. I'm trying to write
all my scripts in PERL to handle my data at work since it's more flexible.
I want the equivalent of
awk { print $7 }
Is there an easy way to do this in perl?
Thanks,
E
------------------------------
Date: Fri, 23 Mar 2001 18:03:57 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: Can perl handle 'fields' like awk can?
Message-Id: <slrn9bn40d.h9i.abigail@tsathoggua.rlyeh.net>
e (sendthis@yahoo.delthisandasdf.com) wrote on MMDCCLXI September
MCMXCIII in <URL:news:AB908D5F12924C82.8EB88DD09177740B.ED3AA4EA29F2BC31@lp.airnews.net>:
%% I'm not very familiar with PERL, I have a book opened, but it doesn't seem to
%% tell how to manipulate data separated by delimiters or i'm not using the righ
%% keywords to look it up.
split
%% I want to access the 7th field, data after the 6th <tab>. I'm trying to write
%% all my scripts in PERL to handle my data at work since it's more flexible.
%%
%%
%% I want the equivalent of
%%
%% awk { print $7 }
%%
%% Is there an easy way to do this in perl?
perl -nawle 'print $F [6]'
Abigail
--
:$:=~s:$":Just$&another$&:;$:=~s:
:Perl$"Hacker$&:;chop$:;print$:#:
------------------------------
Date: Fri, 23 Mar 2001 16:30:13 GMT
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: DBI and Activestate's perlapp
Message-Id: <3ABB7AD4.644CD27@earthlink.net>
Anthony Carbone wrote:
>
> When you have a script that 'uses DBI' and you compile the script
> using 'perlapp -s <script name> -e <script exe> -f -r -v', the
> executable crashes on and DBI method call. For example, this is a
> small test script that works if you don't compile it and use perl.exe
> to process it and DOES NOT WORK if you compile it using 'perlapp' and
> invoke the made executable. There is no output what so ever about why
> it crashes.
>
> Activestate's 'perlapp' is really cool which allows you to turn perl
> scripts into a large meaty executable file on Windows. Saves a lot of
> execution time (memory is debatable) if you have a busy Windows system
> with a lot of perl scripts.
Perhaps you should be using the -w switch? Surely that might enable
some warnings which aren't otherwise being printed...
--
The difference between theory and practice is that in theory, theory and
practice are identical, but in practice, they are not.
------------------------------
Date: Fri, 23 Mar 2001 18:33:10 +0100
From: Steffen Beyer <sb@engelschall.com>
Subject: Docs didn't help - problem setting locale under WinNT
Message-Id: <3ABB88D5.B1CE6713@engelschall.com>
Has anybody *SUCCESSFULLY* changed the locale under WinNT,
so that "use locale" does the right thing when comparing strings?
How did you do it?
Where and how can I find out which locales are installed on my system?
How can I find out what they're called?
Using the following little program (as suggested by perldoc perllocale)
#!perl
use POSIX;
print map "$_ = '" . POSIX::setlocale($_) . "'.\n",
qw(LC_COLLATE LC_CTYPE LANG LANGUAGE LC_ALL);
I get the following:
LC_COLLATE =
'LC_COLLATE=German_Germany.1252;LC_CTYPE=German_Germany.1252;LC_MONETARY=German_Germany.1252;LC_NUMERIC=C;LC_TIME=German_Germany.1252'.
LC_CTYPE =
'LC_COLLATE=German_Germany.1252;LC_CTYPE=German_Germany.1252;LC_MONETARY=German_Germany.1252;LC_NUMERIC=C;LC_TIME=German_Germany.1252'.
LANG =
'LC_COLLATE=German_Germany.1252;LC_CTYPE=German_Germany.1252;LC_MONETARY=German_Germany.1252;LC_NUMERIC=C;LC_TIME=German_Germany.1252'.
LANGUAGE =
'LC_COLLATE=German_Germany.1252;LC_CTYPE=German_Germany.1252;LC_MONETARY=German_Germany.1252;LC_NUMERIC=C;LC_TIME=German_Germany.1252'.
LC_ALL =
'LC_COLLATE=German_Germany.1252;LC_CTYPE=German_Germany.1252;LC_MONETARY=German_Germany.1252;LC_NUMERIC=C;LC_TIME=German_Germany.1252'.
(Whereas under Linux, I get
LC_COLLATE = 'en_US'.
LC_CTYPE = 'en_US'.
LANG = 'en_US'.
LANGUAGE = 'en_US'.
LC_ALL = 'en_US'.
as expected.)
But even when I try to set these environment variables, the system pays
absolutely no
heed to them.
Anybody any experiences?
Thanks a lot in advance!
Regards,
--
Steffen Beyer <sb@engelschall.com>
http://www.engelschall.com/u/sb/whoami/ (Who am I)
http://www.engelschall.com/u/sb/gallery/ (Fotos Brasil, USA, ...)
http://www.engelschall.com/u/sb/download/ (Free Perl and C Software)
------------------------------
Date: Fri, 23 Mar 2001 16:08:03 +0000
From: Tom Scheper <tom@power.net.uk>
Subject: Re: every 15 seconds
Message-Id: <o5tmbtke9bclmclnue5rs25aj12cg0bv0d@4ax.com>
On Fri, 23 Mar 2001 09:40:11 -0600, Daniel Berger <djberge@uswest.com>
shed a beam of light on us:
>Bjoern Kaiser wrote:
>
>> how do i output something every 15 seconds?
>
>while(1){
> print "Hello World!\n";
> sleep(15);
Ahh.. But what if print "Hello World!" is replaced with something that
takes several seconds to complete, but at other times just
miliseconds?
-=Cornelis
------------------------------
Date: Fri, 23 Mar 2001 16:10:32 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: every 15 seconds
Message-Id: <slrn9bmtc0.e8g.rgarciasuarez@rafael.kazibao.net>
Tom Scheper wrote in comp.lang.perl.misc:
> On Fri, 23 Mar 2001 09:40:11 -0600, Daniel Berger <djberge@uswest.com>
> shed a beam of light on us:
>
> >Bjoern Kaiser wrote:
> >
> >> how do i output something every 15 seconds?
> >
> >while(1){
> > print "Hello World!\n";
> > sleep(15);
>
> Ahh.. But what if print "Hello World!" is replaced with something that
> takes several seconds to complete, but at other times just
> miliseconds?
perldoc -f alarm
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Fri, 23 Mar 2001 10:15:20 -0600
From: Daniel Berger <djberge@uswest.com>
Subject: Re: every 15 seconds
Message-Id: <3ABB7698.8BC8B44C@uswest.com>
--------------FB0F6762662928031AB6B9BA
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Tom Scheper wrote:
> On Fri, 23 Mar 2001 09:40:11 -0600, Daniel Berger <djberge@uswest.com>
> shed a beam of light on us:
>
> >Bjoern Kaiser wrote:
> >
> >> how do i output something every 15 seconds?
> >
> >while(1){
> > print "Hello World!\n";
> > sleep(15);
>
> Ahh.. But what if print "Hello World!" is replaced with something that
> takes several seconds to complete, but at other times just
> miliseconds?
>
> -=Cornelis
Well, I guess you'll have to compute the time it took to perform the operation
(using Benchmark?) in combination with DateTime::Precise, subtract that time it
took to perform the operation, sleeping the remaining time. I know sleep is
not accurate to the millisecond, though I think there are ways to deal with
that (which I can't remember, but are likely posted in this newsgroup).
Dan
--
"Evil will always triumph because Good is *dumb*"
- Dark Helmet, Spaceballs
--------------FB0F6762662928031AB6B9BA
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Tom Scheper wrote:
<blockquote TYPE=CITE>On Fri, 23 Mar 2001 09:40:11 -0600, Daniel Berger
<djberge@uswest.com>
<br>shed a beam of light on us:
<p>>Bjoern Kaiser wrote:
<br>>
<br>>> how do i output something every 15 seconds?
<br>>
<br>>while(1){
<br>> print "Hello World!\n";
<br>> sleep(15);
<p>Ahh.. But what if print "Hello World!" is replaced with something that
<br>takes several seconds to complete, but at other times just
<br>miliseconds?
<p>-=Cornelis</blockquote>
Well, I guess you'll have to compute the time it took to perform the operation
(using Benchmark?) in combination with DateTime::Precise, subtract that
time it took to perform the operation, sleeping the remaining time.
I know sleep is not accurate to the millisecond, though I think there are
ways to deal with that (which I can't remember, but are likely posted in
this newsgroup).
<p>Dan
<pre>--
"Evil will always triumph because Good is *dumb*"
- Dark Helmet, Spaceballs</pre>
</html>
--------------FB0F6762662928031AB6B9BA--
------------------------------
Date: Fri, 23 Mar 2001 10:23:41 -0600
From: Daniel Berger <djberge@uswest.com>
Subject: Re: Hmmm... Which PERL Book Is Best Suited For This???
Message-Id: <3ABB788C.2CB0BAAD@uswest.com>
--------------A3377EB57E124BA330A64D84
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
---Pete--- wrote:
>
> I know everyone has their favorite book but I need a
> recomendation for a book to be used in a specific
> manner as follows:
>
> I'm looking for a reference book that is instructional as well
> as extensively indexed such that I can pickup a sample
> Perl script and quiclky find topics or functions like sysread(),
> or even simple things like "$!" that I find in the sample Perl
> code. This PERL book should also written with the CGI in
> mind.
<snip>
>
> Any recomendations?
>
> ---pete---
The Camel Book, while an excellent reference, is not a great teaching book IMO,
it's way too dry - though you definitely ought to buy it. Probably the best
book is the Perl Cookbook. I consult it often, and when I don't completely
understand the code I refer back to the Camel book.
There is a chapter on CGI, but its not the focus of the book by any means. For
that, I recommend either the "Official Guide to Programming with CGI.pm" by
Lincoln Stein or O'Reilly's "CGI Programming with Perl".
For a book that "does it all", see "Mastering Perl 5" (I forget the publisher).
Just my .02
Dan
--
"Evil will always triumph because Good is *dumb*"
- Dark Helmet, Spaceballs
--------------A3377EB57E124BA330A64D84
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
---Pete--- wrote:
<blockquote TYPE=CITE>
<br>I know everyone has their favorite book but I need a
<br>recomendation for a book to be used in a specific
<br>manner as follows:
<p>I'm looking for a reference book that is instructional as well
<br>as extensively indexed such that I can pickup a sample
<br>Perl script and quiclky find topics or functions like sysread(),
<br>or even simple things like "$!" that I find in the sample Perl
<br>code. This PERL book should also written with the CGI in
<br>mind.</blockquote>
<snip>
<blockquote TYPE=CITE>
<br>Any recomendations?
<p>---pete---</blockquote>
The Camel Book, while an excellent reference, is not a great teaching book
IMO, it's way too dry - though you definitely ought to buy it. Probably
the best book is the Perl Cookbook. I consult it often, and when
I don't completely understand the code I refer back to the Camel book.
<p>There is a chapter on CGI, but its not the focus of the book by any
means. For that, I recommend either the "Official Guide to Programming
with CGI.pm" by Lincoln Stein or O'Reilly's "CGI Programming with Perl".
<p>For a book that "does it all", see "Mastering Perl 5" (I forget the
publisher).
<p>Just my .02
<p>Dan
<pre>--
"Evil will always triumph because Good is *dumb*"
- Dark Helmet, Spaceballs</pre>
</html>
--------------A3377EB57E124BA330A64D84--
------------------------------
Date: 23 Mar 2001 16:35:51 GMT
From: mlush@hgmp.mrc.ac.uk (Mr. M.J. Lush)
Subject: Re: Hmmm... Which PERL Book Is Best Suited For This???
Message-Id: <99fu17$i1l$1@niobium.hgmp.mrc.ac.uk>
In article <kuKu6.200$T3.170159616@news.frii.net>,
Chris Fedde <cfedde@fedde.littleton.co.us> wrote:
>In article <3abb627d.87528499@news.earthlink.net>,
>---Pete--- <bogus@erol.com> wrote:
>>Everyone,
>>Just to let you know, I searched the last 3000+ posts for
>>"BOOK" titles and none of the posts addressed what I
>>am ask here. Allow me to explain:
>>
>>I'm a Visual Basic programmer, new to PERL and only read
>>one book so far titled "SAMS Teach Your Perl in 24hours".
>>Well, about a month later, it's clear that I need another book
>>to get me past the basics <grin>.
I did the same thing and found the same problems :-}
>
>Sounds to me like you want the online perl manual that came with
>your installaton. If you are not comfortable working with the
>manual pages using the perldoc command then you can go to one of
>the web resources such as http://www.cpan.org/doc/manual/html/pod/perl.html
>
>For printed matter you can do worse than get the Camel book by Wall, et al.
You could get the O'Reilly CD-ROM bookshelf (not a bad deal
IMHO you get Perl in a Nutshell, Learning Perl, Learning Perl on
Win32 Systems, Programming Perl, Advanced Perl, Programming Perl
Cookbook in a searchable format, as well a paper copy of Perl in a
Nutshell for the price of 1.5 books...)
--
Michael
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
NPC rights activist | Nameless Abominations are people too.
------------------------------
Date: Fri, 23 Mar 2001 12:13:14 -0600
From: Daniel Berger <djberge@uswest.com>
Subject: How can I read a file backwards?
Message-Id: <3ABB923A.C42806CA@uswest.com>
...a line at a time, without putting the entire file into memory? Is this
possible?
I've checked the Cookbook (which suggests that it's *not* possible), this
newsgroup, and the various faq's but have found nothing. Anyone have any ideas
or suggestions? Thanks in advance.
Regards,
Dan
--
"Evil will always triumph because Good is *dumb*"
- Dark Helmet, Spaceballs
------------------------------
Date: Fri, 23 Mar 2001 16:21:20 GMT
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: how do I deal with "Uncaught exception..."?
Message-Id: <3ABB78BE.3A3F5825@earthlink.net>
I don't know about your problem specifically, but...
John A. Grant wrote:
>
> This is for CGI use, rather than local (if it makes a difference).
>
> I'm getting this error message when I call "die":
> "Uncaught exception from user code: main::Error() called at ..."
>
> My code looks like this:
> my $error=0;
>
> sub Error
> {
> if(@_){
> my $message=$_[0];
> print "<b><font color=red>Error: </font> $message</b>";
> $error=$1;
Shouldn't this be "$error=1;" rather than "=$1" ?
> }else{
> die "abort" if $error;
> }
> }
>
> and I call it like this:
> if(...) Error("whatever");
> if(...) Error("something else");
>
> and finally after doing all of this checking, I call this:
> Error();
>
> The last call (without parameters) should "die" if there has
> been an error, otherwise do nothing and the program carries
> on from there. It all works as it should, but I get the
> "uncaught exception" message when it calls "die".
>
> 1. is that normal?
> 2. what is uncaught? how do I catch it? :)
> 3 can I suppress the message?
> 4. should I suppress it?
>
> --
> John A. Grant * I speak only for myself * (remove 'z' to reply)
> Radiation Geophysics, Geological Survey of Canada, Ottawa
> If you followup, please do NOT e-mail me a copy: I will read it here
--
The difference between theory and practice is that in theory, theory and
practice are identical, but in practice, they are not.
------------------------------
Date: Fri, 23 Mar 2001 12:24:48 -0500
From: "John A. Grant" <jazrant@zsc.nrcan.zc.ca>
Subject: Re: how do I deal with "Uncaught exception..."?
Message-Id: <99g14p$cdc3@nrn2.NRCan.gc.ca>
"Benjamin Goldberg" <goldbb2@earthlink.net> wrote in message
news:3ABB78BE.3A3F5825@earthlink.net...
> I don't know about your problem specifically, but...
[...]
> Shouldn't this be "$error=1;" rather than "=$1" ?
Yes, it was a type in my post, but it was ok ($error=1) in
my program.
--
John A. Grant * I speak only for myself * (remove 'z' to reply)
Radiation Geophysics, Geological Survey of Canada, Ottawa
If you followup, please do NOT e-mail me a copy: I will read it here
------------------------------
Date: Fri, 23 Mar 2001 17:15:52 -0800
From: Howard Miller <howard.miller@marketingms.com>
Subject: Newbie question
Message-Id: <3ABBF548.957FA918@marketingms.com>
Hi,
I am new to Perl and trying to maintain some (undocumented) software
somebody else wrote. There is some syntax that I just don't understand,
and can't find in my books or in the online docs.
$key{@words[1]} = "YES";
@words is an array full of strings and $key is new here.
I would be really pleased if somebody would tell me what this does.
Thanks
Howard
------------------------------
Date: 23 Mar 2001 18:48:22 GMT
From: "John Michael" <johnm@aiamail.com>
Subject: Re: Newbie question
Message-Id: <99g5pm$lr5@dispatch.concentric.net>
It is a hash assignment.
hash are for storing name=value pairs
Look at the second line in the list @words. [0] would be the first line.
If the second line in @words is: someword
then
$key{'someword'} is now equal to "YES"
If you did:
print "$key{'someword'}";
you would get the answer YES
Howard Miller <howard.miller@marketingms.com> wrote in message
news:3ABBF548.957FA918@marketingms.com...
> Hi,
>
> I am new to Perl and trying to maintain some (undocumented) software
> somebody else wrote. There is some syntax that I just don't understand,
> and can't find in my books or in the online docs.
>
> $key{@words[1]} = "YES";
>
> @words is an array full of strings and $key is new here.
>
> I would be really pleased if somebody would tell me what this does.
>
> Thanks
>
> Howard
>
------------------------------
Date: 23 Mar 2001 11:11:25 -0500
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: Passing arguments to subroutines...
Message-Id: <m3elvo31oy.fsf@mumonkan.sunstarsys.com>
Naran Hirani <N.Hirani@hgmp.mrc.ac.uk> writes:
> could tell me how I can modify it so that arguments can be passed to my
> little
> subroutine.
>
> ...
> my %LookUp = (Hello => 'Ola');
>
> my %Translate = (English2Cockney => &Interpretor);
^^^^^^^^^^^^
perl evaluates this pronto, since "&anything" is basically the same as
"anything(@_)". I think you want a code ref here instead:
my %Translate = (English2Cockney => \&Interpretor);
> my $lingo = "Hello";
>
> print "I say $lingo, and you say ", $Translate{English2Cockney}, "\n";
>
> sub Interpretor {
> return $LookUp{'Hello'};
> }
Then you could rewrite this line as
my $lingo = "Hello";
print "I say $lingo, and you say ",
$Translate{English2Cockney} -> ($lingo),
"\n";
sub Interpretor { return $LookUp{ $_[0] } }
HTH
--
Joe Schaefer "The secret to creativity is knowing how to hide your sources."
--Albert Einstein
------------------------------
Date: Fri, 23 Mar 2001 11:14:34 -0500
From: "David J. Marcus" <djmarcus@ex-pressnet.com>
Subject: Re: PERL
Message-Id: <tbmtiqhnnsa805@corp.supernews.com>
> On Fri, 23 Mar 2001 16:44:55 +1000, Vontel Girish <girish66@yahoo.com>
wrote:
> >I am creating a shopping cart in Perl Language. Can any one tell me if
any
> >code is available on the net????
>
> Yes, there is.
>
> Cheers,
> Bernard
Doesn't sound like you answered the question. Given your response I would
have expected you to say:
Yes I can [answering the question if any one can tell him if code is
available].
Now that we've gotten that out of the way... how about a useful answer?
-David
------------------------------
Date: Fri, 23 Mar 2001 11:31:21 -0500
From: Lou Moran <lmoran@wtsg.com>
Subject: Re: PERL
Message-Id: <haumbtgd371h9aup5haq012hs1sqndohq6@4ax.com>
On Fri, 23 Mar 2001 16:44:55 +1000, "Vontel Girish"
<girish66@yahoo.com> wrote wonderful things about sparkplugs:
>I am creating a shopping cart in Perl Language. Can any one tell me if any
>code is available on the net????
>
hell, there's code everywhere, even my sig.
I have a shopping cart I dl'ed from somewhere. Email me and I'll give
it to you.
look at www.freepercode.com
and NEVER post a question like this here again.
--
print "\x{263a}"
------------------------------
Date: Fri, 23 Mar 2001 16:50:26 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: PERL
Message-Id: <x73dc42zvx.fsf@home.sysarch.com>
>>>>> "DJM" == David J Marcus <djmarcus@ex-pressnet.com> writes:
>> On Fri, 23 Mar 2001 16:44:55 +1000, Vontel Girish <girish66@yahoo.com>
DJM> wrote:
>> >I am creating a shopping cart in Perl Language. Can any one tell me if
DJM> any
>> >code is available on the net????
>>
>> Yes, there is.
>>
>> Cheers,
>> Bernard
DJM> Now that we've gotten that out of the way... how about a useful
DJM> answer?
then why don't you provide it. tell the KLB how to find his code or
write it for him and let him use it.
i am waiting.
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: Fri, 23 Mar 2001 13:24:25 -0500
From: Lou Moran <lmoran@wtsg.com>
Subject: Re: PERL
Message-Id: <r55nbtcuq20021rr2uu5fd0mv0q9eltuok@4ax.com>
On Fri, 23 Mar 2001 16:50:26 GMT, Uri Guttman <uri@sysarch.com> wrote
wonderful things about sparkplugs:
>>>>>> "DJM" == David J Marcus <djmarcus@ex-pressnet.com> writes:
>
> >> On Fri, 23 Mar 2001 16:44:55 +1000, Vontel Girish <girish66@yahoo.com>
> DJM> wrote:
> >> >I am creating a shopping cart in Perl Language. Can any one tell me if
> DJM> any
> >> >code is available on the net????
> >>
> >> Yes, there is.
> >>
> >> Cheers,
> >> Bernard
>
> DJM> Now that we've gotten that out of the way... how about a useful
> DJM> answer?
>
>then why don't you provide it. tell the KLB how to find his code or
>write it for him and let him use it.
KLB? Draws a 404 on the Jargon File.
>
>i am waiting.
>
>uri
--
print "\x{263a}"
------------------------------
Date: Fri, 23 Mar 2001 17:28:50 +0000
From: "Michael Jenneson" <michael1981@btinternet.com>
Subject: PLEASE HELP (0/1)
Message-Id: <99g14i$hin$1@plutonium.btinternet.com>
I have to get this program working
it is supposed to read in any number of unix commands
and pipe them together and execute each command in
separate processes.
i cant get it to run
PLEASE HELP
------------------------------
Date: 23 Mar 2001 16:25:04 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Pointers in Perl
Message-Id: <99ftd0$q3r$1@mamenchi.zrz.TU-Berlin.DE>
According to Ilmari Karonen <usenet11404@itz.pp.sci.fi>:
> In article <b7thbtgsbho1hjdmmulod8nhnou86ghvfu@4ax.com>, Bart Lateur wrote:
> >Milliwave wrote:
> >
> >>Has anyone come across the usage of pointers in Perl? I certainly have not
> >>see these being used.
> >
> >What would you want to do with pointers that you can't do with
> >references?
>
> Pointer arithmetic?
>
> There's a really nice -- in a twisted way -- example in the _Art of
> Computer Programming_ of saving space in a doubly linked list by XORing
> the previous and next node pointers together. You can still traverse
> such a list, provided you always keep pointers to two adjacent nodes.
Who said you can't do that in Perl?
my $hr = {};
my $ar = [];
my $x = $hr ^ $ar;
print $x ^ $ar, "\n"; # HASH(0x80e5838)
print $x ^ $hr, "\n"; # ARRAY(0x80e58f8)
Anno
------------------------------
Date: Fri, 23 Mar 2001 16:54:00 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: Pointers in Perl
Message-Id: <slrn9bmvt8.h9i.abigail@tsathoggua.rlyeh.net>
Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMDCCLXI
September MCMXCIII in <URL:news:99ftd0$q3r$1@mamenchi.zrz.TU-Berlin.DE>:
__ According to Ilmari Karonen <usenet11404@itz.pp.sci.fi>:
__ > In article <b7thbtgsbho1hjdmmulod8nhnou86ghvfu@4ax.com>, Bart Lateur wrote:
__ > >Milliwave wrote:
__ > >
__ > >>Has anyone come across the usage of pointers in Perl? I certainly have not
__ > >>see these being used.
__ > >
__ > >What would you want to do with pointers that you can't do with
__ > >references?
__ >
__ > Pointer arithmetic?
__ >
__ > There's a really nice -- in a twisted way -- example in the _Art of
__ > Computer Programming_ of saving space in a doubly linked list by XORing
__ > the previous and next node pointers together. You can still traverse
__ > such a list, provided you always keep pointers to two adjacent nodes.
__
__ Who said you can't do that in Perl?
__
__ my $hr = {};
__ my $ar = [];
__
__ my $x = $hr ^ $ar;
__
__ print $x ^ $ar, "\n"; # HASH(0x80e5838)
__ print $x ^ $hr, "\n"; # ARRAY(0x80e58f8)
With just $x and $ar, you cannot modify the hash $hr is pointing at.
Stringification of references is a non-reversable operation in Perl.
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
------------------------------
Date: 23 Mar 2001 17:34:01 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Pointers in Perl
Message-Id: <99g1e9$t5v$1@mamenchi.zrz.TU-Berlin.DE>
According to Abigail <abigail@foad.org>:
> Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMDCCLXI
> September MCMXCIII in <URL:news:99ftd0$q3r$1@mamenchi.zrz.TU-Berlin.DE>:
> __ According to Ilmari Karonen <usenet11404@itz.pp.sci.fi>:
> __ > In article <b7thbtgsbho1hjdmmulod8nhnou86ghvfu@4ax.com>, Bart Lateur wrote:
> __ > >Milliwave wrote:
> __ > >
> __ > >>Has anyone come across the usage of pointers in Perl? I certainly
> have not
> __ > >>see these being used.
> __ > >
> __ > >What would you want to do with pointers that you can't do with
> __ > >references?
> __ >
> __ > Pointer arithmetic?
> __ >
> __ > There's a really nice -- in a twisted way -- example in the _Art of
> __ > Computer Programming_ of saving space in a doubly linked list by XORing
> __ > the previous and next node pointers together. You can still traverse
> __ > such a list, provided you always keep pointers to two adjacent nodes.
> __
> __ Who said you can't do that in Perl?
> __
> __ my $hr = {};
> __ my $ar = [];
> __
> __ my $x = $hr ^ $ar;
> __
> __ print $x ^ $ar, "\n"; # HASH(0x80e5838)
> __ print $x ^ $hr, "\n"; # ARRAY(0x80e58f8)
>
>
> With just $x and $ar, you cannot modify the hash $hr is pointing at.
>
> Stringification of references is a non-reversable operation in Perl.
Yes. I try to avoid smileys, but I should have made an exception.
Anno
------------------------------
Date: Fri, 23 Mar 2001 17:47:53 +0100
From: "np" <nigel.parker@wanadoo.fr>
Subject: Routine to Color-Code Java/C/C++ Code
Message-Id: <99fui9$85l$1@wanadoo.fr>
Hi,
I'm trying to develop a simple little script that color-codes program
listings in HTML so they look like they would in an editor/IDE. An excerpt:
undef $/;
while ($line = <FILE>)
{
# check for comments
$line =~ s#(/\*.*?\*/)#<p class="Codecomment">\n$1</p>\n#gs;
$line =~ s#(//.*?)\n#<span class="Codecomment">$1</span>\n#gs;
$line =~ s#(try)#<span class="Codekeyword">$1</span> #gs;
$line =~ s#(catch)#<span class="Codekeyword">$1</span> #gs;
$line =~ s#(throws)#<span class="Codekeyword">$1</span> #gs;
The problem is that I don't want keywords that occur in comments,
particularly multi-line comments, to be translated. Think of Java: almost
anything can be in a comment, including html tags and code samples.
Can anyone point me in the right direction?
Nigel Parker
--
---------------------------------------
Nigel Parker
OnlineInfo
n.parker@onlineinfo.org
http://www.electropubs.com
Productivity tips & tools for technical authors
Tel. +33 (0)4 50 63 21 62
Fax. +33 (0)4 50 63 21 62
------------------------------
Date: Fri, 23 Mar 2001 12:08:26 -0500
From: Bernie Cosell <bernie@fantasyfarm.com>
Subject: Re: Script mysteriously erases file it's supposed to append to
Message-Id: <7i0nbtsq62ue6k98kdup37lvhdg35jj4ug@news.supernews.net>
Katia Hayati <hayati@math.uiuc.edu> wrote:
} On Thu, 22 Mar 2001, Peter Sundstrom wrote:
}
} > > open(LOG, ">>$logfile") or die "Could not open log file $logfile:
} > $!\n";
} > > flock(LOG, LOCK_EX);
} > > print LOG "$who | $when | $what | $where\n";
} > > close LOG or die "Could not close log file $logfile: $!\n";
} > > }
} > > print "\n";
} >
} > Your locking is the equivalent to breaking the door down and then putting
} > the key in the lock.
}
} Ah. But why? The example in the man page for flock() is almost exactly the
} same as what I just wrote. The difference is that they use a seek(), which
} I don't think I need here, and unlock the file before closing. Regulars at
} clpm seem to disapprove of this last point, so this is why I close the
} file to release the lock. Can you please explain your comment?
The problem is that if someone ELSE is holding the lock when you open the
file, your copy of the filehandle has its file pointer set at char position
X. Now, if the other process(es --- you might not even be next!) change
the length of the file -- either truncating it or appending to it, *YOUR*
filehandle is still pointing at the old byte position. What you need to do
is:
seek FH,2,2
after you *get* the lock to make sure that you're really about to write at
the end of the file.
And it isn't a matter of 'disapprove' but just "your way doesn't work" --
the *instant* you do an unlock call the file becomes unlocked, other
processes can wake up [if they were holding on your lock] and begin
changing the file... Then at some future time your process gets to run
again and you actually do the close, which flushes out the last buffer(s)
of data to the file, likely clobbering what the other process did to the
file.
/Bernie\
--
Bernie Cosell Fantasy Farm Fibers
bernie@fantasyfarm.com Pearisburg, VA
--> Too many people, too few sheep <--
------------------------------
Date: Fri, 23 Mar 2001 11:42:17 -0600 (CST)
From: dennis100@webtv.net (BUCK NAKED1)
Subject: Re: Still can't die with Tar
Message-Id: <25924-3ABB8AF9-1@storefull-244.iap.bryant.webtv.net>
I was wrong about dev/null... =A0 I got dev/null to work. Try this and
tell me what you think. You gave me this idea, Benjamin. How is this
method for checking tar's failure of success?
#!/usr/bin/perl -wd
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
$out =3D `tar -zxf success.tar.gz 3>&1 1>&2 2>&3 3>&-`;
if ( $out =3D~ "status" ) {
print "TAR OPERATION FAILED!<BR>$out\n";
} else {
print "SUCCESS!";
};
--Dennis
------------------------------
Date: 23 Mar 2001 14:37:02 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: Tree of user defined objects
Message-Id: <99fn2e$96l$1@tikehau.netreach.net>
In article <3ABB3F63.4C4CE9FC@india.ti.com>,
Sreekanth <sree@india.ti.com> wrote:
>$mytree->{a}->{b}->{c}->{d} = undef;
>
>should give me tree of Node objects. At the creation of each
>successive element in the tree perl should call constructor
>of object Node. If possibe how can i do this. I tried with
>"tie" but not successful.
You can do that, but it's tricky. The FETCH and STORE methods will be
quite complicated. FETCH will have to look in the structure, and if
the item it is asked to retrieve is undefined, it must create a new
tied hash, inatll it, and return a reference to it.
Here's a limited example. In this example, the depth of the tree is
fixed in advance. With a little extra cleverness you can remove this
restriction.
----------------------------------------------------------------
tie %adder => MultiHash, 2;
print $adder{4}{5}{6}, "\n"; # Print 4*5*6 = 120
print $adder{7}{2}{1}, "\n"; # Print 7*2*1 = 14
package MultiHash;
sub TIEHASH {
my ($package, $depth, $topval) = @_;
$topval = 1 unless defined $topval;
my $self = {__depth => $depth, __topval => $topval};
bless $self => MultiHash;
}
sub FETCH {
my ($self, $key) = @_;
return $self->{$key} if exists $self->{$key};
my $depth = $self->{__depth};
if ($depth == 0) {
return $self->{$key} = $key * $self->{__topval};
}
my %newhash;
tie %newhash => MultiHash, $depth-1, $self->{__topval} * $key;
return $self->{$key} = \%newhash;
}
sub STORE {
require Carp;
Carp::croak('STORE not allowed');
}
----------------------------------------------------------------
Here are some additions so that we can use Data::Dumper to dump out
the tree to prove that a tree structure is really being created:
----------------------------------------------------------------
use Data::Dumper;
tie %adder => MultiHash, 2;
print $adder{4}{5}{6}, "\n";
print $adder{7}{2}{1}, "\n";
print Dumper(\%adder);
package MultiHash;
sub TIEHASH {
my ($package, $depth, $topval) = @_;
$topval = 1 unless defined $topval;
my $self = {__depth => $depth, __topval => $topval};
bless $self => MultiHash;
}
sub FETCH {
my ($self, $key) = @_;
return $self->{$key} if exists $self->{$key};
my $depth = $self->{__depth};
if ($depth == 0) {
return $self->{$key} = $key * $self->{__topval};
}
my %newhash;
tie %newhash => MultiHash, $depth-1, $self->{__topval} * $key;
return $self->{$key} = \%newhash;
}
sub STORE {
require Carp;
Carp::croak('STORE not allowed');
}
sub FIRSTKEY {
my ($self) = shift;
keys %$self;
each %$self;
}
sub NEXTKEY {
my ($self) = shift;
each %$self;
}
----------------------------------------------------------------
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
Date: Fri, 23 Mar 2001 18:44:27 -0000
From: c_cruizer@my-deja.com_nospam (Cosmic Cruizer)
Subject: use CGI error
Message-Id: <Xns906D6D21079ADccruizermydejacom@207.126.101.100>
I am getting the dreaded 500 Server Error
Error: HTTPd: malformed header from script
I am trying to execute the following simple script to find out why I am
having errors with using CGI.pm:
------------------------
#!/usr/bin/perl
use lib '/usr/libdata/perl5/site_perl';
use CGI;
print "Content-type: text/html", "\n\n";
print "<HTML>\n<HEAD>\n";
print "<TITLE>Please Correct Errors</TITLE>\n";
print "</HEAD>\n";
print "<BODY>\n";
print "<H1>Please Correct These Errors</H1>\n";
print "</BODY>\n</HTML>";
------------------------
If I comment out both the use lib and CGI lines, it executes ok. CGI.pm is
located in the "use lib" path and perms on CGI.pm is set to 444 and the
site_perl directory is set to 755.
Any suggestions?
------------------------------
Date: Fri, 23 Mar 2001 18:36:33 -0000
From: "W K" <b_nospam_ill.kemp@wire2.com>
Subject: Re: using closures (road to OO)
Message-Id: <985372804.6392.0.nnrp-09.c3ad6974@news.demon.co.uk>
>: >No. There's no closure.
>:
>: Of course there's a closure, [...]
>
>RTFM (from the perlref manpage):
>
> Anonymous subroutines act as closures with respect to my()
> variables,
HMMM.
that doesn't say you need an anonymous subroutine to make a closure.
>The OP's code contained no anonymous subs.
.. coz I didn't want one
>The perlsub manpage addresses the OP's question:
>
> Here's a mechanism for giving a function private variables with
> both lexical scoping and a static lifetime. If you do want to
> create something like C's static variables, just enclose the whole
> function in an extra block, and put the static variable outside the
> function but in the block.
>
> {
> my $secret_val = 0;
> sub gimme_another {
> return ++$secret_val;
> }
> }
there isn't an anonymous subroutine there. Its called gimme_another.
I have been reading damien conway's oo perl book. This stuff is on p 56
and 57.
its the "man with dress on and a funny hat" book. (what's that cover all
about?)
------------------------------
Date: Fri, 23 Mar 2001 16:06:09 GMT
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Weird(?) magic word for sh to invoke perl under Linux
Message-Id: <3ABB7530.17806508@earthlink.net>
Abigail wrote:
[snip]
> [] You mean mere users can't modify their PATH in their own shell
> [] profile or rc files? If people are smart enough to write scripts,
> [] wouldn't they be smart enough to change PATH? Assuming neither .
> [] nor ~/bin is in their default path, they're either going to get
> [] very sick of typing ./ or similar before every command or they're
> [] going to change their path.
>
> People putting . in their PATH will be bitten sooner or later anyway.
What, even if they have it as the very last thing in their path?
I'd like to see someone exploit that.
--
The difference between theory and practice is that in theory, theory and
practice are identical, but in practice, they are not.
------------------------------
Date: Fri, 23 Mar 2001 16:19:15 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: Weird(?) magic word for sh to invoke perl under Linux
Message-Id: <slrn9bmts3.h9i.abigail@tsathoggua.rlyeh.net>
Benjamin Goldberg (goldbb2@earthlink.net) wrote on MMDCCLXI September
MCMXCIII in <URL:news:3ABB7530.17806508@earthlink.net>:
&& Abigail wrote:
&& [snip]
&& > [] You mean mere users can't modify their PATH in their own shell
&& > [] profile or rc files? If people are smart enough to write scripts,
&& > [] wouldn't they be smart enough to change PATH? Assuming neither .
&& > [] nor ~/bin is in their default path, they're either going to get
&& > [] very sick of typing ./ or similar before every command or they're
&& > [] going to change their path.
&& >
&& > People putting . in their PATH will be bitten sooner or later anyway.
&&
&& What, even if they have it as the very last thing in their path?
&&
&& I'd like to see someone exploit that.
If you always use commands that are in /usr/bin, /bin, /usr/local/bin,
etc, sure, no problem. As long as you don't make typos for course. But
then, you don't need "." in your PATH.
Else, it can be exploited.
Abigail
--
sub _ {$_ = shift and y/b-yB-Y/a-yB-Y/ xor !@ _?
exit print :
print and push @_ => shift and goto &{(caller (0)) [3]}}
split // => "KsvQtbuf fbsodpmu\ni flsI " xor & _
------------------------------
Date: Fri, 23 Mar 2001 11:10:43 -0500
From: "David J. Marcus" <djmarcus@ex-pressnet.com>
Subject: Why isn't The Perl Journal accepting new sbscriptions?
Message-Id: <tbmtbjeasn3268@corp.supernews.com>
Hi
I tried to subscribe to TPJ. However the website says that TPJ is in
transition and not accepting new subscribers.
Does anyone know what is going on?
-TIA
David
------------------------------
Date: Fri, 23 Mar 2001 16:20:13 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: Why isn't The Perl Journal accepting new sbscriptions?
Message-Id: <1JKu6.202$T3.182979584@news.frii.net>
In article <tbmtbjeasn3268@corp.supernews.com>,
David J. Marcus <djmarcus@ex-pressnet.com> wrote:
>Hi
>
>I tried to subscribe to TPJ. However the website says that TPJ is in
>transition and not accepting new subscribers.
>
>Does anyone know what is going on?
>
http://use.perl.org/article.pl?sid=01/01/03/0044235&mode=thread&threshold=
--
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 555
**************************************
