[28491] in Perl-Users-Digest
Perl-Users Digest, Issue: 9855 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 16 18:10:17 2006
Date: Mon, 16 Oct 2006 15:10:09 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 16 Oct 2006 Volume: 10 Number: 9855
Today's topics:
Re: I have no problems eating cereal...after it softens <uri@stemsystems.com>
LWP and Javascript onclick form <cacheung@consumercontact.com>
Re: LWP and Javascript onclick form <glex_no-spam@qwest-spam-no.invalid>
Re: LWP and Javascript onclick form <dorward@yahoo.com>
Re: LWP and Unicode <rvtol+news@isolution.nl>
Problem setting a (multiple) value using HTML::Form <spam.meplease@ntlworld.com>
Re: Problem setting a (multiple) value using HTML::Form <spam.meplease@ntlworld.com>
Re: replace variable with same variable <wireless200@gmail.com>
size of directories? <b.d.jensenremvoe@gmx.net>
size of directories? <b.d.jensenremvoe@gmx.net>
Re: size of directories? <mritty@gmail.com>
Undefined subroutine &main::1 called perl script nunekavitha@gmail.com
Re: Undefined subroutine &main::1 called perl script <mritty@gmail.com>
Re: Undefined subroutine &main::1 called perl script (reading news)
Re: URGENT NEED FOR PERL PROGRAMMER <dha@panix.com>
use of next versus last in a nested loop algorithm <mark.leeds@morganstanley.com>
Re: use of next versus last in a nested loop algorithm <mritty@gmail.com>
Re: use of next versus last in a nested loop algorithm <DJStunks@gmail.com>
Re: use of next versus last in a nested loop algorithm (reading news)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 16 Oct 2006 14:12:15 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: I have no problems eating cereal...after it softens. Why is replacing a simple string so hard then?
Message-Id: <x7d58sku4g.fsf@mail.sysarch.com>
>>>>> "s" == samiam <samiam@mytrashmail.com> writes:
s> Aren't my comments much easier to locate if identified with a new
s> string?
s> inline comments found near 888888888888
a very useless thing. your comments are already demarked by lacking >
prefixes. notice how no one else needs to do that?
s> 88888888888888
s> I had a long talk with Mr. Twenty Year Perl Veteran (TYPV) and he said
s> that everyone goes through the stage of "Why can't regex be used to
s> process multi-line html files?"
s> Just don't:
s> 1.) Use regex for anything more than a simple replace
bullshit. why replace only? matching is fine. and you can do very
complex and powerful things in regexes. no need to restrict them to
simple stuff. you have to learn what they can do and how do use them
properly. you have a long way to go there.
s> 2.) Never attempt to parse html without a module
bullshit. in most cases that is correct but there are some where using
PROPERLY written regexes on FIXED (you know they won't change) html is
ok. but again, you have to know where and when this can work.
s> 3.) Never try to parse multi-line code without a module.
major bullshit. it all depends on the format of the file. even multiline
things in a file can be handled by regexes without modules. and you will
find many file formats without any modules to parse them. one more
time, you have to learn when and where to use a module to parse vs using
regexes and other stuff.
looks like your 20 year perl vet (and that makes little sense as perl is
barely that old if it is 20) isn't giving you good advice. and if he is
so good, why do you keep coming here for help?
s> But modules are going to be the steepest learning curve I think. I
s> think one has to pretty much know Perl very well to even begin to
s> understand the Module docs?
huh???
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 16 Oct 2006 13:36:36 -0700
From: "garhone" <cacheung@consumercontact.com>
Subject: LWP and Javascript onclick form
Message-Id: <1161030996.768542.169980@m7g2000cwm.googlegroups.com>
I had created a program to automatically submit data to an on-line
form, using LWP tools, specifically,
program:
use LWP::UserAgent;
use HTML::Form;
my $ua = LWP::UserAgent->new();
...
# get $form
...
$ua->request($form->click);
form:
<input type="button" value="Submit" name="Submit">
which worked ... until a recent change; Now the form is
<input type="button" value="Submit" onClick="submitCheck()"
name="HitIt">
and somewhere else there's
function submitCheck() {
...
}
The error I get is "No clickable input with name SUBMIT"
My knowledge of javascript is minimal. Can someone direct me to how to
use LWP to submit data to this form?
I have done some Googling, but the posted solutions to similar problems
weren't helpful.
Thanks.
------------------------------
Date: Mon, 16 Oct 2006 16:05:09 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: LWP and Javascript onclick form
Message-Id: <4533f3ad$0$10297$815e3792@news.qwest.net>
garhone wrote:
> form:
> <input type="button" value="Submit" name="Submit">
>
> which worked ... until a recent change; Now the form is
> <input type="button" value="Submit" onClick="submitCheck()"
> name="HitIt">
> and somewhere else there's
> function submitCheck() {
> ...
> }
>
> The error I get is "No clickable input with name SUBMIT"
The original had:
value="Submit" name="Submit"
Now it's:
value="Submit" name="HitIt"
Is there a difference between the 'name' used in the original submit
button compared to the new version?
The error points out the problem -- there isn't a clickable item with
the name SUBMIT. What's the 'name' of the Submit button now? Hint:
originally the 'name' was 'Submit'.
The documentation for HTML::Form, for click(), should provide a solution
for using it.
perldoc HTML::Form
"...Will "click" on the first clickable input (which will be of type
submit or image). ...
If a $name is specified, we will click on the first clickable input
with the given name.
"
> My knowledge of javascript is minimal. Can someone direct me to how to
> use LWP to submit data to this form?
See the documentation. No knowledge of javascript, is needed, unless
submitCheck() does anything to modify the input or variables passed to
the Action.
> I have done some Googling, but the posted solutions to similar problems
> weren't helpful.
> Thanks.
>
------------------------------
Date: Mon, 16 Oct 2006 22:06:50 +0100
From: David Dorward <dorward@yahoo.com>
Subject: Re: LWP and Javascript onclick form
Message-Id: <eh0s9k$n96$2$830fa7a5@news.demon.co.uk>
garhone wrote:
> <input type="button" value="Submit" onClick="submitCheck()"
> The error I get is "No clickable input with name SUBMIT"
> My knowledge of javascript is minimal. Can someone direct me to how to
> use LWP to submit data to this form?
You'd need to dig through the source code of the JS and recreate it in Perl.
You might be better off with one of the modules that mechanise Mozilla or
Internet Explorer as they can handle JS.
--
David Dorward <http://blog.dorward.me.uk/> <http://dorward.me.uk/>
Home is where the ~/.bashrc is
------------------------------
Date: Mon, 16 Oct 2006 22:17:41 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: LWP and Unicode
Message-Id: <eh10gk.v0.1@news.isolution.nl>
Ted Zlatanov schreef:
> So is there a consensus that MIME with charset=utf8 and a suitable
> 8-bit-safe content-transfer-encoding should be acceptable in
> comp.lang.perl.misc? It's unlikely to do violent things to anyone's
> news reader, and it would make it much easier to post Perl code that
> uses UCS characters in source.
Yes, let's just agree on that.
See also
news://nntp.perl.org/20061008235157.34226CBA4D@x12.develooper.com
and many others like that one. (No CTE though, 8-bit implied somehow.)
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 16 Oct 2006 11:46:06 -0700
From: "doolittle" <spam.meplease@ntlworld.com>
Subject: Problem setting a (multiple) value using HTML::Form
Message-Id: <1161024366.354679.280730@i42g2000cwa.googlegroups.com>
Hi,
When i try to set the value of an input of type option (multiple), it
seems to work, but after i submit the form, the input's value has not
changed.
Here is a mech-dump of the relevant part of the form before i run my
program:
wsid=3D32 (option) [32/Red -> Red|*26/Ros=E9 -> Ros=E9]
gtid=3D<UNDEF> (option) [*<UNDEF>/off|460/Aglianico]
The relevant part of the code looks like this:
my @forms =3D HTML::Form->parse($reply);
my $input =3D $forms[0]->find_input( 'gtid', 'option', 1 );
my @values =3D $input->possible_values;
print "1 value 0 (".@values[0].")\n"; # show some values for debugging
print "1 value 1 (".@values[1].")\n";
$input->value( @values[1] );
print "new value ".$input->value."\n";
my $input =3D $forms[0]->find_input( 'wsid' ); # do similar for a
different input (to see if it works)
@values =3D $input->possible_values;
print "wsid value 0 (".@values[0].")\n"; # show some values for
debugging
print "wsid value 1 (".@values[1].")\n";
$input->value( @values[1] );
print "new value ".$input->value."\n";
$reply =3D $ua->request($forms[0]->click);
Which when run prints:
1 value 0 ()
1 value 1 (460)
new value 460
wsid value 0 (32)
wsid value 1 (26)
new value 26
Looking good... unfortunately only the 'wsid' input has stuck - the
'gtid' input remains unset.
Here is a mech-dump of the relevant part of the form after i run my
program:
wsid=3D26 (option) [32/Red -> Red|*26/Ros=E9 -> Ros=E9]
gtid=3D<UNDEF> (option) [*<UNDEF>/off|460/Aglianico]
Suggestions?
thanks for looking
------------------------------
Date: 16 Oct 2006 13:00:53 -0700
From: "doolittle" <spam.meplease@ntlworld.com>
Subject: Re: Problem setting a (multiple) value using HTML::Form
Message-Id: <1161028852.959381.31070@m7g2000cwm.googlegroups.com>
Problem solved!
Basically theres nothing wrong with the code in the previous post, the
problem was somewhere else.
Another input was not set correctly - (an image input needed a
filename). For some reason if the image input was left blank, the gtid
settings were lost, although everything else worked.
------------------------------
Date: 16 Oct 2006 11:57:02 -0700
From: "David" <wireless200@gmail.com>
Subject: Re: replace variable with same variable
Message-Id: <1161025022.222939.318760@i42g2000cwa.googlegroups.com>
Paul / John, thanks. Both work.
regards, David
------------------------------
Date: Mon, 16 Oct 2006 21:20:40 +0200
From: "Bjorn Jensen" <b.d.jensenremvoe@gmx.net>
Subject: size of directories?
Message-Id: <4533dbaf$0$4168$ba624c82@nntp02.dk.telia.net>
Hi!
I'm got an new laptop and can't understand, where disc-space is going,
so I want to see how big there are without right-click etc (yes, I'm on
windows)
Do you have an script or other ideas?
Greetings
Bjoern
P.S: I have no reason to think that is an virus.
Maybe something about automatic recovery? (There is an folder "RRbackups"
where I can't see content an size is 0...??)
------------------------------
Date: Mon, 16 Oct 2006 21:20:57 +0200
From: "Bjorn Jensen" <b.d.jensenremvoe@gmx.net>
Subject: size of directories?
Message-Id: <4533dbb0$0$4168$ba624c82@nntp02.dk.telia.net>
Hi!
I'm got an new laptop and can't understand, where disc-space is going,
so I want to see how big there are without right-click etc (yes, I'm on
windows)
Do you have an script or other ideas?
Greetings
Bjoern
P.S: I have no reason to think that is an virus.
Maybe something about automatic recovery? (There is an folder "RRbackups"
where I can't see content an size is 0...??)
------------------------------
Date: 16 Oct 2006 12:29:54 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: size of directories?
Message-Id: <1161026994.807518.48680@f16g2000cwb.googlegroups.com>
Bjorn Jensen wrote:
> I'm got an new laptop and can't understand, where disc-space is going,
> so I want to see how big there are without right-click etc (yes, I'm on
> windows)
> Do you have an script or other ideas?
> Greetings
> Bjoern
> P.S: I have no reason to think that is an virus.
> Maybe something about automatic recovery? (There is an folder "RRbackups"
> where I can't see content an size is 0...??)
Presumably, since you posted to a Perl newsgroup, you want a Perl
solution.... so what have you tried so far? How has it failed to work
for you?
You can recurse through directories using the File::Find module, and
you can find the size of a file with the -s operator. Read their
documentations to learn about them, then try putting a script together.
If it doesn't work to your satisfaction, let us know by posting the
shortest possible script that still exhibits the same error.
perldoc File::Find
perldoc -f -s
Paul Lalli
------------------------------
Date: 16 Oct 2006 12:47:27 -0700
From: nunekavitha@gmail.com
Subject: Undefined subroutine &main::1 called perl script
Message-Id: <1161028047.216163.233370@i3g2000cwc.googlegroups.com>
hi,
when i try to run my perl script i am getting the following error
perl script:
22 $assigntmp = 'gzip -cd /opt/delphi/logs/saved/FAM.${opt_d}.*.gz |
grep "RESPONSE:" > ${tmpDir}/famOut1.txt 2'>&1;
error:
Undefined subroutine &main::1 called at ./checkReqNew_working.pl line
22.
Can anyone help me on this!!
Thanks,
------------------------------
Date: 16 Oct 2006 13:03:09 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Undefined subroutine &main::1 called perl script
Message-Id: <1161028989.806990.314410@e3g2000cwe.googlegroups.com>
nunekavitha@gmail.com wrote:
> when i try to run my perl script i am getting the following error
>
> perl script:
>
> 22 $assigntmp = 'gzip -cd /opt/delphi/logs/saved/FAM.${opt_d}.*.gz |
> grep "RESPONSE:" > ${tmpDir}/famOut1.txt 2'>&1;
>
> error:
>
> Undefined subroutine &main::1 called at ./checkReqNew_working.pl line
> 22.
>
> Can anyone help me on this!!
Your quotes are misasligned. For reasons unkown, you have your single
quoted string ending before the ">&1" portion of your command. Fix
that.
By the way, once that's fixed, you're going to have more problems....
Single quotes do not interpolate Perl variables. Neither $opt_d nor
$tmpDir are going to be included in your command string. Rather, the
actual characters $, o, p, t, _, and d will be included. Change your
single quotes to double quotes.
This, of course, will force you to either backslash the internal Double
quotes (which surround RESPONSE), or to replace them with single
quotes.
Paul Lalli
------------------------------
Date: Mon, 16 Oct 2006 21:26:02 GMT
From: "Mumia W. (reading news)" <paduille.4059.mumia.w@earthlink.net>
Subject: Re: Undefined subroutine &main::1 called perl script
Message-Id: <KNSYg.7859$Lv3.4524@newsread1.news.pas.earthlink.net>
On 10/16/2006 02:47 PM, nunekavitha@gmail.com wrote:
> hi,
> when i try to run my perl script i am getting the following error
>
> perl script:
>
> 22 $assigntmp = 'gzip -cd /opt/delphi/logs/saved/FAM.${opt_d}.*.gz |
> grep "RESPONSE:" > ${tmpDir}/famOut1.txt 2'>&1;
>
> error:
>
> Undefined subroutine &main::1 called at ./checkReqNew_working.pl line
> 22.
>
> Can anyone help me on this!!
>
> Thanks,
>
Perl is not the bourne [sp?] shell. Operations such as output
redirection are done very differently (and in a more complicated way) in
Perl. You're better off keeping that code in the bourne shell.
If you still have a burning desire to code that in Perl, start reading
the perl documentation: Start->Run->"perldoc perl"
Also read these:
perldoc perlopentut
perldoc perlsyn
--
Mumia W.
paduille.4059.mumia.w@earthlink.net
This is a temporary e-mail to help me catch some s-p*á/m.
------------------------------
Date: Mon, 16 Oct 2006 20:18:19 +0000 (UTC)
From: "David H. Adler" <dha@panix.com>
Subject: Re: URGENT NEED FOR PERL PROGRAMMER
Message-Id: <slrnej7q8b.hq3.dha@panix2.panix.com>
On 2006-10-16, Haider wrote:
>
> Please help me in filling this position of Perl Programmer
You have posted a job posting or a resume in a technical group.
Longstanding Usenet tradition dictates that such postings go into
groups with names that contain "jobs", like "misc.jobs.offered", not
technical discussion groups like the ones to which you posted.
Had you read and understood the Usenet user manual posted frequently to
"news.announce.newusers", you might have already known this. :) (If
n.a.n is quieter than it should be, the relevent FAQs are available at
http://www.faqs.org/faqs/by-newsgroup/news/news.announce.newusers.html)
Another good source of information on how Usenet functions is
news.newusers.questions (information from which is also available at
http://www.geocities.com/nnqweb/).
Please do not explain your posting by saying "but I saw other job
postings here". Just because one person jumps off a bridge, doesn't
mean everyone does. Those postings are also in error, and I've
probably already notified them as well.
If you have questions about this policy, take it up with the news
administrators in the newsgroup news.admin.misc.
http://jobs.perl.org may be of more use to you
Yours for a better usenet,
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
And if you are a real looney, you would read the manpage.
- Abigail in c.l.p.misc
------------------------------
Date: 16 Oct 2006 13:00:29 -0700
From: "markpark" <mark.leeds@morganstanley.com>
Subject: use of next versus last in a nested loop algorithm
Message-Id: <1161028829.372330.291110@i3g2000cwc.googlegroups.com>
this is my last question of the day, i promise.
the code below is doing something very straightforward : i may have a
datelist array say ( 200601, 200603, 200602) and a filelist array say
( eurusd.20060123.txt, eurusd.20060523.txt, eurusd.20060622.txt ). all
i want to do is write the .txt string to a file whenever there is a
match between it and any of the items in the datelist array. i think
below will work but i haven't tested it yet. but, my question is not
really about the code below exactly. filelist can have tons of items in
it, so if there is a match, i want to get
out of the foreach my $pat loop and go to the next $item in the
foreach my $item loop on the outside. i've read about next and last in
various books and still i can't tell what to use because
my case is a little different than the examples in the books because i
am comparing values in
the two loops to decide when to get out. therefore, i don't think
whatever statement i use, next
or last, can go in the if statement ?
foreach my $item (@filelist) {
foreach my $pat (@datelist2array) {
if ( $item =~ /$pat/ ) {
print $out_file2 "$item \n";
}
}
}
thanks a lot. i'm very sorry to bother everyone.
------------------------------
Date: 16 Oct 2006 13:07:24 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: use of next versus last in a nested loop algorithm
Message-Id: <1161029244.223080.247050@h48g2000cwc.googlegroups.com>
markpark wrote:
> if there is a match, i want to get
> out of the foreach my $pat loop and go to the next $item in the
> foreach my $item loop on the outside. i've read about next and last in
> various books and still i can't tell what to use because
> my case is a little different than the examples in the books because i
> am comparing values in
> the two loops to decide when to get out. therefore, i don't think
> whatever statement i use, next
> or last, can go in the if statement ?
>
>
> foreach my $item (@filelist) {
> foreach my $pat (@datelist2array) {
> if ( $item =~ /$pat/ ) {
> print $out_file2 "$item \n";
> }
> }
> }
>
if() {} is not a looping construct, and therefore next and last have no
effect on it. If you put a next; inside the if statement, that will
start the next iteration of the inner for loop. If you put a last;
inside the if statement, that will end the inner for loop.
If you're really paranoid about what loop a next/last applies to, label
your blocks explicitly:
ITEM: foreach my $item(@filelist) {
PAT: foreach my $pat (@datelist2array) {
if ($item =~ /$pat/) {
print $out_file2 "$item \n";
next ITEM;
#or, equivalently in this case
# last PAT;
}
}
}
Paul Lalli
------------------------------
Date: 16 Oct 2006 13:12:19 -0700
From: "DJ Stunks" <DJStunks@gmail.com>
Subject: Re: use of next versus last in a nested loop algorithm
Message-Id: <1161029539.727053.265770@h48g2000cwc.googlegroups.com>
Paul Lalli wrote:
> markpark wrote:
> > if there is a match, i want to get
> > out of the foreach my $pat loop and go to the next $item in the
> > foreach my $item loop on the outside. i've read about next and last in
> > various books and still i can't tell what to use because
> > my case is a little different than the examples in the books because i
> > am comparing values in
> > the two loops to decide when to get out. therefore, i don't think
> > whatever statement i use, next
> > or last, can go in the if statement ?
> >
> >
> > foreach my $item (@filelist) {
> > foreach my $pat (@datelist2array) {
> > if ( $item =~ /$pat/ ) {
> > print $out_file2 "$item \n";
> > }
> > }
> > }
> >
>
> if() {} is not a looping construct, and therefore next and last have no
> effect on it. If you put a next; inside the if statement, that will
> start the next iteration of the inner for loop. If you put a last;
> inside the if statement, that will end the inner for loop.
>
> If you're really paranoid about what loop a next/last applies to, label
> your blocks explicitly:
>
> ITEM: foreach my $item(@filelist) {
> PAT: foreach my $pat (@datelist2array) {
> if ($item =~ /$pat/) {
> print $out_file2 "$item \n";
> next ITEM;
> #or, equivalently in this case
> # last PAT;
> }
> }
> }
it's not just for the paranoid, Paul. it's a Best Practice. :-D
-jp
PS: loop labels on the preceding line :-P
PPS: you will be assimilated.
------------------------------
Date: Mon, 16 Oct 2006 21:26:04 GMT
From: "Mumia W. (reading news)" <paduille.4059.mumia.w@earthlink.net>
Subject: Re: use of next versus last in a nested loop algorithm
Message-Id: <MNSYg.7860$Lv3.5327@newsread1.news.pas.earthlink.net>
On 10/16/2006 03:00 PM, markpark wrote:
> this is my last question of the day, i promise.
>
> the code below is doing something very straightforward : i may have a
> datelist array say ( 200601, 200603, 200602) and a filelist array say
> ( eurusd.20060123.txt, eurusd.20060523.txt, eurusd.20060622.txt ). all
> i want to do is write the .txt string to a file whenever there is a
> match between it and any of the items in the datelist array. i think
> below will work but i haven't tested it yet.
Please test your programs before asking others to test them.
> [B]ut, my question is not
> really about the code below exactly. filelist can have tons of items in
> it, so if there is a match, i want to get
> out of the foreach my $pat loop and go to the next $item in the
> foreach my $item loop on the outside. i've read about next and last in
> various books and still i can't tell what to use because
> my case is a little different than the examples in the books because i
> am comparing values in
> the two loops to decide when to get out. therefore, i don't think
> whatever statement i use, next
> or last, can go in the if statement ?
>
>
> foreach my $item (@filelist) {
> foreach my $pat (@datelist2array) {
> if ( $item =~ /$pat/ ) {
> print $out_file2 "$item \n";
> }
> }
> }
>
> thanks a lot. i'm very sorry to bother everyone.
>
The example in "perldoc perlsyn" shows you how to do this. Search in
that document for "OUTER:" to go to the right place instantly.
--
Mumia W.
paduille.4059.mumia.w@earthlink.net
This is a temporary e-mail to help me catch some s-p*á/m.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 9855
***************************************
