[29807] in Perl-Users-Digest
Perl-Users Digest, Issue: 1050 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Nov 22 11:09:42 2007
Date: Thu, 22 Nov 2007 08:09: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, 22 Nov 2007 Volume: 11 Number: 1050
Today's topics:
Re: A little help on perl hashes.. <nobull67@gmail.com>
Re: A little help on perl hashes.. <spamtrap@dot-app.org>
Re: A little help on perl hashes.. clearguy02@yahoo.com
Re: A little help on perl hashes.. QoS@domain.invalid
Re: A little help on perl hashes.. clearguy02@yahoo.com
Re: A little help on perl hashes.. clearguy02@yahoo.com
Re: Calling a SQL Server Stored Procedure from within P <spamtrap@dot-app.org>
Re: Calling a SQL Server Stored Procedure from within P <absmienk@hotmail.com>
Re: Calling a SQL Server Stored Procedure from within P <veatchla@yahoo.com>
infinite loop when perl is trying to print warning <iler.ml@gmail.com>
Re: infinite loop when perl is trying to print warning <rkb@i.frys.com>
interesting case of data corruption, and its cause <bugbear@trim_papermule.co.uk_trim>
Re: interesting case of data corruption, and its cause <peter@makholm.net>
Re: interesting case of data corruption, and its cause <bugbear@trim_papermule.co.uk_trim>
Re: interesting case of data corruption, and its cause <smallpond@juno.com>
Re: is there any command for catch in tcl in perl <5502109103600001@t-online.de>
Re: is this expected behavior? perl '' test.pl <nobull67@gmail.com>
Re: Regular expression help <benedictmpwhite@gmail.com>
Re: Script to disconnect Linksys WRT54G wireless router <davewilson69@sbcglobal.net>
Re: Script to disconnect Linksys WRT54G wireless router <spamtrap@dot-app.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 22 Nov 2007 00:35:10 -0800 (PST)
From: Brian McCauley <nobull67@gmail.com>
Subject: Re: A little help on perl hashes..
Message-Id: <eccd357b-555f-4ba6-a4ed-1fc451e6a92c@w28g2000hsf.googlegroups.com>
On Nov 22, 5:33 am, cleargu...@yahoo.com wrote:
> On Nov 21, 12:36 pm, cleargu...@yahoo.com wrote:
> > I am uisng the hases and arrays and not getting the desired output.
>
> > Can some one help me out here?
>
> > Thanks,
> > JC
>
> Can some one take a look at it? :)
No, we can't look at what we can't see.
I'm guessing you used the "attach" mechanism to attach your code and
it got stripped somewhere.
Paste your code inline - but first see the posting guidelines for
things you should do first to avoid wasting the time of people who are
trying to help you.
------------------------------
Date: Thu, 22 Nov 2007 08:04:21 -0500
From: Sherman Pendley <spamtrap@dot-app.org>
Subject: Re: A little help on perl hashes..
Message-Id: <m163zusa7e.fsf@dot-app.org>
clearguy02@yahoo.com writes:
> Can some one take a look at it? :)
After you've posted "it" three times?
Um... no. Learn some manners and maybe I'll help next time.
sherm--
--
WV News, Blogging, and Discussion: http://wv-www.com
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Thu, 22 Nov 2007 06:58:04 -0800 (PST)
From: clearguy02@yahoo.com
Subject: Re: A little help on perl hashes..
Message-Id: <8186189c-6041-4f47-8656-b58b208869ae@s36g2000prg.googlegroups.com>
On Nov 22, 5:04 am, Sherman Pendley <spamt...@dot-app.org> wrote:
> cleargu...@yahoo.com writes:
> > Can some one take a look at it? :)
>
> After you've posted "it" three times?
>
> Um... no. Learn some manners and maybe I'll help next time.
>
> sherm--
>
> --
> WV News, Blogging, and Discussion:http://wv-www.com
> Cocoa programming in Perl:http://camelbones.sourceforge.net
I am storing the whole file into an array, @array. Then I am splititng
each line in the array with split function and storing the each field
as $array[0], $array[1], $array[2), and $array[3]; Then I am looping
the file again to compare $array[3] and $array[0] and replace the
$array[3] with with $array[0] appropriately.. now I am hitting a
problem in thic comarison mechanism.. can some one help with me with a
better algorithm/code?
Thanks,
JC
------------------------------
Date: Thu, 22 Nov 2007 15:22:51 GMT
From: QoS@domain.invalid
Subject: Re: A little help on perl hashes..
Message-Id: <f9h1j.25703$9h.8670@trnddc07>
clearguy02@yahoo.com wrote in message-id: <8186189c-6041-4f47-8656-b58b208869ae@s36g2000prg.googlegroups.com>
>
> On Nov 22, 5:04 am, Sherman Pendley <spamt...@dot-app.org> wrote:
> > cleargu...@yahoo.com writes:
> > > Can some one take a look at it? :)
> >
> > After you've posted "it" three times?
> >
> > Um... no. Learn some manners and maybe I'll help next time.
> >
> > sherm--
> >
> > --
> > WV News, Blogging, and Discussion:http://wv-www.com
> > Cocoa programming in Perl:http://camelbones.sourceforge.net
>
> I am storing the whole file into an array, @array. Then I am splititng
> each line in the array with split function and storing the each field
> as $array[0], $array[1], $array[2), and $array[3]; Then I am looping
> the file again to compare $array[3] and $array[0] and replace the
> $array[3] with with $array[0] appropriately.. now I am hitting a
> problem in thic comarison mechanism.. can some one help with me with a
> better algorithm/code?
>
> Thanks,
> JC
#You should probably do something while storing the file to the array.
while (<FILE1>) {
my $line = $_;
#Like splitting the line and storing its elements in an array
my @lineArray = split (/\s+/, $line); #Or split as desired
#Ok, replace the fourth item in the array with the first item
#if some condition is true; elaborate more on what you need here.
if ($lineArray[3] < $lineArray[0]) {
$lineArray[3] = $lineArray[0];
}
}
------------------------------
Date: Thu, 22 Nov 2007 07:41:49 -0800 (PST)
From: clearguy02@yahoo.com
Subject: Re: A little help on perl hashes..
Message-Id: <75c68579-30c8-445d-b780-531b6bc1782e@i29g2000prf.googlegroups.com>
On Nov 22, 7:22 am, Q...@domain.invalid wrote:
> cleargu...@yahoo.com wrote in message-id: <8186189c-6041-4f47-8656-b58b20886...@s36g2000prg.googlegroups.com>
>
> > On Nov 22, 5:04 am, Sherman Pendley <spamt...@dot-app.org> wrote:
> > > cleargu...@yahoo.com writes:
> > > > Can some one take a look at it? :)
>
> > > After you've posted "it" three times?
>
> > > Um... no. Learn some manners and maybe I'll help next time.
>
> > > sherm--
>
> > > --
> > > WV News, Blogging, and Discussion:http://wv-www.com
> > > Cocoa programming in Perl:http://camelbones.sourceforge.net
>
> > I am storing the whole file into an array, @array. Then I am splititng
> > each line in the array with split function and storing the each field
> > as $array[0], $array[1], $array[2), and $array[3]; Then I am looping
> > the file again to compare $array[3] and $array[0] and replace the
> > $array[3] with with $array[0] appropriately.. now I am hitting a
> > problem in thic comarison mechanism.. can some one help with me with a
> > better algorithm/code?
>
> > Thanks,
> > JC
>
> #You should probably do something while storing the file to the array.
> while (<FILE1>) {
> my $line = $_;
>
> #Like splitting the line and storing its elements in an array
> my @lineArray = split (/\s+/, $line); #Or split as desired
>
> #Ok, replace the fourth item in the array with the first item
> #if some condition is true; elaborate more on what you need here.
> if ($lineArray[3] < $lineArray[0]) {
> $lineArray[3] = $lineArray[0];
> }
>
> }
I have been successful until the first part (until splitting and
storing each field of each line.. but the problem is to throw the
comparison part.. I first need loop through the list to make sure that
so and so mid belong to a user id and then replace the mid with the
user id. Here I am trying to use the key, values pair, but not quite
successful.. Any help?
JC
------------------------------
Date: Thu, 22 Nov 2007 08:00:25 -0800 (PST)
From: clearguy02@yahoo.com
Subject: Re: A little help on perl hashes..
Message-Id: <4d4fb8ef-4633-46c1-9a5a-609f26a4d8ec@s12g2000prg.googlegroups.com>
On Nov 22, 7:22 am, Q...@domain.invalid wrote:
> cleargu...@yahoo.com wrote in message-id: <8186189c-6041-4f47-8656-b58b20886...@s36g2000prg.googlegroups.com>
>
> > On Nov 22, 5:04 am, Sherman Pendley <spamt...@dot-app.org> wrote:
> > > cleargu...@yahoo.com writes:
> > > > Can some one take a look at it? :)
>
> > > After you've posted "it" three times?
>
> > > Um... no. Learn some manners and maybe I'll help next time.
>
> > > sherm--
>
> > > --
> > > WV News, Blogging, and Discussion:http://wv-www.com
> > > Cocoa programming in Perl:http://camelbones.sourceforge.net
>
> > I am storing the whole file into an array, @array. Then I am splititng
> > each line in the array with split function and storing the each field
> > as $array[0], $array[1], $array[2), and $array[3]; Then I am looping
> > the file again to compare $array[3] and $array[0] and replace the
> > $array[3] with with $array[0] appropriately.. now I am hitting a
> > problem in thic comarison mechanism.. can some one help with me with a
> > better algorithm/code?
>
> > Thanks,
> > JC
>
> #You should probably do something while storing the file to the array.
> while (<FILE1>) {
> my $line = $_;
>
> #Like splitting the line and storing its elements in an array
> my @lineArray = split (/\s+/, $line); #Or split as desired
>
> #Ok, replace the fourth item in the array with the first item
> #if some condition is true; elaborate more on what you need here.
> if ($lineArray[3] < $lineArray[0]) {
> $lineArray[3] = $lineArray[0];
> }
>
>
>
> }- Hide quoted text -
>
> - Show quoted text -- Hide quoted text -
>
> - Show quoted text -
Forgot to add my code:
====================================
while (<DATA>)
{
$line = $_;
@lineArray = split (/\s+/, $line);
if ($lineArray[3] == $lineArray[2])
{
s/$lineArray[3]/$lineArray[0]/g;
}
print "$lineArray[0]\t\t$lineArray[1]\t\t$lineArray[3]\n";
}
==================================
Can some one help me here?
Thanks in advance,
JC
}
------------------------------
Date: Thu, 22 Nov 2007 08:02:50 -0500
From: Sherman Pendley <spamtrap@dot-app.org>
Subject: Re: Calling a SQL Server Stored Procedure from within Perl
Message-Id: <m1abp6sa9x.fsf@dot-app.org>
smallpond <smallpond@juno.com> writes:
> I think $h->err is only for the DBI modules.
True, but I thought the OP is using DBI?
> SQL has
> it's own non-standard routine to get the error which
> I am too lazy to look up.
True again, but isn't it DBD::*'s job to wrap that non-standard routine
with a standard DBI interface?
sherm--
--
WV News, Blogging, and Discussion: http://wv-www.com
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Thu, 22 Nov 2007 05:34:12 -0800 (PST)
From: ab <absmienk@hotmail.com>
Subject: Re: Calling a SQL Server Stored Procedure from within Perl
Message-Id: <f22168eb-4945-4d9b-bf4e-c9e6240b5851@e10g2000prf.googlegroups.com>
Thanks for those discussions about warnings and errors. It didn't help
me at all. I was merely asking for a Perl script that could execute a
stored procedure. In the meanwhile I have found a solution that works.
use Win32::ODBC;
if (!($MyDB = new Win32::ODBC("DSN=MyDSN;UID=MyLoginID;PWD=MyPwd;")))
{
print "Error: Unable to connect to the database\n";
exit;
}
$MyDB -> Run("exec usp_test'");
PS. What does LOLROTFL, YMMD mean?
------------------------------
Date: Thu, 22 Nov 2007 09:52:32 -0600
From: l v <veatchla@yahoo.com>
Subject: Re: Calling a SQL Server Stored Procedure from within Perl
Message-Id: <13kb9e0g9qfo720@news.supernews.com>
ab wrote:
[snip]
>
> PS. What does LOLROTFL, YMMD mean?
http://acronyms.thefreedictionary.com
--
Len
------------------------------
Date: Thu, 22 Nov 2007 07:29:44 -0800 (PST)
From: Yakov <iler.ml@gmail.com>
Subject: infinite loop when perl is trying to print warning
Message-Id: <82e0c100-758e-4fa4-9a39-2efb11cbdffc@e6g2000prf.googlegroups.com>
What can cause perl to go into infinite loop when perl daemon wants to
print
the warning ? It never reaches the printing of the warning, but does
time()
syscalls at 100% cpu and no other syscalls. I installed the debug
build of the perl,
and I have gdb there, and this is how I know the warning from undef
value is what's causing it.
Thanks
Yakov
------------------------------
Date: Thu, 22 Nov 2007 08:06:08 -0800 (PST)
From: Ron Bergin <rkb@i.frys.com>
Subject: Re: infinite loop when perl is trying to print warning
Message-Id: <a1283797-9050-4b90-9cc1-08272368e3b4@e23g2000prf.googlegroups.com>
On Nov 22, 7:29 am, Yakov <iler...@gmail.com> wrote:
> What can cause perl to go into infinite loop when perl daemon wants to
> print
> the warning ? It never reaches the printing of the warning, but does
> time()
> syscalls at 100% cpu and no other syscalls. I installed the debug
> build of the perl,
> and I have gdb there, and this is how I know the warning from undef
> value is what's causing it.
>
> Thanks
> Yakov
Can you show us a short script that demonstrates this issue?
------------------------------
Date: Thu, 22 Nov 2007 11:45:35 +0000
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: interesting case of data corruption, and its cause
Message-Id: <13kaqv2djskf85d@corp.supernews.com>
I just fell foul of something;
I was using map to extract a load of data from a source array
(array of complex structures) into a new array
(array of complex, but different structures).
I wrote a subroutine, called (e.g.) "extract",
which takes a single src object, and returns a
new object.
I then (obviously...) wrote:
my @extracted = map { extract($_) } @src_data;
and ended up with corrupted @src_data.
Since extract is (in fact) rather complex,
making wide use of both CPan code, and
large swathes of my code, it took
a while for me to track down the problem.
I'll pause here while the gurus and others
consider wether my fault is "obvious".
OK, the difficulty lies in $_. Map
sets $_ not to be a copy of the array item,
but a shared reference to it.
In particular, assigning to $_ alters
the item.
I wasn't (consciously) doing so, but "somewhere"
in the complex workings of extract, there was
an IO loop of the classic "while(<HTTP>)"
kind, which does assign to $_, which
is (perhaps counterintuitively) a
good old fashioned global variable.
If this is all obvious, and I've bored you,
I apologise.
But it took me a good while to track down,
and though it might be worthy of a warning
to others as ill-informed as myself.
BugBear
------------------------------
Date: Thu, 22 Nov 2007 12:33:23 +0000
From: Peter Makholm <peter@makholm.net>
Subject: Re: interesting case of data corruption, and its cause
Message-Id: <87zlx6jw8c.fsf@hacking.dk>
bugbear <bugbear@trim_papermule.co.uk_trim> writes:
> I wrote a subroutine, called (e.g.) "extract",
> which takes a single src object, and returns a
> new object.
And obviously changes the source object in some way. So I guess that you
extract function works on $_[0] and not starting with something like:
sub extract {
my $src = shift;
...
> If this is all obvious, and I've bored you,
> I apologise.
Apology accepted.
> But it took me a good while to track down,
> and though it might be worthy of a warning
> to others as ill-informed as myself.
I don't think it would catch you concrete problem where you extract
function modifies it's arguments, but in some cases perlcritic would
have warned you about modifying $_ in list functions.
//Makholm
------------------------------
Date: Thu, 22 Nov 2007 12:47:55 +0000
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: interesting case of data corruption, and its cause
Message-Id: <13kaujs4epb1s6a@corp.supernews.com>
Peter Makholm wrote:
> bugbear <bugbear@trim_papermule.co.uk_trim> writes:
>
>> I wrote a subroutine, called (e.g.) "extract",
>> which takes a single src object, and returns a
>> new object.
>
> And obviously changes the source object in some way. So I guess that you
> extract function works on $_[0] and not starting with something like:
>
> sub extract {
> my $src = shift;
actually:
sub extract {
my ($src) = @_;
It's the assignment/use of the (global) $_ many miles away
(in code terms) that's (was) killing me.
BugBear
------------------------------
Date: Thu, 22 Nov 2007 07:20:06 -0800 (PST)
From: smallpond <smallpond@juno.com>
Subject: Re: interesting case of data corruption, and its cause
Message-Id: <0aa68a21-5135-4a3a-b6b6-9cf577883b0a@b40g2000prf.googlegroups.com>
On Nov 22, 7:47 am, bugbear <bugbear@trim_papermule.co.uk_trim> wrote:
> Peter Makholm wrote:
> > bugbear <bugbear@trim_papermule.co.uk_trim> writes:
>
> >> I wrote a subroutine, called (e.g.) "extract",
> >> which takes a single src object, and returns a
> >> new object.
>
> > And obviously changes the source object in some way. So I guess that you
> > extract function works on $_[0] and not starting with something like:
>
> > sub extract {
> > my $src = shift;
>
> actually:
>
> sub extract {
> my ($src) = @_;
>
> It's the assignment/use of the (global) $_ many miles away
> (in code terms) that's (was) killing me.
>
> BugBear
Assigning to $_ just changes the scalar global variable $_,
not the thing that it refers to. If it is a reference, and you
assign to $$_ then you could have a problem.
perl -e '$v=0; $_=\$v; $_=1; print $v;'
0
perl -e '$v=0; $_=\$v; $$_=1; print $v;'
1
perl never does automatic reference or dereference. It is
always explicit.
--S
------------------------------
Date: Thu, 22 Nov 2007 15:48:18 +0100
From: Josef Moellers <5502109103600001@t-online.de>
Subject: Re: is there any command for catch in tcl in perl
Message-Id: <fi44sn$m1g$02$1@news.t-online.com>
Ben Morrow wrote:
> Quoth Josef Moellers <5502109103600001@t-online.de>:
>> If you mean the "0" as returned by tcl's "catch"-command, then note that
>> Perl's "eval" will return "undef"
>
> Note: Josef doesn't literally mean "undef" (a string), but undef, which
> is a special Perl value a little like the NULL pointer in C or NULL in
> SQL (but not entirely like either :) ).
ACK
To the OP (and maybe others): this is one of the reasons why "You can
answer me at : user@host" is A Bad Idea(tm): whoever sends you an answer
may have gotten it wrong or not quite right or a better solution may
exist. Replying to the newsgroup gives other people the possibility to
comment on replies.
Another reason is that others (like myself) can learn from the replies
(and the corrections of them ;-)
--
Mails please to josef dot moellers
and I'm on gmx dot de.
------------------------------
Date: Thu, 22 Nov 2007 00:31:48 -0800 (PST)
From: Brian McCauley <nobull67@gmail.com>
Subject: Re: is this expected behavior? perl '' test.pl
Message-Id: <7e4396ef-d27d-4a1a-8c9a-6c015b1d235a@p69g2000hsa.googlegroups.com>
On Nov 22, 7:55 am, wilbu...@gmail.com wrote:
> When perl 5.8.8 & perl 5.9.5 see the "empty" argument they read source
> code from STDIN and then execute the code from STDIN. It halts,
> waiting for code from the keyboard.
>
> This ?bug? originally came about when someone tried to do this:
> @args = ( 'perl',$extralibs,'etc...');
>
> problem was $extralibs was empty. :)
>
> On one side of the coin, I don't see any documentation regarding this
> situation in "perldoc perl". On the other side of the coin, empty
> arguments should probably be annoyed.
Annoyed?
I think that either "perlrun" should be amended to say "" is treated
the same as "-" or perl should throw an error.
> And on yet the another side of
> the coin, I should check $extralibs for being empty before stuffing it
> into an array! :)
Actually, IMHO, extralibs should probably have been an array.
> I didn't think a perlbug report was proper, so following the INSTALL
> instructions ... here it is.
I don't think a perlbug report would be inappropriate.
------------------------------
Date: Thu, 22 Nov 2007 02:12:38 -0800 (PST)
From: Benedict White <benedictmpwhite@gmail.com>
Subject: Re: Regular expression help
Message-Id: <afc27e27-18b2-4b0a-b1b4-5505a8474b9f@w40g2000hsb.googlegroups.com>
On Nov 21, 10:45 pm, Tad McClellan <ta...@seesig.invalid> wrote:
> Benedict White <benedictmpwh...@gmail.com> wrote:
> > I seem to have found a regex that works:
>
> It has at least 4 different problems.
>
> What does "works" mean when you say it?
>
> > [A-Za-Z]?[0-9][A-Za-Z]?...@example.com.com
>
> > Which matches emails to the example.com domain containing numbers.
>
> a-Z is not a valid range.
>
> at-signs need to be escaped in double-quotish contexts such
> as a pattern.
>
> There are 2 ".com" substrings required by the pattern.
>
> It only allows a single character between the digit and
> the at-sign. It doens't match 'foo2...@example.com.com' ...
>
Oops, that was a typo. It should have read:
[A-Za-z]?[0-9][A-Za-z]?@example.com
Which does work with egrep without escaping the @.
However you are right it will only match 1 letter after the last
number before the att. Adding a * makes it two, but making it totally
wild matches everything :(.
Kind regards
Benedict White
------------------------------
Date: Thu, 22 Nov 2007 03:11:13 -0800
From: Wilson <davewilson69@sbcglobal.net>
Subject: Re: Script to disconnect Linksys WRT54G wireless router on Windows
Message-Id: <6vd1j.1148$Dt4.502@newssvr19.news.prodigy.net>
I think I'm going to have to give up as there just seems to be no way that
any perl script can press any button on a linksys WRT54G router based on
all my hundreds of failed attempts and the lack of any successful perl
scripts on the Internet.
Advice for the next guy: Be forewarned; you can't press a button on a
Linksys WRT65G router using Perl. Some other approach might work; but not
Perl.
------------------------------
Date: Thu, 22 Nov 2007 08:27:27 -0500
From: Sherman Pendley <spamtrap@dot-app.org>
Subject: Re: Script to disconnect Linksys WRT54G wireless router on Windows
Message-Id: <m1tznequkg.fsf@dot-app.org>
Wilson <davewilson69@sbcglobal.net> writes:
> I think I'm going to have to give up as there just seems to be no way that
> any perl script can press any button on a linksys WRT54G router based on
> all my hundreds of failed attempts and the lack of any successful perl
> scripts on the Internet.
>
> Advice for the next guy: Be forewarned; you can't press a button on a
> Linksys WRT65G router using Perl. Some other approach might work; but not
> Perl.
What nonsense. You said yourself that you're not a programmer and don't know
Perl - what makes you think that something is impossible simply because *you*
can't figure it out?
sherm--
--
WV News, Blogging, and Discussion: http://wv-www.com
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
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 V11 Issue 1050
***************************************
