[13130] in Perl-Users-Digest
Perl-Users Digest, Issue: 540 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Aug 15 10:10:23 1999
Date: Sun, 15 Aug 1999 07:05:10 -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 Sun, 15 Aug 1999 Volume: 9 Number: 540
Today's topics:
Re: Appending a "\n" to all array elements / unchomp <revjack@radix.net>
Re: Appending a "\n" to all array elements / unchomp (Bart Lateur)
Re: Array/list/split/push handling question (Michel Dalle)
Can anyone help me please? <freestuff@freeuk.com>
Re: containing results???confused <mcmike123@worldnet.att.net>
Re: How do i append the beginning of a HTML file? (Bart Lateur)
Re: How to format string? <Perl@astronomy.org.hk>
Re: Nastiness contrary to the spirit of perl? (Abigail)
Re: perl and I18N (Abigail)
Re: Perl Programmers' Web Design "Difficulties" <kent@darwin.eeb.uconn.edu>
Re: perl script for changing all upper case letters to (Abigail)
Re: perldoc -> HTML site on the web? <revjack@radix.net>
Re: search script in need of help <mcmike123@worldnet.att.net>
Re: search script in need of help (Bart Lateur)
Re: Tom Christiansen "Perl Cookbook" (elephant)
Re: Tom Christiansen "Perl Cookbook" (Malcolm Ray)
Re: Wacky Programming Tales (Was Re: Why use Perl when (Abigail)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 15 Aug 1999 12:02:54 GMT
From: revjack <revjack@radix.net>
Subject: Re: Appending a "\n" to all array elements / unchomp
Message-Id: <7p6a9e$a7a$3@news1.Radix.Net>
Keywords: Hexapodia as the key insight
Malcolm Ray explains it all:
:On Sun, 15 Aug 1999 10:09:37 GMT, marcza@my-deja.com <marcza@my-deja.com>
:wrote:
:>Well, I can remove all trailing "\n" from a list/array by using
:>chomp. But how is the easiest (!) way of doing the opposite:
:>appending "\n" to all elements ?
:>
:>Is there something like an unchomp() ?
:#!/usr/bin/perl -w
:use strict;
:my @a = qw(an array of words);
:for (@a) { $_ .= "\n" }
That works. Also:
@a = map { $_ .= "\n" } @a
Which made me curious:
#!/usr/bin/perl -w
use strict;
use Benchmark;
my @a = qw(an array of words);
timethese( 1_000_000, {
'for' => 'for (@a) { $_ .= "\n" }',
'map' => '@a = map { $_ .= "\n" } @a;'
});
Benchmark: timing 1000000 iterations of for, map...
for: 9 secs ( 9.78 usr 0.00 sys = 9.78 cpu)
map: 5 secs ( 5.64 usr 0.00 sys = 5.64 cpu)
Increasing @a to 10_000 words yields this:
Benchmark: timing 1000000 iterations of for, map...
for: 13 secs (11.30 usr 0.00 sys = 11.30 cpu)
map: 8 secs ( 7.45 usr 0.00 sys = 7.45 cpu)
Interesting.
------------------------------
Date: Sun, 15 Aug 1999 12:51:52 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Appending a "\n" to all array elements / unchomp
Message-Id: <37b6b759.685848@news.skynet.be>
revjack wrote:
>@a = map { $_ .= "\n" } @a
Why not
@a = map { "$_\n" } @a;
Since the assignment isn't relevant.
BTW for the original poster: why don't you simply set $\ to "\n". This
will append a newline on every line you print. That should suffice for
most uses.
@ary = qw(a b c);
$\ = "\n";
foreach (@ary) {
print;
}
Bart.
------------------------------
Date: Sun, 15 Aug 1999 11:08:28 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: Array/list/split/push handling question
Message-Id: <7p671i$huq$3@xenon.inbe.net>
In article <7p64a3$40l$1@nnrp1.deja.com>, marcza@my-deja.com wrote:
>Suppose the follwoing string
>$text = "aaa bbb ccc ddd eee fff";
>Now I want to skip the first 3 words (delimited by space)
>and assign the rest to a new array AND insert a new element at the
>first position:
>I could do that with:
>
>(undef, undef, undef, @arr) = split(/ +/,$text);
>push(@arr, "newelem");
>
>I feel that this could be done shorter but how ?
>Any ideas ?
Have you looked at splice() and/or array slices ?
BTW, push() puts 'newelem' at the end of the array, not at the
beginning....
Michel.
------------------------------
Date: Sun, 15 Aug 1999 11:28:41 GMT
From: andy <freestuff@freeuk.com>
Subject: Can anyone help me please?
Message-Id: <37B6A40B.EED0C21F@freeuk.com>
Good Afternoon,
I have a problem that reqires CGI to solve, I have tried to resolve this
myself but I just can't seem to figure this whole CGI thing it out.
A brief outline of the problem is:-
A while back I set up a Free Links Page System and had an excellent
response. I decided to add the links and create the new pages for people
who wanted them manually, I thought I would have been able to figure CGI
out before things got out of hand, well things got out of hand and I
was,nt able to keep up with the responses.
Ideally the page will contain a list of say 50 or 100 text links, when
the visitor fills in a form thier link is added at the top of the list
and the last link is dropped.
I have new webspace for this project at Virtualnet who allow CGI
scripts, I have been trying to get a simple script to work there with no
success.
If anybody is prepared to help me sort this out for free, I can repay
the favour by placing your Banner or a good link on all of the pages
generated by the system.
thanks for your time.
andy.
------------------------------
Date: Sun, 15 Aug 1999 09:06:27 -0400
From: "mike" <mcmike123@worldnet.att.net>
Subject: Re: containing results???confused
Message-Id: <7p6dun$qcr$1@bgtnsc01.worldnet.att.net>
Thank you for the help, I don't have shell access at least for another month
or so.
the server im running this on only allows ftp access. but what i did do to
pinpoint the
problem was this
#! /usr/bin/perl
# use LWP::Simple;
#
$content=get("http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&stype=stext&
q=mike");
print "Content-type:text/html\n\n";
print <<EndOfHTML;
<html>
<head><title>meta test</title></head>
<body>
<p align="center">welcome</p>
</body></html>
EndOfHTML
;
this prints welcome at the top of the page so I know that portion is working
now
had a few syntex errors.
I don't think that the sevice provider has that modual installed.
is there another method that will work the same as get?
I have the perl5 programmer's reference by R. Allen Wyke and Luke Duncan
------------------------------
Date: Sun, 15 Aug 1999 11:13:05 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: How do i append the beginning of a HTML file?
Message-Id: <37ba9cd7.5996986@news.skynet.be>
matt saunders wrote:
>I've not been using perl for long at all and i've been desperately seeking
>the source code for a CGI to append the beginning of a file.
You can't. The data currently in the file must move to a different
location on the disc. Therefore, all you can do is read in the whole
file, write your new stuff, and rewrite the old stuff at the end of
that, or something with the same effect (e.g. write the new stuff to a
new file, append the old file to it, and replace the old file with the
new one.
Anyway, if your file can be really big, say, a lot larger than 50k, this
will be slow, and a completely different rethinking of the problem might
be in order.
Bart.
------------------------------
Date: Sun, 15 Aug 1999 21:40:16 +0800
From: "Thomas Tsoi" <Perl@astronomy.org.hk>
Subject: Re: How to format string?
Message-Id: <7p6ftu$su6$1@imsp009a.netvigator.com>
why don't simply write
$ip =~ s/\.//g;
Larry Rosler <lr@hpl.hp.com> wrote in message
news:MPG.122006f26f0d7f67989e5d@nntp.hpl.hp.com...
> [Posted and a courtesy copy sent.]
>
> In article <37B647F4.F72C4DE9@cybie.com> on Sat, 14 Aug 1999 21:54:12 -
> 0700, Chi Yu <chi@cybie.com> says...
> > Can someone please help me format a string? I want to format a url into
> > a 12 character string, minus the periods and forcing each node to use 3
> > digits.
> >
> > e.g. "212.67.198.54" would become "212067198054"
>
> That is a dotted-quad IP address, not a URL.
>
> > Is there a regular expression that will quickly accomplish this feat?
>
> $ip_address =~ s/(\d+\.?)/sprintf '%.3d', $1/eg
>
> But this makes fewer function calls:
>
> $ip_address = sprintf '%.3d%.3d%.3d%.3d', $ip_address =~ /(\d+)/g
>
> I prefer split() to the regex:
>
> $ip_address = sprintf '%.3d%.3d%.3d%.3d', split /\./, $ip_address
>
> So there are Three Ways To Do It, and I'm sure there are plenty more.
>
> --
> (Just Another Larry) Rosler
> Hewlett-Packard Laboratories
> http://www.hpl.hp.com/personal/Larry_Rosler/
> lr@hpl.hp.com
------------------------------
Date: 15 Aug 1999 07:19:48 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Nastiness contrary to the spirit of perl?
Message-Id: <slrn7rdc53.a5.abigail@alexandra.delanet.com>
Id Est (id-est@home.com) wrote on MMCLXXIV September MCMXCIII in
<URL:news:slrn7r9gnc.5nn.id-est@erato.bigredrockeater.com>:
!! >So, when I tell you to Read the Fine Manual, or Perlfaq4, I'm picking
!! >on you? Interesting...
!!
!! telling somebody to RTFM isn't bullying, but spewing pompous drek like the
!! following is something quite different ...
!!
!! >> @@ I have a PERL script that does different actions based on the argument
!!
!! >The language isn't called PERL. Please read the FAQ and spell the
!! >language correctly.
!!
!! -
!!
!! >> I can't change its name to file.cgi .
!!
!! >Oh, how sad. You don't have the manual, or are you missing some keys on
!! >your keyboard? Perhaps you can buy a case of beer, offer that to your
!! >sysadmin, and have your sysadmin assist you in changing the filename?
Someone is collecting my posts! I have a groupie!
I should post more of stuff like this....
Abigail
--
Hmm, you'd think next year O'Reilly could pay my flight and hotel, and
have me as an attraction on TPC? I could do an autograph session....
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 15 Aug 1999 07:21:22 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: perl and I18N
Message-Id: <slrn7rdc82.a5.abigail@alexandra.delanet.com>
Eric van Bezooijen (eric@logrus.berkeley.edu) wrote on MMCLXXIV September
MCMXCIII in <URL:news:7p2brd$mk8@masters0.InterNex.Net>:
%%
%% Can perl handle Unicode ? MultiByte ? This is all on UNIX ...
Not yet. But 5.6 will. You could grab a development release and see
how well it works.
Abigail
--
perl -e 'for (s??4a75737420616e6f74686572205065726c204861636b65720as?;??;??)
{s?(..)s\??qq \?print chr 0x$1 and q ss\??excess}'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 15 Aug 1999 08:51:26 -0400
From: Kent Holsinger <kent@darwin.eeb.uconn.edu>
Subject: Re: Perl Programmers' Web Design "Difficulties"
Message-Id: <87u2q1fbqp.fsf@darwin.eeb.uconn.edu>
>>>>> "Randal" == Randal L Schwartz <merlyn@stonehenge.com> writes:
Randal> I may someday use style sheets, but only if the same page
Randal> looks OK with style sheets turned off.
OK, I know this if off topic, but I'd like to hear a little more about
this one. I've been making pretty extensive use of CSS on my pages,
but not for anything particularly fancy, e.g., I use it for selecting
a sans-serif font for tables, setting the size of headers and so
forth. Nearly all of my pages validate a HTML v4.0 at
http://validator.w3.org. Are there some accessibility issues I'm
likely to be missing?
I guess I'll have to grab myself a copy of Lynx and take a look.
Kent
--
Kent E. Holsinger Kent@Darwin.EEB.UConn.Edu
http://darwin.eeb.uconn.edu
-- Department of Ecology & Evolutionary Biology
-- University of Connecticut, U-43
-- Storrs, CT 06269-3043
------------------------------
Date: 15 Aug 1999 08:19:49 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: perl script for changing all upper case letters to lower case with first word of sentence capitolized
Message-Id: <slrn7rdfll.a5.abigail@alexandra.delanet.com>
Dan and/or Shelly (wedeking@msa.attmil.ne.jp) wrote on MMCLXXIV September
MCMXCIII in <URL:news:7p30a0$hma$1@news.misawa.attmil.ne.jp>:
[] I wrote the below script to try to do what the subject of this post says.
[] Does anyone have any better ideas? The one below isn't the greatest because
[] if there is a sentence
[] that ends in anything other than a period, the script won't work right.
If you want to find a real good algorithm that guesses the end of
sentences, I suggest you look into the sources of TeX. It doesn't get
it right all the time, but I've written lots of stuff in LaTeX, where
the need of correction only happens once every 20 pages or so.
[] Also it doesn't work if there are more than two sentences on the same line.
[] But otherwise it does capitolize the first word of a sentence while leaving
[] the other letters lower cased.
[]
[] while (<>) {
[] $words = $_;
[] $words = lc $words;
[] ($sentence1, $sentence2) = split /[.]\s+ /, $words;
[] print ucfirst $sentence1, ". ";
[] print ucfirst $sentence2, ". ";
[] }
Well, this will capitalize every first word of a _line_ as well. And it
doesn't find sentences ending in ! or ? Not to mention the US habit of
putting the closing period "inside the quotes." Or what if you have a
abbr. or an acronyme? Not to mention certain words like Perl are spelled
with a capital, even it it's in the middle of a sentence.
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 15 Aug 1999 11:37:20 GMT
From: revjack <revjack@radix.net>
Subject: Re: perldoc -> HTML site on the web?
Message-Id: <7p68pg$a7a$2@news1.Radix.Net>
Keywords: Hexapodia as the key insight
test explains it all:
:Call me lazy, but I was wondering if there was a perldoc -> HTML website
:out there on the Internet somewhere.
All the docs are in HTML format on the web. You have to deduce where.
------------------------------
Date: Sun, 15 Aug 1999 09:07:44 -0400
From: "mike" <mcmike123@worldnet.att.net>
Subject: Re: search script in need of help
Message-Id: <7p6e1j$qkl$1@bgtnsc01.worldnet.att.net>
Thank you for the help, I don't have shell access at least for another month
or so.
the server im running this on only allows ftp access. but what i did do to
pinpoint the
problem was this
#! /usr/bin/perl
# use LWP::Simple;
#
$content=get("http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&stype=stext&
q=mike");
print "Content-type:text/html\n\n";
print <<EndOfHTML;
<html>
<head><title>meta test</title></head>
<body>
<p align="center">welcome</p>
</body></html>
EndOfHTML
;
this prints welcome at the top of the page so I know that portion is working
now
had a few syntex errors.
I don't think that the sevice provider has that modual installed.
is there another method that will work the same as get?
I have the perl5 programmer's reference by R. Allen Wyke and Luke Duncan
Shmooth wrote in message <37B64943.D4D192EA@yahoo.com>...
>I would start by running your program from the command line and seeing
where the
>error is. :)
>
>Then, use 'splain' or add "use diagnostics -verbose;" to the top of your
script
>for help finding/fixing the errors...
>
>mike wrote:
>
>> this is what ive done and im getting 500 errors, im calling the script
>> directly through the browser.
>>
>> #! /usr/bin/perl
>>
>>
$content=get("http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&stype=stext&
>> q=mike");
>>
>> content-type:text/html\n\n;
>> print <<EndOfHTML;
>> <html>
>> <head><title>meta test</title></head>
>>
>> <body>
>>
>> <p align="center">$content</p>
>>
>> </body><html>
>>
>> EndOfHTML
>> ;
>> # end of code
>>
>> if someone could point me in the right direction of a good resource about
>> creating a search engine
>> or just knows what im doing wrong please post the solutions
>
------------------------------
Date: Sun, 15 Aug 1999 13:33:18 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: search script in need of help
Message-Id: <37b9c136.3211299@news.skynet.be>
mike wrote:
>Thank you for the help, I don't have shell access at least for another month
>or so.
>the server im running this on only allows ftp access.
For debugging purposes, try putting this at the front of your CGI
script:
BEGIN {
print "Content-type: text/plain\n\n";
open STDERR, '>&STDOUT';
$| = 1;
}
You'll see the results, and error messages, in the browser window as if
the script was run from the shell.
HTH,
Bart.
------------------------------
Date: Sun, 15 Aug 1999 22:15:31 +1000
From: elephant@squirrelgroup.com (elephant)
Subject: Re: Tom Christiansen "Perl Cookbook"
Message-Id: <MPG.122147b6b79d7eba989c26@news-server>
Malcolm Ray writes ..
>On Sun, 15 Aug 1999 17:32:02 +1000, elephant <elephant@squirrelgroup.com>
>wrote:
>>support@gethits.com writes ..
>>>Malcolm Ray wrote:
>>>>
>>>> On Fri, 13 Aug 1999 09:56:00 -0400
>>>
>>>> Sometimes even the best books are wrong! When there's a discrepancy,
>>>> always trust the module's own documentation.
>>>
>>>Thanks for confirming this. After multiple tests using both
>>>codes, I had to come to the conclusion that the book must
>>>be wrong since the module's author's method worked and "Cookbook's"
>>>didn't (everything else remaining constant of course). Even
>>>the great ones can err!
>>
>>both methods still work on my machines
>
>Hmm. What version are you using? I used Mail::Mailer 1.18, from
>MailTools 1.13.
same version from same source
--
jason - elephant@squirrelgroup.com -
------------------------------
Date: 15 Aug 1999 12:48:14 GMT
From: M.Ray@ulcc.ac.uk (Malcolm Ray)
Subject: Re: Tom Christiansen "Perl Cookbook"
Message-Id: <slrn7rddoe.kst.M.Ray@carlova.ulcc.ac.uk>
On Sun, 15 Aug 1999 22:15:31 +1000, elephant <elephant@squirrelgroup.com>
wrote:
>Malcolm Ray writes ..
>>On Sun, 15 Aug 1999 17:32:02 +1000, elephant <elephant@squirrelgroup.com>
>>wrote:
>>>support@gethits.com writes ..
>>>>Malcolm Ray wrote:
>>>>>
>>>>> On Fri, 13 Aug 1999 09:56:00 -0400
>>>>
>>>>> Sometimes even the best books are wrong! When there's a discrepancy,
>>>>> always trust the module's own documentation.
>>>>
>>>>Thanks for confirming this. After multiple tests using both
>>>>codes, I had to come to the conclusion that the book must
>>>>be wrong since the module's author's method worked and "Cookbook's"
>>>>didn't (everything else remaining constant of course). Even
>>>>the great ones can err!
>>>
>>>both methods still work on my machines
>>
>>Hmm. What version are you using? I used Mail::Mailer 1.18, from
>>MailTools 1.13.
>
>same version from same source
$ cat foo
#!/usr/bin/perl -w
use strict;
use Mail::Mailer;
# Hostname of mail relay
my $relay = 'mail-relay';
@ARGV == 4 or die "Usage: $0 from to subject body\n";
my ($from, $to, $subject, $body) = @ARGV;
# Set envelope sender to stop Mail::Mailer::smtp guessing
$ENV{MAILADDRESS} = $from;
# my $mailer = Mail::Mailer->new("smtp", Server => $relay);
my $mailer = Mail::Mailer->new("smtp", $relay)
or die "Constructor failed: $!";
$mailer->open( { 'From' => $from, 'To' => $to, 'Subject' => $subject } )
or die "open failed: $!";
print $mailer $body, "\n";
$mailer->close;
__END__
$ ./foo example@example.com example@example.com test test
Odd number of elements in hash assignment at
/usr/lib/perl5/site_perl/5.005/Mail/Mailer/smtp.pm line 13.
The message is still delivered, but via the SMTP listener on localhost,
not via mail-relay.
Yours?
--
Malcolm Ray University of London Computer Centre
------------------------------
Date: 15 Aug 1999 08:38:12 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Wacky Programming Tales (Was Re: Why use Perl when we've got Python?!)
Message-Id: <slrn7rdgo2.a5.abigail@alexandra.delanet.com>
Brad Howes (bradh@mediaone.net) wrote on MMCLXXV September MCMXCIII in
<URL:news:wjy7lmxbwh7.fsf_-_@bradh.ne.mediaone.net>:
&&
&& Hey! I actually worked on a project where someone did this! Also in their
&& funky include file was
&&
&& #define AND &&
&& #define OR ||
&&
&& It was the most bizarre thing I ever saw -- not so much the include file,
&& but the resulting code. As if a Pascal moths had come in, eaten at some
&& code and left little Wirth fragments sprinkled around. Has anyone else
&& encountered such strange programming behavior?
Well, uhm, yeah. I once wrote a C program implementing red-black trees
that almost read like English. Except for parens and the one #include
line, no punctuation chars where needed. It had things like:
if (I am red and my uncle is black)
we do ....
Unfortunally, that code didn't survive an extreme quota regime.
Abigail
--
perl -MNet::Dict -we '(Net::Dict -> new (server => "dict.org")
-> define ("foldoc", "perl")) [0] -> print'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. Due to their sizes, neither the Meta-FAQ nor
the FAQ are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq" from
almanac@ruby.oce.orst.edu.
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 V9 Issue 540
*************************************
