[28913] in Perl-Users-Digest
Perl-Users Digest, Issue: 157 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Feb 21 09:10:09 2007
Date: Wed, 21 Feb 2007 06:09:05 -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 Wed, 21 Feb 2007 Volume: 11 Number: 157
Today's topics:
Re: Complex calculation of averages <bart@nijlen.com>
getOptions for object oriented Perl <a@mail.com>
Re: getOptions for object oriented Perl <bik.mido@tiscalinet.it>
How to get individual fields into variables using DBI? <itfred@cdw.com>
Re: How to get individual fields into variables using D <bigiain@mightymedia.com.au>
how to use system command to launch a shell script ? <gniagnia@gmail.com>
Re: how to use system command to launch a shell script <jurgenex@hotmail.com>
new CPAN modules on Wed Feb 21 2007 (Randal Schwartz)
Re: Newbie...Not able to include a file in perl script <tintin@invalid.invalid>
Performance project for the SigEx Foundry pablo@sigex.com
Re: Quick Question <tadmc@augustmail.com>
Regex matching a integer in a line dptom79@gmail.com
Re: Regex matching a integer in a line <m@rtij.nl.invlalid>
Re: Regex matching a integer in a line <bigiain@mightymedia.com.au>
Re: Regex matching a integer in a line <josef.moellers@fujitsu-siemens.com>
Re: Regex: Why is overreaching necessary? <Shannon.Jacobs.nospam@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 21 Feb 2007 02:44:39 -0800
From: "Bart Van der Donck" <bart@nijlen.com>
Subject: Re: Complex calculation of averages
Message-Id: <1172054679.914966.297000@j27g2000cwj.googlegroups.com>
attn.steven....@gmail.com wrote:
> [...]
>
> INSERT INTO "elapsed" VALUES (1, 63, '2006-05-17', '2006-11-25');
> INSERT INTO "elapsed" VALUES (2, 63, '2006-11-25', '2006-12-04');
> INSERT INTO "elapsed" VALUES (3, 67, '2005-04-30', '2005-09-21');
> INSERT INTO "elapsed" VALUES (4, 67, '2005-09-21', '2006-07-17');
> INSERT INTO "elapsed" VALUES (5, 67, '2006-07-17', '2007-02-10');
> INSERT INTO "elapsed" VALUES (6, 71, '2006-04-23', '2006-10-05');
> INSERT INTO "elapsed" VALUES (7, 71, '2006-10-05', '2006-12-27');
> INSERT INTO "elapsed" VALUES (8, 71, '2006-12-27', '2007-01-21');
>
> END TRANSACTION;
>
> SELECT category, AVG( JULIANDAY(end_date) - JULIANDAY(start_date))
> FROM elapsed
> WHERE end_date > DATE('now', '-1 month')
> GROUP BY category;
>
> SELECT category, AVG( JULIANDAY(end_date) - JULIANDAY(start_date))
> FROM elapsed
> WHERE end_date > DATE('now', '-5 month')
> GROUP BY category;
Brilliant, it works excellent! Ported to MySQL's dialect:
SELECT
category,
AVG( TO_DAYS(end_date) - TO_DAYS(start_date) )
FROM elapsed
WHERE end_date > DATE_ADD(CURDATE(), INTERVAL -5 MONTH)
GROUP BY category
(P.S. Yes the last interval of $x{'17'} was 2006-12-17 to 2007-01-21,
it was a typing mistake)
Thanks again,
--
Bart
------------------------------
Date: Wed, 21 Feb 2007 07:57:46 GMT
From: "a" <a@mail.com>
Subject: getOptions for object oriented Perl
Message-Id: <_XSCh.1075443$5R2.664565@pd7urf3no>
Hi,
Since some parameters from @ARGV are for the child method. I need to process
some of these parameters in the method of the child class. But the
following code doesnt work. The GetOptions do not process the ARGV for the
parent class. How should I make it to work?
In parentClass
parseCommandLine(){
GetOptions(\%cmdLineArgs, "h","p=i", "k=s"")
}
In childClass
parseCommandLine(){
GetOptions(\%cmdLineArgs, "n=s", "t=i")
$self->SUPER::parseCommandLine();
}
Thanks
------------------------------
Date: Wed, 21 Feb 2007 10:37:19 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: getOptions for object oriented Perl
Message-Id: <b84ot2poe9ll901vi9uosp8b54c6kdf3cg@4ax.com>
On Wed, 21 Feb 2007 07:57:46 GMT, "a" <a@mail.com> wrote:
>Since some parameters from @ARGV are for the child method. I need to process
>some of these parameters in the method of the child class. But the
This does not make sense. You use GetOptions(), which seems to come
from Getopt::Long. That processes @ARGV "once and forever". If some of
the implied parameters affect things related "the child method" or
whatever, just preprocess the command line arguments at the beginning
of your script and pass the collected data say to the constructors for
your objects or to suitable methods. Or else I plainly don't
understand your question. In which case you would better post a
minimal but complete example exhibiting what that you want and how it
fails to give that to you, because I feel smell of XY here:
http://perlmonks.org/?node=XY+problem
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Tue, 20 Feb 2007 23:25:48 -0500
From: Fred <itfred@cdw.com>
Subject: How to get individual fields into variables using DBI?
Message-Id: <VuidnUuT3elRVEbYnZ2dnUVZ_t-mnZ2d@comcast.com>
The code fragment below will print all rows in the
table mytable. If there are say 3 fields in mytable,
field1, field2, and field3, how would I get all of
the values into each field? That is, break up
each row by field into variables?
-Thanks
my $dbh = DBI->connect(
"dbi:Pg:dbname=$dbname;host=$host;port=$port",
$username, ' '
) or die $!;
my $sth = $dbh->prepare("select * from mytable");
$sth->execute();
while ( @row = $sth->fetchrow_array ) {
print "@row\n";
}
------------------------------
Date: Wed, 21 Feb 2007 18:09:53 +1100
From: Iain Chalmers <bigiain@mightymedia.com.au>
Subject: Re: How to get individual fields into variables using DBI?
Message-Id: <bigiain-9E4FF3.18095321022007@nasal.pacific.net.au>
In article <VuidnUuT3elRVEbYnZ2dnUVZ_t-mnZ2d@comcast.com>,
Fred <itfred@cdw.com> wrote:
> The code fragment below will print all rows in the
> table mytable. If there are say 3 fields in mytable,
> field1, field2, and field3, how would I get all of
> the values into each field? That is, break up
> each row by field into variables?
Errmmm, you _do_ know what that "@" symbol in front of @row means, right?
Have you tried something like:
print "col0 = $row[0], col1 = $row[1]\n";
inside that while loop?
big
>
> -Thanks
>
>
>
> my $dbh = DBI->connect(
> "dbi:Pg:dbname=$dbname;host=$host;port=$port",
> $username, ' '
> ) or die $!;
>
> my $sth = $dbh->prepare("select * from mytable");
>
> $sth->execute();
>
> while ( @row = $sth->fetchrow_array ) {
> print "@row\n";
> }
--
"Everything you love, everything meaningful with depth and history,
all passionate authentic experiences will be appropriated, mishandled,
watered down, cheapened, repackaged, marketed and sold to the people
you hate." Mr Jalopy quoting Hooptyrides (on jalopyjunktown.com)
------------------------------
Date: 21 Feb 2007 01:13:42 -0800
From: "gniagnia" <gniagnia@gmail.com>
Subject: how to use system command to launch a shell script ?
Message-Id: <1172049221.972010.101860@j27g2000cwj.googlegroups.com>
Hi all,
I've searched the www for hours but I still don't understand why this
isn't working.
I am writting a perl script (on a linux server) that needs to run a
shell script (on the same linux server).
So I tried the following :
1 - exec "/path/to/my/shell_script.sh";
2 - open EXIT, "/us/path/to/my/shell_script.sh |";
3 - system "/path/to/my/shell_script.sh";
Neither of these 3 attempts actually worked.....the shell script isnt
launched by the linux server....
What am i missing?
Thanks a lot in advance
------------------------------
Date: Wed, 21 Feb 2007 10:51:08 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: how to use system command to launch a shell script ?
Message-Id: <wuVCh.4929$lG6.4451@trndny08>
gniagnia wrote:
> I am writting a perl script (on a linux server) that needs to run a
> shell script (on the same linux server).
> So I tried the following :
>
> 1 - exec "/path/to/my/shell_script.sh";
>
> 2 - open EXIT, "/us/path/to/my/shell_script.sh |";
>
> 3 - system "/path/to/my/shell_script.sh";
>
> Neither of these 3 attempts actually worked.....the shell script isnt
> launched by the linux server....
>
> What am i missing?
You forgot to ask perl for help. Why are you ignoring the return value/error
codes?
See e.g. "perldoc -f system" for details about how to extract them
jue
------------------------------
Date: Wed, 21 Feb 2007 05:42:11 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Feb 21 2007
Message-Id: <JDst6B.ttC@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Algorithm-Networksort-1.07
http://search.cpan.org/~jgamble/Algorithm-Networksort-1.07/
Create inline comparisons for sorting.
----
Archive-Builder-1.08
http://search.cpan.org/~adamk/Archive-Builder-1.08/
File generation and archiving framework
----
Audio-Analyzer-0.02
http://search.cpan.org/~triddle/Audio-Analyzer-0.02/
----
Authen-Radius-0.13_01
http://search.cpan.org/~manowar/Authen-Radius-0.13_01/
provide simple Radius client facilities
----
AutoReloader-0.01
http://search.cpan.org/~shmem/AutoReloader-0.01/
Lazy loading and reloading of anonymous subroutines
----
Bio-Das-Lite-1.47
http://search.cpan.org/~rpettett/Bio-Das-Lite-1.47/
Perl extension for the DAS (HTTP+XML) Protocol (http://biodas.org/)
----
CGI-Application-Server-0.03
http://search.cpan.org/~stevan/CGI-Application-Server-0.03/
A simple HTTP server for developing with CGI::Application
----
DBIx-Perlish-0.17
http://search.cpan.org/~gruber/DBIx-Perlish-0.17/
a perlish interface to SQL databases
----
Egg-Release-1.04
http://search.cpan.org/~lushe/Egg-Release-1.04/
WEB application framework release version.
----
Egg-Release-1.05
http://search.cpan.org/~lushe/Egg-Release-1.05/
WEB application framework release version.
----
File-Mirror-0.02
http://search.cpan.org/~jwu/File-Mirror-0.02/
Perl extension for recursive directory copy
----
File-Util-3.16
http://search.cpan.org/~tommy/File-Util-3.16/
Easy, versatile, portable file handling
----
Finance-Math-IRR-0.06
http://search.cpan.org/~erwan/Finance-Math-IRR-0.06/
Calculate the internal rate of return of a cash flow
----
Gimp-ScriptFu-Client-1.01
http://search.cpan.org/~astewart/Gimp-ScriptFu-Client-1.01/
Client for the GNU Image Manipulation Program
----
IMDB-Film-0.24
http://search.cpan.org/~stepanov/IMDB-Film-0.24/
OO Perl interface to the movies database IMDB.
----
JE-0.004
http://search.cpan.org/~sprout/JE-0.004/
Pure-Perl ECMAScript (JavaScript) Engine
----
Lingua-ZH-WordSegment-0.04
http://search.cpan.org/~chenyr/Lingua-ZH-WordSegment-0.04/
Simple Simplified Chinese Word Segmentation
----
Mail-ClamAV-0.20
http://search.cpan.org/~sabeck/Mail-ClamAV-0.20/
Perl extension for the clamav virus scanner
----
Math-GMPf-0.14
http://search.cpan.org/~sisyphus/Math-GMPf-0.14/
perl interface to the GMP library's floating point (mpf) functions.
----
Math-GMPq-0.10
http://search.cpan.org/~sisyphus/Math-GMPq-0.10/
perl interface to the GMP library's rational (mpq) functions.
----
Math-GMPz-0.20
http://search.cpan.org/~sisyphus/Math-GMPz-0.20/
----
Math-GMPz-0.21
http://search.cpan.org/~sisyphus/Math-GMPz-0.21/
perl interface to the GMP library's integer (mpz) functions.
----
Math-Polynom-0.06
http://search.cpan.org/~erwan/Math-Polynom-0.06/
Operations on polynomials
----
Music-PlayTab-0.04
http://search.cpan.org/~jv/Music-PlayTab-0.04/
----
Net-GPSD-Server-Fake-0.15
http://search.cpan.org/~mrdvt/Net-GPSD-Server-Fake-0.15/
Provides a Fake GPSD daemon server test harness.
----
Net-Prizm-0.03
http://search.cpan.org/~jef/Net-Prizm-0.03/
Perl client interface to Motorola Canopy Prizm
----
POE-Component-CPAN-YACSmoke-0.14
http://search.cpan.org/~bingos/POE-Component-CPAN-YACSmoke-0.14/
bringing the power of POE to CPAN smoke testing.
----
RadiusPerl-0.13
http://search.cpan.org/~manowar/RadiusPerl-0.13/
----
SNMP-Persist-0.05
http://search.cpan.org/~anias/SNMP-Persist-0.05/
The SNMP pass_persist threaded backend
----
Snort-Rule-1.06
http://search.cpan.org/~saxjazman/Snort-Rule-1.06/
Perl extension for dynamically building snort rules
----
Socialtext-Resting-0.18
http://search.cpan.org/~lukec/Socialtext-Resting-0.18/
module for accessing Socialtext REST APIs
----
Socialtext-Resting-Utils-0.10
http://search.cpan.org/~lukec/Socialtext-Resting-Utils-0.10/
Utilities for Socialtext REST APIs
----
Test-Presenter-0.2
http://search.cpan.org/~bryce/Test-Presenter-0.2/
A module for results Presentation.
----
Time-TAI-0.002
http://search.cpan.org/~zefram/Time-TAI-0.002/
International Atomic Time and realisations
----
WWW-Monitor-0.12
http://search.cpan.org/~yaron/WWW-Monitor-0.12/
Monitor websites for updates and changes
----
WWW-Monitor-0.121
http://search.cpan.org/~yaron/WWW-Monitor-0.121/
Monitor websites for updates and changes
----
Web-Scaffold-0.09
http://search.cpan.org/~miker/Web-Scaffold-0.09/
build minimalist fancy web sites
----
Web-Scaffold-0.10
http://search.cpan.org/~miker/Web-Scaffold-0.10/
build minimalist fancy web sites
----
XML-QOFQSF-0.03
http://search.cpan.org/~codehelp/XML-QOFQSF-0.03/
convert personal data to and from QSF XML files
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Wed, 21 Feb 2007 21:21:25 +1300
From: Tintin <tintin@invalid.invalid>
Subject: Re: Newbie...Not able to include a file in perl script
Message-Id: <45dbf32b$0$16379$88260bb3@free.teranews.com>
pankaj_wolfhunter@yahoo.co.in wrote:
> Thanks Joseph, Bob. Sorry as being a newbie, I didnt know much about
> the etiquette of this group.
> I'll keep these things in mind.
>
> The file which I am trying to include is a shell script and not a perl
> one.
> I think there lies my problem.
I have no idea what leap of logic made you believe you could include a
shell script in the Perl program.
Shell script != Perl
Perl != Shell script
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: 21 Feb 2007 04:15:54 -0800
From: pablo@sigex.com
Subject: Performance project for the SigEx Foundry
Message-Id: <1172060154.122555.190330@k78g2000cwa.googlegroups.com>
have been testing performances of different scripting languages
fordatabase access, text processing and client application data
transfer. So far, I am getting better performance from PHP, but I
don't have any hard data to back it up compared to others.
This is a large project for the SigEx Foundry and it involves hundreds
of servers. I am looking for articles/studies/benchmarks on the
subject.
Thank you,
Pablo
Server Side Developer
Student for the SigEx Foundry
funded by SigEx Ventures
------------------------------
Date: Tue, 20 Feb 2007 20:44:55 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Quick Question
Message-Id: <slrnetnch7.cr3.tadmc@tadmc30.august.net>
thorassic5@gmail.com <thorassic5@gmail.com> wrote:
> Subject: Quick Question
Please put the subject of your article in the Subject of your article.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 20 Feb 2007 22:54:40 -0800
From: dptom79@gmail.com
Subject: Regex matching a integer in a line
Message-Id: <1172040880.380827.102080@m58g2000cwm.googlegroups.com>
Hi experts,
Can anyone tell me a regex to see if the line has a numeral only i.e,
I dont want the integer in a line. I want the line which has only an
integer while I am parsing a file..there will be many lines with
integers but I want the line with ONLY integer in it (with some
whitespaces which are to be avoided) and nothing else.
Please help
Thanks in advance
Tom
------------------------------
Date: Wed, 21 Feb 2007 08:09:39 +0100
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Regex matching a integer in a line
Message-Id: <jq7ta4-0v6.ln1@news.rtij.nl>
On Tue, 20 Feb 2007 22:54:40 -0800, dptom79 wrote:
> Hi experts,
> Can anyone tell me a regex to see if the line has a numeral only i.e,
> I dont want the integer in a line. I want the line which has only an
> integer while I am parsing a file..there will be many lines with
> integers but I want the line with ONLY integer in it (with some
> whitespaces which are to be avoided) and nothing else.
/^[\s\d]+$/
HTH,
M4
------------------------------
Date: Wed, 21 Feb 2007 19:02:02 +1100
From: Iain Chalmers <bigiain@mightymedia.com.au>
Subject: Re: Regex matching a integer in a line
Message-Id: <bigiain-1C3C01.19020221022007@nasal.pacific.net.au>
In article <jq7ta4-0v6.ln1@news.rtij.nl>,
Martijn Lievaart <m@rtij.nl.invlalid> wrote:
> On Tue, 20 Feb 2007 22:54:40 -0800, dptom79 wrote:
>
> > Hi experts,
> > Can anyone tell me a regex to see if the line has a numeral only i.e,
> > I dont want the integer in a line. I want the line which has only an
> > integer while I am parsing a file..there will be many lines with
> > integers but I want the line with ONLY integer in it (with some
> > whitespaces which are to be avoided) and nothing else.
>
> /^[\s\d]+$/
Ummm... I don't think so:
bigiain% perl -e'$_="1 2 3";print "OK\n" if /^[\s\d]+$/'
OK
how about
/^\s*[\d]+\s*$/
and
/^\s*([\d]+)\s*$/
if you want to capture the digits only.
(extending to deal with negative integers left as an exercise for the
reader)
big
--
"Everything you love, everything meaningful with depth and history,
all passionate authentic experiences will be appropriated, mishandled,
watered down, cheapened, repackaged, marketed and sold to the people
you hate." Mr Jalopy quoting Hooptyrides (on jalopyjunktown.com)
------------------------------
Date: Wed, 21 Feb 2007 09:02:31 +0100
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: Regex matching a integer in a line
Message-Id: <ergue8$182$1@nntp.fujitsu-siemens.com>
Martijn Lievaart wrote:
> On Tue, 20 Feb 2007 22:54:40 -0800, dptom79 wrote:
>=20
>=20
>>Hi experts,
>>Can anyone tell me a regex to see if the line has a numeral only i.e,
>>I dont want the integer in a line. I want the line which has only an
>>integer while I am parsing a file..there will be many lines with
>>integers but I want the line with ONLY integer in it (with some
>>whitespaces which are to be avoided) and nothing else.
>=20
>=20
> /^[\s\d]+$/
That will match " 1 2 3 ".
If the OP wants single numbers only ("which has only an integer"), this
/^\s*\d+\s*$/
might be more appropriate.
--=20
Josef M=C3=B6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: 20 Feb 2007 22:03:29 -0800
From: "Shannon Jacobs" <Shannon.Jacobs.nospam@gmail.com>
Subject: Re: Regex: Why is overreaching necessary?
Message-Id: <1172037809.016755.225340@l53g2000cwa.googlegroups.com>
On Feb 21, 10:06 am, Ilya Zakharevich <nospam-ab...@ilyaz.org> wrote:
<snip>
> If we could see the actual code you used, it would be much easier to
> understand what problem you see.
>
> $_ = ' 908|1101';
> print "Matched!\n" if / /; # <--- Fill this line
>
> Thanks,
> Ilya
The actual code is a pretty large piece and has a very mottled and
almost ancient history, too. Kind of a cancerous spare-time project of
essentially low priority. The result is embarrassing at best, but that
it works at all is something of a testimonial to the robustness of
Perl. However, because of it's size, complexity, and almost complete
lack of documentation I've tried to focus any questions on key
snippets. If you really want to see the whole mess, I guess you can,
but I think it would be quite an effort for anyone else to figure all
of it out...
However, by looking at the following two URLs, I think I can see what
is going on, though I still don't understand exactly why it produces
those results. The leading space has been removed in the case that
produces the error. For a reason which I still don't understand, that
means that 909 as an or option of the target somehow matches the 12
digits 210921101612. Actually, since I now trust Anno-san's approach,
it means the false match is apparently against 2109, 2110, or 1612...
http://shanenj.tripod.com/cgi-bin/procbook0.cgi?a_SEARCH_VALUE=+909%7C1101&searchfields=authornums&sensecase=nocase&sorttype=none&datetype=comp&numorname=both
http://shanenj.tripod.com/cgi-bin/procbook0.cgi?a_SEARCH_VALUE=1101%7C+909&searchfields=authornums&sensecase=nocase&sorttype=none&datetype=comp&numorname=both
Anyway, it seems like the natural solution if I can't live with it
would be to go back to the HTML and prevent it from removing the
leading space there...
------------------------------
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 157
**************************************
