[17014] in Perl-Users-Digest
Perl-Users Digest, Issue: 4426 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 25 18:10:43 2000
Date: Mon, 25 Sep 2000 15:10:21 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <969919821-v9-i4426@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 25 Sep 2000 Volume: 9 Number: 4426
Today's topics:
Re: matching a date <lr@hpl.hp.com>
Re: Nested Literals in Perl nobull@mail.com
Re: Nested Literals in Perl <dave@dave.org.uk>
New to PERL <jds@idirect.com>
Re: New to PERL <bmb@ginger.libs.uga.edu>
Re: New to PERL <jeff@vpservices.com>
Re: New to PERL <sariq@texas.net>
Re: New to PERL <amonotod@netscape.net>
Re: New to PERL (Abigail)
Re: New to PERL <lr@hpl.hp.com>
Re: New to PERL (Abigail)
Re: Perl and sendmail <pilsl@goldfisch.atat.at>
Re: Perl and sendmail nobull@mail.com
Re: Perl and sendmail (Tony L. Svanstrom)
Re: Perl and SNMP <jds@idirect.com>
Re: Perl and SNMP <godzilla@stomp.stomp.tokyo>
Re: Perl and SNMP <amonotod@netscape.net>
Perl compilation error messages <jstone211@my-deja.com>
Re: Perl compilation error messages <amonotod@netscape.net>
Re: Perl Shell on Windows NT <undergronk@my-deja.com>
Re: Problem unlinking files (Programmer Needed) (Clinton A. Pierce)
Re: Pure perl encrypt/decryption? (Chris Fedde)
Re: References and local (Martien Verbruggen)
Send HTMLmail via Perl Script joshfeingold@my-deja.com
Re: Send HTMLmail via Perl Script <bmb@ginger.libs.uga.edu>
Re: Send HTMLmail via Perl Script <crowj@aol.com>
Re: Send HTMLmail via Perl Script <lr@hpl.hp.com>
Re: Simple one? How do I escape the '(" in a string? (Arthur Darren Dunham)
Re: Simple one? How do I escape the '(" in a string? (Abigail)
Re: Simple one? How do I escape the '(" in a string? <crowj@aol.com>
Re: Simple one? How do I escape the '(" in a string? (Abigail)
Storable compile error on AIX 4.2 abdissa_aga@my-deja.com
Re: SV: ActivePerl ppm install DB_File on NT acunet3278@my-deja.com
Re: use vs. @ISA <bart.lateur@skynet.be>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 25 Sep 2000 12:14:03 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: matching a date
Message-Id: <MPG.143943d2bc5d464d98adbe@nntp.hpl.hp.com>
In article <39CD6F43.87D2B2F6@ooc.com.au> on Sun, 24 Sep 2000 13:04:35
+1000, Derek Thomson <derek@ooc.com.au> says...
...
> use Time::Local;
>
> while(<>) {
> while (/(\d+)-(\d+)-(\d+)/g) {
> my ($yyyy, $mm, $dd) = ($1, $2, $3);
>
> eval { timelocal(0, 0, 0, $dd, $mm, $yyyy); };
>
> if (!$@) {
> print "$yyyy-$mm-$dd is okay\n";
> } else {
> print "$yyyy-$mm-$dd is not a valid date: $@";
> }
> }
> }
Three things wrong here:
1. The month value should be reduced by 1 from the input value,
in accordance with the conventions of localtime().
2. The day-of-month checking in timelocal is far too primitive:
croak "Day '$_[3]' out of range 1..31" if $_[3] > 31 || $_[3] < 1;
3. A bug in interior caching lets bogus dates through. Try the
following values (month has been offset correctly), every one of
which is accepted:
2000-00-31
2000-00-32
2000-01-29
2000-01-30
2000-01-31
2000-01-32
2000-01-1000
This is an unreliable reed indeed!
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 25 Sep 2000 19:02:18 +0100
From: nobull@mail.com
Subject: Re: Nested Literals in Perl
Message-Id: <u9og1cjqol.fsf@wcl-l.bham.ac.uk>
patrick_k6801@my-deja.com writes:
> Hello NG,
> I am trying to define a nested literal in perl. What is the
> equivalent of the following LISP-code in Perl
>
> (setq x '(1,2,(3,4),5))
>
> When i try $a=\(1,2,\(3,4),5)
You are using \() where you mean [].
$a=[1,2,[3,4],5];
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 25 Sep 2000 19:24:55 +0100
From: Dave Cross <dave@dave.org.uk>
Subject: Re: Nested Literals in Perl
Message-Id: <p16vsss0ob9jdqvr23g97jd525r6nfiuq2@4ax.com>
On Mon, 25 Sep 2000 14:49:39 GMT, patrick_k6801@my-deja.com wrote:
>Hello NG,
> I am trying to define a nested literal in perl. What is the
>equivalent of the following LISP-code in Perl
>
>(setq x '(1,2,(3,4),5))
>
>When i try $a=\(1,2,\(3,4),5) I receive (1,2,SCALAR(blah),SCALAR
>(blah),5). Other combinations also failed. the natural (1,2,(3,4),5)
>leads to (1,2,3,4,5) since (3,4) is evaluated in "list context".
>Can anybody help me ?
$a = [1, 2, [3, 4], 5];
read perllol and perlref to find out why.
hth,
dave...
--
<http://www.dave.org.uk> SMS: sms@dave.org.uk
yapc::Europe - London, 22 - 24 Sep <http://www.yapc.org/Europe/>
"There ain't half been some clever bastards" - Ian Dury [RIP]
------------------------------
Date: Mon, 25 Sep 2000 18:28:54 GMT
From: "John D. Spencer" <jds@idirect.com>
Subject: New to PERL
Message-Id: <39CF5277.A09F978F@idirect.com>
Hello:
I am brand new to PERL and am tryign to use the require command. I
understand the concept but am having a problem using it. I receive a
message:
file1.pl did not return a true value at file2.pl line 8
where file2.pl has the statment ' require "file1.pl" '
Both files are in the same directory. Any ideas?
Thank you.
John.
------------------------------
Date: Mon, 25 Sep 2000 14:44:38 -0400
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: New to PERL
Message-Id: <Pine.A41.4.21.0009251441510.8552-100000@ginger.libs.uga.edu>
On Mon, 25 Sep 2000, John D. Spencer wrote:
> Hello:
>
> I am brand new to PERL and am tryign to use the require command. I
> understand the concept but am having a problem using it. I receive a
> message:
>
> file1.pl did not return a true value at file2.pl line 8
>
> where file2.pl has the statment ' require "file1.pl" '
>
> Both files are in the same directory. Any ideas?
>
> Thank you.
>
> John.
Excerpt from `perldoc -f require`:
...
the same specified name. The file must return true
as the last statement to indicate successful
execution of any initialization code, so it's
customary to end such a file with `1;' unless you're
sure it'll return true otherwise. But it's better
just to put the `1;', in case you add more
statements.
...
Brad
------------------------------
Date: Mon, 25 Sep 2000 11:42:58 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: New to PERL
Message-Id: <39CF9CB2.88244F9@vpservices.com>
"John D. Spencer" wrote:
>
> I am brand new to PERL and am tryign to use the require command. I
> understand the concept but am having a problem using it. I receive a
> message:
>
> file1.pl did not return a true value at file2.pl line 8
>
> where file2.pl has the statment ' require "file1.pl" '
The first thing you should try when you get an error is to read the
documentation on the function that produced the error. The
documentation for "require" states:
The file must return true as the last statement
to indicate successful execution of any initialization code, so
it's customary to end such a file with `1;'
In other words, put the numeral one followed by a semicolon as the last
line in file1.pl.
P.S. It's "Perl" for the language or "perl" for the interpreter, but
never "PERL".
--
Jeff
------------------------------
Date: Mon, 25 Sep 2000 18:48:45 GMT
From: Tom Briles <sariq@texas.net>
Subject: Re: New to PERL
Message-Id: <39CF9E0D.4226A396@texas.net>
"John D. Spencer" wrote:
>
> Hello:
>
> I am brand new to PERL
What's PERL? Oh, you mean Perl.
perldoc -q difference
> and am tryign to use the require command. I
> understand the concept
I'll just take your word for it...
> but am having a problem using it. I receive a
> message:
>
> file1.pl did not return a true value at file2.pl line 8
>
> where file2.pl has the statment ' require "file1.pl" '
>
> Both files are in the same directory. Any ideas?
Yes. RTFM.
The page which documents diagnostic messages is perldiag. Type:
perldoc perldiag
at the command line and look for the message you're seeing.
Then, learn to fish:
perldoc perldoc
perldoc perl
are good places to start.
- Tom
------------------------------
Date: Mon, 25 Sep 2000 18:58:33 GMT
From: amonotod <amonotod@netscape.net>
Subject: Re: New to PERL
Message-Id: <8qo78b$698$1@nnrp1.deja.com>
In article <39CF5277.A09F978F@idirect.com>,
"John D. Spencer" <jds@idirect.com> wrote:
> Hello:
>
> I am brand new to PERL and am tryign to use the require command. I
> understand the concept but am having a problem using it. I receive a
> message:
>
> file1.pl did not return a true value at file2.pl line 8
>
> where file2.pl has the statment ' require "file1.pl" '
>
> Both files are in the same directory. Any ideas?
File1.pl should end like this:
1;
HTH,
amonotod
--
`\|||/ amonotod@
(@@) netscape.net
ooO_(_)_Ooo________________________________
_____|_____|_____|_____|_____|_____|_____|_____|
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 25 Sep 2000 19:42:18 GMT
From: abigail@foad.org (Abigail)
Subject: Re: New to PERL
Message-Id: <slrn8svaie.lo9.abigail@alexandra.foad.org>
John D. Spencer (jds@idirect.com) wrote on MMDLXXXII September MCMXCIII
in <URL:news:39CF5277.A09F978F@idirect.com>:
)) Hello:
))
)) I am brand new to PERL and am tryign to use the require command. I
We see that, as you don't know how it's spelled yet. It's called Perl
(for the language), or perl (for the binary).
And require is not a command. It's a statement.
)) understand the concept but am having a problem using it. I receive a
)) message:
))
)) file1.pl did not return a true value at file2.pl line 8
All warnings and error Perl throws at you are explained in the perldiag
man page, part of the large set of manpages that comes with every
distribution of Perl. Use it.
)) where file2.pl has the statment ' require "file1.pl" '
))
)) Both files are in the same directory. Any ideas?
Use the manual.
Abigail
--
BEGIN {print "Just " } # A young girl sighing.
END {print "Hacker\n"} # A beetle in the branches of
INIT {print "Perl " } # a hazel. Joshu.
CHECK {print "another "}
------------------------------
Date: Mon, 25 Sep 2000 13:28:35 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: New to PERL
Message-Id: <MPG.1439554e5abf57df98adbf@nntp.hpl.hp.com>
In article <slrn8svaie.lo9.abigail@alexandra.foad.org> on 25 Sep 2000
19:42:18 GMT, Abigail <abigail@foad.org> says...
> John D. Spencer (jds@idirect.com) wrote on MMDLXXXII September MCMXCIII
> in <URL:news:39CF5277.A09F978F@idirect.com>:
> )) I am brand new to PERL and am tryign to use the require command. I
>
> We see that, as you don't know how it's spelled yet. It's called Perl
> (for the language), or perl (for the binary).
>
> And require is not a command. It's a statement.
Hmmm. I would have sworn it was an operator, though I guess one could
also call it a function. But not a statement!
However,
require 'foo';
Now that's a statement.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 25 Sep 2000 21:29:57 GMT
From: abigail@foad.org (Abigail)
Subject: Re: New to PERL
Message-Id: <slrn8svgs8.lo9.abigail@alexandra.foad.org>
Larry Rosler (lr@hpl.hp.com) wrote on MMDLXXXII September MCMXCIII in
<URL:news:MPG.1439554e5abf57df98adbf@nntp.hpl.hp.com>:
&& In article <slrn8svaie.lo9.abigail@alexandra.foad.org> on 25 Sep 2000
&& 19:42:18 GMT, Abigail <abigail@foad.org> says...
&& > John D. Spencer (jds@idirect.com) wrote on MMDLXXXII September MCMXCIII
&& > in <URL:news:39CF5277.A09F978F@idirect.com>:
&& > )) I am brand new to PERL and am tryign to use the require command. I
&& >
&& > We see that, as you don't know how it's spelled yet. It's called Perl
&& > (for the language), or perl (for the binary).
&& >
&& > And require is not a command. It's a statement.
&&
&& Hmmm. I would have sworn it was an operator, though I guess one could
&& also call it a function. But not a statement!
&&
&& However,
&&
&& require 'foo';
&&
&& Now that's a statement.
$ perl -wce 'require'
-e syntax OK
$
HTH. HAND.
Abigail
--
perl -Mstrict -we '$_ = "goto S.print chop;\n=rekcaH lreP rehtona tsuJ";S1:eval'
------------------------------
Date: Mon, 25 Sep 2000 18:56:58 GMT
From: peter pilsl <pilsl@goldfisch.atat.at>
Subject: Re: Perl and sendmail
Message-Id: <MPG.1439be89b9a2c559898a6@news.chello.at>
In article <39CF90AB.8BE242ED@m.com>, f@m.com says...
> Hi Peter
>
> peter pilsl wrote:
>
> >You dont want us to help to write spam-tools, dont you ? ;)
>
> Certainly not.
>
> I write only to adresses who requested to receive mail and every
> mail has a link to unsubscribe. See, no spam.
>
> As you can see, I'm under the category "stupid, not crazy" :-)
>
>
> >Why not cause perl to wait every 50 emails until the mailq is empty again?
>
> I had this idea myself, I just don't know how to tell
> perl to "wait" and how I find out if the mailq is empty again.
>
>
its getting offtopic, but sendmail has options to show the current mailq.
but as other people stated, there are better mailers for massmail than
sendmail.
peter
--
pilsl@
goldfisch.at
------------------------------
Date: 25 Sep 2000 19:56:56 +0100
From: nobull@mail.com
Subject: Re: Perl and sendmail
Message-Id: <u9k8c0jo5j.fsf@wcl-l.bham.ac.uk>
f <f@m.com> writes:
> well, I don't know if this is a perl problem or a sendmail problem.
>
> I'm writing a mailing list. I have an array of ca. 3000 email addresses.
>
> I programmed a foreach which contains a sendmail.
Bad idea - call sendmail once with 3000 addresses.
> As soon as I start this script foreach starts sendmail several 100 times
>
> with different email addresses. Then sendmail is busy sending
> all that mail and after ca. 60 seconds my sricpt times out.
How is the timeout implemented?
> I have no access to the server's sendmail config.
Server? What server? I'm confused: are you using system() to start
an instance of sendmail on the local machine or connecting to one on a
server using SMTP?
> Is there any option to start sendmail with or to increase the perl
> timeout?
What do you mean by "perl timeout"? Are you perhaps running this
script through a HTTP client/server? Is it perhaps the HTTP server
timeout or the HTTP client timeout that you are talking about? HTTP
client timeout may be configurable on the HTTP client. HTTP server
timeout may be configurable on the HTTP server. Neither of these is
related to Perl. However writing a dot after each message is send may
reasure the HTTP server/client/user that you script hasn't stalled.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 25 Sep 2000 22:24:03 +0200
From: tony@svanstrom.com (Tony L. Svanstrom)
Subject: Re: Perl and sendmail
Message-Id: <1ehjcqk.b4bpel9avc3fN%tony@svanstrom.com>
amonotod <amonotod@netscape.net> wrote:
> I'll tell you what... I have a script, like yours, that accesses the
> database, pulls out a bunch of email addresses, and then mails each
> address, using a separate file as the body of the message. While I do
> not have near so many addresses (about 650), it is still a sizable task.
> Email me and ask for it.
I wouldn't mind having a look at that.
Just like the one that started this thread I have a need to send out a
lot of e-mails (3400 at least once a week) because stupid as I am I said
"Hey, I can help you fix that not always working mailing list"... Just
thought I'd give a lil bit of support, saying that it doesn't have to be
SPAM/UCE/UBE simply because you're sending out a lot of emails. :-)
/Tony
--
/\___/\ Who would you like to read your messages today? /\___/\
\_@ @_/ Protect your privacy: <http://www.pgpi.com/> \_@ @_/
--oOO-(_)-OOo---------------------------------------------oOO-(_)-OOo--
on the verge of frenzy - i think my mask of sanity is about to slip
---ôôô---ôôô-----------------------------------------------ôôô---ôôô---
\O/ \O/ ©99-00 <http://www.svanstrom.com/?ref=news> \O/ \O/
------------------------------
Date: Mon, 25 Sep 2000 18:25:24 GMT
From: "John D. Spencer" <jds@idirect.com>
Subject: Re: Perl and SNMP
Message-Id: <39CF51A4.4FD76F51@idirect.com>
Curt: I am working with a book called PERL CGI Programming by Erik
Strom, from Sybex Books (www.sybex.com). ISBN # is 0-7821-2157-8. I find
it to be a great introduction of the Perl language. I haven't seen
anything inhere on SNMP (yet) though.
Hope this helps.
John.
peredina wrote:
> Anyone point me to some good starter docs re: Perl and SNMP.
>
> Ive looked in a few places, and there's not much out there.
>
> Thanks,
>
> Curt
------------------------------
Date: Mon, 25 Sep 2000 11:56:00 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Perl and SNMP
Message-Id: <39CF9FC0.AD06D879@stomp.stomp.tokyo>
peredina wrote:
> Anyone point me to some good starter docs re: Perl and SNMP.
> Ive looked in a few places, and there's not much out there.
You will find ample free SNMP software, including
Perl based, here:
http://wwwsnmp.cs.utwente.nl/software/pubdomain.html
Hundreds of links for SNMP technology are here:
http://www.faqs.org/faqs/snmp-faq/part1/
Godzilla!
--
Dr. Kiralynne Schilitubi ¦ Cooling Fan Specialist
UofD: University of Duh! ¦ ENIAC Hard Wiring Pro
BumScrew, South of Egypt ¦ HTML Programming Class
------------------------------
Date: Mon, 25 Sep 2000 19:28:53 GMT
From: amonotod <amonotod@netscape.net>
Subject: Re: Perl and SNMP
Message-Id: <8qo90o$8hp$1@nnrp1.deja.com>
In article <39CF9FC0.AD06D879@stomp.stomp.tokyo>,
"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote:
> peredina wrote:
> > Anyone point me to some good starter docs re: Perl and SNMP.
> > Ive looked in a few places, and there's not much out there.
> You will find ample free SNMP software, including
> Perl based, here:
> Hundreds of links for SNMP technology are here:
While the OP did say Perl and SNMP as two seperate words, they were
posted as AND statement. Therefore perhaps this would be more
applicable:
http://theoryx5.uwinnipeg.ca/mod_perl/cpan-search?search=snmp&filetype=+
distribution+name+or+description&join=and&arrange=file&download=auto&ste
m=no&case=clike&site=ftp.funet.fi&age=
Once again, a clear cut case of a Moronzilla answer not having a
one-to-one relationship with a poster's question.
amonotod
--
`\|||/ amonotod@
(@@) netscape.net
ooO_(_)_Ooo________________________________
_____|_____|_____|_____|_____|_____|_____|_____|
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 20:11:10 GMT
From: J. Stone <jstone211@my-deja.com>
Subject: Perl compilation error messages
Message-Id: <8qobga$bm9$1@nnrp1.deja.com>
I have received the following message:
Can't load '/usr/local/perl5.005_03/lib/site_perl/5.005/sun4-
solaris/auto/Sybase/CTlib/CTlib.so' for module Sybase::CTlib: ld.so.1:
perl: fatal: relocation error: file /usr/lib/libtcl.so: symbol
comn_free: referenced symbol not found
at /usr/local/perl5.005_03/lib/5.00503/sun4-solaris/DynaLoader.pm line
169.
This error occurs when I execute perl -w script.pl. I have not
modified the script. Any clues as to what needs to be done to resolve
this? Thanks.
J. Stone
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 20:49:14 GMT
From: amonotod <amonotod@netscape.net>
Subject: Re: Perl compilation error messages
Message-Id: <8qodo2$ejq$1@nnrp1.deja.com>
In article <8qobga$bm9$1@nnrp1.deja.com>,
J. Stone <jstone211@my-deja.com> wrote:
> I have received the following message:
>
> Can't load '/usr/local/perl5.005_03/lib/site_perl/5.005/sun4-
> solaris/auto/Sybase/CTlib/CTlib.so' for module Sybase::CTlib: ld.so.1:
> perl: fatal: relocation error: file /usr/lib/libtcl.so: symbol
> comn_free: referenced symbol not found
> at /usr/local/perl5.005_03/lib/5.00503/sun4-solaris/DynaLoader.pm line
> 169.
>
> This error occurs when I execute perl -w script.pl. I have not
> modified the script. Any clues as to what needs to be done to resolve
> this? Thanks.
Do you perhaps have a "use CTLib;" statement in your script? If so, do
you have a file as listed in the error message, with the path as listed
in the error message?
amonotod
--
`\|||/ amonotod@
(@@) netscape.net
ooO_(_)_Ooo________________________________
_____|_____|_____|_____|_____|_____|_____|_____|
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 20:31:02 GMT
From: Scott Kirk <undergronk@my-deja.com>
Subject: Re: Perl Shell on Windows NT
Message-Id: <8qocm7$d6k$1@nnrp1.deja.com>
In article <5iuusscl7jdhodrl64bn6454omkmivonro@4ax.com>,
Steve Alpert <Steve_Alpert@idx.com> wrote:
>
> One more piece. If you set the environment variable to include
> .PL, you don't even have to type that!
>
> PATHEXT = .PL;.COM;.EXE;.BAT;.CMD
Sorry, Steve. That's not right.
The OP had problems redirecting the output of a script. He probably
already has .pl defined as a command extension. This _doesn't_ let you
redirect the output.
What others have said is correct.
Cheers
--
Scott
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 21:15:33 GMT
From: clintp@geeksalad.org (Clinton A. Pierce)
Subject: Re: Problem unlinking files (Programmer Needed)
Message-Id: <VfPz5.10404$hD4.2408063@news1.rdc1.mi.home.com>
[Posted and mailed]
In article <znyz5.18334$nk3.885620@newsread03.prod.itd.earthlink.net>,
"April Melton" <aprmelton@earthlink.net> writes:
> Any one have an idea where I screwed up?
To make a long story short:
> open(FILE,">$temp_data");
open(FILE ">$temp_data") || die "Cannot open $temp_data: $!";
> open(LIST,"$user_db");
Same here.
> unlink ("$template1");
unlink($template1) || die "Cannot unlink $template1: $!";
These "templateX" things cry for a better structure.
> unlink ("$template2");
> unlink ("$template3");
> unlink ("$template4");
> unlink ("$index");
Same here, here, here and here.
> rmdir ("$directory");
rmdir($directory) || die "Cannot unlink $directory: $!";
> unlink ("$user_index");
> unlink ("$user_db");
See "unlink" note above.
> open(LIST,"$temp_data");
See "open" note above.
> mkdir ("$directory", "0777");
mkdir ($directory, 0777) || die "Cannot make $directory: $!";
> chmod (0777, "$directory" );
If you hadn't used quotes before, the chmod might not have been necessary.
(Depending on umask).
chmod (0777, $directory ) || die "Cannot chmod $directory: $!";
> open (HTML, ">$template1" );
> open (HTML, ">$index" );
> open(LIST,"$temp_data");
> open(NEWLIST,">$user_index");
See "open" note above.
> rename ($temp_data , $user_db );
rename($temp_data, $user_db) ||
die "Cannot rename $temp_data to $user_db: $!"
Feel free to substitute "warn" or anything else for these "die" functions.
> print qq~Thanks~;
You're welcome.
--
Clinton A. Pierce Teach Yourself Perl in 24 Hours!
clintp@geeksalad.org for details see http://www.geeksalad.org
"If you rush a Miracle Man,
you get rotten Miracles." --Miracle Max, The Princess Bride
------------------------------
Date: Mon, 25 Sep 2000 21:41:09 GMT
From: cfedde@u.i.sl3d.com (Chris Fedde)
Subject: Re: Pure perl encrypt/decryption?
Message-Id: <VDPz5.407$W3.188763136@news.frii.net>
In article <slrn8sv071.lo9.abigail@alexandra.foad.org>,
Abigail <abigail@foad.org> wrote:
>
>Why would you want to run a proxy on your webserver?
>
divert(-1)
I've seen several instances of cacheing proxies run in the same
box as a webserver. Why? Memoizable dynamic content.
divert(0)
chris
--
This space intentionally left blank
------------------------------
Date: Mon, 25 Sep 2000 22:02:44 GMT
From: mgjv@verbruggen.comdyn.com.au (Martien Verbruggen)
Subject: Re: References and local
Message-Id: <slrn8svirv.m9.mgjv@verbruggen.comdyn.com.au>
On 25 Sep 2000 15:55:39 GMT,
Daniel Chetlin <daniel@chetlin.com> wrote:
> On Mon, 25 Sep 2000 02:27:57 GMT,
> Martien Verbruggen <mgjv@verbruggen.comdyn.com.au> wrote:
> >On 24 Sep 2000 19:21:03 GMT,
> > Daniel Chetlin <daniel@chetlin.com> wrote:
> >> Here's my understanding of how this works.
> >[snip]
> >> And from the above diagrams, we see why it prints `foo' rather
> >> than `baz'.
> >
> >Ok, that's how it works. But that doesn't mean that that is how it
> >_should_ work, or how it was _meant_ to work. All it says is that in
> >the one implementation of the language, they implemented it that way.
> >and that implementation might be wrong.
> [snip]
> >It doesn't make sense from the documentation point of view. The
> >documentation states that the _values_ are saved, and nothing else. It
> >doesn't state that a new variable will be created, and I don't believe
> >it intended to do that.
>
> I just spent an hour reading through every mention of
> `local(?!(?:(?:tim)?e)|/)' in the docs. Pretty much everywhere, it does
> say that it gives a temporary value to a global. This is, at best,
> _highly_ misleading, and at worst, quite wrong.
Only if you accept that the current implementation is correct, and the
documentation wrong :). I believe it to be the other way around.
> If one thinks of the variable as the entry in the symbol table, and the
> `value' as the reference to the actual incarnation of that variable,
> then in a way, local _is_ creating a temporary value by pointing the
> symbol table entry to the new location. But as I said above, if this is
> what's actually intended, it's evilly misleading.
>
> What I imagine is the truth: when writing the docs, going into that much
> detail about the way local _really_ works didn't seem sensible. The way
> the docs describe it suffice to explain 95% of all uses of local,
> especially for the average Perl programmer. Thus, they didn't bother
> mentioning what really happens, which is that the symbol table entry is
> modified to point to a different variable for the remainder of the
> enclosing block.
What I imagine to be the truth (and also see the historical perl 2
documentation that I posted earlier), is that the _intention_ always
was to only make _values_ local. In perls up to 5 it made perfect
sense to implement that by making a local copy of the variable, and
accessing that. With the coming of perl 5 and references, that no
longer worked, but nobody noticed that it didn't work, or nobody even
saw a problem. If the intention always was to provide a local copy of
a variable, then why is it explicitly stated in the documentation that
that is not what happens? perlfunc:local is a bit ambiguous, but
perlsub clearly states:
Temporary Values via local()
[SNIP]
A `local' modifies its listed variables to be "local" to
the enclosing block, `eval', or `do FILE'--and to any
subroutine called from within that block. A `local' just
gives temporary values to global (meaning package)
variables. It does not create a local variable.
^^^
(Emphasis present in original)
As I said before, I think that only one of the original perl2
developers could tell us what was intended, if they still remember,
and resolve that particular problem.
If the implementation is wrong, the current developers will then have
to make a decision on whether they believe it's worth changing or not.
I don't pretend to have enough knowledge of perl's internals to be
able to see the ramifications of changing this, or the influence on
speed of execution, or the amount of breakage that would occur.
We can go on discussing this here, but I think the only sensible thing
to do would be to submit a bug report, and to let the developers make
a decision (Abigail, are you still reading this? Have you submitted a
bug report). We are both second-guessing what the real behaviour
should be, and neither of us really knows.
Martien
--
Martien Verbruggen |
Interactive Media Division | The world is complex; sendmail.cf
Commercial Dynamics Pty. Ltd. | reflects this.
NSW, Australia |
------------------------------
Date: Mon, 25 Sep 2000 18:29:53 GMT
From: joshfeingold@my-deja.com
Subject: Send HTMLmail via Perl Script
Message-Id: <8qo5i3$41p$1@nnrp1.deja.com>
I am writting a CGI-Perl script which sends a copy of the data inputted
by the user into a form to me via HTML enhanced email.
My main question is what the correct code to do this is.
I tried
open(MAILINPUT, "|/usr/bin/mailx -s $msu $mto >$temp");
print "Content-type: text/html\n\n";
print MAILINPUT >>INPUT
<HTML><b>Hello $your_name</b></HTML>
INPUT
close(MAILINPUT);
but I am getting errors on the "<". Any idea what I need to change?
Thanks,
Josh
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 14:56:59 -0400
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: Send HTMLmail via Perl Script
Message-Id: <Pine.A41.4.21.0009251456470.8552-100000@ginger.libs.uga.edu>
On Mon, 25 Sep 2000 joshfeingold@my-deja.com wrote:
> I am writting a CGI-Perl script which sends a copy of the data inputted
> by the user into a form to me via HTML enhanced email.
>
> My main question is what the correct code to do this is.
>
> I tried
>
> open(MAILINPUT, "|/usr/bin/mailx -s $msu $mto >$temp");
> print "Content-type: text/html\n\n";
> print MAILINPUT >>INPUT
> <HTML><b>Hello $your_name</b></HTML>
> INPUT
> close(MAILINPUT);
>
> but I am getting errors on the "<". Any idea what I need to change?
>
> Thanks,
> Josh
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
<<INPUT
Brad
------------------------------
Date: Mon, 25 Sep 2000 15:06:57 -0400
From: John Crowley <crowj@aol.com>
Subject: Re: Send HTMLmail via Perl Script
Message-Id: <39CFA251.A4E9AC77@aol.com>
joshfeingold@my-deja.com wrote:
>
> I am writting a CGI-Perl script which sends a copy of the data inputted
> by the user into a form to me via HTML enhanced email.
>
> My main question is what the correct code to do this is.
>
> I tried
>
> open(MAILINPUT, "|/usr/bin/mailx -s $msu $mto >$temp");
> print "Content-type: text/html\n\n";
> print MAILINPUT >>INPUT
> <HTML><b>Hello $your_name</b></HTML>
> INPUT
> close(MAILINPUT);
>
> but I am getting errors on the "<". Any idea what I need to change?
>
> Thanks,
> Josh
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
change
print MAILINPUT >>INPUT
to
print MAILINPUT <<INPUT
------------------------------
Date: Mon, 25 Sep 2000 13:31:15 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Send HTMLmail via Perl Script
Message-Id: <MPG.143955ef2b48814198adc0@nntp.hpl.hp.com>
In article <8qo5i3$41p$1@nnrp1.deja.com> on Mon, 25 Sep 2000 18:29:53
GMT, joshfeingold@my-deja.com <joshfeingold@my-deja.com> says...
...
> print MAILINPUT >>INPUT
> <HTML><b>Hello $your_name</b></HTML>
> INPUT
> close(MAILINPUT);
>
> but I am getting errors on the "<". Any idea what I need to change?
Each of the two previous answers noted the incorrect syntax for the
here-doc specifier; but neither of them noticed the missing semicolon.
print MAILINPUT <<INPUT;
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 25 Sep 2000 18:46:38 GMT
From: add@netcom.com (Arthur Darren Dunham)
Subject: Re: Simple one? How do I escape the '(" in a string?
Message-Id: <8qo6ie$9h1$1@slb0.atl.mindspring.net>
In article <slrn8so4if.5fq.abigail@alexandra.foad.org>,
Abigail <abigail@foad.org> wrote:
>..
>.. $ perl -w beta.pl
>.. print (...) interpreted as function at beta.pl line 92.
>
>
>That is a very annoying warning, and I don't see what good it does.
>It isn't that people aren't used to functions.
Well, I think the idea is that the warning isn't supposed to occur if
all the arguments are actually inside the parenthesis.
But that doesn't happen here. What causes that message? It has
something to do with the '(' within the print string...
#!/usr/local/bin/perl
print (STDOUT "( ");
print (STDOUT ") ");
print (STDOUT "[ ");
print (STDOUT "{ ");
print (STDOUT "< ");
print (STDOUT "; ");
print (STDOUT "!\n");
perl -w /tmp/test
print (...) interpreted as function at /tmp/test line 2.
print (...) interpreted as function at /tmp/test line 3.
( ) [ { < ; !
Hmm.. only the '(' or ')' lines have warnings. What's up with that?
--
Darren Dunham ddunham@taos.com
Unix System Administrator Taos - The SysAdmin Company
Got some Dr Pepper? San Francisco Bay Area
< Please move on, ...nothing to see here, please disperse >
------------------------------
Date: 25 Sep 2000 19:21:36 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Simple one? How do I escape the '(" in a string?
Message-Id: <slrn8sv9bj.lo9.abigail@alexandra.foad.org>
Arthur Darren Dunham (add@netcom.com) wrote on MMDLXXXII September
MCMXCIII in <URL:news:8qo6ie$9h1$1@slb0.atl.mindspring.net>:
|| In article <slrn8so4if.5fq.abigail@alexandra.foad.org>,
|| Abigail <abigail@foad.org> wrote:
|| >..
|| >.. $ perl -w beta.pl
|| >.. print (...) interpreted as function at beta.pl line 92.
|| >
|| >
|| >That is a very annoying warning, and I don't see what good it does.
|| >It isn't that people aren't used to functions.
||
|| Well, I think the idea is that the warning isn't supposed to occur if
|| all the arguments are actually inside the parenthesis.
||
|| But that doesn't happen here. What causes that message? It has
|| something to do with the '(' within the print string...
||
|| #!/usr/local/bin/perl
|| print (STDOUT "( ");
|| print (STDOUT ") ");
|| print (STDOUT "[ ");
|| print (STDOUT "{ ");
|| print (STDOUT "< ");
|| print (STDOUT "; ");
|| print (STDOUT "!\n");
||
|| perl -w /tmp/test
|| print (...) interpreted as function at /tmp/test line 2.
|| print (...) interpreted as function at /tmp/test line 3.
|| ( ) [ { < ; !
||
|| Hmm.. only the '(' or ')' lines have warnings. What's up with that?
No idea. What's even stranger:
$ cat eek1.pl
print ("((");
print (">>");
$ perl -wl eek1.pl
print (...) interpreted as function at eek1.pl line 1.
((
>>
$ cat eek2.pl
print ("((");
print (">>")
$ perl -wl eek2.pl
print (...) interpreted as function at eek2.pl line 1.
print (...) interpreted as function at eek2.pl line 2.
((
>>
$ cat eek3.pl
print (">>");
print ("((");
$ perl -wl eek3.pl
print (...) interpreted as function at eek3.pl line 2.
>>
((
$ cat eek4.pl
print (")");
print ("))");
$ perl -wl eek4.pl
print (...) interpreted as function at eek4.pl line 1.
)
))
$
Time for perlbug.
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
# A trout in a river.
# A kitty sits near a
# palace. A duck nests.
------------------------------
Date: Mon, 25 Sep 2000 16:37:08 -0400
From: John Crowley <crowj@aol.com>
Subject: Re: Simple one? How do I escape the '(" in a string?
Message-Id: <39CFB774.CF3FCEAA@aol.com>
Abigail wrote:
>
> Arthur Darren Dunham (add@netcom.com) wrote on MMDLXXXII September
> MCMXCIII in <URL:news:8qo6ie$9h1$1@slb0.atl.mindspring.net>:
> || In article <slrn8so4if.5fq.abigail@alexandra.foad.org>,
> || Abigail <abigail@foad.org> wrote:
> || >..
> || >.. $ perl -w beta.pl
> || >.. print (...) interpreted as function at beta.pl line 92.
> || >
> || >
> || >That is a very annoying warning, and I don't see what good it does.
> || >It isn't that people aren't used to functions.
> ||
> || Well, I think the idea is that the warning isn't supposed to occur if
> || all the arguments are actually inside the parenthesis.
> ||
> || But that doesn't happen here. What causes that message? It has
> || something to do with the '(' within the print string...
> ||
> || #!/usr/local/bin/perl
> || print (STDOUT "( ");
> || print (STDOUT ") ");
> || print (STDOUT "[ ");
> || print (STDOUT "{ ");
> || print (STDOUT "< ");
> || print (STDOUT "; ");
> || print (STDOUT "!\n");
> ||
> || perl -w /tmp/test
> || print (...) interpreted as function at /tmp/test line 2.
> || print (...) interpreted as function at /tmp/test line 3.
> || ( ) [ { < ; !
> ||
> || Hmm.. only the '(' or ')' lines have warnings. What's up with that?
>
> No idea. What's even stranger:
>
> $ cat eek1.pl
> print ("((");
> print (">>");
> $ perl -wl eek1.pl
> print (...) interpreted as function at eek1.pl line 1.
> ((
> >>
> $ cat eek2.pl
> print ("((");
> print (">>")
> $ perl -wl eek2.pl
> print (...) interpreted as function at eek2.pl line 1.
> print (...) interpreted as function at eek2.pl line 2.
> ((
> >>
> $ cat eek3.pl
> print (">>");
> print ("((");
> $ perl -wl eek3.pl
> print (...) interpreted as function at eek3.pl line 2.
> >>
> ((
> $ cat eek4.pl
> print (")");
> print ("))");
> $ perl -wl eek4.pl
> print (...) interpreted as function at eek4.pl line 1.
> )
> ))
> $
>
> Time for perlbug.
>
> Abigail
> --
> perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
> # A trout in a river.
> # A kitty sits near a
> # palace. A duck nests.
It has to do with whether the function arguments are LIST elements and
whether an argument may not be a LIST element but has other
syntactically different charateristic as does a file handle.
see pp. 141-143 "Programming Perl" by O'Reilly.
------------------------------
Date: 25 Sep 2000 21:33:12 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Simple one? How do I escape the '(" in a string?
Message-Id: <slrn8svh2c.lo9.abigail@alexandra.foad.org>
John Crowley (crowj@aol.com) wrote on MMDLXXXII September MCMXCIII in
<URL:news:39CFB774.CF3FCEAA@aol.com>:
// Abigail wrote:
// >
// > No idea. What's even stranger:
// >
// > $ cat eek1.pl
// > print ("((");
// > print (">>");
// >
// > Time for perlbug.
// >
// It has to do with whether the function arguments are LIST elements and
// whether an argument may not be a LIST element but has other
// syntactically different charateristic as does a file handle.
And since when does wether something is a list element depend on the
actual characters in a string? Or whether the list is followed by a
semicolon or EOF?
// see pp. 141-143 "Programming Perl" by O'Reilly.
Hidden somewhere in a box. :(
Abigail
--
$=-=4*++$|;{print$"x--$==>"\@\x7Fy~*kde~box*Zoxf*Bkiaox \r"
^
$/x24if!select$,,$,,$,,join+q=.==>$^W=>$|;$=&&redo}sleep$|;
------------------------------
Date: Mon, 25 Sep 2000 18:35:39 GMT
From: abdissa_aga@my-deja.com
Subject: Storable compile error on AIX 4.2
Message-Id: <8qo5to$4n8$1@nnrp1.deja.com>
Attempting to build Storable version 0.7 on AIX 4.2 results in
compilation error. I have no problem building it on Solaris and HP-UX.
I ca build it using gcc, I must use the native xlc compiler that I
invoked as "cc_r4". Can some tell me if I'm missing a compiler option?
Here is the error:
cp Storable.pm blib/lib/Storable.pm
AutoSplitting blib/lib/Storable.pm (blib/lib/auto/Storable)
blib/lib/Storable.pm: some names are not unique when truncated to 8
characters:
directory blib/lib/auto/Storable:
retrieve.al, retrieve_fd.al truncate to retrieve
/build/AIX/perlext/exports/bin/perl
"-I/build/AIX/perlext/exports/lib/perl5/arch"
"-I/build/AIX/perlext/exports/lib/perl5" -e 'use Ex
tUtils::Mksymlists; \
Mksymlists("NAME" => "Storable", "DL_FUNCS" => { }, "FUNCLIST" => [],
"DL_VARS" => []);'
/build/AIX/perlext/exports/bin/perl
-I/build/AIX/perlext/exports/lib/perl5/arch
-I/build/AIX/perlext/exports/lib/perl5 /build/AIX/per
lext/exports/lib/perl5/ExtUtils/xsubpp -typemap
/build/AIX/perlext/exports/lib/perl5/ExtUtils/typemap Storable.xs >
Storable.xsc &&
mv Storable.xsc Storable.c
cc_r4 -c -D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE -qmaxmem=16384
-I/usr/local/include -O -DVERSION=\"0.702\" -DXS_VERSION=
\"0.702\" -I/build/AIX/perlext/exports/lib/perl5/arch/CORE Storable.c
"Storable.xs", line 35.20: 1506-342 (W) "/*" detected in comment.
"Storable.xs", line 36.20: 1506-342 (W) "/*" detected in comment.
"Storable.xs", line 644.12: 1506-131 (S) Explicit extent specification
or initializer required for an auto or static array.
"Storable.xs", line 647.11: 1506-131 (S) Explicit extent specification
or initializer required for an auto or static array.
"Storable.xs", line 648.11: 1506-131 (S) Explicit extent specification
or initializer required for an auto or static array.
make: *** [Storable.o] Error 1
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 21:19:43 GMT
From: acunet3278@my-deja.com
Subject: Re: SV: ActivePerl ppm install DB_File on NT
Message-Id: <8qofgo$gr8$1@nnrp1.deja.com>
Another problem that I have learned is that there is no DNS on these
workstations. How can I configure DNS to use on this workstation or how
can PPM be modified so that it uses an IP address instead of a domain
name? Please advise. Thank you.
In article <8qnt1g$26u$1@news.luth.se>,
"Bengt-Arne Fjellner" <Bengt-Arne.Fjellner@tt.luth.se> wrote:
> See Active state documentation for ppm
> file:///C:/Perl/html/faq/ActivePerl-faq2.html (with your path to perl)
> section firewall
>
> 1.. Set Environment Vars
>
> Up to three environment variables need to be set.
>
> Under Windows NT
> Right click on "My Computer", click on "properties", select the
> "environment" tab. These are your environment settings. Make the
following
> changes:
>
> 1.. Add the setting HTTP_proxy, with your proxy name as the value
(you
> must include "http://" ), followed by a colon and the proxy port, if
> applicable; e.g., "http://proxy:8080"
> 2.. If you require a user name and/or password to access your
proxy, add
> the settings HTTP_proxy_user and HTTP_proxy_pass, with your user name
and
> password as the respective values
> 3..
>
> <acunet3278@my-deja.com> skrev i meddelandet
> news:8qnlth$g28$1@nnrp1.deja.com...
> > Activestate perl is running on NT. We want to install DB_File to
run a
> > perl website search engine from kscripts.com.
> >
> > The people at kscript, suggested installing 'DB_File' by using this
> > command: "ppm install DB_File"
> >
> > C:\Perl>ppm install DB_File
> > Retrieving package 'DB_File'...
> > HTTP POST failed: 500 (Can't connect to www.activestate.com:80 (Bad
> > hostname 'ww
> > w.activestate.com')), in SOAP method call. Content of response:
> > at C:/Perl/site/lib/PPM/SOAPClient.pm line 222
> >
> > The machine where this command is run is behind a firewall. Could
that
> > be why the workstation cannot conenct to www.activestate.com
> ....
> > http://www.pucho.com
> > Call me at Keen.com, Your Live Answer Community.
> > http://www.keen.com/acunet3278?ref=1
> >
> >
> >
> > Sent via Deja.com http://www.deja.com/
> > Before you buy.
>
>
--
http://www.pucho.com
Call me at Keen.com, Your Live Answer Community.
http://www.keen.com/acunet3278?ref=1
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 18:49:31 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: use vs. @ISA
Message-Id: <3g6vsss3prjrnnckesa8pvj8kfem0j07tc@4ax.com>
Sarah Officer wrote:
>So, if you use ISA, are deriving your current object form the ISA's
>object?
>
>package Foo;
>@ISA = qw( Bar );
>
>Is this similar to C++ derivation, and if a method isn't defined in
>Foo, then Bar's method of the same name would be called?
Basically, yes, apart from the fact that the code for the superclass
isn't automatically loaded. This is annoying, it's easy to forget about
it and then wonder why it doesn't work. That's the reason why the "base"
module has been invented: it combines loading a superclass and sets @ISA
at the same time.
I can only give you the advice to check out Randal Schwartz' (et al)
Perl OO tutorial, now included with the standard docs (since 5.6), under
the name "perlboot":
<http://search.cpan.org/doc/JHI/perl-5.7.0/pod/perlboot.pod>
--
Bart.
------------------------------
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 V9 Issue 4426
**************************************
