[25535] in Perl-Users-Digest
Perl-Users Digest, Issue: 7779 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Feb 14 14:05:31 2005
Date: Mon, 14 Feb 2005 11:05:12 -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 Mon, 14 Feb 2005 Volume: 10 Number: 7779
Today's topics:
Accessing Hash of hash of arrays <lynn.watts@ugs.com>
Re: Accessing Hash of hash of arrays xhoster@gmail.com
Re: Accessing Hash of hash of arrays <phaylon@dunkelheit.at>
Re: Accessing Hash of hash of arrays <mritty@gmail.com>
Re: Accessing Hash of hash of arrays <lynn.watts@ugs.com>
Re: Accessing Hash of hash of arrays <lynn.watts@ugs.com>
Re: Accessing Hash of hash of arrays <lynn.watts@ugs.com>
Re: Adding Form elements dbmeyers23@yahoo.com
editing pdf files with perl aditya2507@gmail.com
Re: Feeding false an App <phaylon@dunkelheit.at>
Re: Feeding false an App <spamtrap@dot-app.org>
Re: Feeding false an App <hackeras@gmail.com>
Re: Feeding false an App <spamtrap@dot-app.org>
Re: glob question <tzz@lifelogs.com>
Re: How to close a listening socket asynchronously xhoster@gmail.com
How to emulate setuid scripts w/ `super`? <noreply@usenet.net>
Re: How to emulate setuid scripts w/ `super`? <phaylon@dunkelheit.at>
Re: Mod_perl: can I share a database connection by putt xhoster@gmail.com
Win32::OLE check if excel is English or Swedish peter.moller@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 14 Feb 2005 08:39:54 -0800
From: "Lynn" <lynn.watts@ugs.com>
Subject: Accessing Hash of hash of arrays
Message-Id: <4210d3b2$1@usenet.ugs.com>
Hi All
I am having problems accessing a data structure created from an Ingres
database. I have
a hash of hashes where the value is an array. What I am trying to do is
increment the
value of the first entry in the array. I have provided a little test script
that shows my
problem.
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use diagnostics;
my $people = {
'robert' => {
'TUSHYATI MAUDGALYA' => [
0,
0,
0
],
'JESSICA LEE' => [
0,
0,
0
],
'JOHN HUSTON' => [
0,
0,
0
]
},
'christie' => {
'LARRY KRUGER' => [
0,
0,
0
],
'JEFFREY SIMONSON' => [
0,
0,
0
]
}
};
my $manager = {
'LARRY KRUGER' =>'christie',
'JEFFREY SIMONSON' =>'christie',
'TUSHYATI MAUDGALYA' => 'robert',
'JESSICA LEE' => 'robert',
'JOHN HUSTON' => 'robert'
};
my @tmp = ('LARRY KRUGER', 'JEFFREY SIMONSON', 'TUSHYATI MAUDGALYA',
'JESSICA LEE', 'JOHN HUSTON');
foreach my $person(@tmp) {
${$people->${$manager->{$person} } }{$person}[0]++;
}
print Dumper($people);
Can't use string ("christie") as a SCALAR ref while "strict refs" in use at
G:\hillr\test1.pl line 55 (#1)
(F) Only hard references are allowed by "strict refs". Symbolic
references are disallowed. See perlref.
Uncaught exception from user code:
Can't use string ("christie") as a SCALAR ref while "strict refs" in
use
I looked at the perlref as suggested in the error message and found this:
Anywhere you'd put an identifier (or chain of identifiers) as part
of a variable or subroutine name, you can replace the identifier
with a BLOCK returning a reference of the correct type. In other
words, the previous examples could be written like this:
$bar = ${$scalarref};
push(@{$arrayref}, $filename);
${$arrayref}[0] = "January";
${$hashref}{"KEY"} = "VALUE";
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
&{$coderef}(1,2,3);
$globref->print("output\n"); # iff IO::Handle is loaded
I'm trying that one to access the hash but still come up with the error.
What am I doing wrong?
Thanks !!!
------------------------------
Date: 14 Feb 2005 16:59:11 GMT
From: xhoster@gmail.com
Subject: Re: Accessing Hash of hash of arrays
Message-Id: <20050214115911.474$T7@newsreader.com>
"Lynn" <lynn.watts@ugs.com> wrote:
> Hi All
>
> I am having problems accessing a data structure created from an Ingres
> database.
Does this really have anything to do with Ingres?
> I have
> a hash of hashes where the value is an array. What I am trying to do is
> increment the
> value of the first entry in the array. I have provided a little test
> script that shows my
> problem.
>
> #!/usr/bin/perl
> use strict;
> use warnings;
> use Data::Dumper;
> use diagnostics;
>
> my $people = {
> 'robert' => {
> 'TUSHYATI MAUDGALYA' => [
> 0,
> 0,
> 0
> ],
> 'JESSICA LEE' => [
> 0,
> 0,
> 0
> ],
> 'JOHN HUSTON' => [
> 0,
> 0,
> 0
> ]
> },
> 'christie' => {
> 'LARRY KRUGER' => [
> 0,
> 0,
> 0
> ],
> 'JEFFREY SIMONSON' => [
> 0,
> 0,
> 0
> ]
> }
> };
>
> my $manager = {
> 'LARRY KRUGER' =>'christie',
> 'JEFFREY SIMONSON' =>'christie',
> 'TUSHYATI MAUDGALYA' => 'robert',
> 'JESSICA LEE' => 'robert',
> 'JOHN HUSTON' => 'robert'
> };
>
> my @tmp = ('LARRY KRUGER', 'JEFFREY SIMONSON', 'TUSHYATI MAUDGALYA',
> 'JESSICA LEE', 'JOHN HUSTON');
>
> foreach my $person(@tmp) {
>
> ${$people->${$manager->{$person} } }{$person}[0]++;
You seem to be randomly mixing the two forms of dereferencing. You can
do that, but it is generally not a good idea and I don't feel like
convoluting exactly what you actually were doing. I think the root of the
problem is that $people->${...} looks like an invokation of a code ref.
use arrows:
$people->{$manager->{$person}}->{$person}->[0]++;
Or use the other way (which is ugly, so use arrows):
${${${$people}{${manger}{$person}}{$person}}[0]++;
Some of those sets of curlies may be unnecessary.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Mon, 14 Feb 2005 17:55:35 +0100
From: phaylon <phaylon@dunkelheit.at>
Subject: Re: Accessing Hash of hash of arrays
Message-Id: <pan.2005.02.14.16.55.35.84770@dunkelheit.at>
Lynn wrote:
> ${$people->${$manager->{$person} } }{$person}[0]++;
$people->{ $manager->{ $person } }->{ $person }->[0]++;
Or wrote more readable:
$people->{
$manager->{ $person }
}->{ $person }->[0]++;
hth,phay
--
http://www.dunkelheit.at/
The first rule of project mayhem is: you do not ask questions.
-- Fight Club
------------------------------
Date: Mon, 14 Feb 2005 17:06:49 GMT
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Accessing Hash of hash of arrays
Message-Id: <JU4Qd.29000$s16.16589@trndny02>
"Lynn" <lynn.watts@ugs.com> wrote in message
news:4210d3b2$1@usenet.ugs.com...
> Hi All
>
> I am having problems accessing a data structure created from an Ingres
> database. I have
> a hash of hashes where the value is an array.
The value is an arrayref. The distinction is important.
> What I am trying to do is increment the
> value of the first entry in the array. I have provided a little test
script
> that shows my problem.
Excellent! Thank you for that!!
> #!/usr/bin/perl
> use strict;
> use warnings;
> use Data::Dumper;
> use diagnostics;
>
>
> my $people = {
> 'robert' => {
> 'TUSHYATI MAUDGALYA' => [
> 0,
> 0,
> 0
> ],
> 'JESSICA LEE' => [
> 0,
> 0,
> 0
> ],
> 'JOHN HUSTON' => [
> 0,
> 0,
> 0
> ]
> },
> 'christie' => {
> 'LARRY KRUGER' => [
> 0,
> 0,
> 0
> ],
> 'JEFFREY SIMONSON' => [
> 0,
> 0,
> 0
> ]
> }
> };
The keys of the hash referenced by $people are ('robert', 'christie')
> my $manager = {
> 'LARRY KRUGER' =>'christie',
> 'JEFFREY SIMONSON' =>'christie',
> 'TUSHYATI MAUDGALYA' => 'robert',
> 'JESSICA LEE' => 'robert',
> 'JOHN HUSTON' => 'robert'
> };
The values of the hash referenced by $manager are ('robert', 'christie')
>
> my @tmp = ('LARRY KRUGER', 'JEFFREY SIMONSON', 'TUSHYATI MAUDGALYA',
> 'JESSICA LEE', 'JOHN HUSTON');
>
>
> foreach my $person(@tmp) {
>
> ${$people->${$manager->{$person} } }{$person}[0]++;
$manager->($person) is the value of %$manager whose key is $person. As
we already said, this value is either 'robert' or 'christie'. It is
that value that should be the key to the %$people hash. Putting the $
before {$manager->{$person}} tries to use the word 'robert' as a
symbolic reference. You want to use the actual string 'robert'. Remove
this $ (the third one in the above statement, reading left to right).
This entire statement can actually be reduced to:
$people->{ $manager->{$person} }{$person}[0]++;
Hope this helps!
Paul Lalli
------------------------------
Date: Mon, 14 Feb 2005 09:21:41 -0800
From: "Lynn" <lynn.watts@ugs.com>
Subject: Re: Accessing Hash of hash of arrays
Message-Id: <4210dd7d@usenet.ugs.com>
"phaylon" <phaylon@dunkelheit.at> wrote in message
news:pan.2005.02.14.16.55.35.84770@dunkelheit.at...
> Lynn wrote:
>
> > ${$people->${$manager->{$person} } }{$person}[0]++;
>
> $people->{ $manager->{ $person } }->{ $person }->[0]++;
>
> Or wrote more readable:
>
> $people->{
> $manager->{ $person }
> }->{ $person }->[0]++;
>
> hth,phay
Yep!! that works Thanks phay
Lynn
------------------------------
Date: Mon, 14 Feb 2005 09:24:48 -0800
From: "Lynn" <lynn.watts@ugs.com>
Subject: Re: Accessing Hash of hash of arrays
Message-Id: <4210de38@usenet.ugs.com>
<xhoster@gmail.com> wrote in message
news:20050214115911.474$T7@newsreader.com...
> "Lynn" <lynn.watts@ugs.com> wrote:
> > Hi All
> >
> > I am having problems accessing a data structure created from an Ingres
> > database.
>
> Does this really have anything to do with Ingres?
Not really, Just providing more information that was nessary. I guess next
time I will keep it brief (sorry)
>
>
> You seem to be randomly mixing the two forms of dereferencing. You can
> do that, but it is generally not a good idea and I don't feel like
> convoluting exactly what you actually were doing. I think the root of the
> problem is that $people->${...} looks like an invokation of a code ref.
>
> use arrows:
>
> $people->{$manager->{$person}}->{$person}->[0]++;
That's it ;-)
>
> Or use the other way (which is ugly, so use arrows):
>
> ${${${$people}{${manger}{$person}}{$person}}[0]++;
>
> Some of those sets of curlies may be unnecessary.
Thanks for all of your help :-)
Lynn
------------------------------
Date: Mon, 14 Feb 2005 09:32:11 -0800
From: "Lynn" <lynn.watts@ugs.com>
Subject: Re: Accessing Hash of hash of arrays
Message-Id: <4210dff3$1@usenet.ugs.com>
"Paul Lalli" <mritty@gmail.com> wrote in message
news:JU4Qd.29000$s16.16589@trndny02...
>
> "Lynn" <lynn.watts@ugs.com> wrote in message
> news:4210d3b2$1@usenet.ugs.com...
(snipped)
>
> $manager->($person) is the value of %$manager whose key is $person. As
> we already said, this value is either 'robert' or 'christie'. It is
> that value that should be the key to the %$people hash. Putting the $
> before {$manager->{$person}} tries to use the word 'robert' as a
> symbolic reference. You want to use the actual string 'robert'. Remove
> this $ (the third one in the above statement, reading left to right).
Thanks for that explanation. It really helps :-)
>
> This entire statement can actually be reduced to:
> $people->{ $manager->{$person} }{$person}[0]++;
>
>
> Hope this helps!
> Paul Lalli
Thanks for all of your help :-) It's nice to know that people like you spend
your time
helping out new perl programmers. I have found that the regulares here at
CLPM are always very helpful.
Thanks All
Lynn
------------------------------
Date: 14 Feb 2005 10:13:13 -0800
From: dbmeyers23@yahoo.com
Subject: Re: Adding Form elements
Message-Id: <1108404793.706331.115610@c13g2000cwb.googlegroups.com>
Thanks all, I realize my posting didn't make a whole lot of sense after
reading....but,
I ended up doing this, and it worked fine.
$totals = $totals + $query->param($$_[0]);
print "$totals is total";
I realize after reading the posts, that I probably could have done this
much easier...but hey, I'm fairly new to perl....thanks again.
------------------------------
Date: 14 Feb 2005 10:27:03 -0800
From: aditya2507@gmail.com
Subject: editing pdf files with perl
Message-Id: <1108405623.370567.287490@o13g2000cwo.googlegroups.com>
Hi,
I have a collection of PDF files which are stored in a directory. These
PDF files follow a particular format. Each one of these files has some
fields in the first page which are left blank. I need to fill those
fields based on the input given by the user(s).
I CANNOT overwrite these PDF files since the data contained in them is
not elsewhere. I simply need to be able to edit and update the first
page of these PDF files.
Is there any way I can do this with Perl?
Thanks in advance :)
Aditya
------------------------------
Date: Mon, 14 Feb 2005 17:03:37 +0100
From: phaylon <phaylon@dunkelheit.at>
Subject: Re: Feeding false an App
Message-Id: <pan.2005.02.14.16.03.36.955269@dunkelheit.at>
Richard Anderson wrote:
> What i want to do is to captute this cpu id request made from his
> application and hen false feed it!
You mean you want to fake your CPUID through perl? I don't know, but I
guess you will have to try at another place, say, your Kernel for example.
At all this "my friends chessgame-application, which checks for cpuid"
sounds a bit weird.
--
http://www.dunkelheit.at/
»Better to reign in hell than to serve in heaven«
-- John Milton, »Paradise Lost«
------------------------------
Date: Mon, 14 Feb 2005 11:19:33 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Feeding false an App
Message-Id: <guydnTLhxZkKUo3fRVn-vw@adelphia.com>
Richard Anderson wrote:
> Well a cpu id request is a request made from an application running on a
> machine asking for the hardware's(cpu specifically) serial number.
That's just stating the same thing using more words - it's not helpful.
You say this "cpu id request" is from an application running on a machine.
Is it from the same machine, or another one? If it's a local request, what
API is the app using? If it's from another machine, what network protocol
is used?
You see where I'm going with this? You need to spend some time figuring out
*what* you want to do, before anyone here can explain *how* to do it.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Mon, 14 Feb 2005 16:47:02 +0000 (UTC)
From: Richard Anderson <hackeras@gmail.com>
Subject: Re: Feeding false an App
Message-Id: <Xns95FDBF5C55D8Ahackerasgmailcom@194.177.210.210>
Sherm Pendley <spamtrap@dot-app.org> wrote in
news:guydnTLhxZkKUo3fRVn-vw@adelphia.com:
> You say this "cpu id request" is from an application running on a
> machine. Is it from the same machine, or another one? If it's a local
> request, what API is the app using? If it's from another machine, what
> network protocol is used?
Well the cpu id request is issued by an online chess game server my
friend has running from his 24/7 connected pc and because the online
chess server directly connectz to his chess client app that i happen to
run on my pc the request passes through that app to my pc, getting the
cpu info somehow (maybe from an API call or a built in function, i dont
know) and that info travles back from the chess client app to his online
chess server and stores in his mysql database.
I hope this time i calrifies things more efficiently :-)
Sorry but the language is causing me a little trouble trying to express
my self clearly! :-)
> You see where I'm going with this? You need to spend some time
> figuring out *what* you want to do, before anyone here can explain
> *how* to do it.
You are right.
------------------------------
Date: Mon, 14 Feb 2005 12:24:30 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Feeding false an App
Message-Id: <VYidnV2V4MVNQ43fRVn-qw@adelphia.com>
Richard Anderson wrote:
> Well the cpu id request is issued by an online chess game server my
> friend has running from his 24/7 connected pc and because the online
> chess server directly connectz to his chess client app that i happen to
> run on my pc
We're finally getting somewhere. There's probably not much point in trying
to reverse-engineer the app. Even if you could figure out how it's getting
CPU info from Windows, it would be really hard to feed it misinformation
that way.
A better approach would be to intercept the incoming network request, and
redirect it to an app of your own. To do that, you need to figure out two
things:
1. What port the app listens on.
2. What protocol it speaks.
Google for "port scanner" and "packet sniffer" for tools to help figure
those two things out. Once you know the port, you can easily configure your
firewall to redirect incoming requests on that port to a port that your app
is listening on. And once you know the protocol, you'll be able to write
your app to respond to those requests.
Once you're ready to write your app, go to <http://search.cpan.org>, and
search for "network server", and/or the protocol you want to implement.
It's a lot of work, and it might not seem worth it just to cheat at chess
and/or win a bet. But it's a good learning exercise - accurately defining a
problem, and then breaking it down into manageable pieces, is a vital skill
for any programmer to have.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Mon, 14 Feb 2005 12:30:35 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: glob question
Message-Id: <4nr7jjqcas.fsf@lifelogs.com>
On Mon, 14 Feb 2005, josef.moellers@fujitsu-siemens.com wrote:
justme wrote:
>> while using the glob function to check for wildcards eg,
>> while ( glob *.txt )
>> {
>> #do something with txt files...
>> }
>> how can i specify globbing those not *.txt?
>> is it something like this while ( ! glob *.txt )
>> {
>> }
>
> while ( glob "*" )
> {
> next if /\.txt$/;
> # Do something with non-txt
> }
>
> But tpmtowtdi,
The OP didn't say he wanted * without *.txt, so your example is
incomplete. You need opendir() and readdir() to really get all the
files in the directory, including the hidden ones.
Ted
------------------------------
Date: 14 Feb 2005 17:31:17 GMT
From: xhoster@gmail.com
Subject: Re: How to close a listening socket asynchronously
Message-Id: <20050214123116.997$fV@newsreader.com>
Franz Prilmeier <prilmeie@informatik.tu-muenchen.de> wrote:
>
> That's exactly what I want to do in Perl. Stop the server listening
> while it's blocked doing an accept. Is there one way to do it?
As a previous poster suggested, using "shutdown" rather than "close" on the
socket seems to work for that. If your goal is simply to get your test
code to work, that would probably be the way to go. But presumably your
test code is a test for some other ultimate goal, and just getting this
test code to work may not be very effective at helping you attain that
ultimate goal.
> >> I want to be able to close a socket while it is listening (waiting for
> >> incoming connection via the accept call). In a different thread.
> >
> > Perl doesn't to threads very well.
>
> That would be a show stopper. I have to do that in Perl because all my
> mates just know Perl.
It may be easier to teach your mates Java than to kludge around Perl's
threading model. You may want to look into the various ways to meld
Perl and Java, so that you get the best of both worlds.
>
> >> And
> >> definitely not by killing the whole program. I want to be able to do
> >> this inside the same program.
> >
> > Upon what event?
>
> I have a second control connection either by keyboard input or by remote
> command.
If "by keyboard" means the signals sent when you hit ctrl-C, then you will
want to look into SIG handlers. For remote commands, just treat those
commands as one more thing to be waited for.
>
> > By calling "accept", you are declaring that want to block until
> > something connects. If you don't want to block until something
> > connects, don't call "accept" until/unless you know someone is knocking
> > on the door.
> >
> > Stuff the $socket into an IO::Select object, then use can_read to see
> > if there is something trying to connect to $socket. (See the example
> > given in perldoc IO::Select).
>
> As far as I got IO::Select, this means busy waiting to me.
Only if you program it that way. Stuff both the listener (e.g. $socket)
and whatever is going to send you the "stop listening" command into the
IO::Select object. Then you can call can_read without a timeout, and it
will not busy wait, it will block until one of the two things (a new
connection, or a shutdown command) happens.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Mon, 14 Feb 2005 18:35:44 +0100
From: Michael Guitton <noreply@usenet.net>
Subject: How to emulate setuid scripts w/ `super`?
Message-Id: <noreply-4B569E.18354414022005@news-reader.wanadooportails.com>
I'm stucked on a FreeBSD 4.4 system figuring out how to emulate setuid
Perl scripts using the `super` command (or `sudo`). Couldn't find
anything useful on this topic...
Please help!
------------------------------
Date: Mon, 14 Feb 2005 18:31:45 +0100
From: phaylon <phaylon@dunkelheit.at>
Subject: Re: How to emulate setuid scripts w/ `super`?
Message-Id: <pan.2005.02.14.17.31.45.598023@dunkelheit.at>
Michael Guitton wrote:
> I'm stucked on a FreeBSD 4.4 system figuring out how to emulate setuid
> Perl scripts using the `super` command (or `sudo`). Couldn't find anything
> useful on this topic...
I don't think your question is perl-related. You should ask in a
BSD-Group. But do them a favour and include *what* you've tried, *what*
you expected and *what* came out.
good luck,phay
--
http://www.dunkelheit.at/
I want, therefore I can.
------------------------------
Date: 14 Feb 2005 17:51:23 GMT
From: xhoster@gmail.com
Subject: Re: Mod_perl: can I share a database connection by putting it in the startup-script?
Message-Id: <20050214125123.067$Gh@newsreader.com>
Oliver Green <nospam@noglory.net> wrote:
<snip the parts addressed by Brian>
> How would I setup a test on my (modest) development system simulating
> high usage?
Apache comes with a CLI tool, "ab", which is useful for simple load
testing. And LWP Perl module may also be useful.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Mon, 14 Feb 2005 16:29:43 GMT
From: peter.moller@gmail.com
Subject: Win32::OLE check if excel is English or Swedish
Message-Id: <u1xbjqf16.fsf@notvalid.se>
Does anyone know how to check if the Excel I'm talking to
with Win32::OLE is english or swedish?
The reason is that I want to add some simple formulas as
values in a few cells.
For example:
An english version wants =SUM('A1:A42) or =AVERAGE('A1:A42)
and a swedish version wants =SUMMA('A1:A42) or =MEDEL('A1:A42);
PMoller
------------------------------
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 7779
***************************************
