[31025] in Perl-Users-Digest
Perl-Users Digest, Issue: 2270 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Mar 11 18:09:44 2009
Date: Wed, 11 Mar 2009 15:09:09 -0700 (PDT)
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, 11 Mar 2009 Volume: 11 Number: 2270
Today's topics:
Re: Comparing Date Strings krakle@visto.com
DBD::mysql <brillisoft@gmail.com>
Re: DBD::mysql krakle@visto.com
Re: DBD::mysql <1usa@llenroc.ude.invalid>
Re: DBD::mysql krakle@visto.com
Re: DBI select 'like' query krakle@visto.com
How to test if global has been assigned to? <socyl@987jk.com.invalid>
Re: How to test if global has been assigned to? <uri@stemsystems.com>
Re: How to test if global has been assigned to? (Tim McDaniel)
Re: Net::SMTP_auth and Authen::SASL / PPM <ferkel@gmx.li>
regex for finding jumbled words <strongsilentone@gmail.com>
Re: regex for finding jumbled words <mijoryx@yahoo.com>
Re: regex for finding jumbled words <1usa@llenroc.ude.invalid>
s/// parametrized with backreferences <m@epf.pl>
Re: s/// parametrized with backreferences <peter@makholm.net>
Re: s/// parametrized with backreferences <tadmc@seesig.invalid>
Re: s/// parametrized with backreferences <m@epf.pl>
Re: s/// parametrized with backreferences <tadmc@seesig.invalid>
Re: Where is the definition or documentation of PDF "de <r.ted.byers@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 11 Mar 2009 14:41:28 -0700 (PDT)
From: krakle@visto.com
Subject: Re: Comparing Date Strings
Message-Id: <443f0956-7cea-4b6c-a4d6-baf838a0377f@j8g2000yql.googlegroups.com>
On Mar 10, 3:31=A0pm, "M" <no_...@no.co3m45644.com> wrote:
> I have a string like so "2009-02-10" and I need to determine if its over =
say
> x days old. =A0In this instance 5 days old. =A0Whats the best way to do t=
hat? =A0I
> imagine I first must parse the string into a date in perl.
>
> M
Believe it or not... Perl is a great language because of this "little"
thing called CPAN. I'm still reading up on it but I'm pretty sure you
can download and install all sorts of reusable code. Word on the
street suggests that people in their spare time (with no lives) will
sit around for hours and hours writing efficient code that others may
find useful.
Check it out... http://cpan.perl.org/
------------------------------
Date: Wed, 11 Mar 2009 11:17:35 -0700 (PDT)
From: brillisoft <brillisoft@gmail.com>
Subject: DBD::mysql
Message-Id: <70348447-763b-4c35-be7d-dd878fa44a1c@13g2000yql.googlegroups.com>
Is there a way to download and install the DBD::mysql module, for
ActiveState Perl under Windows XP, without building it with Makefile?
For some reason, PPM doesn't find it .. does it have to be difficult?
------------------------------
Date: Wed, 11 Mar 2009 14:34:04 -0700 (PDT)
From: krakle@visto.com
Subject: Re: DBD::mysql
Message-Id: <2db72cd4-744e-4c51-9d88-fa8516a3cc99@e18g2000yqo.googlegroups.com>
On Mar 11, 2:17=A0pm, brillisoft <brillis...@gmail.com> wrote:
> Is there a way to download and install the DBD::mysql module, for
> ActiveState Perl under Windows XP, without building it with Makefile?
>
> For some reason, PPM doesn't find it .. does it have to be difficult?
PPM just doesn't find it on the default repository. So simply add
repositories to the manager... You can go to google and type in "Perl
repository" or "Perl repositories" to find some that may have it.
Tad will be around shortly to tell you this post should of been posted
in comp.lang.perl.misc.ppm.repository.modules.dbd-mysql.missing so
stay tune!!!
------------------------------
Date: Wed, 11 Mar 2009 21:45:34 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: DBD::mysql
Message-Id: <Xns9BCBB4A78D4A3asu1cornelledu@127.0.0.1>
krakle@visto.com wrote in news:2db72cd4-744e-4c51-9d88-fa8516a3cc99
@e18g2000yqo.googlegroups.com:
> Tad will be around shortly to tell you this post should of been posted
s/of/have/
> in comp.lang.perl.misc.ppm.repository.modules.dbd-mysql.missing so
> stay tune!!!
s/tune/tuned/
I am perplexed by your response.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://www.rehabitation.com/clpmisc/
------------------------------
Date: Wed, 11 Mar 2009 14:53:33 -0700 (PDT)
From: krakle@visto.com
Subject: Re: DBD::mysql
Message-Id: <2740b55a-9b2c-4955-9b4e-7773ecf77362@t3g2000yqa.googlegroups.com>
On Mar 11, 5:45=A0pm, "A. Sinan Unur" <1...@llenroc.ude.invalid> wrote:
> kra...@visto.com wrote in news:2db72cd4-744e-4c51-9d88-fa8516a3cc99
> @e18g2000yqo.googlegroups.com:
>
> > Tad will be around shortly to tell you this post should of been posted
>
> s/of/have/
>
> > in comp.lang.perl.misc.ppm.repository.modules.dbd-mysql.missing so
> > stay tune!!!
>
> s/tune/tuned/
>
> I am perplexed by your response.
>
> Sinan
>
> --
> A. Sinan Unur <1...@llenroc.ude.invalid>
> (remove .invalid and reverse each component for email address)
>
> comp.lang.perl.misc guidelines on the WWW:http://www.rehabitation.com/clp=
misc/
Troll.
------------------------------
Date: Wed, 11 Mar 2009 14:44:48 -0700 (PDT)
From: krakle@visto.com
Subject: Re: DBI select 'like' query
Message-Id: <04f5905f-4718-4d8c-9e20-3bcd239ef91d@t7g2000yqa.googlegroups.com>
On Mar 10, 11:57=A0am, ccc31807 <carte...@gmail.com> wrote:
> If I run this query: "SELECT * FROM EVENTS WHERE eventdate LIKE
> '2009-03%';" I get all March, 2009 events.
Not a Perl response but...
if eventdate it a DATETIME column type there are better ways to fetch
all records from March, 2009. You may want to look up mySQL's date
functions... It'll save you a lot of headachs and work in the future.
=3D)
------------------------------
Date: Wed, 11 Mar 2009 18:51:51 +0000 (UTC)
From: kj <socyl@987jk.com.invalid>
Subject: How to test if global has been assigned to?
Message-Id: <gp9187$hlg$1@reader1.panix.com>
With hashes one can use the exists predicate to distinguish between
values that have not been assigned to from those that have been
assigned undef:
my %foo = ( bar => undef );
my $have_bar = exists $foo{ bar }; # true
my $have_baz = exists $foo{ baz }; # false
(Actually, autovivification introduces a wrinkle here, but I don't
want to get into that.)
Is there a way to make the analogous distinction between the case
where a global variable has not been initialized from the one where
it has been explicitly initialized with the value "undef"?
Thanks in advance!
kynn
--
NOTE: In my address everything before the first period is backwards;
and the last period, and everything after it, should be discarded.
------------------------------
Date: Wed, 11 Mar 2009 14:01:27 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: How to test if global has been assigned to?
Message-Id: <x7k56v6fzs.fsf@mail.sysarch.com>
>>>>> "k" == kj <socyl@987jk.com.invalid> writes:
k> With hashes one can use the exists predicate to distinguish between
k> values that have not been assigned to from those that have been
k> assigned undef:
k> my %foo = ( bar => undef );
k> my $have_bar = exists $foo{ bar }; # true
k> my $have_baz = exists $foo{ baz }; # false
k> (Actually, autovivification introduces a wrinkle here, but I don't
k> want to get into that.)
not in those examples. autoviv only matters in deeper accesses or when
used as an lvalue where there is an undef value where a ref should be.
k> Is there a way to make the analogous distinction between the case
k> where a global variable has not been initialized from the one where
k> it has been explicitly initialized with the value "undef"?
why do you care? if you have to, use another hash which has this
variable instead of a global. globals are BAAAAD! (unless you know why
you need one).
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Free Perl Training --- http://perlhunter.com/college.html ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Wed, 11 Mar 2009 19:42:10 +0000 (UTC)
From: tmcd@panix.com (Tim McDaniel)
Subject: Re: How to test if global has been assigned to?
Message-Id: <gp946i$818$1@reader1.panix.com>
In article <gp9187$hlg$1@reader1.panix.com>,
kj <socyl@987jk.com.invalid> wrote:
>Is there a way to make the analogous distinction between the case
>where a global variable has not been initialized from the one where
>it has been explicitly initialized with the value "undef"?
My first thought: if it's a global variable in the sense of a package
variable (as opposed to "my" lexical variables), then it is or is not
in the package's symbol table, and that's a hash %package_name:: .
However,
#! /usr/bin/perl -w
print ('never_used: ', (exists $main::{never_used} ? 1 : 0), "\n");
print ('narf: ', (exists $main::{narf} ? 1 : 0), "\n");
$narf = 3;
print ('narf: ', (exists $main::{narf} ? 1 : 0), "\n");
print ('barf: ', (exists $main::{barf} ? 1 : 0), "\n");
eval { $barf = 3; };
print ('barf: ', (exists $main::{barf} ? 1 : 0), "\n");
print ('zarf: ', (exists $main::{zarf} ? 1 : 0), "\n");
eval '$zarf = 3;';
print ('zarf: ', (exists $main::{zarf} ? 1 : 0), "\n");
print ('arf: ', (exists $main::{arf} ? 1 : 0), "\n");
eval '$arf = 3;';
print ('arf value: ', (defined $arf ? $arf : 'huh'), "\n");
print ('arf: ', (exists $main::{arf} ? 1 : 0), "\n");
exit 0;
in Perl 5.10 on Windows, prints
Name "main::narf" used only once: possible typo at
local/test/055.pl line 6.
Name "main::barf" used only once: possible typo at
local/test/055.pl line 10.
never_used: 0
narf: 1
narf: 1
barf: 1
barf: 1
zarf: 0
zarf: 1
arf: 1
arf value: 3
arf: 1
So I guess the compiler has to be parsing everything it can, noticing
the assignments OR uses of $narf and $barf and $arf at compile time,
and putting them into the symbol table from the start.
So this is a dead end that doesn't help you excep tin the most limited
of cases. Sorry.
--
Tim McDaniel, tmcd@panix.com
------------------------------
Date: Wed, 11 Mar 2009 17:56:28 +0100
From: "Uwe Kausch" <ferkel@gmx.li>
Subject: Re: Net::SMTP_auth and Authen::SASL / PPM
Message-Id: <op.uqmz0e0sz72dbe@erdnuss>
Hello Jonas,
try the following steps ...
+ open a command line windows (START => Run => enter "cmd" => press "OK")
+ enter "ppm help" to get sure that ppm is installed.
If ppm is installed, you follow up with checking the availability of the
packages ...
+ ppm search Net::SMTP_auth
+ ppm search Authen::SASL
To install the packages you are running ...
+ ppm install Net-SMTP_auth (CAUTION: use the PPM-package-name jet)
+ ppm install Authen-SASL
To check whether a package is installed or not, you doing this ...
+ ppm query Net-SMTP (!remember to use PPM-package-name)
+ ppm query Authen-SASL
For further information about PPM please check
http://docs.activestate.com/activeperl/5.10/bin/ppm.html
If PPM is not installed on your system, just redo the installation of
ActivePerl and take care about the install options.
With "ppm list" you get all installed perl packages on your system. This
list can be very helpful to compare perl installations on different
computers.
Best regards from Munich,
Uwe
Am 11.03.2009, 15:50 Uhr, schrieb <time_error@hotmail.com>:
> Jonas
--
Erstellt mit Operas revolutionärem E-Mail-Modul: http://www.opera.com/mail/
------------------------------
Date: Wed, 11 Mar 2009 11:00:58 -0700 (PDT)
From: sso <strongsilentone@gmail.com>
Subject: regex for finding jumbled words
Message-Id: <2c7d33c6-4f00-4c19-b81a-505852bb7a56@t3g2000yqa.googlegroups.com>
Hi, I need help figuring out the regex that would find if a word can
be made from another word.
For example
apple could make pal, lap, leap
it could not make all or peel
Suggestions?
------------------------------
Date: Wed, 11 Mar 2009 14:12:51 -0700 (PDT)
From: luser-ex-troll <mijoryx@yahoo.com>
Subject: Re: regex for finding jumbled words
Message-Id: <8f0c5549-476b-45c7-8f2e-8a20e1cb83f9@v15g2000yqn.googlegroups.com>
On Mar 11, 1:00=A0pm, sso <strongsilent...@gmail.com> wrote:
> Hi, I need help figuring out the regex that would find if a word can
> be made from another word.
> For example
>
> apple =A0could make =A0pal, lap, leap
> it could not make all or peel
>
> Suggestions?
Regex might not be the best strategy here.
I'd try counting the letters into a hash,
keyed by letter. Then you can generate a similar
hash for words to test and loop through the keys
to check if 'apple' has the right number of each
letter needed to make the word in question.
This could be very slow.
lxt
------------------------------
Date: Wed, 11 Mar 2009 21:42:53 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: regex for finding jumbled words
Message-Id: <Xns9BCBB43276576asu1cornelledu@127.0.0.1>
sso <strongsilentone@gmail.com> wrote in news:2c7d33c6-4f00-4c19-b81a-
505852bb7a56@t3g2000yqa.googlegroups.com:
> Hi, I need help figuring out the regex that would find if a word can
> be made from another word.
> For example
>
> apple could make pal, lap, leap
> it could not make all or peel
Here is a fish:
#!/usr/bin/perl
use strict;
use warnings;
my $src = 'apple';
my @targets = qw( pal lap leap all peel );
for my $target ( @targets ) {
printf("'%s' %s be made from '%s'\n",
$target,
check( $src, $target ) ? 'can' : 'cannot',
$src
);
}
sub check {
my ($src, $target) = @_;
my %src;
++ $src{ $_ } for split //, $src;
my @target = split //, $target;
for my $x ( @target ) {
return unless exists $src{ $x };
return unless $src{ $x }--;
}
return 1;
}
__END__
C:\DOCUME~1\asu1\LOCALS~1\Temp> t
'pal' can be made from 'apple'
'lap' can be made from 'apple'
'leap' can be made from 'apple'
'all' cannot be made from 'apple'
'peel' cannot be made from 'apple'
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://www.rehabitation.com/clpmisc/
------------------------------
Date: Wed, 11 Mar 2009 08:36:31 -0700 (PDT)
From: msciwoj <m@epf.pl>
Subject: s/// parametrized with backreferences
Message-Id: <0c3db0ce-cc31-4350-a162-4673ec121eb0@t7g2000yqa.googlegroups.com>
Is it possible to use substitution with parameters as arguments -
especially the replacement part?
Works for me to some extent but not with backreferences...
Let's say I'm interested in prompting user for arguments: pattern and
replacement and he would like to use equivalent of:
s/(.)\n(.)/\2\n\1/mg
Continuing, I could have two vars defined, accordingly:
$pattern='(.)\n(.)'; #$ARGV[1];
$replacement='\2\n\1'; #$ARGV[2]
and my idea is to use here:
$_ =~ s/$pattern/$replacement/mg
but it doesn't work - (instead using backreferendes, gives '\1' and
'\2' in the output, what makes sens after all). The question is how
(if only possible) to use s/// with a replacement part defined in a
variable (ie. run-time user defined string)?
Any ideas?
Thanks!
m.
------------------------------
Date: Wed, 11 Mar 2009 16:54:31 +0100
From: Peter Makholm <peter@makholm.net>
Subject: Re: s/// parametrized with backreferences
Message-Id: <87prgo2gy0.fsf@vps1.hacking.dk>
msciwoj <m@epf.pl> writes:
> Let's say I'm interested in prompting user for arguments: pattern and
> replacement and he would like to use equivalent of:
> s/(.)\n(.)/\2\n\1/mg
If you had run you script with 'use warnings' it would have told you
that '\1 better written as $1'.
> Continuing, I could have two vars defined, accordingly:
>
> $pattern='(.)\n(.)'; #$ARGV[1];
> $replacement='\2\n\1'; #$ARGV[2]
>
> and my idea is to use here:
> $_ =~ s/$pattern/$replacement/mg
By using $1 instead of \1 and by using the correct number of /e
modifiers you could get something to work:
$replacement = '\2\n\1'; # $ARGV[2];
# Massage replacement into something workable:
$replacement =~ s/\\(\d)/'.\$$1.'/g; # Magic - huh?
$replacement = qq('$replacement');
# Do the substitution:
d/(.*)-(.*)/$replacement/ee;
But the more I look at it the uglier it seems to become.
//Makholm
------------------------------
Date: Wed, 11 Mar 2009 11:37:01 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: s/// parametrized with backreferences
Message-Id: <slrngrfq5d.9u9.tadmc@tadmc30.sbcglobal.net>
msciwoj <m@epf.pl> wrote:
> Is it possible to use substitution with parameters as arguments -
> especially the replacement part?
The replacement part of s/// is a double quotish string, so your
question reduces to this FAQ:
How can I expand variables in text strings?
> Works for me to some extent but not with backreferences...
>
> Let's say I'm interested in prompting user for arguments: pattern and
> replacement and he would like to use equivalent of:
> s/(.)\n(.)/\2\n\1/mg
You should always enable warnings when developing Perl code. That should be:
s/(.)\n(.)/$2\n$1/mg
However the s///m modifier only affects the ^ and $ anchors, and since
you don't use those anchors, you don't need that modifier:
s/(.)\n(.)/$2\n$1/g
> Continuing, I could have two vars defined, accordingly:
>
> $pattern='(.)\n(.)'; #$ARGV[1];
> $replacement='\2\n\1'; #$ARGV[2]
>
> and my idea is to use here:
> $_ =~ s/$pattern/$replacement/mg
If you are reading $_ from a filehandle, then see also:
perldoc -q match
I'm having trouble matching over more than one line. What's wrong?
> The question is how
> (if only possible) to use s/// with a replacement part defined in a
> variable (ie. run-time user defined string)?
-------------------------
#!/usr/bin/perl
use warnings;
use strict;
my $pattern = '(.)\n(.)';
my $replacement = '"$2\n$1"'; # note the double quotes for the 1st eval to see
$_ = "first line\nsecond line\nthird line\nfourth line";
s/$pattern/$replacement/eeg;
print;
-------------------------
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Wed, 11 Mar 2009 10:34:16 -0700 (PDT)
From: msciwoj <m@epf.pl>
Subject: Re: s/// parametrized with backreferences
Message-Id: <5fb58370-900b-492f-bcb2-693078b18a40@o36g2000yqh.googlegroups.com>
Works!
Thanks Tom!
I'm not an expert and don't understand why we need double quotes with
one more eval step (ee modifier) while one eval step without quotes
should also work in my opinion.
In other words having:
my $pattern = '(.)\n(.)';
my $replacement1 = '"$2\n$1"';
my $replacement2 = '$2\n$1';
why:
s/$pattern/$replacement1/eeg;
WORKS, while:
s/$pattern/$replacement2/eg;
NOT?
Thanks
m.
------------------------------
Date: Wed, 11 Mar 2009 13:01:55 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: s/// parametrized with backreferences
Message-Id: <slrngrfv4j.b4d.tadmc@tadmc30.sbcglobal.net>
msciwoj <m@epf.pl> wrote:
> Thanks Tom!
My name is Tad.
> I'm not an expert and don't understand why we need double quotes with
> one more eval step (ee modifier)
I made a thinko.
The double quotes are for the *second* eval, not for the first eval.
> while one eval step without quotes
> should also work in my opinion.
> In other words having:
>
> my $pattern = '(.)\n(.)';
> my $replacement1 = '"$2\n$1"';
> my $replacement2 = '$2\n$1';
>
> why:
> s/$pattern/$replacement1/eeg;
What does the 1st eval see?
$replacement1
so it evaluates it, and the 2nd eval sees the value of $replacement1
"$2\n$1"
so it interpolates the values for $2 and $1 into the replacement string.
If you don't put the double quotes in $replacement1, then the 2nd eval sees:
$2\n$1
which is a syntax error, just as
#!/usr/bin/perl
use strict;
use warnings;
$2\n$1
results in a syntax error.
> WORKS, while:
> s/$pattern/$replacement2/eg;
What does the eval see?
$replacement2
so it evaluates it and the _data_ (not code)
$2\n$1
is used as the replacement text.
> NOT?
Because that is what it is supposed to do.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Wed, 11 Mar 2009 08:35:25 -0700 (PDT)
From: Ted Byers <r.ted.byers@gmail.com>
Subject: Re: Where is the definition or documentation of PDF "default user space units"?
Message-Id: <48f76937-3b42-475a-a57c-bec082259f55@p6g2000pre.googlegroups.com>
On Mar 10, 2:54=A0pm, Ted Byers <r.ted.by...@gmail.com> wrote:
> Searching through the documentation for the PDF Perl packages'
> documentation, I found very terse mention of "default user space
> units", but I have yet to find what the default is, or how I can
> change it (or at least make a call that says the coordinates provided
> are in mm). To date, all my perl scripts that make PDF files use
> coordinates determined by trial and error, but I want to change this
> so I can just use coordinates in mm, or cm, and forget the tedium of
> rerunning the script seemingly countless times to get the position of
> text just right.
>
> Thanks
>
> Ted
Thanks guys.
Knowing the default units are points is a start, providing familiar
ground. It makes writing functions to convert from any other unit of
length to points trivial. I am quite used to writing code in a number
of languages to support real time animation, and to write code
generated graphics to a variety of output devices including printers:
all of which required explicit transformations from real world
coordinates to device coordinates. However, the question is more
about use of PDF::API2, and related packages, than it is about the PDF
specification itself.
Depending on where the author lived and worked, his "default user
space units" could well have been inches, feet, millimeters, or
centimeters. What was written in the documentation I referred to does
not make even that clear.
A colleague told me yesterday that the PHP PDF package he uses
supports providing coordinates in millimeters, and naturally I looked
into the Perl packages I use to see if they provide comparable
functionality. The problem I encountered is one of salient
information apparently not being provided in the documentation of
functions and packages provided to create and edit PDF files. If they
don't I can easily create it myself. But as you can understand, I
would want to avoid recreating the wheel, and so would use the
packages' functions if they do what I require.
Thanks again,
Ted
------------------------------
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 2270
***************************************
