[29710] in Perl-Users-Digest
Perl-Users Digest, Issue: 954 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 19 14:09:47 2007
Date: Fri, 19 Oct 2007 11: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 Fri, 19 Oct 2007 Volume: 11 Number: 954
Today's topics:
Re: Expansion of variable in foreach <nobull67@gmail.com>
Re: Expansion of variable in foreach <nobull67@gmail.com>
How to print integers so that they get thousands separa <ignoramus5114@NOSPAM.5114.invalid>
Re: How to print integers so that they get thousands se <simon.chao@fmr.com>
Re: How to print integers so that they get thousands se <jurgenex@hotmail.com>
Re: How to print integers so that they get thousands se <1usa@llenroc.ude.invalid>
Re: How to print integers so that they get thousands se <ignoramus5114@NOSPAM.5114.invalid>
Re: How to print integers so that they get thousands se <ignoramus5114@NOSPAM.5114.invalid>
Re: perl standard <uri@stemsystems.com>
Re: perl standard <uri@stemsystems.com>
Re: perl standard <jgibson@mail.arc.nasa.gov>
Re: please help optimize sub <1usa@llenroc.ude.invalid>
Re: printing a subject line <tzz@lifelogs.com>
Re: Regular expression to match only strings NOT contai <1usa@llenroc.ude.invalid>
Re: Regular expression to match only strings NOT contai <1usa@llenroc.ude.invalid>
Re: Regular expression to match only strings NOT contai <jurgenex@hotmail.com>
Re: Trying to start a perl script as Windows Service wbosse@metzler.com
Re: Trying to start a perl script as Windows Service <dn.perl@gmail.com>
Using IDL from a perl script <james.everton@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 19 Oct 2007 16:58:53 -0000
From: Brian McCauley <nobull67@gmail.com>
Subject: Re: Expansion of variable in foreach
Message-Id: <1192813133.527622.314980@t8g2000prg.googlegroups.com>
On Oct 19, 3:02 am, "Samik R." <sa...@frKKshKll.org> wrote:
>
> foreach $RefID (@RefineryIDs)
> {
> $DBHandle->execQueryNoResult("insert into orders
> values('$GameID',$CurrentWeek,'$RefID','$_',1000,'Road')");
> }
You appear to be assuming that the values in @RefineryIDs (etc) are
plain strings (and plain strings that contain no characters that are
meta with SQL quoted strings).
> print from inside the execQueryNoResult method, the
> insert statement comes as follows:
> insert into orders
> values('D00000',1,'ARRAY(0x1035d5b8)','ARRAY(0x1035d678)',1000,'Road')
Your assumption appears to have been false.
Take a look at what's really in @RefineryIDs (etc) .
------------------------------
Date: Fri, 19 Oct 2007 17:06:06 -0000
From: Brian McCauley <nobull67@gmail.com>
Subject: Re: Expansion of variable in foreach
Message-Id: <1192813566.683584.242100@e9g2000prf.googlegroups.com>
On Oct 19, 3:02 am, "Samik R." <sa...@frKKshKll.org> wrote:
>
> my $RefID="";
> foreach $RefID (@RefineryIDs)
You are declaring two variables called $RefID with different lexical
scopes. If the loop variable in a for has the same name as an
existing lexically scoped variable a new variable is implicitly
declared[1] with a lexical scope of the loop body. The first $RefID
you set to an empty string and then never use again. This is pure
obfuscation. Instead I suggest you declare just the $RefID that you
actually use.
foreach my $RefID (@RefineryIDs)
[1] I really which Perl would emit a warning when it does this.
------------------------------
Date: Fri, 19 Oct 2007 12:32:36 -0500
From: Ignoramus5114 <ignoramus5114@NOSPAM.5114.invalid>
Subject: How to print integers so that they get thousands separated by underscores
Message-Id: <yJOdnVT9f8upd4XanZ2dnUVZ_judnZ2d@giganews.com>
3526742821 -- this number is hard to read.
I want numbers printed with underscores like this:
3_526_742_821
is there a function or a module that does this. Thanks
i
------------------------------
Date: Fri, 19 Oct 2007 17:36:38 -0000
From: it_says_BALLS_on_your forehead <simon.chao@fmr.com>
Subject: Re: How to print integers so that they get thousands separated by underscores
Message-Id: <1192815398.548897.229880@i38g2000prf.googlegroups.com>
On Oct 19, 1:32 pm, Ignoramus5114 <ignoramus5...@NOSPAM.5114.invalid>
wrote:
> 3526742821 -- this number is hard to read.
>
> I want numbers printed with underscores like this:
>
> 3_526_742_821
>
Yes, just adapt the common "commify" sub to use underscores rather
than commas.
(untested)
sub underscorify {
my $text = reverse $_[0];
$text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1_/g;
return scalar reverse $text;
}
------------------------------
Date: Fri, 19 Oct 2007 17:38:49 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: How to print integers so that they get thousands separated by underscores
Message-Id: <JY5Si.100$na2.83@trndny08>
Ignoramus5114 wrote:
Dear fivethousandonehundredfourteenth incarnation of Ignoramus
> I want numbers printed with underscores like this:
>
> 3_526_742_821
>
> is there a function or a module that does this. Thanks
Is there anything wrong with the answer to FAQ
"How can I output my numbers with commas added?"
Or do you have problems replacing the comma with an underscore in that
answer?
Don't bother answering. Right back into the killfile with number 5114, too.
jue
------------------------------
Date: Fri, 19 Oct 2007 17:38:56 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: How to print integers so that they get thousands separated by underscores
Message-Id: <Xns99CE8AD6D7CBasu1cornelledu@127.0.0.1>
Ignoramus5114 <ignoramus5114@NOSPAM.5114.invalid> wrote in
news:yJOdnVT9f8upd4XanZ2dnUVZ_judnZ2d@giganews.com:
> 3526742821 -- this number is hard to read.
>
> I want numbers printed with underscores like this:
>
> 3_526_742_821
>
> is there a function or a module that does this.
You know, iggy, you should read the docs once in a while:
perldoc -q "How can I output my numbers with commas added?
I know, it is my fault for not being able to figure out how to killfile all
your future incarnations, but I am getting tired of the infinite variations
in names.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
clpmisc guidelines: <URL:http://www.augustmail.com/~tadmc/clpmisc.shtml>
------------------------------
Date: Fri, 19 Oct 2007 12:47:26 -0500
From: Ignoramus5114 <ignoramus5114@NOSPAM.5114.invalid>
Subject: Re: How to print integers so that they get thousands separated by underscores
Message-Id: <0ZydncgHLeozcIXanZ2dnUVZ_ofinZ2d@giganews.com>
On 2007-10-19, A. Sinan Unur <1usa@llenroc.ude.invalid> wrote:
> Ignoramus5114 <ignoramus5114@NOSPAM.5114.invalid> wrote in
> news:yJOdnVT9f8upd4XanZ2dnUVZ_judnZ2d@giganews.com:
>
>> 3526742821 -- this number is hard to read.
>>
>> I want numbers printed with underscores like this:
>>
>> 3_526_742_821
>>
>> is there a function or a module that does this.
>
> You know, iggy, you should read the docs once in a while:
>
> perldoc -q "How can I output my numbers with commas added?
Thanks! Now I know what FAQ question I should have asked.
> I know, it is my fault for not being able to figure out how to killfile all
> your future incarnations, but I am getting tired of the infinite variations
> in names.
>
> Sinan
>
Try a xnews FAQ.
i
------------------------------
Date: Fri, 19 Oct 2007 12:47:45 -0500
From: Ignoramus5114 <ignoramus5114@NOSPAM.5114.invalid>
Subject: Re: How to print integers so that they get thousands separated by underscores
Message-Id: <0ZydncsHLepccIXanZ2dnUVZ_ofinZ2d@giganews.com>
On 2007-10-19, it_says_BALLS_on_your forehead <simon.chao@fmr.com> wrote:
> On Oct 19, 1:32 pm, Ignoramus5114 <ignoramus5...@NOSPAM.5114.invalid>
> wrote:
>> 3526742821 -- this number is hard to read.
>>
>> I want numbers printed with underscores like this:
>>
>> 3_526_742_821
>>
>
> Yes, just adapt the common "commify" sub to use underscores rather
> than commas.
>
> (untested)
>
> sub underscorify {
> my $text = reverse $_[0];
> $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1_/g;
> return scalar reverse $text;
> }
>
>
That's wonderful, thanks a lot.
i
------------------------------
Date: Fri, 19 Oct 2007 17:39:44 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: perl standard
Message-Id: <x7hcknovfj.fsf@mail.sysarch.com>
>>>>> "PL" == Paul Lalli <mritty@gmail.com> writes:
PL> On Oct 19, 5:13 am, "Wade Ward" <zaxf...@invalid.net> wrote:
>> They is ISO. I would have a hard time believing that the entire
>> body of international standards chose to overlook perl,
>> particularly when I've already heard the document described.
>>
>> perldoc perlhack is a %100 wrong answer.
PL> The levels of stupidity you exhibited in this response is truly
PL> shocking.
PL> Please, go find someone who will sell you an "ISO Certified Standard"
PL> Perl for $250. I'm sure you'll be very happy with your purchase.
PL> Then let us know if there's anything else you'd like to purchase. I
PL> hear there's a bridge for sale in Brooklyn.
i will print up all of the perldocs into paper or pdf's and sell it to
him for $250. not a bad profit margin. :)
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Fri, 19 Oct 2007 17:42:14 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: perl standard
Message-Id: <x7d4vbovbc.fsf@mail.sysarch.com>
>>>>> "MD" == Michele Dondi <bik.mido@tiscalinet.it> writes:
MD> On Fri, 19 Oct 2007 03:42:50 -0700, Paul Lalli <mritty@gmail.com>
MD> wrote:
>> Then let us know if there's anything else you'd like to purchase. I
>> hear there's a bridge for sale in Brooklyn.
MD> That's sold out. But they told me that there's another one not too far
MD> away, between Brooklyn and Staten Island.
i have never heard of anyone offering to sell the verrazano narrows
bridge. it being a very recent bridge (about 1965), there aren't nearly
as many yokels who would fall for that. but then nigerian scams still
seem to work so who knows!? anyone seen the antiscam commercials
(sponsored by the post office!) which show a f2f nigerian style scam and
how silly they seem in person?
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Fri, 19 Oct 2007 11:05:04 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: perl standard
Message-Id: <191020071105045820%jgibson@mail.arc.nasa.gov>
In article <ffa2cl$33s$1@online.de>, Joachim Durchholz
<jo@durchholz.org> wrote:
> Abigail schrieb:
> > _
> > I don't necessarely agree with his conclusion, but he
> > makes some interesting arguments.
> >
> > [1] http://www.perl.com/pub/a/2000/06/rosler.html
>
> I see just one argument: that large bodies (corporations, governments)
> won't use a language that's not standardized.
> Did I overlook something?
Apparently. I also saw:
1. Programmers should learn assembly language first because it gives
them a machine model.
2. Benchmarking is crucial for optimization.
3. Five rules for writing efficient Perl.
4. Consistent semantics is more important than increased functionality.
5. Perl is superior to Visual Basic.
6. Object-oriented programming is useless.
... and some others.
--
Jim Gibson
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Fri, 19 Oct 2007 14:11:08 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: please help optimize sub
Message-Id: <Xns99CE679C8390Aasu1cornelledu@127.0.0.1>
QoS@domain.invalid wrote in news:7w%Ri.11666$2o1.11629@trnddc03:
>
> "A. Sinan Unur" <1usa@llenroc.ude.invalid> wrote in message-id:
> <Xns99CDEDF12F316asu1cornelledu@127.0.0.1>
...
>> up separate scripts. Now that I am reasonably certain the optimized
>> routine returns the same results as the original, it might be
>> worthwhile to set up a script using Benchmark to be able to compare
>> speeds on different platforms as it becomes necessary but I am going
>> to leave that to the OP.
...
> Thanks for helping with this, the early return is a good idea. I
> enjoyed reading all of your comments and suggestions, and am excited
> to implement some of the suggestions this weekend.
You are welcome and good luck.
>> --
>> A. Sinan Unur <1usa@llenroc.ude.invalid>
Note that quoting signatures is frowned upon in general. You newsreader
might have an option to automatically snip sigs that use the proper sig
separator.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
clpmisc guidelines: <URL:http://www.augustmail.com/~tadmc/clpmisc.shtml>
------------------------------
Date: Fri, 19 Oct 2007 08:55:14 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: printing a subject line
Message-Id: <m27iljyzst.fsf@lifelogs.com>
On Wed, 17 Oct 2007 17:25:11 -0700 "Wade Ward" <zaxfuuq@invalid.net> wrote:
WW> On the one hand, a background in C is good for learning perl, OTOH,
WW> not so much.
I bow to your indecisive wisdom, almost Zen-like in its emptiness.
Ted
------------------------------
Date: Fri, 19 Oct 2007 14:28:38 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Regular expression to match only strings NOT containing particular words
Message-Id: <Xns99CE6A93E8341asu1cornelledu@127.0.0.1>
Dylan Nicholson <wizofaus@hotmail.com> wrote in
news:1192770028.044399.164380@k35g2000prh.googlegroups.com:
[
newsgroup list trimmed, follow-ups set
There is no reason to cross-post to both c.l.p.misc and m.p.d.l.csharp
]
> I can write a regular expression that will only match strings that are
> NOT the word apple:
>
> ^([^a].*|a[^p].*|ap[^p].*|app[^l].*|apple.+)$
>
> But is there a neater way, and how would I do it to match strings that
> are NOT the word apple OR banana?
When you say "are not" rather than does not contain, it means you should
not be using regular expressions at all.
unless ( $s eq 'apple' or $s eq 'banana' or $s eq 'cherry' ) {
...
}
> Then what would be needed to match only strings that do not
> CONTAIN the word "apple" or "banana" or "cherry"?
unless (
index( $s, 'apple' ) > -1
index( $s, 'banana' ) > -1
index( $s, 'cherry' ) > -1
) {
...
}
If you have a long list of words, you could use
#!/usr/bin/perl
use strict;
use warnings;
use List::MoreUtils qw( first_index );
my $text = <<EO_TEXT;
Sed ut perspiciatis unde omnis iste natus error
sit voluptatem accusantium doloremque laudantium,
totam rem aperiam, eaque ipsa quae ab illo
inventore veritatis et quasi architecto beatae
vitae dicta sunt explicabo. Nemo enim ipsam
voluptatem quia voluptas sit aspernatur aut odit
aut fugit, sed quia consequuntur magni dolores eos
qui ratione voluptatem sequi nesciunt. Neque porro
quisquam est, qui dolorem ipsum quia dolor sit
amet, consectetur, adipisci velit, sed quia non
numquam eius modi tempora incidunt ut labore et
dolore magnam aliquam quaerat voluptatem. Ut enim
ad minima veniam, quis nostrum exercitationem
ullam corporis suscipit laboriosam, nisi ut
aliquid ex ea commodi consequatur? Quis autem vel
eum iure reprehenderit qui in ea voluptate velit
esse quam nihil molestiae consequatur, vel illum
qui dolorem eum fugiat quo voluptas nulla pariatur
EO_TEXT
my @wordlist = qw( hello explicabo reprehenderit random );
unless ( -1 == first_index { index( $text, $_ ) > -1 } @wordlist ) {
print "One of the words in the word list appears in the text.\n";
}
__END__
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
clpmisc guidelines: <URL:http://www.augustmail.com/~tadmc/clpmisc.shtml>
------------------------------
Date: Fri, 19 Oct 2007 14:33:32 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Regular expression to match only strings NOT containing particular words
Message-Id: <Xns99CE6B68650EDasu1cornelledu@127.0.0.1>
"A. Sinan Unur" <1usa@llenroc.ude.invalid> wrote in
news:Xns99CE6A93E8341asu1cornelledu@127.0.0.1:
>> Then what would be needed to match only strings that do not
>> CONTAIN the word "apple" or "banana" or "cherry"?
>
> unless (
> index( $s, 'apple' ) > -1
> index( $s, 'banana' ) > -1
> index( $s, 'cherry' ) > -1
> ) {
Oooops.
unless (
index( $s, 'apple' ) > -1
or index( $s, 'banana' ) > -1
or index( $s, 'cherry' ) > -1
) {
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
clpmisc guidelines: <URL:http://www.augustmail.com/~tadmc/clpmisc.shtml>
------------------------------
Date: Fri, 19 Oct 2007 16:40:25 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Regular expression to match only strings NOT containing particular words
Message-Id: <Z55Si.6$Qj3.3@trndny01>
Jürgen Exner wrote:
> Dylan Nicholson wrote:
>> I can write a regular expression that will only match strings that
>> are NOT the word apple:
>>
>> ^([^a].*|a[^p].*|ap[^p].*|app[^l].*|apple.+)$
>>
>> But is there a neater way, and how would I do it to match strings
>> that are NOT the word apple OR banana? Then what would be needed to
>> match only strings that do not CONTAIN the word "apple" or "banana"
>> or "cherry"?
>
> !(/apple/ or /banana/ or /cherry/)
Actually, coming to think of it: there is no good reason to use a RE in the
first place because you are looking for a literal substring only without any
of the meta-functionality of REs. The proper tool for that much simpler task
is index().
jue
------------------------------
Date: Fri, 19 Oct 2007 09:10:07 -0700
From: wbosse@metzler.com
Subject: Re: Trying to start a perl script as Windows Service
Message-Id: <1192810207.767095.132780@i13g2000prf.googlegroups.com>
On 19 Okt., 05:32, "dn.p...@gmail.com" <dn.p...@gmail.com> wrote:
[...]
> Error message for blank user and blank pwd in %hash in
> my_install_service.pl.
> --------------
> Could not start the print_stamp service on local computer.
> Error 1053 : The service did not respond to the start or control
> request in a timely fashion
> --------------
The Win32::Daemon dokumentation contains code skeletons demonstrating
how to deal with service control messages/states.
> Error message for my_install_service.pl file with proper username-
> password
> in the hash declaration in my_install_service.pl :
> -----------------
> Could not start the print_stamp service on local computer.
> Error 1069 : the service did not start due to a logon failure.
> --------------
>
> What might be the issue?
In "my_install_service.pl" change "pwd" to "password". This is an
error in the Win32::Daemon manual.
------------------------------
Date: Fri, 19 Oct 2007 10:24:34 -0700
From: "dn.perl@gmail.com" <dn.perl@gmail.com>
Subject: Re: Trying to start a perl script as Windows Service
Message-Id: <1192814674.299131.293600@e34g2000pro.googlegroups.com>
On Oct 19, 9:10 am, wbo...@metzler.com wrote:
> On 19 Okt., 05:32, "dn.p...@gmail.com" <dn.p...@gmail.com> wrote:
>
> [...]
>
> > Error message for blank user and blank pwd in %hash in
> > my_install_service.pl.
> > --------------
> > Could not start the print_stamp service on local computer.
> > Error 1053 : The service did not respond to the start or control
> > request in a timely fashion
> > --------------
>
> The Win32::Daemon dokumentation contains code skeletons demonstrating
> how to deal with service control messages/states.
>
> > Error message for my_install_service.pl file with proper username-
> > password
> > in the hash declaration in my_install_service.pl :
> > -----------------
> > Could not start the print_stamp service on local computer.
> > Error 1069 : the service did not start due to a logon failure.
> > --------------
>
> > What might be the issue?
>
> In "my_install_service.pl" change "pwd" to "password". This is an
> error in the Win32::Daemon manual.
If I set : pwd => 'correct_passwd' , I get the error about 'logon
failure'.
I changed it to : password => 'correct_passwd'
But now only the error has changed. Like for blank user-passwd combo,
even for valid-password combo, I get the error about 'timely fashion'.
Error message when I try to start the service from Start > Control
Panel > Admin Tools > Services > Choose Service + Right Click + Start.
"Error 1053 : The service did not respond to the start or control
request in a timely fashion"
I have not yet tried to start it from a perl script, but will check
whether there is any way of doing so. Any suggestion is welcome in the
meantime.
------------------------------
Date: Fri, 19 Oct 2007 11:02:41 -0700
From: James Everton <james.everton@gmail.com>
Subject: Using IDL from a perl script
Message-Id: <1192816961.304312.109840@q3g2000prf.googlegroups.com>
Hi everybody,
I'm developing some web scripts in perl that interact with a database
through various pre-written IDL procedures here at my work. The
problem I'm having is getting arguments passed between the two.
Passing from the perl into the IDL code is easy enough because I'm
using the open( ) procedure and simply writing the strings as a block:
open(IDL, "|/usr/local/bin/idl -32");
print IDL <<"ENDIDL";
var1 = '$myPerlVar1'
var2 = '$myPerlVar2'
.compile my_web_script
my_web_script, var1, var2
ENDIDL
I'm wondering if there is any way to pass from this IDL block (say for
instance that the my_web_script procedure was actually a function and
was assigned to a new variable returnVar) out to the containing perl
script. For those that don't know IDL, I'm quite certain that you can
do this exact same open-block style with any other script, like bash
for example, so it really might be more of a direct perl question.
Any insights would be greatly appreciated.
Thanks,
- James Everton
------------------------------
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 954
**************************************
