[19376] in Perl-Users-Digest
Perl-Users Digest, Issue: 1571 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 20 14:10:31 2001
Date: Mon, 20 Aug 2001 11:10:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <998331010-v10-i1571@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 20 Aug 2001 Volume: 10 Number: 1571
Today's topics:
SOS - Flock <jtjohnston@courrier.usherb.ca>
Re: SOS - Flock <godzilla@stomp.stomp.tokyo>
Re: SOS - Flock (Anno Siegel)
Re: SOS - Flock (Malcolm Dew-Jones)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: String Parsing > Remove everything after the first <cberry@cinenet.net>
Re: syntax & compilation errors (Tad McClellan)
Re: Text::Wrap/ANSI proplem <philip@zaynar.demon.co.uk>
Re: This is not a question ... call me slow if you like (Helgi Briem)
Re: Using 'require' and variables nobull@mail.com
Re: XML Encoding <jurgenex@hotmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 20 Aug 2001 16:00:02 GMT
From: jtjohnston <jtjohnston@courrier.usherb.ca>
Subject: SOS - Flock
Message-Id: <3B81347A.4CFFD6F4@courrier.usherb.ca>
Please, can someone tell me, am I flocking this correctly?
An email post 7 reply wold be a greeeeeat help.
open(LOG,"$userlog") or die "can't open $userlog: $!\n";
flock(LOG, 2);
@STATData = <LOG>;
close(LOG);
open(LOG,">$userlog") or die "can't open $userlog: $!\n";
flock(LOG, 2);
print LOG @STATData;
print LOG "\n$tempid$temp11$temp12$temp13$temp14$temp21";
close(LOG);
------------------------------
Date: Mon, 20 Aug 2001 09:14:35 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: SOS - Flock
Message-Id: <3B81376B.4E9A746B@stomp.stomp.tokyo>
jtjohnston wrote:
(snipped)
> Please, can someone tell me, am I flocking this correctly?
My presumption is you are childishly helpless or
exhibit flatline brain activity, perhaps both.
Why don't you simply add error checking for your flock?
jeesshhh....
Godzilla!
------------------------------
Date: 20 Aug 2001 16:30:57 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: SOS - Flock
Message-Id: <9lre01$6pj$1@mamenchi.zrz.TU-Berlin.DE>
According to jtjohnston <jtjohnston@courrier.usherb.ca>:
> Please, can someone tell me, am I flocking this correctly?
Correctly for what purpose?
> An email post 7 reply wold be a greeeeeat help.
Post here, read here.
> open(LOG,"$userlog") or die "can't open $userlog: $!\n";
> flock(LOG, 2);
Always use the mnemonic constants from Fcntl. Who knows what 2 means to
flock() on your system.
> @STATData = <LOG>;
> close(LOG);
>
> open(LOG,">$userlog") or die "can't open $userlog: $!\n";
> flock(LOG, 2);
Note that you use the same type of lock for reading and writing. That is
probably incorrect.
> print LOG @STATData;
> print LOG "\n$tempid$temp11$temp12$temp13$temp14$temp21";
> close(LOG);
Quite generally, there is no "correct" way of locking. Only you know
when what part of your code will be run and how they can clash. Without
that knowledge it is impossible to answer your question.
Anno
------------------------------
Date: 20 Aug 2001 09:31:22 -0800
From: yf110@vtn1.victoria.tc.ca (Malcolm Dew-Jones)
Subject: Re: SOS - Flock
Message-Id: <3b813b5a@news.victoria.tc.ca>
jtjohnston (jtjohnston@courrier.usherb.ca) wrote:
: Please, can someone tell me, am I flocking this correctly?
: An email post 7 reply wold be a greeeeeat help.
: open(LOG,"$userlog") or die "can't open $userlog: $!\n";
: flock(LOG, 2);
: @STATData = <LOG>;
: close(LOG);
=> -1-
: open(LOG,">$userlog") or die "can't open $userlog: $!\n";
: flock(LOG, 2);
=> -2-
: print LOG @STATData;
: print LOG "\n$tempid$temp11$temp12$temp13$temp14$temp21";
: close(LOG);
No this is wrong. (Also, if you are really just appending new data to the
end, then you should examine the open flags that just append data to a
file.)
At -1- any other process can update the file because it is not locked.
Then when you update at -2- then any such changes are lost.
You need to open the file in update mode so you can both read and write
the file while it is still locked.
Something like this, (but I can't be bothered to perlize it for you,
sorry), The necessary arguments to functions are in "perldoc perlfunc".
open FILE , " your file using read plus write flags" or die;
flock FILE
@data = <FILE>
@new_data = change_the_data(@data);
seek FILE , seek to start of file
print FILE @new_data
truncate FILE at current write position in case it's shorter now
close FILE
------------------------------
Date: Mon, 20 Aug 2001 16:14:34 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <to2draesuius8f@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 13 Aug 2001 15:29:26 GMT and ending at
20 Aug 2001 14:23:02 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2001 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
faq\@(?:.*\.)?denver\.pm\.org
Totals
======
Posters: 333
Articles: 1325 (574 with cutlined signatures)
Threads: 327
Volume generated: 2593.7 kb
- headers: 1140.4 kb (21,663 lines)
- bodies: 1355.4 kb (44,860 lines)
- original: 824.1 kb (30,333 lines)
- signatures: 96.5 kb (1,985 lines)
Original Content Rating: 0.608
Averages
========
Posts per poster: 4.0
median: 1 post
mode: 1 post - 170 posters
s: 8.8 posts
Posts per thread: 4.1
median: 3 posts
mode: 1 post - 89 threads
s: 4.8 posts
Message size: 2004.5 bytes
- header: 881.4 bytes (16.3 lines)
- body: 1047.5 bytes (33.9 lines)
- original: 636.9 bytes (22.9 lines)
- signature: 74.6 bytes (1.5 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
89 207.8 (104.4/ 91.1/ 49.9) tadmc@augustmail.com
67 144.0 ( 69.5/ 52.9/ 27.3) Tassilo von Parseval <Tassilo.Parseval@post.rwth-aachen.de>
52 116.0 ( 43.3/ 71.3/ 60.3) Carlos C . Gonzalez <miscellaneousemail@yahoo.com>
48 83.8 ( 39.0/ 27.0/ 9.0) Ilya Martynov <ilya@martynov.org>
47 72.4 ( 42.2/ 29.9/ 17.1) Bart Lateur <bart.lateur@skynet.be>
38 66.9 ( 29.7/ 37.2/ 15.4) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
33 83.8 ( 27.0/ 55.2/ 28.8) Benjamin Goldberg <goldbb2@earthlink.net>
24 44.5 ( 19.2/ 24.6/ 7.2) "John W. Krahn" <krahnj@acm.org>
23 38.3 ( 21.0/ 17.3/ 9.1) Eric Bohlman <ebohlman@omsdev.com>
23 34.7 ( 13.2/ 21.5/ 11.0) gnari <gnarinn@hotmail.com>
These posters accounted for 33.5% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
207.8 (104.4/ 91.1/ 49.9) 89 tadmc@augustmail.com
144.0 ( 69.5/ 52.9/ 27.3) 67 Tassilo von Parseval <Tassilo.Parseval@post.rwth-aachen.de>
116.0 ( 43.3/ 71.3/ 60.3) 52 Carlos C . Gonzalez <miscellaneousemail@yahoo.com>
83.8 ( 39.0/ 27.0/ 9.0) 48 Ilya Martynov <ilya@martynov.org>
83.8 ( 27.0/ 55.2/ 28.8) 33 Benjamin Goldberg <goldbb2@earthlink.net>
72.4 ( 42.2/ 29.9/ 17.1) 47 Bart Lateur <bart.lateur@skynet.be>
67.7 ( 15.5/ 52.2/ 37.9) 18 Yves Orton <demerphq@hotmail.com>
66.9 ( 29.7/ 37.2/ 15.4) 38 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
51.3 ( 19.2/ 28.2/ 26.7) 20 abigail@foad.org
50.8 ( 18.1/ 32.7/ 25.4) 21 "Godzilla!" <godzilla@stomp.stomp.tokyo>
These posters accounted for 36.4% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.974 ( 6.7 / 6.8) 9 Rafael Garcia-Suarez <rgarciasuarez@free.fr>
0.945 ( 26.7 / 28.2) 20 abigail@foad.org
0.846 ( 60.3 / 71.3) 52 Carlos C . Gonzalez <miscellaneousemail@yahoo.com>
0.818 ( 15.1 / 18.5) 10 John Lin <johnlin@chttl.com.tw>
0.791 ( 1.6 / 2.0) 5 Philippe PERRIN <philippe.perrin@sxb.bsf.alcatel.fr>
0.787 ( 3.5 / 4.5) 5 "Stephen Deken" <shutupsteve@awdang.no.thanks.com>
0.783 ( 5.0 / 6.4) 6 "Alan J. Flavell" <flavell@mail.cern.ch>
0.776 ( 25.4 / 32.7) 21 "Godzilla!" <godzilla@stomp.stomp.tokyo>
0.727 ( 37.9 / 52.2) 18 Yves Orton <demerphq@hotmail.com>
0.727 ( 8.1 / 11.1) 7 "Peter Mann" <Pcmann1@btinternet.com>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.425 ( 13.9 / 32.8) 21 Stan Brown <stanb@panix.com>
0.421 ( 3.0 / 7.2) 6 helgi@NOSPAMdecode.is
0.413 ( 15.4 / 37.2) 38 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.397 ( 2.4 / 6.1) 5 "Albretch" <lbrtchx@hotmail.com>
0.381 ( 3.9 / 10.3) 14 "Jürgen Exner" <jurgenex@hotmail.com>
0.379 ( 1.0 / 2.7) 5 Robert Sherman <rsherman@ce.gatech.edu>
0.332 ( 9.0 / 27.0) 48 Ilya Martynov <ilya@martynov.org>
0.326 ( 1.7 / 5.4) 6 Michael Budash <mbudash@sonic.net>
0.293 ( 7.2 / 24.6) 24 "John W. Krahn" <krahnj@acm.org>
0.280 ( 4.7 / 16.8) 6 "M.L." <mel2000@hotmaildot.com>
58 posters (17%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
31 perldoc is like Greek to a beginner??
27 Uh Oh: URL Encode
22 Help! Multiple line extract from file based on user input.
21 Perl OO needs the opposite of SUPER::
19 2 dimensional array suntax help, please
19 what does this message mean?
18 OT: Why is there so much white space in perl documentation??
17 Evaluation order of object methods
17 How do I assing an entire array?
16 Not inserting duplicate elements into an array
These threads accounted for 15.6% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
69.9 ( 31.6/ 35.4/ 23.6) 31 perldoc is like Greek to a beginner??
59.3 ( 18.6/ 37.7/ 27.3) 21 Perl OO needs the opposite of SUPER::
55.0 ( 28.1/ 22.6/ 12.9) 27 Uh Oh: URL Encode
52.3 ( 21.5/ 30.7/ 19.5) 18 OT: Why is there so much white space in perl documentation??
52.0 ( 17.1/ 34.4/ 14.2) 19 2 dimensional array suntax help, please
48.1 ( 13.6/ 34.5/ 16.5) 14 Need Perl module or regexp to slurp specific XML records
47.3 ( 15.5/ 31.1/ 19.5) 17 Evaluation order of object methods
39.2 ( 13.3/ 25.4/ 19.3) 16 Not inserting duplicate elements into an array
37.5 ( 19.0/ 17.5/ 8.2) 22 Help! Multiple line extract from file based on user input.
35.5 ( 15.4/ 19.1/ 14.1) 16 Using manpages??
These threads accounted for 19.1% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.870 ( 8.3/ 9.6) 8 Alphabetized list of perldoc documentation??
0.802 ( 2.9/ 3.6) 6 Any way of detecting running in eval?
0.798 ( 5.3/ 6.7) 7 VIER/NEUN problem
0.760 ( 19.3/ 25.4) 16 Not inserting duplicate elements into an array
0.748 ( 2.0/ 2.7) 5 redirecting stdin and stdout
0.739 ( 14.1/ 19.1) 16 Using manpages??
0.735 ( 8.4/ 11.4) 10 Is $! a number or a string?
0.734 ( 7.5/ 10.2) 10 Copy file in Perl
0.727 ( 9.7/ 13.3) 9 Accessing a widget when defined local to a sub
0.725 ( 27.3/ 37.7) 21 Perl OO needs the opposite of SUPER::
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.424 ( 1.2 / 2.9) 6 get rid of these leading zeros in Perl
0.414 ( 1.1 / 2.7) 5 accessing multiple hashes and regex
0.412 ( 14.2 / 34.4) 19 2 dimensional array suntax help, please
0.410 ( 5.9 / 14.3) 19 what does this message mean?
0.382 ( 1.9 / 5.0) 7 Extracting attachments from e-mail
0.356 ( 0.9 / 2.5) 5 regex with ascii code - chr(0) ?
0.350 ( 3.7 / 10.5) 7 Looking for Script
0.312 ( 1.3 / 4.2) 6 Coercing list context onto pair of regexps in a comparison
0.306 ( 0.9 / 2.9) 5 dynamic variable question
0.287 ( 2.1 / 7.2) 5 string extraction
84 threads (25%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
34 comp.lang.perl.modules
29 alt.perl
15 comp.lang.perl
12 comp.text.xml
11 microsoft.public.xml
7 comp.lang.tcl
7 comp.dcom.sys.cisco
4 comp.lang.perl.tk
4 alt.ascii-art
3 comp.infosystems.www.authoring.tools
Top 10 Crossposters
===================
Articles Address
-------- -------
24 "M.L." <mel2000@hotmaildot.com>
12 Eric Bohlman <ebohlman@omsdev.com>
8 T Mesbah <tmesbah@hotmail.com>
6 "Don" <mail4donpro@home.com>
6 Ilya Martynov <ilya@martynov.org>
6 =?ISO-8859-1?Q?Morten_Tanger=E5s?= <morten@tangeraas.com>
5 Tassilo von Parseval <Tassilo.Parseval@post.rwth-aachen.de>
5 "David Scarlett" <dscarlett@optushome.com.au>
4 Benjamin Goldberg <goldbb2@earthlink.net>
4 Michael Mauch <michael.mauch@gmx.de>
------------------------------
Date: Mon, 20 Aug 2001 18:02:09 -0000
From: Craig Berry <cberry@cinenet.net>
Subject: Re: String Parsing > Remove everything after the first non-number
Message-Id: <Xns9103704381A84cberrycinenetnet1@207.126.101.92>
rubbish_tip@hotmail.com (DB) wrote in news:5e79838e.0108180924.67a8f411
@posting.google.com:
> I need a snippet of a regex to remove everything after the first
> non-number in a string.
$string =~ s/\D.*//s;
--
Craig Berry <http://www.cinenet.net/~cberry/>
"That which is now known, was once only imagined." - William Blake
------------------------------
Date: Mon, 20 Aug 2001 11:01:26 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: syntax & compilation errors
Message-Id: <slrn9o29i6.qk0.tadmc@tadmc26.august.net>
Ilya Martynov <ilya@martynov.org> wrote:
>I heard on one maillist that there are still exist some Unix vendors
>which bundle Perl 4 with their OS.
You don't have to look very hard to find fools in the world.
:-(
An OS vendor that ignores CERT advisories should be put on
your personal blacklist.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 20 Aug 2001 17:28:59 +0100
From: Philip Taylor <philip@zaynar.demon.co.uk>
Subject: Re: Text::Wrap/ANSI proplem
Message-Id: <ehm5qCALrTg7EwEV@zaynar.demon.co.uk>
In article <3B7C2D1F.BB0170E5@home.com>, Michael Carman
<mjcarman@home.com> writes
>Give this a try. (Tested with your example, but may have undiscovered
>bugs.)
Anno mentioned that it wouldn't work when very long words were split,
and I tried to think of other methods (like creating a 'colour mask',
wrapping the uncoloured text, and putting the mask back on top), but it
seemed like too much effort for something which is very unlikely to
occur (and it's not vitally important for it to work perfectly).
I decided to just change $Text::Wrap::huge to 'overflow' so that words
longer than 50 characters are not split -- they will exceed the standard
width, but at least the text is coloured correctly.
Anyway, thanks for the reply :-)
--
Philip Taylor
philip @ zaynar . demon . co . uk
http://robowarriors.ultrastore.com/legoworld.shtml
-- If the Earth was made of Lego...
------------------------------
Date: Mon, 20 Aug 2001 16:39:40 GMT
From: helgi@NOSPAMdecode.is (Helgi Briem)
Subject: Re: This is not a question ... call me slow if you like...
Message-Id: <3b813aab.2448013607@news.isholf.is>
On 20 Aug 2001 11:51:22 GMT, Przemyslaw Brojewski
<brojek@kis.p.lodz.pl> wrote:
>I get:
>Modification of a read-only value attempted at cosik line 2.
>
>perl 5.6.1.
>
>what gives?
OK, you're slow.
Apparently you tried to modify a read-only value
(a value that cannot be written to) in line 2 of cosik
(whatever that happens to be). Apparently, perl 5.6.1
regards this as a Bad Thing.
From perldoc perldiag
Modification of a read-only value attempted
(F) You tried, directly or indirectly, to change the
value of a constant. You didn't, of course, try 2 = 1,
since the compiler catches that. But an easy way to do
the same thing is:
sub mod { $_[0] = 1 }
mod(2);
Another way is to assign to a substr that's off the end
of the string.
Regards,
Helgi Briem
------------------------------
Date: 20 Aug 2001 17:30:41 +0100
From: nobull@mail.com
Subject: Re: Using 'require' and variables
Message-Id: <u9u1z2ithq.fsf@wcl-l.bham.ac.uk>
Doug Robbins <sleddog@komatik.org> writes:
> I have a set of perl script that (hopefully, someday) will work
> together as a CGI application.
>
> There are a series of configuration variables that all scripts use. I
> want to place these variables in a separate 'config' file and then
> 'require' that file at the top of each script. But how do I do this,
> and at the same time pre-declare variables (in accordance with 'use
> strict')?
>
> Here is a basic example of what I mean:
>
> ---config.cgi contains config variables shared by scripts---
> $basepath = "/some/path";
> $baseURL = "http://somewhere.com";
> [...other variables]
> ---end config.cgi---
>
> ---myscript.cgi---
> #/usr/bin/perl
> require "config.cgi";
> open(IN,"$basepath/data.dat") or die("Couldn't open data.dat: $!");
> [... do things]
> ---end myscript.cgi---
>
> The above works okay. But to 'use strict', $basepath needs to be pre-
> declared. But where?
>
> Regardless whether I declare 'my $basepath' in config.cgi or in
> myscript.cgi, it return with a null value and the script dies, "no such
> file...".
You do not want $basepath to be a lexically scoped (i.e. my())
variable.
You must either declare it in _both_ files using "our()" or
alternatively in myscript.cgi using "use vars".
BTW: Using the suffix ".cgi" for a file that is anything other than a
CGI script is pathological obfuscation.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 20 Aug 2001 09:53:18 -0700
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: XML Encoding
Message-Id: <3b814086$1@news.microsoft.com>
"Tad McClellan" <tadmc@augustmail.com> wrote in message
news:slrn9nqrfb.bgj.tadmc@tadmc26.august.net...
> Don't want to be changing "<" into "&lt;" :-)
Coming to think of it I'am actually not sure if I agree.
If the user data contains a "<" then it will be encoded as "<". And when
decoding the XML back into user data it will be decoded as "<" again. So far
so good.
Now, if the user data contains the character sequence "<" then obviously
the user meant the character sequence "<". He did not mean the less sign
"<".
If you decode the XML back into user data the user expects to get the
"<" again, not a plain dumb "<". If you don't encode the ampersand in
"<" you have no means to distinguish between a less sign that was encoded
by your encoding algorithm and the original character sequence "<".
Therefore I think the right way to go is actually to encode ALL ampersands
in the user data to "&".
Furthermore the less-than named entity is only one example. It applies to
all HTML named entities (why would you want to add "ü" to the XML name
space if you can encode it as "&uuml;")
jue
------------------------------
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 1571
***************************************
