[21856] in Perl-Users-Digest
Perl-Users Digest, Issue: 4060 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Nov 3 00:06:29 2002
Date: Sat, 2 Nov 2002 21:05:07 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 2 Nov 2002 Volume: 10 Number: 4060
Today's topics:
Re: [Q]How to print contents of nested HASH in Perl? <bwalton@rochester.rr.com>
Re: Controlling RegEx Greediness <wksmith@optonline.net>
Re: Error in running Perl Program <jwillmore@cyberia.com>
Re: Permission Error? <nobody@noplace.com>
Re: Permission Error? <nobody@dev.null>
Re: Pulling MAC address on win32 <jwillmore@cyberia.com>
Re: scripture regex (HealYourChurchWebsite)
Re: scripture regex (HealYourChurchWebsite)
Re: sub procedure question <jwillmore@cyberia.com>
Re: Textbooks on Perl/Python <magnus@thinkware.se>
trouble sorting <gbhDELETE@fpcc.net>
Re: trouble sorting <krahnj@acm.org>
Re: trouble sorting <jurgenex@hotmail.com>
Re: utf-8 in Matt's Form Mail (Malcolm Dew-Jones)
Re: utf-8 in Matt's Form Mail <flavell@mail.cern.ch>
Re: utf-8 in Matt's Form Mail <webmasterone@kidwatch-uk.net>
Re: weird problem with MCPAN <bart.lateur@pandora.be>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 02 Nov 2002 23:40:52 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: [Q]How to print contents of nested HASH in Perl?
Message-Id: <3DC4627A.7060209@rochester.rr.com>
Stoone wrote:
...
> I am trying to print the nested hash tables under Perl.
> For example, when there are hash tables like this,
>
> $hash{key1}=valule1;
> $hash{key2}{keya}=value2;
> $hash{key2}{keyb}=value3;
> $hash{key2}{keyc}=value4;
> $hash{key2}{keyd}{A}=value5;
> ......
> .....
>
> Someone please tell me how to print the key/value in the hash tables such as
> above?
You should start with:
use Data::Dumper;
and do:
print Dumper(\%hash);
in order to see exactly what it is you have. That also, I suppose,
meets the strict definition of "print the nested hash tables under
Perl", but I suppose that's not really what you want. To do what you
want, you will need to be able to detect what sort of value is stored as
the value of each key, and then take appropriate action based on whether
it is a string or a reference. The ref function will handle that,
returning false if the value is not a reference, and "HASH" if the value
is a reference to a hash (unless the reference has been blessed, in
which case it will return the package name into which it was blessed --
in that case, use UNIVERSAL::isa($br,'HASH') to determine if the blessed
reference $br is to a hash or not). From that info, you should be able
to figure out how to do what you want to do.
--
Bob Walton
------------------------------
Date: Sat, 02 Nov 2002 21:30:43 GMT
From: "Bill Smith" <wksmith@optonline.net>
Subject: Re: Controlling RegEx Greediness
Message-Id: <7uXw9.29978$S44.17732@news4.srv.hcvlny.cv.net>
"TBN" <ihave@noemail.com> wrote in message
news:QyCw9.24$Kjs.2949298@news2.randori.com...
> I know this has been done before, but I couldn't find an example.
>
> If I have a string such as...
>
> my $s = 'one="this" two="<b>that</b>" and three="something else"';
>
> How can I write a RegEx that will return only the value of the name-value
> that interests me?
>
> In other words, I need to return what is within quotes for two= or three=,
> but if I use something like...
>
> /two=\".*\"/
>
> I'll get a lot more than I bargained for.
>
>
You can return the required value in list context without concern for
greediness.
use strict;
use warnings;
my $s = 'one="this" two="<b>that</b>" and three="something else"';
my $name = 'two';
my ($value) = $s=~/$name="([^"]+)"/;
print "$value\n";
Bill
------------------------------
Date: Sat, 02 Nov 2002 20:19:16 GMT
From: James Willmore <jwillmore@cyberia.com>
Subject: Re: Error in running Perl Program
Message-Id: <20021102145307.681993a2.jwillmore@cyberia.com>
The first thing that's obvious is you have a module install in a
cgi-bin directory. That's a bad thing if this is also where your Perl
interpreter is. Go to the W3C web site (http://www.w3c.org/) and read
the security FAQ there on why this is bad. I can give it to you in a
nutshell (it's because ANYONE can then run a Perl CGI script from that
location with elevated privliges), but the FAQ also covers some other
things to remember while running a Perl CGI script (ie why it's bad to
turn warnings off aka remove the -w from the first line of the
script).
A possible cause is the module Mail::Sender was upgraded and some of
the methods changed. Check the Mail::Sender documentation to verify
this.
Yet another reason may be the data the script passes to Mail::Sender.
For example, you receive an email address and then pass it as an
argument to Mail::Sender. Maybe this email address is data received
from the user and you are not validating it before doing something
with it. This is another reason to read the security FAQ at W3C.
Trust NOTHING sent to the script. Validate ALL user provided data
(this can/does apply to Perl scripts running at the command line as
well as CGI scripts). Not all users are created equal. Not all users
are honest people. Not all users have common sense. So to prevent
bad things from happening, validate all user supplied data.
Of course, these items I mentioned may not apply to what's going on
with your script. You may want to - after checking the above items -
post part of your script here. It would be more helpful than the
warnings (not errors) produced by your script.
HTH
Jim
> I had a perl program for sending automatic e mails. THe program
> employed Sender module. It was running fine for months until one day
> it started showing me the following error
> Use of uninitialized value in substitution (s///) at
> /home/axon/vishvah/public_h
> tml/cgi-bin/Mail/Sender.pm line 89.
> Use of uninitialized value in pattern match (m//) at
> /home/axon/vishvah/public_h
> tml/cgi-bin/Mail/Sender.pm line 1469.
> Use of uninitialized value in substitution (s///) at
> /home/axon/vishvah/public_h
> tml/cgi-bin/Mail/Sender.pm line 89.
> THere were no changes that i made to the code.
> THese warnings go away when i get rid of w from
> #!/usr/local/bin/perl-wT, but it still doesn not send the mail.
> WHat can be the reason???
>
> Vishva
------------------------------
Date: Sat, 02 Nov 2002 23:52:17 GMT
From: "Gregory Toomey" <nobody@noplace.com>
Subject: Re: Permission Error?
Message-Id: <01c282cc$41f66040$f5498a90@gmtoomey>
Some web servers run acripts as user 'nobody'.
Print out the value of varibles for debugging purposes to see if they are
whay you expect.
gtoomey
------------------------------
Date: Sun, 03 Nov 2002 02:21:22 GMT
From: Andras Malatinszky <nobody@dev.null>
Subject: Re: Permission Error?
Message-Id: <3DC48818.3040204@dev.null>
Newman wrote:
> I'm using a semi-free web server (Tripod by Lycos) and trying to run a free
> CGI/Perl script. The script (cgiComments) allows users to comment on a
> weblog. I am receiving the following error when trying to execute the
> script:
>
> Insecure dependency in open while running with -T switch at cgicomments.cgi
> line 84.
Looks like the writer of your script -- very wisely -- has turned taint
checking on. Read the perlsec manpage to find out more about taint
checking, but the gist of it is this: when you have the -T switch on,
"You may not use data derived from outside your program to affect
something else outside your program--at least, not by accident. All
[...] file input [is] marked as "tainted". Tainted data may not
be used directly or indirectly in any command that [...] modifies
files..."
>
> The offending line (84):
>
> open (COMMENTS, ">>$comment_directory$blog_id") or die ("Can't write to file
> $blog_id");
>
> The offending variable, I beleive, is:
>
> my($comment_directory) = '/';
>
> I suspect that the script is unable to open a file in the comment directory,
> perhaps because I have not properly set the value of "comment_directory"?
Had your script tried and been unable to open a file in the comment
directory, it would have died saying:
Can't write to file <whatever you set $blog_id to>.
> The FAQ documentation for my web hosting service has this to say:
>
> " What is the root directory for my scripts? -- The root directory for your
> scripts is your cgi-bin itself; if you need to fill in the root directory,
> it is simply "/". "
>
> So that's what I set "comment_directory" to.
Great, so you have just given your visitor, Evil Hacker, a way to
install a script in your cgi-bin. Good thing taint checking was on and
Perl didn't let you do that.
Please don't just turn -T off. Read perlsec and find out how you can
untaint your data and keep your program secure.
------------------------------
Date: Sat, 02 Nov 2002 20:19:31 GMT
From: James Willmore <jwillmore@cyberia.com>
Subject: Re: Pulling MAC address on win32
Message-Id: <20021102145802.73d56c50.jwillmore@cyberia.com>
Visit http://search.cpan.org/
I don't remember seeing one that does what you ask, but a search may
yield other results.
HTH
Jim
> Does anybody know a clean way to get a list of the MAC Addresses on
> a win32 machine (2000 or XP) cleanly? I wrote a routine that
> backticks `ipconfig/all` and then uses regexes to parse out the
> MACs, but I'd rather do it w/o spawning an external process. Any
> ideas?
>
> Thanks
>
> Andrew Hutchinson
> Vanderbilt University Medical Center
>
>
------------------------------
Date: 2 Nov 2002 13:19:29 -0800
From: healthychurchwebsite@yahoo.com (HealYourChurchWebsite)
Subject: Re: scripture regex
Message-Id: <7750146a.0211021319.8f6413@posting.google.com>
> It looks like you're allowing
>
> I John 1:2-4 II, 1:6-8
>
> which is kinda weird-looking.
Wierd and innaccurate.
What I'm up against are instances like:
I John 1:2-4, 7&8, 9-11
then, potentially repeat, rince and lather, e.g.
I John 1:2-4, 7&8, II Peter 3:12
Its the multiple references within the same chapter (e.g. 1:2-4, 7&8,
9-11) that are giving me grief.
------------------------------
Date: 2 Nov 2002 14:21:15 -0800
From: healthychurchwebsite@yahoo.com (HealYourChurchWebsite)
Subject: Re: scripture regex
Message-Id: <7750146a.0211021421.52c99489@posting.google.com>
First, THANKS ... very close:
> my $verses = qr{ \d+ : \d+ (?: [-&] \d+) }x;
>
> m{
> ( (?: $volumes (?: \s+ $volumes )* )? ) # any number of vols.
> \s+
> ( $books ) # the book
> \s+
> ( $verses (?: \s* , \s* $verses)* ) # all requested verses
> }x
I decided, since this stuff is almost written in stone, to just extend
the $volumes to include all the Roman numerals I through III:
my $volumes = "I|II|III|1st|2nd|3rd|First|Second|Third|1|2|3";
This simplifies part or the search:
($volumes){0,1} # none or one vols.
Now the trick is substitution instead of mere matching. Quite
honestly, m{...}x is just one of those non-Orthogonal syntaxes I
haven't run into ... until today. I assume the m{ stands for match ..
I'll have to run upstairs and nab 'the regex book' for a refresher.
Some of what I'm after is the parsing of sermons (in the data below,
under $Text, that is only 2 paragraphs, each are a single line. The
trick will be to make multiple matches & subs.
My previous program almost did that, but got stuck on the additional
'verse' numbers.
BTW, love the Monty Python sig ... one of my favorite skits!
__DATA__
$Date: October 20, 2002
$Type: Sermon
$Scripture: James 2:1-13, 14 & 15
$Version: NIV
$Title: How Faith Works: "Determining the Worth of a Person"
$Text:
Well, that gives us somewhat of an idea of how uncomfortable
situations like this might have been in the years of the early church
as these first Christians began to mature spiritually to the point
that they could understand that all people ARE equal in God's sight.
Perhaps this situation is what Paul was thinking of when he wrote in
Galatians 3 and said, "There is neither Jew nor Greek, SLAVE NOR
FREE, male nor female, for you are all ONE in Christ Jesus."
(Galatians 3:28)
So James is saying to his peers in the early church that favoring the
rich is not thinking like God thinks. In essence he says it makes no
"heavenly sense." But he also says, "Hey guys-it doesn't make any
earthly sense either. Remember? These rich people are the ones who are
persecuting you." And they were-it was the rich Sadducees who arrested
Peter and John in Acts 4. Acts 13:50 says it was the wealthy "leading
men" of the city of Antioch who persecuted Paul and Barnabas. Acts 16
says the wealthy owners of a demon-possessed girl dragged Paul into
court and Acts 19 tells of the wealthy silversmiths in Ephesus who
very nearly led a mob to kill him. James also says that it was the
rich of that day who slandered the name of Jesus.
------------------------------
Date: Sat, 02 Nov 2002 20:18:59 GMT
From: James Willmore <jwillmore@cyberia.com>
Subject: Re: sub procedure question
Message-Id: <20021102151739.3b5051d8.jwillmore@cyberia.com>
> i am new to perl
Welcome. A good place to start is reading the documentation that
comes with your Perl install. MOST, if not ALL your questions can be
answered there.
<snip>
> I have a sub-procedure to parse the file, read line-wise,
> split it to an array and to remove the quotes if there are some. The
> procedure takes two arguments (1. - for the line, 2. - for the
> column. My problem is that the procedure works once, but when using
> it a second time, i get no data back(the size of the array seems
> okay, but it is empty). I think the reinitialization of the array
> fails, but i don't know why.
> Here is the procedure, i know it is a little dirty and could be made
> better with regular expressions, but i am really new to perl / re.
One way to acomplish what you are try to do is have TWO subroutines.
So, for example, if you have a subroutine to produce a printed message
- that message is the result of adding two numbers together, you may
want to code ....
#!/usr/bin/perl -w
use strict;
print_it(2,2);
exit;
sub print_it{
my($a,$b) = (@_) or die "No arguments passed to print_it\n";
print "$a + $b = ", add_numbers($a,$b), ".\n";
}
sub add_numbers{
my($a,$b) = (@_) or die "No numbers for add_numbers to add\n";
my $c = $a + $b;
return $c;
}
This, of course, is something that is unnessasary, but relates to what
you asked. In a nutshell, you can not declare a subroutine within a
subroutine in Perl in the way you originally posted. More
importantly, why would you want to? It's more effective to have
separate subroutines that can be used latter on in other code (ie a
module/package).
------------------------------
Date: Sat, 02 Nov 2002 05:03:50 +0100
From: =?ISO-8859-1?Q?Magnus_Lyck=E5?= <magnus@thinkware.se>
Subject: Re: Textbooks on Perl/Python
Message-Id: <m2Iw9.931$%2.77@news1.bredband.com>
Jalab wrote:
> Greetings all,
> Any help in finding a university level textbook on the subject of
> "Scripting languages" I am mainly looking for a book that covers Perl
> and Python only as the 2 main scripting languages and that is written
> for students, i.e. chapter summary, exercises, etc. I hate to force my
> student to buy and study from two separate books.
Honestly, I don't know if there is such a thing. Most
books about Python are listed at:
http://www.python.org/cgi-bin/moinmoin/PythonBooks
Both Perl and Python book as usually practical guides
or reference books for practicioners, rather than
school books. Neither language has typically been on
the curriculum. (Although I think this will change.)
There is Perl to Python Migration by Martin C. Brown,
but that's hardly what you are looking for...
Otherwise I think your best bet might be some Linux
programming book. But that won't be school books exactly...
Python: Visual QuickStart Guide by Chris Fehily is a
fairly cheap Python book, if you are worried about
costs. It's not a typical school book though.
A book commonly used for teaching Python is "Learning
Python", by Lutz / Archer, but it's slightly dated.
How to Think Like a Computer Scientist: Learning with Python
by Allen Downey, Jeffrey Elkner, Chris Meyers teaches
basic programming skills using Python, but that's not
really what you are looking for I guess. It's probably
the only book about Python written with students as the
prime target. It's rather a high school book though. It's
also on the web http://www.greenteapress.com/thinkpython.html
You could also have a look at web sites like
http://diveintopython.org/
I hope you find something suitable...
------------------------------
Date: Sat, 02 Nov 2002 21:17:52 -0700
From: Gary Hodges <gbhDELETE@fpcc.net>
Subject: trouble sorting
Message-Id: <3DC4A370.D3DB2F84@REMOVE.fpcc.net>
ActiveState 5.6.0 build 623 installed on Win2000
I'm having some trouble sorting. Using the following file names as
examples:
file_b.drw.2
file_b.drw.20
file_b.drw.100
file_a.xls.9
file_a.xls.19
file_a.xls.190
I would like to group them (group order not important) based on the
basename.xxx and then reverse sort by the last digit extension giving:
file_a.xls.190
file_a.xls.19
file_a.xls.9
file_b.drw.100
file_b.drw.20
file_b.drw.2
A plain reverse sort < @sorted = reverse(sort @files); > results in
file_b.drw.20
file_b.drw.2
file_b.drw.100
file_a.xls.9
file_a.xls.190
file_a.xls.19
If I get a little fancier with
@sorted = sort {($b =~ /(\d+)$/)[0] <=> ($a=~/(\d+)$/)[0]} @files;
I get:
file_a.xls.190
file_b.drw.100
file_b.drw.20
file_a.xls.19
file_a.xls.9
file_b.drw.2
I think that's enough information.
Gary.
------------------------------
Date: Sun, 03 Nov 2002 04:41:39 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: trouble sorting
Message-Id: <3DC4A8EA.EEE34517@acm.org>
Gary Hodges wrote:
>
> ActiveState 5.6.0 build 623 installed on Win2000
>
> I'm having some trouble sorting. Using the following file names as
> examples:
> file_b.drw.2
> file_b.drw.20
> file_b.drw.100
> file_a.xls.9
> file_a.xls.19
> file_a.xls.190
>
> I would like to group them (group order not important) based on the
> basename.xxx and then reverse sort by the last digit extension giving:
> file_a.xls.190
> file_a.xls.19
> file_a.xls.9
> file_b.drw.100
> file_b.drw.20
> file_b.drw.2
my @sorted =
map { $_->[0] }
sort { $a->[1] cmp $b->[1] or $b->[2] <=> $a->[2] }
map { [ $_, /^(.+)\.(\d+)$/ ] }
qw{
file_b.drw.2
file_b.drw.20
file_b.drw.100
file_a.xls.9
file_a.xls.19
file_a.xls.190
};
John
--
use Perl;
program
fulfillment
------------------------------
Date: Sun, 03 Nov 2002 04:42:57 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: trouble sorting
Message-Id: <lP1x9.7649$7W2.6854@nwrddc01.gnilink.net>
Gary Hodges wrote:
> ActiveState 5.6.0 build 623 installed on Win2000
>
> I'm having some trouble sorting. Using the following file names as
> examples:
> file_b.drw.2
> file_b.drw.20
> file_b.drw.100
> file_a.xls.9
> file_a.xls.19
> file_a.xls.190
>
> I would like to group them (group order not important) based on the
> basename.xxx and then reverse sort by the last digit extension giving:
> file_a.xls.190
> file_a.xls.19
> file_a.xls.9
> file_b.drw.100
> file_b.drw.20
> file_b.drw.2
Do the right thing an use File::Basename to get the basename and the
extension.
Then sorting by basename first (using lexical comparison) and extension as
second criteria (using numerical comparison) in case the first is ta draw
becomes trivial.
See also "perldoc -q sort" for further details.
jue
------------------------------
Date: 2 Nov 2002 13:06:40 -0800
From: yf110@vtn1.victoria.tc.ca (Malcolm Dew-Jones)
Subject: Re: utf-8 in Matt's Form Mail
Message-Id: <3dc43e60@news.victoria.tc.ca>
TrickieDickie (webmasterone@kidwatch-uk.net) wrote:
: Greetings,
: Can anyone please advise me how to modify
: Matts FormMail script so that the text inputted in the form
: is the text delivered to the mail client. I regret I know
: nothing about Perl at all and my research does not seem
: to give me a usable answer.
First, I would replace the Matts FormMail script because his is a security
risk.
Matt made lots of neat scripts, with good ideas, but they are terribly
insecure.
Goto http://nms-cgi.sourceforge.net/ for some replacements. There is
definitely a replacement for the formmail script.
As for whether it handles arabic, fraid I can't help you there, but the
project maintainers can probably help, once you find them.
------------------------------
Date: Sat, 2 Nov 2002 23:04:14 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: utf-8 in Matt's Form Mail
Message-Id: <Pine.LNX.4.40.0211022247210.10340-100000@lxplus076.cern.ch>
On Nov 2, Malcolm Dew-Jones inscribed on the eternal scroll:
> Matt made lots of neat scripts, with good ideas, but they are terribly
> insecure.
>
> Goto http://nms-cgi.sourceforge.net/ for some replacements. There is
> definitely a replacement for the formmail script.
Good advice indeed.
But the original poster is already active - separately - on
c.i.w.a.html and alt.html, having apparently started the topic in
microsoft.public.webdesign.html , none of which he's chosen to reveal
to the hon Usenauts here - indicating difficulties with handling i18n
forms input.
Now it appears that he feels ready to tackle not only the i18n input
to a script, but also packaging it up into appropriate email formats
(as well as storing it into databases, as a separate thread
indicates).
With the greatest of respect to his ambitions, I feel that's somewhat
premature after only a couple of days study. But I could be wrong!
all the best
------------------------------
Date: Sat, 2 Nov 2002 22:23:37 -0000
From: "TrickieDickie" <webmasterone@kidwatch-uk.net>
Subject: Re: utf-8 in Matt's Form Mail
Message-Id: <QFYw9.7290$VM5.327330@newsfep2-win.server.ntli.net>
"Malcolm Dew-Jones" <yf110@vtn1.victoria.tc.ca> wrote in message
news:3dc43e60@news.victoria.tc.ca...
> TrickieDickie (webmasterone@kidwatch-uk.net) wrote:
<<SNIP>>
> First, I would replace the Matts FormMail script because his is a security
> risk.
Thanks for timely info - thats how much I know about
Perl. Have now switched to NMS version and hope to
get an answer from their people on the entire utf-8 charset
ans it applies to cgi generated forms.
--
Regards
Dick Rosser
webmasterone@kidwatch-uk.net
http://www.kidwatch-uk.net
------------------------------
Date: Sat, 02 Nov 2002 19:05:30 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: weird problem with MCPAN
Message-Id: <a688sukoqrin5hhu7h0jpb2fecfem9frq3@4ax.com>
Randy wrote:
>Where I work we run an old version of perl
>Perl 5.005_02 on Sun Solaris version 7
>
>I am trying to use the MCPAN shell ( perl -MCPAN -e shell; )
That's not MCPAN, that's CPAN. "M" is the command line option to use a
module. -MCPAN is equivalent to
use CPAN;
in the code.
>to install some perl modules. When I try go to install a module, it
>tells me that there's a new CPAN module, and suggests that I install
>it. I go ahead and do this, and I guess it doesn't tell me till later
>that it requires perl 5.8, and it procedes to install it:
Oh yeah. That's a problem with older CPAN modules, they try to force you
to upgrade to a new Perl. However, you don't need it, not even for the
newer version of CPAN. You may be glad to know that in later versions,
that is fixed.
How do you get around it? I forgot. I think that when it happened to me,
I interrupted the install, and CPAN itself was still upgraded. You can
try the manual install of CPAN, using make etc. I'm not sure it will
resolve dependencies -- but it should not install Perl.
Once you've got a newer version of CPAN, your problems will be over.
Good luck.
--
Bart.
------------------------------
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.
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 4060
***************************************
