[28513] in Perl-Users-Digest
Perl-Users Digest, Issue: 9877 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Oct 22 09:05:52 2006
Date: Sun, 22 Oct 2006 06:05:05 -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, 22 Oct 2006 Volume: 10 Number: 9877
Today's topics:
A very nice free browser to try... bj_private@yahoo.com
Re: A very nice free browser to try... <bik.mido@tiscalinet.it>
ability to match / detect acronyms ? <jack_posemsky@yahoo.com>
Re: ability to match / detect acronyms ? <jack_posemsky@yahoo.com>
Re: ability to match / detect acronyms ? anno4000@radom.zrz.tu-berlin.de
Re: Best way to keep registered users logged in? <betterdie@gmail.com>
bug challenge <uri@stemsystems.com>
comparing 2 arrays strings when the number/name of arra <jack_posemsky@yahoo.com>
Re: comparing 2 arrays strings when the number/name of anno4000@radom.zrz.tu-berlin.de
Re: how to do programming in perl in windows <sisyphus1@nomail.afraid.org>
Is this the correct place to ask for help if I am new t <iridius@gmail.com>
Re: Is this the correct place to ask for help if I am n anno4000@radom.zrz.tu-berlin.de
Re: Is this the correct place to ask for help if I am n <bik.mido@tiscalinet.it>
new CPAN modules on Sun Oct 22 2006 (Randal Schwartz)
Re: Reverse algorithm with tangent <bart@nijlen.com>
Re: Sorting Data in Two Columns <john@castleamber.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 22 Oct 2006 00:42:45 -0700
From: bj_private@yahoo.com
Subject: A very nice free browser to try...
Message-Id: <1161502965.732856.163520@e3g2000cwe.googlegroups.com>
Hi Guys,
There's a very nice browser that is called Smart Bro. I think this
browser is the best browser in the market. It has:
1. Very nice and clean interface.
2. Tabbed browsing.
3. History Cleaner.
4. Popup killer.
5. Form filler.
6. RSS reader.
7. Flash filter.
And best of all it's free. I think you should try it.
You can download it from here http://www.smartbro.com
Best regards,
John
------------------------------
Date: 22 Oct 2006 13:41:47 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: A very nice free browser to try...
Message-Id: <d7mmj2h2ihubqcli8ki7ogua18f9r86cgb@4ax.com>
On 22 Oct 2006 00:42:45 -0700, bj_private@yahoo.com wrote:
>There's a very nice browser that is called Smart Bro. I think this
>browser is the best browser in the market. It has:
>
>1. Very nice and clean interface.
>2. Tabbed browsing.
>3. History Cleaner.
>4. Popup killer.
>5. Form filler.
>6. RSS reader.
>7. Flash filter.
8. And how is it relevant here?
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: 21 Oct 2006 20:44:43 -0700
From: "Jack" <jack_posemsky@yahoo.com>
Subject: ability to match / detect acronyms ?
Message-Id: <1161488683.454514.187950@e3g2000cwe.googlegroups.com>
Hi I was wondering if anyone had any code to detect / match / identify
acronyms (AAA, BD) , essentially these are non words..besides just
detecting the capitals of course.
Thanks for your help,
Jack
------------------------------
Date: 21 Oct 2006 21:09:22 -0700
From: "Jack" <jack_posemsky@yahoo.com>
Subject: Re: ability to match / detect acronyms ?
Message-Id: <1161490162.800781.31810@i42g2000cwa.googlegroups.com>
Jack wrote:
> Hi I was wondering if anyone had any code to detect / match / identify
> acronyms (AAA, BD) , essentially these are non words..besides just
> detecting the capitals of course.
>
> Thanks for your help,
>
> Jack
Hi side note, and this is on structured data where all you have is a
single data element to work with ... in other words, the ability to
test whether a word is a valid word or not I believe might get one to
find an acronym..
------------------------------
Date: 22 Oct 2006 09:54:45 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: ability to match / detect acronyms ?
Message-Id: <4q0tf5FkudcgU3@news.dfncis.de>
Jack <jack_posemsky@yahoo.com> wrote in comp.lang.perl.misc:
>
> Jack wrote:
> > Hi I was wondering if anyone had any code to detect / match / identify
> > acronyms (AAA, BD) , essentially these are non words..besides just
> > detecting the capitals of course.
Some acronyms are words, and not all acronyms are capitalized. (Radar
is an example for both.)
> Hi side note, and this is on structured data where all you have is a
> single data element to work with ... in other words, the ability to
> test whether a word is a valid word or not I believe might get one to
> find an acronym..
You'd need a word list that doesn't contain any acronyms. Most word
lists include acronyms, whether they are words or not, so such a thing
could be hard to come by. You'd probably better start with a list of
acronyms to positively identify those that appear in your data.
ObPerl: In both cases you'd use a hash to look up words/acronyms.
Anno
------------------------------
Date: 22 Oct 2006 05:45:53 -0700
From: "paul" <betterdie@gmail.com>
Subject: Re: Best way to keep registered users logged in?
Message-Id: <1161521153.397019.54910@e3g2000cwe.googlegroups.com>
Use cookie will have problem if clients disable it.
Session seems to be a good choice.
Your last choice, you need to do with your WebServer....
How your configure your Web server is the problem, not the problem of
Perl script...
usenet@DavidFilmer.com wrote:
> kidalex@gmail.com wrote:
> > What is the best way of password protection
>
> This question has absolutely nothing whatsoever to do with Perl. You
> will probably get better responses if you ask in a web-related
> newsgroup.
>
> --
> David Filmer (http://DavidFilmer.com)
------------------------------
Date: Sun, 22 Oct 2006 00:55:01 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: bug challenge
Message-Id: <x7mz7p3q6y.fsf@mail.sysarch.com>
a primary user of template::simple found a nasty bug in version .01. it
took me several hours of hard work in one evening and then i was able to
find and fix it the next morning when my brain was clear again. so my
challenge to you is to figure out this bug. it won't be easy (unless i
am a much worse debugger than i think i am! :). maybe the multiple eyed
hivemind could find this quickly. anyhow, i found it a challenging and
deeply interesting bug. i felt especially good when i solved it as i
haven't tackled one this annoying in a while. i even thought for a while
that i found a subtle bug in perl itself but i was totally wrong on
that.
now i am not asking for help as version .02 has the fix and tests for
it. the primary user has agreed that the bug is fixed so i have
confirmation. i am putting this out for the sheer enjoyment/torture of
it.
so get template::simple .01 from cpan. i won't be uploading .02 for
another day or two so you can't cheat and use my solution.
as a bonus, there is something i haven't figured out. if you change the
template text (actually i only played with the whitespace), the bug will
come and go! i haven't figured out this symptom but it totally goes away
with the fix.
here is a driver script that demonstrates the bug.
#!/usr/local/bin/perl
use warnings ;
use strict ;
use Template::Simple ;
my $data = {
widgets => [
{
title => "bart",
},
{
title => "marge",
}
],
} ;
my $template = <<TMPL ;
[%start widgets%][%title%][%foo%] [%end widgets%]
TMPL
my $renderer = Template::Simple->new() ;
my $text = $renderer->render( $template, $data ) ;
print ${$text} ;
and here is the output i get:
-------cut--------------
Use of uninitialized value in substitution (s///) at /usr/local/lib/perl5/site_perl/5.8.6/Template/Simple.pm line 186.
Use of uninitialized value in substitution (s///) at /usr/local/lib/perl5/site_perl/5.8.6/Template/Simple.pm line 196.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.6/Template/Simple.pm line 216.
bart
-------cut--------------
those warnings shouldn't be there and there should be both bart and
marge in the output.
perl -v is
This is perl, v5.8.6 built for sun4-solaris
the module code is very short, elegant and tight and if you don't grok
recursion with dispatch tables, don't go near this. or take this
challenge and prove me a big fool by finding the bug fix in 5 minutes.
have the appropriate amount of fun. flames are welcome and will be
ignored.
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: 22 Oct 2006 00:19:48 -0700
From: "Jack" <jack_posemsky@yahoo.com>
Subject: comparing 2 arrays strings when the number/name of arrays is dynamic
Message-Id: <1161501588.463397.308800@h48g2000cwc.googlegroups.com>
Hello,
I was wondering if anyone knows how to get around the problem of a perl
array intersection with more than 1 array where the number of arrays,
and there names, can be variable... I have noticed that the code below
and also List::Compare pmm do not allow one to dynamically at run time
build a string for the arrays that need intersecting... does anyone
know how to get around this ? I tried adding a scalar variable
($string) which I build dynamically - the code below seems to want you
to hard code in the names and number of arrays, but again, mine vary
since I am in a loop of sorts, and I need to be able to dynamically
pass a variable number of arrays to be intersected.. any thoughts would
be appreciated.. Thanks, Jack
@Array1 = qw (A B C D G I H);
@Array2 = qw (A C E G H K);
@Array3 = qw (A B C G H L);
@Array4 = qw (A C F G H M);
foreach $element (@Array1, @Array2, @Array3, @Array4)
{ $Hash{$element}++; }
foreach $element (keys %Hash)
{
if ($Hash{$element} == 4)
{ push (@Intersection, $element); }
}
print "@Intersection";
------------------------------
Date: 22 Oct 2006 09:40:50 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: comparing 2 arrays strings when the number/name of arrays is dynamic
Message-Id: <4q0sl2FkudcgU1@news.dfncis.de>
Jack <jack_posemsky@yahoo.com> wrote in comp.lang.perl.misc:
> Hello,
>
> I was wondering if anyone knows how to get around the problem of a perl
> array intersection with more than 1 array where the number of arrays,
> and there names, can be variable... I have noticed that the code below
> and also List::Compare pmm do not allow one to dynamically at run time
> build a string for the arrays that need intersecting... does anyone
> know how to get around this ?
What would it mean to "build a string for the arrays"? I have no
Idea what you want to do.
> I tried adding a scalar variable
> ($string) which I build dynamically - the code below seems to want you
> to hard code in the names and number of arrays,
There is no variable "$string" in your code. What are you talking
about?
> but again, mine vary
> since I am in a loop of sorts, and I need to be able to dynamically
> pass a variable number of arrays to be intersected.. any thoughts would
> be appreciated.. Thanks, Jack
>
> @Array1 = qw (A B C D G I H);
> @Array2 = qw (A C E G H K);
> @Array3 = qw (A B C G H L);
> @Array4 = qw (A C F G H M);
>
> foreach $element (@Array1, @Array2, @Array3, @Array4)
> { $Hash{$element}++; }
>
> foreach $element (keys %Hash)
> {
> if ($Hash{$element} == 4)
> { push (@Intersection, $element); }
> }
>
> print "@Intersection";
Your code has exactly four arrays, not a variable number. To change
the number of arrays you'd have to change the code.
To make the code more flexible, introduce a function (intersect2) that
calculates the intersection of two arrays and call it repeatedly:
my @sec = @Array1;
@sec = intersect2( \ @sec, \ @Array2);
@sec = intersect2( \ @sec, \ @Array3);
@sec = intersect2( \ @sec, \ @Array4);
print "@sec\n";
exit;
sub intersect2 {
my ( $x, $y) = @_;
my %h;
@h{ @$x} = ( 1) x @$x;;
grep ++ $h{ $_} > 1 , @$y;
}
Anno
------------------------------
Date: Sun, 22 Oct 2006 17:16:07 +1000
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: how to do programming in perl in windows
Message-Id: <453b1bce$0$5109$afc38c87@news.optusnet.com.au>
"Joe Smith" <joe@inwap.com> wrote in message
news:ot2dndCfBogOc6TYnZ2dnUVZ_v2dnZ2d@comcast.com...
> Jack wrote:
> > Hello all
> > I am a new perl programmer and i have been doing many programs
> > in perl o UNIX machine but im unable to run a program on my windows
> > using active perl
>
> If you want to run Unix perl scripts with no modifications on Windows,
> you can forget about ActivePerl
That could be taken to mean you can't run *any* Unix perl scripts on
ActivePerl unless you modify them. That, of course, is *not* the case - the
vast majority of Unix perl scripts can be run on ActivePerl without making
any alteration at all to the script.
Cheers,
Rob
------------------------------
Date: 21 Oct 2006 22:44:02 -0700
From: "Iridius" <iridius@gmail.com>
Subject: Is this the correct place to ask for help if I am new to Perl?
Message-Id: <1161495842.687906.218030@i3g2000cwc.googlegroups.com>
Hi, I am new to Perl (but know PHP). I am having a difficult time in my
class, because 1) this is my instructor's first time teaching 2) he
barely speaks english and 3) his teach method isn't very helpful.
If I had more time I could probably sit down and read Perl books end to
end, but I really do need some more immediate help.
If anyone is willing to assist me with a pretty simple script, I would
be most appreciative.
Thank you.
------------------------------
Date: 22 Oct 2006 09:44:32 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Is this the correct place to ask for help if I am new to Perl?
Message-Id: <4q0ss0FkudcgU2@news.dfncis.de>
Iridius <iridius@gmail.com> wrote in comp.lang.perl.misc:
> Hi, I am new to Perl (but know PHP). I am having a difficult time in my
> class, because 1) this is my instructor's first time teaching 2) he
> barely speaks english and 3) his teach method isn't very helpful.
>
> If I had more time I could probably sit down and read Perl books end to
> end, but I really do need some more immediate help.
>
> If anyone is willing to assist me with a pretty simple script, I would
> be most appreciative.
Post what you have, then people will comment, sometimes helpfully.
Anno
------------------------------
Date: 22 Oct 2006 13:40:54 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Is this the correct place to ask for help if I am new to Perl?
Message-Id: <5slmj2l7n3pmo22dua6fm9dh9o4ssqr55e@4ax.com>
On 21 Oct 2006 22:44:02 -0700, "Iridius" <iridius@gmail.com> wrote:
>Hi, I am new to Perl (but know PHP). I am having a difficult time in my
This hardly matters. Notwithstanding some superficial similarities,
PHP is an application specific language, and Perl is full fledged,
multipurpose one.
>class, because 1) this is my instructor's first time teaching 2) he
>barely speaks english and 3) his teach method isn't very helpful.
I can't help you with 1) and 2) but re 3) I suggest you to try to
discuss about possible issues, with due respect of course. This has
nothing to do with Perl, of course.
>If I had more time I could probably sit down and read Perl books end to
>end, but I really do need some more immediate help.
So far so fine, but be aware that on some questions you will be
pointed to specif Perl documentation.
>If anyone is willing to assist me with a pretty simple script, I would
>be most appreciative.
That's fine. Only you should not ask for complete code to do some task
or to do homework for you. This is very badly received.
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: Sun, 22 Oct 2006 04:42:02 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sun Oct 22 2006
Message-Id: <J7It22.14D1@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.
Apache-LogRegex-1.4
http://search.cpan.org/~peterhi/Apache-LogRegex-1.4/
Parse a line from an Apache logfile into a hash
----
Audio-MPC-0.04
http://search.cpan.org/~vparseval/Audio-MPC-0.04/
Perl extension for decoding musepack-encoded files
----
CMS-MediaWiki-0.8011
http://search.cpan.org/~retoh/CMS-MediaWiki-0.8011/
Perl extension for creating, reading and updating MediaWiki pages
----
Chart-Clicker-1.1.2
http://search.cpan.org/~gphat/Chart-Clicker-1.1.2/
Powerful, extensible charting.
----
ExtUtils-MY_Metafile-0.03
http://search.cpan.org/~hio/ExtUtils-MY_Metafile-0.03/
META.yml customize with ExtUtil::MakeMaker
----
File-pushd-0.99
http://search.cpan.org/~dagolden/File-pushd-0.99/
change directory temporarily for a limited scope
----
LWP-Protocol-http-SocksChain-1.4
http://search.cpan.org/~gosha/LWP-Protocol-http-SocksChain-1.4/
Speak HTTP through Net::SC
----
LWP-Protocol-https-SocksChain-1.3
http://search.cpan.org/~gosha/LWP-Protocol-https-SocksChain-1.3/
Speak HTTPs through Net::SC
----
MIME-EncWords-0.03.1
http://search.cpan.org/~nezumi/MIME-EncWords-0.03.1/
deal with RFC-1522 encoded words (improved)
----
Mail-GPG-1.0.4
http://search.cpan.org/~jred/Mail-GPG-1.0.4/
Handling of GnuPG encrypted / signed mails
----
MapReduce-0.03
http://search.cpan.org/~iwoodhead/MapReduce-0.03/
Perl version of Google's distributed data processing
----
Pod-HtmlEasy-0.08_01
http://search.cpan.org/~gleach/Pod-HtmlEasy-0.08_01/
Generate easy and personalized HTML from PODs, without extra modules and on "the flight".
----
RPC-Lite-0.10
http://search.cpan.org/~aburke/RPC-Lite-0.10/
A lightweight yet flexible framework for remote process communication.
----
SWISH-Filter-0.08
http://search.cpan.org/~karman/SWISH-Filter-0.08/
filter documents for indexing with Swish-e
----
SWISH-Filter-0.09
http://search.cpan.org/~karman/SWISH-Filter-0.09/
filter documents for indexing with Swish-e
----
Term-Animation-2.2
http://search.cpan.org/~kbaucom/Term-Animation-2.2/
ASCII sprite animation framework
----
Text-vCard-2.00
http://search.cpan.org/~llap/Text-vCard-2.00/
a package to edit and create a single vCard (RFC 2426)
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: 22 Oct 2006 01:14:23 -0700
From: "Bart Van der Donck" <bart@nijlen.com>
Subject: Re: Reverse algorithm with tangent
Message-Id: <1161504863.557160.248870@e3g2000cwe.googlegroups.com>
Ilya Zakharevich wrote:
> [...]
> tan' is always 1 or more; thus your "encryption" function also has
> derivative of 1 or more. Hence the "decryption" function has
> derivative 1 or less.
>
> Essentially, what it means in this example is that there is no "loss
> of precision"; given 39 digits after the point in the encrypted value,
> you should expect to completely restore 39 digits after the poinit in
> the decrypted value. All you need is doing calculation with high
> enough precision, so the errors do not accumulate.
>
> So do the calcs in some higher-precision-math Perl module.
I've a feeling that this must be the core of the problem, yes. I just
hope it's possible to perform such hi-res calculations in the first
place. My conclusion at this point is that Peter's code does the job,
but has a precision problem with the tan2()-call. I'll see what's
available at CPAN, or otherwise (try to) write it myself.
--
Bart
------------------------------
Date: 22 Oct 2006 03:08:47 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: Sorting Data in Two Columns
Message-Id: <Xns9863E1490429Fcastleamber@130.133.1.4>
"Alison" <alison@logicsaysNOSPAM.com> wrote:
> Generally there are about 2000 hits daily. Each single record has 6
> pieces of information; Hit, Time, Data, URL, IP, Referrer.
>
> 1. .csv is opened and records/line read one by one.
Text::CSV_XS
Text::CSV
Text::CSV::Simple
( http://search.cpan.org/search?query=Text%3A%3ACSV&mode=all )
> 2. Match performed on an array,
This means probably O(k) steps with k the size of your array.
> else insert, increment counter for
> element. 3. Total records recorded.
> 4. HTML table rows outputted with information from array.
>
> Following the information I have here, I'm now doing;
>
> 4. One dimensional array copied into Two Dimensional array.
> 5. Two Dimensional array sorted.
> 6. Two Dimensional array copied back into One Dimensional array
Huge overhead
> 7. HTML table rows outputted with information from array.
I guess you want to order your data as follows:
per URL on your site
show the Referers [sic] for that URL, and the hits via those
referers.
show total number of hits
show last time + date for that hit
I would do something [1]:
my %stats;
for each record in CSV
$stats{ $url }{ hits }{ count }++;
$stats{ $url }{ hits }{ last_seen } = "$time $date";
$stats{ $url }{ referer }{ $referer }{ count }++;
$stats{ $url }{ referer }{ $referer }{ last_seen } = "$time $date";
Next, you can sort the urls by hits count, and for each url, you
can then sort the referers by hits count.
> The next .pl that I write I'll start off with a Two Dimensional array
> from the beginning and will then write it back into the original .pl
> scripts.
If you have a unique key (for example the url) and per unique key
another unique key (for example the referer) you are way better of with
a HoH (hash of hashes) as explained above.
[1] This is more or less what I do in a home brew Perl script
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 9877
***************************************
