[22280] in Perl-Users-Digest
Perl-Users Digest, Issue: 4501 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Feb 2 06:05:40 2003
Date: Sun, 2 Feb 2003 03:05:05 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 2 Feb 2003 Volume: 10 Number: 4501
Today's topics:
Re: Attitude to Perl in academia <pa@panix.com>
Best way to set up option files (Jesse Sheidlower)
Re: Best way to set up option files (Jesse Sheidlower)
Re: compare text <bwalton@rochester.rr.com>
Re: Comparing files with difference percentage <bik.mido@tiscalinet.it>
Re: Comparing files with difference percentage <tassilo.parseval@post.rwth-aachen.de>
Re: Finding out whether program is running. <pnmurphy.REMOVE.CAPS@cogeco.ca>
Re: Free CGI webhosts <bwalton@rochester.rr.com>
Re: Hashes <uri@stemsystems.com>
Re: inconsistent handling of undefined values? <bongie@gmx.net>
Re: inconsistent handling of undefined values? <ra.jones@NO_UCE*cwcom.net>
Re: Newbie question about getstore <bwalton@rochester.rr.com>
Re: Perl and ActiveDirectory Question <usenet@dwall.fastmail.fm>
Perl standalone programms and copyright <Ingo_Wiarda@web.de>
read web content <pons@gmx.li>
Sort::Fields a, b, c, (d), [e], -f-, &**g <istink@real.bad.com>
Re: Sort::Fields a, b, c, (d), [e], -f-, &**g <ajglist@izzy.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 2 Feb 2003 02:33:40 +0000 (UTC)
From: Pierre Asselin <pa@panix.com>
Subject: Re: Attitude to Perl in academia
Message-Id: <b1i021$c6u$1@reader1.panix.com>
In <3E3B5212.1BCF0163@earthlink.net> Benjamin Goldberg <goldbb2@earthlink.net> writes:
>Show me even one standard module where circular refs are used.
There are such modules in CPAN, for example HTML::TreeBuilder . Their documentation
warn about the circularity and they provide ->delete() methods to reclaim the memory.
I am not aware of circular references in the modules that ship with perl by default.
------------------------------
Date: 2 Feb 2003 00:32:18 -0500
From: jester@panix.com (Jesse Sheidlower)
Subject: Best way to set up option files
Message-Id: <b1iah2$fae$1@panix2.panix.com>
I've inherited a group of programs that need to be refactored,
and I'm trying to figure out the best way to do it. They're
all relating to Web-based database management. The way it was
set up, there are various configuration files for different
projects, called things like sales.conf and clients.conf; each
one basically has a single %config hash that contains assorted
set-up info, like:
$config{'TEMPLATE_PATH'} = "$config{'BASE_PATH'}/templates";
$config{'LOG_PATH'} = "$config{'BASE_PATH'}/logs";
$config{'CGI_URL'} = "/cgi-bin/sales/";
$config{'DB_NAME'} = 'sales';
$config{'DB_USER'} = 'sales';
$config{'DB_PASS'} = 'salespasswd';
and so forth. A CGI program that uses a particular database will
then have at the start a BEGIN { require "/path/to/sales.conf"; }.
Then, general modules will use the %config hash, so that the
main database-handling module begins,
package DBhandling;
use strict;
use DBI;
my $host_name = $main::config{'DB_HOST'};
my $db_name = $main::config{'DB_NAME'};
...
, so that DBhandling.pm can be called by any of the many
different programs, or several different configuration
groups, that need it.
I first realized this was a big problem when I tried to run it
under mod_perl and it failed, because it was using the main::
namespace.
What's the best way to redo this? I know that I could just
pass specifically-needed values directly to functions, but
there seem to be places here where some entire modules needs
a configuration parameter globally, and there are a lot of
such parameters.
Thanks.
Jesse Sheidlower
------------------------------
Date: 2 Feb 2003 00:35:28 -0500
From: jester@panix.com (Jesse Sheidlower)
Subject: Re: Best way to set up option files
Message-Id: <b1ian0$g0s$1@panix2.panix.com>
In article <b1iah2$fae$1@panix2.panix.com>,
Jesse Sheidlower <jester@panix.com> wrote:
>
>I've inherited a group of programs that need to be refactored,
>and I'm trying to figure out the best way to do it. They're
>all relating to Web-based database management. The way it was
>set up, there are various configuration files for different
>projects, called things like sales.conf and clients.conf; each
>one basically has a single %config hash that contains assorted
>set-up info, like:
I should have mentioned that while I'm sure there are a lot of
scoping issues involved, the existing programs do work under
"use strict" and -w.
Jesse Sheidlower
------------------------------
Date: Sun, 02 Feb 2003 05:24:20 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: compare text
Message-Id: <3E3CAADC.602@rochester.rr.com>
someuser wrote:
> I'm writting the following program to compare two texts.
> when you first open the CGI, you get two TEXTAREAs
> you put your two text to be compared in each box.
> after submit if the two are different the first line that is different
> is the dividing line.
> everything above that is placed in the top TEXTAREA what's below that is
> placed in a newly created TEXTAREA.
>
> here's the problem.
>
> a resubmit removes the first LF or CRLF in the bottom box.
>
> try it and see.
<voluminous code skipped>
...
I tried it but I don't see. I see nothing change when I press the
submit button repeatedly (is that what you mean by "resubmit"?), no
matter how many times I do it (after the first time, of course). The
results are as you describe they should be, and no newlines seem to be
missing. Try boiling your problem down to the very shortest and
simplest code that illustrates the behavior with which you are having a
problem, as it is doubtful anyone will slough through that code to try
to figure out what might be going on.
--
Bob Walton
------------------------------
Date: Sun, 02 Feb 2003 08:29:27 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Comparing files with difference percentage
Message-Id: <crjo3vkk2bcv090faompjlbt1uht38qffd@4ax.com>
On 30 Jan 2003 08:26:53 -0800, vtmcs@terra.com.br (Vinicio Tavares)
wrote:
>I have 2 ascii files: text1.txt and text2.txt.
>
> Text1.txt Text2.txt
>----------------- --------------------
>a a
>b c
>c c
>d d
>e e
>
> I want to compare the files returning the difference percentage. How
>could I do this?
>
> In the example above it would return '20%'. As 1 of 5 chars doesn't
>match.
Others have pointed out that the problem is not stated in precise
enough terms.
In particular, talking for simplicity about strings and not about
files, what ratio would you assign to the difference between
$s="abcde" and $t="bcde"?
1/5, because *removing* "a" makes $s eq $t?
1/4, because *adding* "a" makes $t eq $s?
1, because $s and $t differ in all corresponding positions?
...
You might be interested to know that there are *sensible* definitions
of a metric on sets of strings, but this is OT here, a mathematics ng
being more suitable for these matters.
For what regards the implementation, Perl of course is well suited for
this kind of application and the expert contributors here might help
you if you state your problem more carefully.
Michele
--
>It's because the universe was programmed in C++.
No, no, it was programmed in Forth. See Genesis 1:12:
"And the earth brought Forth ..."
- Robert Israel on sci.math, thread "Why numbers?"
------------------------------
Date: 2 Feb 2003 08:31:17 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de>
Subject: Re: Comparing files with difference percentage
Message-Id: <b1il0l$i97$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Michele Dondi:
> On 30 Jan 2003 08:26:53 -0800, vtmcs@terra.com.br (Vinicio Tavares)
> wrote:
>
>>I have 2 ascii files: text1.txt and text2.txt.
>>
>> Text1.txt Text2.txt
>>----------------- --------------------
>>a a
>>b c
>>c c
>>d d
>>e e
>>
>> I want to compare the files returning the difference percentage. How
>>could I do this?
>>
>> In the example above it would return '20%'. As 1 of 5 chars doesn't
>>match.
>
> Others have pointed out that the problem is not stated in precise
> enough terms.
>
> In particular, talking for simplicity about strings and not about
> files, what ratio would you assign to the difference between
> $s="abcde" and $t="bcde"?
>
> 1/5, because *removing* "a" makes $s eq $t?
> 1/4, because *adding* "a" makes $t eq $s?
> 1, because $s and $t differ in all corresponding positions?
> ...
>
> You might be interested to know that there are *sensible* definitions
> of a metric on sets of strings, but this is OT here, a mathematics ng
> being more suitable for these matters.
There are a couple of text-distance modules available from CPAN that
compute the distance with respect to editing operations needed to turn
one string into the other. Perhaps the OP should have a look into
http://search.cpan.org/search?query=Distance&mode=all
Hits 2 to 4 look promising.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Sat, 1 Feb 2003 22:27:52 -0500
From: Paul Murphy <pnmurphy.REMOVE.CAPS@cogeco.ca>
Subject: Re: Finding out whether program is running.
Message-Id: <20030201222752.5e249d1f.pnmurphy.REMOVE.CAPS@cogeco.ca>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
On Sun, 02 Feb 2003 01:38:45 GMT
b_duke@octa4.net.invalid (Brian Salter-Duke) wrote:
> On 1 Feb 2003 15:41:30 GMT, Walter Roberson
> <roberson@ibd.nrc-cnrc.gc.ca> wrote:
> > In article <6sM_9.1586$YU1.37055@news.optus.net.au>,
> > Brian Salter-Duke <b_duke@octa4.net.invalid> wrote:
> >:I have this problem. From within a perl script I need to know
> >whether a:particular program is actually running. The program was not
> >started from:the perl script. I have tried using system to run ps
> >with various:options and this sort-of works. Is there a better way?
> >
> > You mention 'ps': are we to assume that you are willing to restrict
> > the code to Unix?
>
> Yes, this is a unix application only.
There is a Perl module for this: Proc::ProcessTable
- --
Cogeco ergo sum
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.2.1 (FreeBSD)
iD8DBQE+PJA4Tv5Mxsi/WPMRAlbSAJ0e3BiIaJw1gXM6c9LmFZxsdUSpCwCeNrWb
iVWfjc+vsXFMcvZDQ3PL7+k=
=Q63l
-----END PGP SIGNATURE-----
------------------------------
Date: Sun, 02 Feb 2003 04:01:42 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: Free CGI webhosts
Message-Id: <3E3C9782.70102@rochester.rr.com>
Mark007 wrote:
> I'm about to shoot myself for lack of finding a cheap cgi webhost!!!
> Most aren't webtv compatable, and others aren't navigable...AY! I've
> tried netfirms and for some reason the files appear to be there when I
> view them in ftp, but when I try to access them from http:// they
> seemingly vanish. portland didn't work either! Any suggestions? I'm
> about to gve up on cgi. I dont want to pay for one because I'm just
> trying to learn now. I don't want anyone to see content I create yet.
>
> Mark
For learning purposes, why don't you just put up your own web site on
your own local computer? Here's one that will run CGI (it's not very
good, but it works [as long as CGI scripts end in .cgi and are in Perl,
and HTML pages end in .html] and it's free):
use HTTP::Daemon;
use IPC::Open2;
$|=1;
my $server=HTTP::Daemon->new(LocalPort=>80,LocalAddr=>'localhost');
print "Please contact me at <URL:", $server->url, ">\n";
while($client=$server->accept){
while(my $answer=$client->get_request){
$ans=$answer->as_string;
@ans=split /\n/,$ans;
$client->autoflush;
if($answer->method eq 'GET'){
$path=$answer->url->path;
(error,last) unless $path=~s#^/##;
if($path=~/html$/i){
$client->send_file_response($path);
last;
}
if($path=~/cgi$/i){
$ENV{REQUEST_METHOD}=$answer->method;
$query=$answer->url->query;
$ENV{CONTENT_LENGTH}=length($query);
$ENV{QUERY_STRING}=$query;
$out=`perl $path`;
$out=~s/.*?\n\n//s; #remove HTTP header
print $client $out;
last;
}
}
if($answer->method eq 'POST'){
$path=$answer->url->path;
(error,last) unless $path=~s#^/##;
if($path=~/cgi$/i){
$query=$answer->url->query;
$ENV{REQUEST_METHOD}=$answer->method;
for(@ans){
$ENV{CONTENT_LENGTH}=$1 if /Content-Length: (\d+)/;
$ENV{HTTP_REFERRER}=$1 if /Referer: (.*)/;
}
$query=$ans[-1];
undef $CGI;undef $OUT;
$pid=open2($CGI,$OUT,"perl","$path") or error;
print $OUT $query;
close $OUT;
@out=<$CGI>;
waitpid $pid,0;
$out=join "\n",@out;
$out=~s/.*?\n\n//s; #remove HTTP header
print $client $out;
last;
}
}
last;
}
print "CLOSE: ", $client->reason, "\n" if $client->reason;
undef $client;
}
sub error{
$client->error(RC_FORBIDDEN);
print "An error occurred in $ans\n";
}
And your Perl question was what?
--
Bob Walton
------------------------------
Date: Sun, 02 Feb 2003 04:57:21 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Hashes
Message-Id: <x7u1fnwa8e.fsf@mail.sysarch.com>
>>>>> "M" == Mark007 <sisley3@webtv.net> writes:
M> Not that I want to keep it a secret, Its just that I don't check usenet
M> much and webtv deletes posts in usenet every 14 days...just wanted to be
M> sure to see the response...thanks.
so if you post, then check for replies within 2 weeks. i think even
webtv users can read a calendar. :)
<rant>
webtv, for those too dumb to handle AOL!!
i have trouble imagining someone on webtv trying to learn perl (or any
programming). all the commercials show grandma and grandpa signing up to
search the interweb for geriatric porn.
</rant>
:)
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
----- Stem and Perl Development, Systems Architecture, Design and Coding ----
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
Damian Conway Perl Classes - January 2003 -- http://www.stemsystems.com/class
------------------------------
Date: Sun, 02 Feb 2003 04:40:07 +0100
From: "Harald H.-J. Bongartz" <bongie@gmx.net>
Subject: Re: inconsistent handling of undefined values?
Message-Id: <3199358.653l2p2OUZ@nyoga.dubu.de>
RA Jones wrote:
> But why does Perl hang when I try to print an undefined value, despite
> using 'strict', '-w' and CGI::Carp(fatalsToBrowser)?
What do you mean by 'hang'?
Trying to print an undefined value under -w or the warnings pragma just
produces a warning message. Since that warning is not fatal and will
get printed on STDERR, not STDOUT, CGI::Carp won't bother with it. See
"perldoc CGI::Carp" for ways to include warnings into the HTML output,
if you want that. If your script "hangs", there must be another
problem (that may be related to the undefined value, or not).
Ciao,
Harald
--
Harald H.-J. Bongartz <bongie@gmx.net>
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Ich hab eigentlich keine Ahnung, versuche aber trotzdem zu helfen.
Ich krieg nämlich auch oft keine vernünftige Antwort.
-- Alexander Wesemann in de.comp.os.unix.linux.misc
------------------------------
Date: Sun, 2 Feb 2003 11:01:37 +0000
From: RA Jones <ra.jones@NO_UCE*cwcom.net>
Subject: Re: inconsistent handling of undefined values?
Message-Id: <FEc8TTBRqPP+EwIT@nildram.co.uk>
In message <3199358.653l2p2OUZ@nyoga.dubu.de>, Harald H.-J. Bongartz
<bongie@gmx.net> writes
>RA Jones wrote:
>> But why does Perl hang when I try to print an undefined value, despite
>> using 'strict', '-w' and CGI::Carp(fatalsToBrowser)?
>
>What do you mean by 'hang'?
The browser task bar says 'Sending request to 127.0.0.1....'
indefinitely, and the browser continues to wait for a reply. A Perl
session remains open in the task manager and needs a manual 'End
process' to close it.
>Trying to print an undefined value under -w or the warnings pragma just
>produces a warning message. Since that warning is not fatal and will
>get printed on STDERR, not STDOUT, CGI::Carp won't bother with it. See
The point about CGI::Carp was to illustrate the fact that I had tried to
enable all possible means of being informed of a problem, but in this
instance none do. There is no entry in the server error log - I think
the Perl interpreter may 'crash' before it gets that far as there are
sometimes multiple instances of Perl open in the task manager if I run
this script multiple times.
>"perldoc CGI::Carp" for ways to include warnings into the HTML output,
>if you want that. If your script "hangs", there must be another
>problem (that may be related to the undefined value, or not).
I have almost certainly made a fundamental error in the script, but
short of uploading the entire 400-odd lines I don't know where to look.
--
RA Jones
remove NO_UCE* from 'reply-to' address
ra(dot)jones(at)see-double-you-com(dot)net
------------------------------
Date: Sun, 02 Feb 2003 03:47:02 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: Newbie question about getstore
Message-Id: <3E3C9412.70907@rochester.rr.com>
Tubs wrote:
...
> #!/usr/bin/perl
>
> use LWP::Simple;
> getstore("http://www.cygwin.com","tmp.html");
>
> Now after running the script (the system reports no errors), but it doesn't
> seem to have
> created the the file tmp.html. Now am I not doing something or is there
...
> Tubs
...
Your script runs verbatim on my system (AS Perl build 633 on Windoze
98SE), and generates the appropriate content in file tmp.html . Are you
sure you're looking the in the right place for the file?
--
Bob Walton
------------------------------
Date: Sun, 02 Feb 2003 04:50:20 GMT
From: "David K. Wall" <usenet@dwall.fastmail.fm>
Subject: Re: Perl and ActiveDirectory Question
Message-Id: <Xns9315F27F91E84dkwwashere@204.127.199.17>
tadmc@augustmail.com (Tad McClellan) wrote:
> zoomtown <jdavis_5@zoomtown.com> wrote:
>
>> Is it possible to query the Active Directory
>> from Perl to find a specific user
>
> What is an "Active Directory" ?
Instead of read, write, and execute, it has regular workouts and exercise.
--
David Wall - me@dwall.fastmail.fm
"Oook."
------------------------------
Date: Sun, 02 Feb 2003 12:04:11 +0100
From: Ingo Wiarda <Ingo_Wiarda@web.de>
Subject: Perl standalone programms and copyright
Message-Id: <b1itqr$135s3s$1@ID-40614.news.dfncis.de>
Judging from the frequent questions about how to package perl scripts in
executable form, I may not be the only one who wants to distribute his
programms (for Windows-Users) as my_script.exe.
My question:
If I create a package, say of
- my script.exe
- perl56.dll (using a free compiled version, not AS-Perl)
- a number of Modules found on CPAN (DBD:mysql, DBI, TK, ...).
and distribute it, is there any danger of infringing upon the module
author's copyright?
May I
a) freely distribute such a package?
b) sell the package?
Or do I have to contact each and every module author whose scripts I use?
Perhaps the answer is obvious from the Perl Artistic License, but IANAL and
therefore am not sure...
---
Ingo
------------------------------
Date: Sun, 2 Feb 2003 13:04:58 +0200
From: "Pons" <pons@gmx.li>
Subject: read web content
Message-Id: <b1itlq$13i7go$1@ID-172702.news.dfncis.de>
I would like to write a script to read the content of
Web page, and copy it to a file *.txt for later use
such as filtering or putting it in a string?
can any one help? if not ignore me !
-Pons
pons@gmx.li
------------------------------
Date: Sat, 01 Feb 2003 23:22:02 -0500
From: istink <istink@real.bad.com>
Subject: Sort::Fields a, b, c, (d), [e], -f-, &**g
Message-Id: <3E3C9CEA.6E41B2CA@real.bad.com>
my array
@db = this...
1|d|h|c|3|w
2|d|h|6|t|4
3|d|s|6|3|r
4|d|h|z|t|t
5|5|h|6|7|y
6|t|f|c|t|u
7|d|h|6|i|jce
8|d|h|v|t|k
9|7|g|6|u|j(bh
10|d|h|b|t|h
11|u|m|6|y|b
12|d|h|n|t|v
13|d|h|6|t|c
14|l|j|m|r|x
15|d|h|6|t|z
16|k|h|j|e|q
17|d|s|6|t|2
18|g|h|k|w|e
19|d|h|6|t|f
20|d|w|l|q|g
21|d|h|6|t|f
22|a|h|j|s|d
23|d|r|6|t|g
24|s|h|h|d|b
25|c|g|6|t|jaj
26|d|h|g|f|u
27|e|h|6|t|3
use Sort::Fields
@temp= fieldsort '\|', [6], @db;
this sorts column 6 by alpha.
field 6 has 'jce','j(bh', 'jaj'
after sorting, I get:
j(bh
jaj
jce
how do I sort while ignoring non alpha/numeric ?
that is, how do I tell perl to see only:
jaj
jbh <-- without the extra '('
jce
?
------------------------------
Date: Sun, 02 Feb 2003 04:59:06 GMT
From: Alan Gutierrez <ajglist@izzy.net>
Subject: Re: Sort::Fields a, b, c, (d), [e], -f-, &**g
Message-Id: <uA1%9.82554$GX4.3486962@news2.east.cox.net>
istink wrote:
> after sorting, I get:
> j(bh
> jaj
> jce
> how do I sort while ignoring non alpha/numeric ?
> that is, how do I tell perl to see only:
> jaj
> jbh <-- without the extra '('
> jce
#!/usr/bin/perl
use strict;
my @db = split /\n/, <<DB;
2|d|h|6|t|4
7|d|h|6|i|jce
8|d|h|v|t|k
9|7|g|6|u|j(bh
24|s|h|h|d|b
25|c|g|6|t|jaj
26|d|h|g|f|u
DB
sub scrub_nth
{
my ($line, $n) = @_;
my $val = (split(/\|/, $line))[$n];
$val =~ s/[^\w\d]//g;
$val;
}
sub cmp_last { &scrub_nth($a, 5) cmp &scrub_nth($b, 5) }
print join("\n", sort cmp_last @db), "\n";
[alan@maribor usenet] ./sort-fields
2|d|h|6|t|4
24|s|h|h|d|b
25|c|g|6|t|jaj
9|7|g|6|u|j(bh
7|d|h|6|i|jce
8|d|h|v|t|k
26|d|h|g|f|u
[alan@maribor usenet]
Hope this helps.
--
Alan Gutierrez - ajglist@izzy.net
------------------------------
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.
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 4501
***************************************
