[25652] in Perl-Users-Digest
Perl-Users Digest, Issue: 7894 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 18 00:05:27 2005
Date: Thu, 17 Mar 2005 21:05:08 -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 Thu, 17 Mar 2005 Volume: 10 Number: 7894
Today's topics:
Anyone understands eval? <shanker.neelakantan@gmail.com>
Re: Anyone understands eval? <No_4@dsl.pipex.com>
Re: Anyone understands eval? <Im.so.HuckinFappy@spamgourmet.com>
Re: Anyone understands eval? <spamtrap@dot-app.org>
Re: Anyone understands eval? <shanker.neelakantan@gmail.com>
Re: Anyone understands eval? <matternc@comcast.net>
Re: How to use Perl Graph module to solve travel salesp m.fangtao@genesis.co.nz
Re: How to use Perl Graph module to solve travel salesp <postmaster@castleamber.com>
Re: How to use Perl Graph module to solve travel salesp m.fangtao@genesis.co.nz
Re: How to use Perl Graph module to solve travel salesp <postmaster@castleamber.com>
HTTP::Cookie won't store sent cookie <richard.lawrence@gmail.com>
Re: HTTP::Cookie won't store sent cookie <noreply@gunnar.cc>
Re: Is this considered ugly? <No_4@dsl.pipex.com>
Re: Log files in a Date / Time Stamped Directory <tadmc@augustmail.com>
Re: Log files in a Date / Time Stamped Directory <manzoorul.hassan@gmail.com>
Non-blocking socket connect examples on win32 not worki <notarealaddress@nowhere.com>
Re: Non-blocking socket connect examples on win32 not w <troc@pobox.com>
Re: Perl equiv to PHP print_r <nospam.aweraw@gmail.com>
Re: Switch.pm affecting < > operator <sdsommer@comcast.net>
Re: Weird HTTP heders in Html Body <tadmc@augustmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 17 Mar 2005 18:10:56 -0800
From: "shanx" <shanker.neelakantan@gmail.com>
Subject: Anyone understands eval?
Message-Id: <1111111856.620917.294900@l41g2000cwc.googlegroups.com>
eval seems to be way too complicated for simple minded souls. I really
can't figure out what eval does behind the scenes even for some simple
things.
Here are a few samples:
1.
$a = "my $b = 10; print 'hi $b';";
eval $a;
Nothing happens. But if you change $a to
$a = 'my $b = 10; print "hi $b";'
.. it works! You see the hi message now. Why is the quoting altering
eval's behavior? It's almost as if double quotes makes eval think that
the expression has already been evaluated.
2.
Excerpt from perldoc -f eval
"eval EXPR
EXPR is parsed and executed as if it were a little Perl program. It
is executed in the context of the current Perl program, so that any
variable settings or subroutine and format definitions remain
afterwards.
The value returned is the value of the last expression evaluated, or a
return statement may be used, just as with subroutines. The last
expression is evaluated in scalar or array context, depending on the
context of the eval."
Variable settings or subroutine definitions are supposed to remain
afterwards, but they remain only *sometimes*. Here is an example:
@tests = (
{
'cmd' => '$greeting = "hello";'
},
{
'cmd' => 'print "$greeting\n";'
}
);
foreach $i (@tests) {
eval $i->{cmd};
}
You would imagine that $greeting remains set for the second invocation,
but it doesn't.
-Shanker
------------------------------
Date: Fri, 18 Mar 2005 02:29:13 +0000
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: Anyone understands eval?
Message-Id: <kq-dnbVK9LtloaffRVnytg@pipex.net>
shanx wrote:
>
> $a = "my $b = 10; print 'hi $b';";
So - assuming you hadn't set $b (and you should never use $a or $b as
variable - read perldoc on teh sort function to see why) the R/h side has
the value of $b interpolated as empty, to leave $a set to:
my = 10; print 'hi ';
This is illegal Perl, so when you eval it an error is generated. Errors
during eval get put into the $@ variable. Had you printed $@ after that
eval you would have seen the error message.
>....
> You would imagine that $greeting remains set for the second invocation,
> but it doesn't.
It does for me. If I run your code (perl5.6.1 or perl5.8.5) I get
"hello" printed out.
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: Thu, 17 Mar 2005 19:31:23 -0700
From: Jeff <Im.so.HuckinFappy@spamgourmet.com>
Subject: Re: Anyone understands eval?
Message-Id: <d1deht$3o13@xco-news.xilinx.com>
shanx wrote:
> eval seems to be way too complicated for simple minded souls. I really
> can't figure out what eval does behind the scenes even for some simple
> things.
>
> Here are a few samples:
>
> 1.
>
> $a = "my $b = 10; print 'hi $b';";
> eval $a;
>
> Nothing happens. But if you change $a to
>
> $a = 'my $b = 10; print "hi $b";'
>
> .. it works! You see the hi message now. Why is the quoting altering
> eval's behavior? It's almost as if double quotes makes eval think that
> the expression has already been evaluated.
Because the double quotes force interpolation.
stampes@flux[82] ~ > perl -Mstrict -Mwarnings -de 1
Loading DB routines from perl5db.pl version 1.27
Editor support available.
Enter h or `h h' for help, or `man perldebug' for more help.
main::(-e:1): 1
DB<1> $a = "my $b = 10; print 'hi $b';"
DB<2> x $a
0 'my = 10; print \'hi \';'
So when you eval $a, you don't get what you expect.
> Variable settings or subroutine definitions are supposed to remain
> afterwards, but they remain only *sometimes*. Here is an example:
>
> @tests = (
> {
> 'cmd' => '$greeting = "hello";'
> },
> {
> 'cmd' => 'print "$greeting\n";'
> }
> );
>
> foreach $i (@tests) {
> eval $i->{cmd};
> }
>
> You would imagine that $greeting remains set for the second invocation,
> but it doesn't.
I'm not sure what you mean. When I run this code, it outputs "hello",
as I would expect.
~Jeff
------------------------------
Date: Thu, 17 Mar 2005 21:49:28 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Anyone understands eval?
Message-Id: <M4idnfpTceUk3KffRVn-ig@adelphia.com>
shanx wrote:
> 1.
>
> $a = "my $b = 10; print 'hi $b';";
> eval $a;
>
> Nothing happens. But if you change $a to
>
> $a = 'my $b = 10; print "hi $b";'
>
> .. it works! You see the hi message now. Why is the quoting altering
> eval's behavior?
It's not. It's changing what gets stored in $a. Try it with print() instead
of eval(), and it's obvious immediately what's going wrong:
Sherm-Pendleys-Computer:~ sherm$ cat testeval.pl
#!/usr/bin/perl
$a = "my $b = 10; print 'hi $b';";
print "$a\n";
Sherm-Pendleys-Computer:~ sherm$ perl testeval.pl
my = 10; print 'hi ';
Naturally, that "my = 10" isn't valid Perl, so it chokes when you eval it.
If you had checked for errors, Perl would have told you about it:
Sherm-Pendleys-Computer:~ sherm$ cat testeval.pl
#!/usr/bin/perl
$a = "my $b = 10; print 'hi $b';";
eval $a;
$@ && print "Eval error: $@";
Sherm-Pendleys-Computer:~ sherm$ perl testeval.pl
Eval error: syntax error at (eval 1) line 1, near "my ="
> @tests = (
> {
> 'cmd' => '$greeting = "hello";'
> },
> {
> 'cmd' => 'print "$greeting\n";'
> }
> );
>
> foreach $i (@tests) {
> eval $i->{cmd};
> }
>
> You would imagine that $greeting remains set for the second invocation,
> but it doesn't.
It does for me:
Sherm-Pendleys-Computer:~ sherm$ cat testeval.pl
#!/usr/bin/perl
@tests = (
{ 'cmd' => '$greeting = "hello";' },
{ 'cmd' => 'print "$greeting\n";' }
);
foreach $i (@tests) {
eval $i->{cmd};
}
Sherm-Pendleys-Computer:~ sherm$ perl testeval.pl
hello
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: 17 Mar 2005 18:50:28 -0800
From: "shanx" <shanker.neelakantan@gmail.com>
Subject: Re: Anyone understands eval?
Message-Id: <1111114228.363027.286340@g14g2000cwa.googlegroups.com>
Thanks! You're right. The second one didn't work for me because I had
a really old version of perl (5.004 ) in my path. It works after I
switched to 5.6.
-Shanker
------------------------------
Date: Thu, 17 Mar 2005 23:11:53 -0500
From: Chris Mattern <matternc@comcast.net>
Subject: Re: Anyone understands eval?
Message-Id: <_sydnTYSe-OXyKffRVn-ow@comcast.com>
shanx wrote:
> eval seems to be way too complicated for simple minded souls. I really
> can't figure out what eval does behind the scenes even for some simple
> things.
>
> Here are a few samples:
>
> 1.
>
> $a = "my $b = 10; print 'hi $b';";
> eval $a;
>
> Nothing happens.
That's because double quotes interpolate. $b gets replaced with whatever
value is in $b before the string is assigned to $a. If $b is not defined,
this will produce illegal Perl code (specifically, $a now contains
"my = 10; print 'hi ';"), and Perl dutifully informs you that
your eval bombed in $@.
> But if you change $a to
>
> $a = 'my $b = 10; print "hi $b";'
>
> .. it works!
That's because single quotes don't interpolate. $b remains $b and your
now legal Perl code evals without error.
> You see the hi message now. Why is the quoting altering
> eval's behavior?
Because the different quotes put different strings in $a.
> It's almost as if double quotes makes eval think that
> the expression has already been evaluated.
>
>
> 2.
>
> Excerpt from perldoc -f eval
>
> "eval EXPR
>
> EXPR is parsed and executed as if it were a little Perl program. It
> is executed in the context of the current Perl program, so that any
> variable settings or subroutine and format definitions remain
> afterwards.
> The value returned is the value of the last expression evaluated, or a
> return statement may be used, just as with subroutines. The last
> expression is evaluated in scalar or array context, depending on the
> context of the eval."
>
> Variable settings or subroutine definitions are supposed to remain
> afterwards, but they remain only *sometimes*. Here is an example:
>
> @tests = (
> {
> 'cmd' => '$greeting = "hello";'
> },
> {
> 'cmd' => 'print "$greeting\n";'
> }
> );
>
> foreach $i (@tests) {
> eval $i->{cmd};
> }
>
> You would imagine that $greeting remains set for the second invocation,
> but it doesn't.
>
Did when I ran it. Copied your code into testit.pl:
syscjm@sakura:~$ perl testit.pl
hello
syscjm@sakura:~$
--
Christopher Mattern
"Which one you figure tracked us?"
"The ugly one, sir."
"...Could you be more specific?"
------------------------------
Date: 17 Mar 2005 16:52:55 -0800
From: m.fangtao@genesis.co.nz
Subject: Re: How to use Perl Graph module to solve travel salesperson problem (TSP)?
Message-Id: <1111107175.317577.120060@f14g2000cwb.googlegroups.com>
John Bokma wrote:
> wrote:
>
> > Thanks John. the number of nodes is <10.
>
> Ah, ok,
>
> so that means creating 9! = 362880 paths (at most) and keeping the
shortest
> one.
>
> --
> John Small Perl scripts: http://johnbokma.com/perl/
> Perl programmer available: http://castleamber.com/
> Happy Customers: http://castleamber.com/testimonials.html
Does anybody know the solution?
------------------------------
Date: 18 Mar 2005 02:44:02 GMT
From: John Bokma <postmaster@castleamber.com>
Subject: Re: How to use Perl Graph module to solve travel salesperson problem (TSP)?
Message-Id: <Xns961CD2EADE6F3castleamber@130.133.1.4>
wrote:
>
> John Bokma wrote:
>> wrote:
>>
>> > Thanks John. the number of nodes is <10.
>>
>> Ah, ok,
>>
>> so that means creating 9! = 362880 paths (at most) and keeping the
> shortest
>> one.
>
> Does anybody know the solution?
The solution is creating all possible paths and finding the shortest
--
John Small Perl scripts: http://johnbokma.com/perl/
Perl programmer available: http://castleamber.com/
Happy Customers: http://castleamber.com/testimonials.html
------------------------------
Date: 17 Mar 2005 19:12:23 -0800
From: m.fangtao@genesis.co.nz
Subject: Re: How to use Perl Graph module to solve travel salesperson problem (TSP)?
Message-Id: <1111115543.832843.88150@o13g2000cwo.googlegroups.com>
But how to do it by Perl Graph module?
------------------------------
Date: 18 Mar 2005 04:19:35 GMT
From: John Bokma <postmaster@castleamber.com>
Subject: Re: How to use Perl Graph module to solve travel salesperson problem (TSP)?
Message-Id: <Xns961CE31C2CA17castleamber@130.133.1.4>
wrote:
> But how to do it by Perl Graph module?
Homework?
--
John Small Perl scripts: http://johnbokma.com/perl/
Perl programmer available: http://castleamber.com/
Happy Customers: http://castleamber.com/testimonials.html
------------------------------
Date: 17 Mar 2005 15:28:31 -0800
From: "Richard Lawrence" <richard.lawrence@gmail.com>
Subject: HTTP::Cookie won't store sent cookie
Message-Id: <1111102111.779345.204670@f14g2000cwb.googlegroups.com>
Hi all,
My script requests http://foo.bar.com/ with code that looks a little
like this:
my $ua = LWP::UserAgent->new;
my $cookie_jar = HTTP::Cookies->new(file => $cookie_path);
$cookie_jar->load($cookie_path);
$ua->cookie_jar($cookie_jar);
my $req = HTTP::Request->new(GET => "http://foo.bar.com/");
$cookie_jar->add_cookie_header($req);
# Make request
my $res = $ua->request($req);
# HTML back
if ($res->is_success)
{
$cookie_jar->extract_cookies($res);
$cookie_jar->save();
}
This works great, however the site sends back this:
Set-Cookie: name=fred; domain=.bar.com; path=/
which for some reason doesn't get saved in the cookie jar.
I'm not sure if this is because the set-cookie header is badly formed
or non-standard but since Firefox and IE are both happy with it I
really need to make my code happy with it.
Have I done something wrong or is there a way to get this to work?
Many thanks in advance,
Richard
------------------------------
Date: Fri, 18 Mar 2005 00:39:06 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: HTTP::Cookie won't store sent cookie
Message-Id: <39uj1pF65tiqhU1@individual.net>
Richard Lawrence wrote:
> My script requests http://foo.bar.com/ with code that looks a little
> like this:
<code snipped>
> This works great, however the site sends back this:
>
> Set-Cookie: name=fred; domain=.bar.com; path=/
>
> which for some reason doesn't get saved in the cookie jar.
Have you possibly finished the printing of CGI headers prematurely? If
you don't understand what I mean by that, please post a *short* but
*complete* script that illustrates the issue.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Fri, 18 Mar 2005 02:11:21 +0000
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: Is this considered ugly?
Message-Id: <h6CdnW00f9xVpaffRVnyhw@pipex.net>
Kristo wrote:
>
> My question to
> everyone is this: which approach is more "Perlish"?
Probably neither. On the assumption that other chars may end up there
which neeed to be handled the Perlish way to do things may be to use the
module which knows about them.
use HTML::Entities
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: Thu, 17 Mar 2005 17:20:09 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Log files in a Date / Time Stamped Directory
Message-Id: <slrnd3k459.474.tadmc@magna.augustmail.com>
Manzoorul Hassan <manzoorul.hassan@gmail.com> wrote:
> opendir(DATE_DIR, "$date") || die "Cannot open directory";
^ ^
^ ^
^ ^ perldoc -q vars
I thought you said you want to *create* a directory?
opendir, strangly enough, _opens_ a directory after it has been created.
perldoc -f mkdir
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 17 Mar 2005 15:29:19 -0800
From: "Manzoorul Hassan" <manzoorul.hassan@gmail.com>
Subject: Re: Log files in a Date / Time Stamped Directory
Message-Id: <1111102159.498695.322190@z14g2000cwz.googlegroups.com>
well, I was thining this would be similar to Files - if it doesn't
exist, create it.
But I guess Directories don't work the same way :o(
- manzoor
------------------------------
Date: Fri, 18 Mar 2005 00:36:40 GMT
From: Ed W <notarealaddress@nowhere.com>
Subject: Non-blocking socket connect examples on win32 not working
Message-Id: <sop_d.5488845$f47.995181@news.easynews.com>
OK, yes I know this is practically an FAQ, but I can't get the win32
non-blocking socket examples to work on Perl 5.8 on Win XP.
See below for my example program. Seems to me that this should show a
connect time of near zero seconds. However, it actually takes a time
roughly the same as the ping time to the server, indicating to me that
it's blocking until connected...
Can someone help either pointing out the prob with my code, or at least
validate that it's not just my machine!! I have tested with 5.8.0 and
5.8.6 and see the same issue with both
Thanks
Ed W
>>>>>>>
use strict;
use warnings;
use Time::HiRes qw( gettimeofday tv_interval );
use IO::Socket;
BEGIN {
if ($^O eq 'MSWin32') {
eval '*EINPROGRESS = sub { 10036 };';
eval '*EWOULDBLOCK = sub { 10035 };';
eval '*F_GETFL = sub { 0 };';
eval '*F_SETFL = sub { 0 };';
*IO::Socket::blocking = sub {
my ($self, $blocking) = @_;
my $nonblocking = $blocking ? 0 : 1;
ioctl($self, 0x8004667e, $nonblocking);
};
} else {
require Errno;
import Errno qw(EWOULDBLOCK EINPROGRESS);
}
}
my $remote;
if (! (
$remote = IO::Socket::INET->new(
Proto => "tcp",
Type => SOCK_STREAM) ) )
{
print STDERR "Error creating socket: $@";
}
$remote->blocking(0);
my $paddr;
if (my $iaddr = inet_aton("www.yahoo.com")) {
$paddr = sockaddr_in(80, $iaddr);
} else {
print STDERR "Error resolving remote addr: $@";
}
my $t0 = [gettimeofday];
$remote->connect( $paddr );
print STDOUT "connect time: " . tv_interval ( $t0) . "\r\n";
close ($remote);
------------------------------
Date: Fri, 18 Mar 2005 02:49:44 GMT
From: Rocco Caputo <troc@pobox.com>
Subject: Re: Non-blocking socket connect examples on win32 not working
Message-Id: <slrnd3kgpe.5p3.troc@eyrie.homenet>
On Fri, 18 Mar 2005 00:36:40 GMT, Ed W wrote:
> OK, yes I know this is practically an FAQ, but I can't get the win32
> non-blocking socket examples to work on Perl 5.8 on Win XP.
>
> See below for my example program. Seems to me that this should show a
> connect time of near zero seconds. However, it actually takes a time
> roughly the same as the ping time to the server, indicating to me that
> it's blocking until connected...
Check ActiveState's bug tracker. This issue has come up several times
and been written off as one of Windows' little quirks. You could try
Cygwin perl instead...
--
Rocco Caputo - http://poe.perl.org/
------------------------------
Date: Fri, 18 Mar 2005 00:42:58 GMT
From: "Aidan" <nospam.aweraw@gmail.com>
Subject: Re: Perl equiv to PHP print_r
Message-Id: <newscache$szvidi$gje$1@titan.linknet.com.au>
Thanks for the help guys... that's pretty much exactly what I wanted.
Aidan
"Jeff Boes" <jboes@qtm.net> wrote in message
news:1111095787.5145c5c1fa376c02cc145041eab58eba@teranews...
> Aidan wrote:
>> Hi Perl Peoples,
>>
>> I'm quit new to perl, but have a pretty good knowledge of PHP. I'm
>> playing around with a few packages, and I'm having a bit of trouble
>> figuring out how to deal with hashes. In PHP, if I wanted to view the
>> contents of $hash, all I needed to do would be dump it out by using:
>>
>> <? print_r($hash); ?>
>>
>> And I would get a nice heirachial display of the data contained within
>> $hash. Is there an equivalent function in Perl? I'm sure there is, but
>> after much googling, I still can't find what it is... can anyone here
>> tell me what it is?
>>
>> TIA
>>
>> Aidan
>>
>
> There may be others, but the best I've found is:
>
> use strict;
> use Data::Dumper;
> my %hash = ('key1' => 'aaa',
> 'key2' => { 'sub1' => '2bbb', 'sub2' => '2ccc' },
> );
> print Dumper( \%hash );
>
> which produces:
>
> $VAR1 = {
> 'key2' => {
> 'sub1' => '2bbb',
> 'sub2' => '2ccc'
> },
> 'key1' => 'aaa'
> };
>
>
------------------------------
Date: Thu, 17 Mar 2005 17:54:28 -0800
From: Steven Sommer <sdsommer@comcast.net>
Subject: Re: Switch.pm affecting < > operator
Message-Id: <gick319tfkkpl3vu8jtuitr6pc4ahoba0a@4ax.com>
On Thu, 17 Mar 2005 13:41:14 GMT, "Paul Lalli" <mritty@gmail.com>
wrote:
>Greetings.
>
>I'm noticing some bizzare behavior when use'ing the Switch.pm module.
>It seems to be affecting how the < > operator behaves when the
>filehandle enclosed is stored in a lexical reference. The behavior is
>seen using perl v5.8.0 on solaris, with Switch.pm v2.09. An example:
>
>Has anyone else ever seen this?
>
>Thank you for your time,
>Paul Lalli
>
>
I have also experienced seemingly random problems with Switch.pm,
using ActiveState Perl 5.8.6 on Win32. Sometimes the compiler will
produce an error message stating that it doesn't recognize "case,"
even though the code is valid. I can usually prevent this error
message by randomly inserting comment lines before the Switch
statement and recompiling, until the error finally goes away.
Sometimes I have to experiment to find the right place to put the
comments.
I have tried to create a small test file that reproduces this error,
but because there is an element of randomness in the problem, the
error goes away when I pare away the extraneous code. I suspect that
if I posted the unmodified code that exhibited the problem, it would
work fine when others tried it.
The problem is frustrating, but it occurs rarely enough that I haven't
yet given up on Switch.pm and replaced it with if ... elsif ... else
constructs. I have experienced this problem ever since version 5.8.0
(and I don't think I used Perl very much before that).
------------------------------
Date: Thu, 17 Mar 2005 19:46:51 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Weird HTTP heders in Html Body
Message-Id: <slrnd3kcob.4i5.tadmc@magna.augustmail.com>
c_klar@c-cs.com <c_klar@c-cs.com> wrote:
> O' Please,
O'killfiled.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
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 7894
***************************************
