[25378] in Perl-Users-Digest
Perl-Users Digest, Issue: 7623 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jan 9 00:05:29 2005
Date: Sat, 8 Jan 2005 21:05:12 -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 Sat, 8 Jan 2005 Volume: 10 Number: 7623
Today's topics:
assembling a signed integer from bytes (Steve)
Re: assembling a signed integer from bytes <abigail@abigail.nl>
Current package name <ltierney@ltierney.demon.co.uk>
Re: Current package name <spamtrap@dot-app.org>
de-taint doesn't work after upgrading perl mickjames@gmail.com
Re: de-taint doesn't work after upgrading perl <noreply@gunnar.cc>
Re: de-taint doesn't work after upgrading perl mickjames@gmail.com
Differences in UTF-8 html form inputs <realbot@goooglemail.com>
Re: Differences in UTF-8 html form inputs <matternc@comcast.net>
Re: Extarcting And Storing a String <hx_101@hotmail.com>
Re: Extarcting And Storing a String <spamtrap@dot-app.org>
Re: Extarcting And Storing a String <tadmc@augustmail.com>
Re: how to get perl catching a device (mic) ? <martind@algonet.se>
Re: IPC looking for simple/best way to communicate <abigail@abigail.nl>
Re: LWP::Simple getstore not working inside of hash :( <HodgeBrad@gmail.com>
Re: LWP::Simple getstore not working inside of hash :( <tadmc@augustmail.com>
Real Election Reform <david@qssp.com>
Re: tar - gzip <bart.lateur@pandora.be>
trying to connect to a mysql database, to input a file ewitkop90@hotmail.com
Re: trying to connect to a mysql database, to input a f ewitkop90@hotmail.com
Re: trying to connect to a mysql database, to input a f <news@chaos-net.de>
Re: trying to connect to a mysql database, to input a f <tadmc@augustmail.com>
Re: trying to connect to a mysql database, to input a f <wyzelli@yahoo.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 8 Jan 2005 12:54:07 -0800
From: ineverlookatthis@yahoo.com (Steve)
Subject: assembling a signed integer from bytes
Message-Id: <f0d57f86.0501081254.222b359c@posting.google.com>
Hi all
I am reading data from a serial device with perl, capturing each group
as an array of numbers generated from the ord of each character. I
don't know exactly how it is formatted, but having looked at the way
the values vary and knowing the type of data being transmitted, it
seems likely that I have several signed numbers each compsed of two of
my bytes.
How do I assemble two variables, each carrying a number 0-255 into a
single, two-byte signed number?
Thanks
Simon
------------------------------
Date: 08 Jan 2005 23:23:08 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: assembling a signed integer from bytes
Message-Id: <slrncu0qqs.l1l.abigail@alexandra.abigail.nl>
Steve (ineverlookatthis@yahoo.com) wrote on MMMMCXLVIII September
MCMXCIII in <URL:news:f0d57f86.0501081254.222b359c@posting.google.com>:
** Hi all
**
** I am reading data from a serial device with perl, capturing each group
** as an array of numbers generated from the ord of each character. I
** don't know exactly how it is formatted, but having looked at the way
** the values vary and knowing the type of data being transmitted, it
** seems likely that I have several signed numbers each compsed of two of
** my bytes.
**
** How do I assemble two variables, each carrying a number 0-255 into a
** single, two-byte signed number?
You'd use pack and unpack.
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
------------------------------
Date: Sat, 8 Jan 2005 17:57:39 -0000
From: "Lord0" <ltierney@ltierney.demon.co.uk>
Subject: Current package name
Message-Id: <crp6ul$n5h$1$830fa7b3@news.demon.co.uk>
Is there a quick way to find out the fully qualified name of the package you
are currently in?
------------------------------
Date: Sat, 08 Jan 2005 13:33:04 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Current package name
Message-Id: <MIKdnXk9XNv8un3cRVn-iA@adelphia.com>
Lord0 wrote:
> Is there a quick way to find out the fully qualified name of the package you
> are currently in?
This question is frequently asked, and is included in Perl's FAQ:
perldoc -q "current package"
Have you read the posting guidelines that appear here frequently?
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: 8 Jan 2005 13:49:12 -0800
From: mickjames@gmail.com
Subject: de-taint doesn't work after upgrading perl
Message-Id: <1105220952.911073.301800@c13g2000cwb.googlegroups.com>
Hi,
In a cgi script I'm detainting an input variable as
$FORM{'input'} =~ tr/A-Z//cd;
and then passing it to a system call as
system "proggy",$FORM{'input'};
It was working in old perl 5.6 but doesn't in 5.8.
Perl complains about "Insecure dependency".
How should it be detainted now?
Thanks much!
------------------------------
Date: Sat, 08 Jan 2005 23:06:32 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: de-taint doesn't work after upgrading perl
Message-Id: <34b4kfF489j7dU1@individual.net>
mickjames@gmail.com wrote:
> In a cgi script I'm detainting an input variable as
> $FORM{'input'} =~ tr/A-Z//cd;
> and then passing it to a system call as
> system "proggy",$FORM{'input'};
>
> It was working in old perl 5.6 but doesn't in 5.8.
> Perl complains about "Insecure dependency".
> How should it be detainted now?
Didn't know the above ever was an allowed way to untaint. This is an
equivalent that does untaint:
$FORM{'input'} = join '', $FORM{'input'} =~ /[A-Z]/g;
Please also study
perldoc perlsec
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 8 Jan 2005 14:42:47 -0800
From: mickjames@gmail.com
Subject: Re: de-taint doesn't work after upgrading perl
Message-Id: <1105224167.640569.198470@c13g2000cwb.googlegroups.com>
Thanks for your help. Perl has the best support of all!
------------------------------
Date: Sat, 08 Jan 2005 23:07:30 +0100
From: Realbot <realbot@goooglemail.com>
Subject: Differences in UTF-8 html form inputs
Message-Id: <41e05989$0$10908$5fc30a8@news.tiscali.it>
Hi,
I'm having some problems with a web application of mine.
To make things clearer here is an html input form which shows it.
It inputs two strings with GET and POST and it uses HTML::Mason.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Test utf</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body>
<form name="formutfget" method="GET">
Enter text (get):<br>
<input type="text" name="textget" size="20" maxlength="30">
</form>
<form name="formutfpost" method="POST">
Enter text (post):<br>
<input type="text" name="textpost" size="20" maxlength="30">
</form>
Value of GET: <% $textget %><br>
Hex of GET: <% $hexget %><br>
Value of POST: <% $textpost %><br>
Hex of POST: <% $hexpost %><br>
</body>
</html>
<%args>
$textget => ''
$textpost => ''
$hexget => ''
$hexpost => ''
</%args>
<%init>
$hexget = unpack('H*', $textget);
$hexpost = unpack('H*', $textpost);
</%init>
The strange thing is that running this form under these environments
Debian Woody - perl 5.6.1 - Mozilla 1.4.3/Firefox 1.0
Debian Sid - perl 5.8.4 - Mozilla 1.4.3/Firefox 1.0
using as input the string "Δωδεκανήσων" (I don't know what it means btw...), I get as output
Value of GET: Δωδεκανήσων
Hex of GET: 26233931363b26233936393b26233934383b26233934393b26233935343b26233934353b26233935373b26233934323b26233936333b26233936393b26233935373b
Value of POST: Δωδεκανήσων
Hex of POST: 26233931363b26233936393b26233934383b26233934393b26233935343b26233934353b26233935373b26233934323b26233936333b26233936393b26233935373b
while in OpenBSD - perl 5.8.0 - Mozilla 1.4.3/Firefox 1.0 with the same input string I get
Value of GET: Δωδεκανήσων
Hex of GET: ce94cf89ceb4ceb5cebaceb1cebdceaecf83cf89cebd
Value of POST: Δωδεκανήσων
Hex of POST: ce94cf89ceb4ceb5cebaceb1cebdceaecf83cf89cebd
So, it seems that in the former I get escaped unicode character and in the latter UTF-8 ones.
I thought that it could be a 5.6 vs 5.8 difference but as you can see even under Debian Sid I got the same unicode chars.
Could it be an OpenBSD peculiarity? I've Googled but with no luck, maybe someone can shed some light on it...
Thanks!
------------------------------
Date: Sat, 08 Jan 2005 17:19:33 -0500
From: Chris Mattern <matternc@comcast.net>
Subject: Re: Differences in UTF-8 html form inputs
Message-Id: <UIqdnepgDJnowX3cRVn-tg@comcast.com>
Realbot wrote:
> using as input the string "???????????" (I don't know what it means
> btw...),
"Dodecahedron"--i.e., a solid shape with 12 faces. If you're a gamer
who owns "funny dice", your 12-sided dice are dodecahedrons (or, if
you prefer, dodecahedra).
--
Christopher Mattern
"Which one you figure tracked us?"
"The ugly one, sir."
"...Could you be more specific?"
------------------------------
Date: Sat, 08 Jan 2005 17:37:45 -0500
From: Digger <hx_101@hotmail.com>
Subject: Re: Extarcting And Storing a String
Message-Id: <j4o0u0ldgram5k7b9lt3808722clp1c8ta@4ax.com>
On Sat, 08 Jan 2005 05:22:42 -0800, Joe Smith <joe@inwap.com> wrote:
>Digger wrote:
>
>> [2004-12-25 9:20:12] FAILED http://hotmail.com/bla
>> [2004-12-25 9:25:12] SUCCESS http://hotmail.com/bla
>> [2004-12-25 9:26:12] FAILED http://abc.com
>> [2004-12-25 9:27:12] FAILED http://123.com
>
>my %status;
>while (<>) {
> / (FAILED|SUCCESS) (.*)/ and $status{$2} = $1;
>}
>print "URLs whose last status was SUCCESS:\n";
>$status{$_} eq 'SUCCESS' and print " $_\n" for sort keys %status;
>
>print "\nURLs whose last status was FAILED:\n";
>$status{$_} eq 'FAILED' and print " $_\n" for sort keys %status;
>
> -Joe
So how do I go about opening the logfile and running your while loop
on it????
------------------------------
Date: Sat, 08 Jan 2005 18:37:17 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Extarcting And Storing a String
Message-Id: <lIGdncbhlIEz833cRVn-qA@adelphia.com>
Digger wrote:
> So how do I go about opening the logfile and running your while loop
> on it????
Have you read the posting guidelines that appear here frequently?
This is a very basic question that's answered in any number of tutorials
and books. It's considered rude to ask such questions without making at
least *some* effort to read and understand such material first.
Have a look at "perldoc perlintro" for a good start.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Sat, 8 Jan 2005 19:02:05 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Extarcting And Storing a String
Message-Id: <slrncu10kd.o8l.tadmc@magna.augustmail.com>
Digger <hx_101@hotmail.com> wrote:
> On Sat, 08 Jan 2005 05:22:42 -0800, Joe Smith <joe@inwap.com> wrote:
>>while (<>) {
> So how do I go about opening the logfile and running your while loop
> on it????
Put the filename into @ARGV before the while loop, and _perl_
will handle the file-opening for you.
$ARGV[0] = 'some.file';
while ( <> ) {
...
or, use open() and a different while loop that uses the open's filehandle.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 3 Jan 2005 10:28:53 GMT
From: Martin D <martind@algonet.se>
Subject: Re: how to get perl catching a device (mic) ?
Message-Id: <crb6p5$qqk$1@yggdrasil.glocalnet.net>
In article <dontmewithme-BA5547.06351403012005@twister2.tin.it>,
Larry <dontmewithme@got.it> wrote:
>Anyone?
if your're on something unixish Lincoln D. Stein's tpj article "An
IP Telephone in 74 Lines of Perl" may be of some help to you.
<http://www.foo.be/docs/tpj/issues/vol5_3/tpj0503-0002.html>
Ma'as salaama,
Martin
--
"... Consciousness, for instance, is infinitely superior to twice two makes
four." -- Dostojevskij in "Notes from Underground"
------------------------------
Date: 08 Jan 2005 20:33:03 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: IPC looking for simple/best way to communicate
Message-Id: <slrncu0grv.l1l.abigail@alexandra.abigail.nl>
whansen_at_corporate-image_dot_com@us.com
(whansen_at_corporate-image_dot_com@us.com) wrote on MMMMCXLVII September MCMXCIII in <URL:news:41ded263.3951491@news.sonic.net>:
() I'm trying to find the best way to do something.
This is an example of a really bad question. Who's going to decide what
the "best way" to do something is? All you do is describe a problem,
but you don't say *ANYTHING* at all which even remotely hints of what
will be a good way for you, let alone the best way.
Do you want a solution that is optimized for:
- speed,
- memory,
- portability,
- maintainance,
- scalability,
- development time,
- development costs,
- ease of deployment,
- simplicity,
- operational costs,
- ...
?
Note that none of these can be answered without knowing a lot of your
development and operation environments.
If you want to know the "best way" (of anything, not this problem),
hire a good consultant. Don't go to Usenet for answers.
Abigail
--
$_ = "\nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop; $chop};
$chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
-> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
------------------------------
Date: 8 Jan 2005 15:32:21 -0800
From: "Perl Mon" <HodgeBrad@gmail.com>
Subject: Re: LWP::Simple getstore not working inside of hash :(
Message-Id: <1105227141.912478.64550@c13g2000cwb.googlegroups.com>
I finally got this to work by using this code:
sub UpdateWeather {
my $LocalCopy = 'C:\\Program
Files\\SlimServer\\server\\TiniWeatherLocalHTML.txt';
my $TINI_IP = get('http://192.168.1.6');
open (OUTPUT, ">$LocalCopy");
select OUTPUT;
print "$TINI_IP";
select STDOUT;
close OUTPUT;
}
It looks as if something may be wrong with the code that SlimServer
(www.slimdevices.com) has in it (it is written in Perl and installs a
lot of modules so users don't have to install Perl separately. I have
notified them of the situation. Thanks for your help.
------------------------------
Date: Sat, 8 Jan 2005 18:57:51 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: LWP::Simple getstore not working inside of hash :(
Message-Id: <slrncu10cf.o8l.tadmc@magna.augustmail.com>
Perl Mon <HodgeBrad@gmail.com> wrote:
> my $LocalCopy = 'C:\\Program
> Files\\SlimServer\\server\\TiniWeatherLocalHTML.txt';
This will work fine too you know:
my $LocalCopy = 'C:/Program
Files/SlimServer/server/TiniWeatherLocalHTML.txt';
No need for silly slashes.
> open (OUTPUT, ">$LocalCopy");
You should always, yes *always*, check the return value from open():
open (OUTPUT, ">$LocalCopy") or die "could not open '$LocalCopy' $!";
> select OUTPUT;
> print "$TINI_IP";
Why bother with the select()?
Why bother with the useless use of quotes?
print OUTPUT $TINI_IP;
will do exactly the same thing as those 2 lines,
with 8 less characters to type and read.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 7 Jan 2005 21:42:37 -0800
From: "D Flint" <david@qssp.com>
Subject: Real Election Reform
Message-Id: <_tadnRFw77fuiX3cRVn-ow@comcast.com>
What do you think about this and have you seen this popular site before?
This was taken from a web site
http://www.afvr.org
How can we safeguard the integrity of each vote?
Today we have technology that protects our financial systems, military
weapon systems and national intelligent organizations. These proven systems
can be combined in a way to issue serialized equipment to authorize
personnel for the dates and hours needed. Each would have their own level of
clearance to perform the tasks they are responsible for. Each action would
be recorded and verified with a higher levels of network authority and
again, only available during the hours and dates needed. Ballots would only
be printed after the voter has cast their vote but before they leave the
booth. If the voter made a mistake he could put the printed ballot into the
booth's scanner for correction. All ballots scanned at the booth would go
into a shredder and the voter could then correct his ballot on the screen
and reprint his ballots. Once the voter accepts the printed ballot he
submits his vote on the screen and takes the two ballots to the depository.
So two computer generated, serialized and scanner perfect receipts of the
completed ballot are printed.* One for the voter and one for the public
record. This would eliminate all the extra ballots that could be used for
unauthorized voting as well as any question of voter intent. Each piece of
equipment involved in the issuing of the receipt would be linked to the
serial# of that ballot and an electronic document would be generated that
exactly matched the two printed receipts. So the voter themselves has
validate the printed ballots, keeping one for themselves, while the other
electronic time-stamped document is deposited into an optical scanner used
as a secure depository. This second scanned count which should always match
the electronic count. This paper ballot could also be used for recounts if
needed. The voter could use the receipt to inquire about their vote in the
future. The stuffing of the ballot box or "finding ballots" would be
eliminated. With this system, if you find a ballot, you have to find the
voter that cast that ballot too. This is not so in any of the current
systems in place today nor have we ever heard such a system ever proposed.
http://www.afvr.org
------------------------------
Date: Mon, 03 Jan 2005 11:46:57 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: tar - gzip
Message-Id: <13cit0t1d5s1boou53tcqgdo0464l8vhv0@4ax.com>
Abigail wrote:
>Or even better, the safe form of system:
>
> system $tar => -czvf, $gzipFile and die "tar exited ", $? >> 8, "\n";
This form isn't safer on Windows. You still need the explicit quotes,
there. Allegedly all that Perl does, on Windows, is join the arguments
with spaces and call the single argument form.
--
Bart.
------------------------------
Date: 8 Jan 2005 13:57:48 -0800
From: ewitkop90@hotmail.com
Subject: trying to connect to a mysql database, to input a file
Message-Id: <1105221468.209116.13100@c13g2000cwb.googlegroups.com>
This is my code:
__________________________________________________________________
#!/usr/bin/perl -w
#insert data into mysql
use DBI;
$dbh = DBI->connect('DBI:mysql;firewall:localhost:3306','xxxx',
'xxxxxxx',
{RaiseError => 1, AutoCommit => 1 })
$dbh->do("LOAD DATA INFILE '/var/log/firewall/ns-complete' INTO TABLE
firewall FIELDS TERMINATED BY '
,' LINES TERMINATED BY '\n'");
$dbh->disconnect;
#EOF
_________________________________________________________________
But it is not working. It is giving me the following error:
Scalar found where operator expected at ./mysql-fwlog-input line 9,
near ")
$dbh"
(Missing semicolon on previous line?)
syntax error at ./mysql-fwlog-input line 9, near ")
$dbh"
Execution of ./mysql-fwlog-input aborted due to compilation errors.
Can someone point out what is wrong. According to my docs, this is the
right syntax.
------------------------------
Date: 8 Jan 2005 14:01:15 -0800
From: ewitkop90@hotmail.com
Subject: Re: trying to connect to a mysql database, to input a file
Message-Id: <1105221675.233401.29230@c13g2000cwb.googlegroups.com>
Also I forgot to mention that line 9 is the dbh->do string. The actual
sql command where I input the file is crapping out.
------------------------------
Date: 8 Jan 2005 22:23:59 GMT
From: Martin Kissner <news@chaos-net.de>
Subject: Re: trying to connect to a mysql database, to input a file
Message-Id: <slrncu0nbu.21d.news@maki.homeunix.net>
ewitkop90@hotmail.com wrote :
> (Missing semicolon on previous line?)
> syntax error at ./mysql-fwlog-input line 9, near ")
why don't just follow the request?
...
{RaiseError => 1, AutoCommit => 1 });
$dbh->do("LOAD DATA INFILE ...
--
Epur Si Muove (Gallileo Gallilei)
------------------------------
Date: Sat, 8 Jan 2005 18:47:18 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: trying to connect to a mysql database, to input a file
Message-Id: <slrncu0vom.o8l.tadmc@magna.augustmail.com>
ewitkop90@hotmail.com <ewitkop90@hotmail.com> wrote:
> (Missing semicolon on previous line?)
> syntax error at ./mysql-fwlog-input line 9, near ")
Did you read the message?
Did you do what the message said to do?
The parser itself told you how to fix the problem, but you
have to listen to what it says for that to help.
Sheesh!
> According to my docs, this is the
> right syntax.
That is a silly thing to say when you get a syntax error. The
parser that is emitting the message is *the definition* of
the right syntax.
If it says you have a syntax error, then you have a syntax error
(or a bug in the parser which is not likely to go unnoticed long).
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 09 Jan 2005 03:00:28 GMT
From: "Peter Wyzl" <wyzelli@yahoo.com>
Subject: Re: trying to connect to a mysql database, to input a file
Message-Id: <g71Ed.111220$K7.39535@news-server.bigpond.net.au>
<ewitkop90@hotmail.com> wrote in message
news:1105221468.209116.13100@c13g2000cwb.googlegroups.com...
: This is my code:
This would be the 'previous line missing the semicolon'
: $dbh = DBI->connect('DBI:mysql;firewall:localhost:3306','xxxx',
: 'xxxxxxx',
: {RaiseError => 1, AutoCommit => 1 })
This would be the syntax error telling you how to fix it...
: (Missing semicolon on previous line?)
: syntax error at ./mysql-fwlog-input line 9, near ")
Missing a semicolon on the previous line....?
P
--
http://cgi.ebay.com.au/ws/eBayISAPI.dll?ViewItem&rd=1&item=4516341671
print "Just another Perl Hacker";
------------------------------
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 7623
***************************************
