[19875] in Perl-Users-Digest
Perl-Users Digest, Issue: 2070 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 5 11:10:31 2001
Date: Mon, 5 Nov 2001 08:10:13 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <1004976612-v10-i2070@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 5 Nov 2001 Volume: 10 Number: 2070
Today's topics:
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Using Perl to set Unix environmental variables (Tal Cohen)
Re: Using Perl to set Unix environmental variables (Rafael Garcia-Suarez)
Re: Using Perl to set Unix environmental variables <nobody@nowhere.com>
Re: Using Perl to set Unix environmental variables <tony_curtis32@yahoo.com>
web server <control153@yahoo.com>
Re: web server (Rafael Garcia-Suarez)
XML::Records (was Re: XML parsing) <bart.lateur@skynet.be>
Re: XML::Records (was Re: XML parsing) (Eric Bohlman)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 05 Nov 2001 14:43:23 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <tud9cbbds6l57d@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 29 Oct 2001 14:51:35 GMT and ending at
06 Nov 2001 01:56:49 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: 304
Articles: 855 (330 with cutlined signatures)
Threads: 244
Volume generated: 1641.8 kb
- headers: 722.2 kb (14,193 lines)
- bodies: 870.2 kb (28,663 lines)
- original: 531.9 kb (19,037 lines)
- signatures: 48.5 kb (1,071 lines)
Original Content Rating: 0.611
Averages
========
Posts per poster: 2.8
median: 1.0 post
mode: 1 post - 170 posters
s: 4.7 posts
Posts per thread: 3.5
median: 3.0 posts
mode: 1 post - 69 threads
s: 6.3 posts
Message size: 1966.3 bytes
- header: 865.0 bytes (16.6 lines)
- body: 1042.2 bytes (33.5 lines)
- original: 637.0 bytes (22.3 lines)
- signature: 58.1 bytes (1.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
48 134.3 ( 58.8/ 69.1/ 47.6) tadmc@augustmail.com
30 48.9 ( 25.7/ 22.9/ 14.5) Bart Lateur <bart.lateur@skynet.be>
22 46.0 ( 23.4/ 22.6/ 14.3) "Stuart Gall" <stuart@otenet.gr>
18 43.8 ( 17.7/ 26.1/ 25.2) "Steffen Müller" <tsee@gmx.net>
18 24.1 ( 15.2/ 8.9/ 3.0) Laocoon <Laocoon@eudoramail.com>
15 29.3 ( 12.8/ 12.9/ 4.9) Uri Guttman <uri@stemsystems.com>
15 29.5 ( 12.1/ 13.4/ 7.9) Clinton A. Pierce <clintp@geeksalad.org>
14 38.3 ( 13.3/ 22.3/ 12.1) mgjv@tradingpost.com.au
13 17.8 ( 10.4/ 7.3/ 3.1) Simon Oliver <simon.oliver@umist.ac.uk>
12 30.5 ( 10.2/ 19.9/ 9.7) Benjamin Goldberg <goldbb2@earthlink.net>
These posters accounted for 24.0% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
134.3 ( 58.8/ 69.1/ 47.6) 48 tadmc@augustmail.com
48.9 ( 25.7/ 22.9/ 14.5) 30 Bart Lateur <bart.lateur@skynet.be>
46.0 ( 23.4/ 22.6/ 14.3) 22 "Stuart Gall" <stuart@otenet.gr>
43.8 ( 17.7/ 26.1/ 25.2) 18 "Steffen Müller" <tsee@gmx.net>
38.3 ( 13.3/ 22.3/ 12.1) 14 mgjv@tradingpost.com.au
30.8 ( 11.5/ 19.2/ 11.1) 10 "Carsten Menke" <bootsy52@gmx.net>
30.5 ( 10.2/ 19.9/ 9.7) 12 Benjamin Goldberg <goldbb2@earthlink.net>
29.5 ( 12.1/ 13.4/ 7.9) 15 Clinton A. Pierce <clintp@geeksalad.org>
29.3 ( 12.8/ 12.9/ 4.9) 15 Uri Guttman <uri@stemsystems.com>
24.7 ( 12.1/ 12.7/ 3.4) 12 "Tintin" <tintin@snowy.calculus>
These posters accounted for 27.8% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.964 ( 25.2 / 26.1) 18 "Steffen Müller" <tsee@gmx.net>
0.792 ( 6.2 / 7.8) 7 "Alexander Farber (EED)" <eedalf@eed.ericsson.se>
0.768 ( 3.8 / 5.0) 6 BUCK NAKED1 <dennis100@webtv.net>
0.766 ( 5.1 / 6.7) 9 "Jürgen Exner" <jurgenex@hotmail.com>
0.726 ( 3.5 / 4.9) 5 "Alan J. Flavell" <flavell@mail.cern.ch>
0.703 ( 3.7 / 5.3) 5 Glenn White <spam.killer@home.com_nospam>
0.696 ( 5.9 / 8.5) 12 nobull@mail.com
0.690 ( 47.6 / 69.1) 48 tadmc@augustmail.com
0.681 ( 2.2 / 3.3) 5 Ken <perl@omnibus-systems.net>
0.679 ( 2.6 / 3.8) 6 Logan Shaw <logan@cs.utexas.edu>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.369 ( 2.3 / 6.2) 11 Tony Curtis <tony_curtis32@yahoo.com>
0.337 ( 1.3 / 3.9) 7 Rafael Garcia-Suarez <rgarciasuarez@free.fr>
0.335 ( 3.0 / 8.9) 18 Laocoon <Laocoon@eudoramail.com>
0.319 ( 2.2 / 6.9) 9 "Gregory Toomey" <nobody@nowhere.com>
0.313 ( 3.7 / 12.0) 10 garry@zvolve.com
0.311 ( 2.2 / 7.0) 11 John J. Trammell <trammell@haqq.hypersloth.invalid>
0.306 ( 1.9 / 6.2) 5 "Swanthog" <lhswartw@ichips.intel.com>
0.301 ( 1.7 / 5.6) 7 Jonathan Stowe <gellyfish@gellyfish.com>
0.270 ( 3.4 / 12.7) 12 "Tintin" <tintin@snowy.calculus>
0.144 ( 1.1 / 7.8) 7 Nick Temple <nicktemple2000@yahoo.com>
45 posters (14%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
22 reading flat-file db and replacing a word
20 Unsigned 8 bit math (addition and subtraction)
18 Getting one element of array return value
17 challenge, how short can you make this?
14 XML parsing
13 Failed scripts leave Perl behind
12 Good Perl Tutorials ???
10 when does 0.58 != 0.58?
10 Help modifying a sort routine
9 Pattern matching with "(" complains...
These threads accounted for 17.0% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
68.9 ( 24.8/ 43.3/ 25.7) 22 reading flat-file db and replacing a word
34.3 ( 14.7/ 12.9/ 5.1) 17 challenge, how short can you make this?
34.1 ( 19.7/ 13.6/ 7.9) 20 Unsigned 8 bit math (addition and subtraction)
30.9 ( 15.7/ 11.8/ 6.8) 18 Getting one element of array return value
30.5 ( 9.8/ 20.4/ 18.2) 10 Help modifying a sort routine
27.9 ( 12.2/ 14.6/ 7.8) 14 XML parsing
27.9 ( 10.6/ 16.1/ 7.4) 12 Good Perl Tutorials ???
24.8 ( 5.7/ 19.0/ 8.7) 7 DBI MySQL problems
23.9 ( 3.6/ 20.1/ 9.7) 5 Newbie help please with free perl form scripts
22.0 ( 8.4/ 12.7/ 6.4) 9 desperate: perl scripts called from init.d/... scripts
These threads accounted for 19.8% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.895 ( 18.2/ 20.4) 10 Help modifying a sort routine
0.795 ( 3.1/ 3.9) 5 i do not understand it(the =~s/.../.../), thanx!
0.777 ( 3.8/ 4.9) 6 How can I fix this?
0.755 ( 3.5/ 4.7) 5 Serving HTML images
0.742 ( 3.8/ 5.1) 5 Perl from NT OS to Linux/Unix
0.680 ( 4.1/ 6.1) 5 I am looking for several perl programs for my course but can't find them, please help me...
0.679 ( 5.0/ 7.4) 5 Taint problem with BEGIN block
0.665 ( 3.5/ 5.2) 5 Sending Content Type in email
0.657 ( 4.7/ 7.1) 8 Leftmost SHORTEST
0.656 ( 2.3/ 3.5) 5 Wrapping long emails - sample code
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.438 ( 3.6 / 8.2) 6 Need help creating a small flatfile DB program
0.438 ( 1.8 / 4.0) 5 Perl/CGI Search Script
0.417 ( 3.7 / 9.0) 13 Failed scripts leave Perl behind
0.412 ( 3.0 / 7.2) 7 Yet another regexp question
0.408 ( 1.8 / 4.5) 5 newbie: error processing
0.398 ( 5.1 / 12.9) 17 challenge, how short can you make this?
0.355 ( 1.0 / 2.9) 5 [OT] help with simple script
0.341 ( 2.0 / 5.9) 5 how to print out every second value of an array
0.323 ( 2.4 / 7.4) 6 Control M's still there? - how to make sure?
0.278 ( 1.1 / 4.1) 6 How to run a perl script as background from remote host ?
63 threads (25%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
19 comp.lang.perl.modules
14 comp.lang.perl
11 alt.perl
9 comp.databases.ms-sqlserver
9 microsoft.public.sqlserver.connect
6 comp.lang.perl.tk
5 alt.os.windows2000
3 comp.lan.perl.moderated
2 comp.perl.lang.modules
1 comp.lang.tcl
Top 10 Crossposters
===================
Articles Address
-------- -------
5 Johan Vromans <JVromans@Squirrel.nl>
5 Clinton A. Pierce <clintp@geeksalad.org>
4 Walter Usyk <usyk@home.com>
4 r_larsen@image.dk
4 "Dan Nguyen" <Dan.Nguyen@lsil.com>
4 hugo <hugo@fractalgraphics.com.au>
2 OSx <femello@mac.com>
2 Al Binns <al_binns@yahoo.com>
2 "Joseph J. Whalen" <joe.whalen@broadbeam.com>
2 Bart Lateur <bart.lateur@skynet.be>
------------------------------
Date: 5 Nov 2001 05:39:33 -0800
From: tncohen@avaya.com (Tal Cohen)
Subject: Using Perl to set Unix environmental variables
Message-Id: <12795252.0111050539.e85c885@posting.google.com>
Hi,
I want to create a Perl script that will set the Unix
environmental variables. I tried the %ENV hash, but it will only set
the variable for the current and subsequent processes (children). I
tried having Perl do an exec "source <some_script_name>" when the
<some_script_name> file had a setenv command in it. I also tried this
with system instead of exec.
Any ideas?
Thanks,
Tal Cohen
------------------------------
Date: 5 Nov 2001 13:48:03 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Using Perl to set Unix environmental variables
Message-Id: <slrn9ud65d.d9k.rgarciasuarez@rafael.kazibao.net>
Tal Cohen wrote in comp.lang.perl.misc:
> Hi,
> I want to create a Perl script that will set the Unix
> environmental variables. I tried the %ENV hash, but it will only set
> the variable for the current and subsequent processes (children). I
> tried having Perl do an exec "source <some_script_name>" when the
> <some_script_name> file had a setenv command in it. I also tried this
> with system instead of exec.
You can't modify your parent's environment on Unix.
See "perldoc -q environment".
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Tue, 6 Nov 2001 00:26:52 +1000
From: "Gregory Toomey" <nobody@nowhere.com>
Subject: Re: Using Perl to set Unix environmental variables
Message-Id: <8ixF7.89162$g8.71913@newsfeeds.bigpond.com>
"Tal Cohen" <tncohen@avaya.com> wrote in message
news:12795252.0111050539.e85c885@posting.google.com...
> Hi,
> I want to create a Perl script that will set the Unix
> environmental variables. I tried the %ENV hash, but it will only set
> the variable for the current and subsequent processes (children). I
> tried having Perl do an exec "source <some_script_name>" when the
> <some_script_name> file had a setenv command in it. I also tried this
> with system instead of exec.
You can train you kids, but not you parents!!
Look up the 'source' command in Unix.
gtoomey
------------------------------
Date: Mon, 05 Nov 2001 08:29:43 -0600
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Using Perl to set Unix environmental variables
Message-Id: <871yjds33c.fsf@limey.hpcc.uh.edu>
>> On Tue, 6 Nov 2001 00:26:52 +1000,
>> "Gregory Toomey" <nobody@nowhere.com> said:
> "Tal Cohen" <tncohen@avaya.com> wrote in message
> news:12795252.0111050539.e85c885@posting.google.com...
>> Hi, I want to create a Perl script that will set the
>> Unix environmental variables. I tried the %ENV hash,
>> but it will only set the variable for the current and
>> subsequent processes (children). I tried having Perl do
>> an exec "source <some_script_name>" when the
>> <some_script_name> file had a setenv command in it. I
>> also tried this with system instead of exec.
> You can train you kids, but not you parents!!
> Look up the 'source' command in Unix.
"UNIX" doesn't have a source command. "source" is a
feature of some, but not all, shells (and the syntax of
what it reads varies of course between shells).
perldoc -q environment
hth
t
--
Oh! I've said too much. Smithers, use the amnesia ray.
------------------------------
Date: Mon, 05 Nov 2001 10:29:02 -0500
From: cool dude <control153@yahoo.com>
Subject: web server
Message-Id: <3BE6B03D.AD40A260@yahoo.com>
I am not sure if this is the correct message board to post this :
does anyone know how to start a web server from scratch ?? i have apache
installed on my unix web server but i would like to open another port on
my server and be able to send/recieve requests through a web browser.
(start a new process/deamon) i want to be able to modify the headers and
everything.
i apologize if this is not the proper place to post this but please let
me know where to go and if you guys have any helpful links .
--Thanks
------------------------------
Date: 5 Nov 2001 15:45:37 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: web server
Message-Id: <slrn9udd1s.dj4.rgarciasuarez@rafael.kazibao.net>
cool dude wrote in comp.lang.perl.misc:
> I am not sure if this is the correct message board to post this :
>
> does anyone know how to start a web server from scratch ?? i have apache
> installed on my unix web server but i would like to open another port on
> my server and be able to send/recieve requests through a web browser.
> (start a new process/deamon) i want to be able to modify the headers and
> everything.
And you can't do this with apache ??
As your asking in a Perl group, I assume you look for Perl answers.
If you want a high level a customizability, you should look at the
mod_perl apache module : a perl interpreter built into your apache !
If you want to write your own web server, begin with the HTTP::Daemon
module, available from CPAN.
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
Owner: There, he moved!
Customer: No, he didn't, that was you hitting the cage!
-- Monty Python, The Pet Shop
------------------------------
Date: Mon, 05 Nov 2001 11:44:55 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: XML::Records (was Re: XML parsing)
Message-Id: <kmrcutkqt0b3f44av7bda0o6157s015vgg@4ax.com>
Bart Lateur wrote:
>Tad McClellan wrote:
>
>>See also XML::Records:
>
>Now there's a good tip. I've installed that module, I'll play with it in
>the morning.
I've tested it a bit. Although it has some very nice properties, it also
has some disadvantages which can easily make it useless, as it is now,
for many practical cases. I think this module could have a lot in common
with XML::Simple.
First of all: the simplicity of the data format it returns is so good,
it's almost intoxicating. It's not the simplicity itself, but the ease
by which you can access individual data fields in Perl. For example,
with an XML file that looks like this:
<?xml version="1.0"?>
<database>
<record id="a123">
<name>Hotel Plaza</name>
<title>A pleasant hotel for the whole family</title>
<images>
<image>a123a</image>
<image>a123b</image>
</images>
</record>
</database>
and a script like this:
use XML::Records;
use Data::Dumper;
my $p = XML::Records->new('db.xml') or die "$!";
$p->set_records('record');
while (my $record = $p->get_record) {
print Dumper $record;
}
You get output like:
$VAR1 = {
'images' => {
'image' => [
'a123a',
'a123b'
]
},
'title' => 'A pleasant hotel for the whole family',
'id' => 'a123',
'name' => 'Hotel Plaza'
};
As you can see, you can just get at the first image by getting
$record->{images}{image}[0]
which is sooo easy.
And now the disadvantages. A small disadvantage is that you get a scalar
(string) if there's one embedded element of one type, and an array ref
if there's more. For example, with just one "image", you'd get
'images' => {
'image' => 'a123a'
}
which is a whole different thing.
But most of all: it's lossy. you don't get all the info out of it that's
in there. Sometimes you loose a LOT.
- There's no way you can distinguish between attributes and nested
elements, see "id" in the above example.
- The ORDER in which the items are in the file, is lost. Instead of an
ordered tree, you get just a tree.
- If there's a blend of plain text and embedded elements, you loose
one. For example, this:
<test>This is in <b>bold</b> and this in <i>italic</i>.</test>
will result in this:
'test' => {
'i' => 'italic',
'b' => 'bold'
}
which doesn't say much.
And worst of all:
<img href="a123a.jpg"/>
results in
'img' => ''
Thus: an empty tag returns an empty string. This is because it contains
no nested elements, thus it is treated as text, thereby throwing away
the attributes. But since it's an empty element, there's no text.
It's the latter that makes it useless for this particular application I
have in mind now, because it makes a lot of use if this kind of XML
tags.
What might be done about it? I sure don't want to learn an awkward
interface like SAX, so that is off.
Perhaps XML::Records can be patched so you can choose one of many
different "styles" of output, just like the raw XML::Parser can output
several styles of parsed results. That way the implementor can add any
style he pleases. Perhaps this can already be done, but it's not obvious
from the documentation.
The patched output should contain ALL of the info, preferably in a
uniform data structure. That might imply always having to use array
refs, so the above example above would have to become
$record->{images}[0]{image}[0]
even if there's only one element per tag.
It should differentiate between attributes and embedded elements. retain
both plain text and embedded elements, and the order in which they
occur. But OTOH you should NOT have to search through the tree (by
traversing it), the simple (nested) hash access should stay.
So I'm thinking of a dual tree, where all the info is in there twice.
That is less expensive than it might seem, because it contains the same
*references* twice, as values, not copies of the data structures. And
I'd like to avoid circular references thank you.
For the XML given above I can imagine getting data back something like:
$VAR1 = { '%id' => 'a123',
'name' => [ \'Hotel Plaza' ],
'title' => ['\A pleasant hotel for the whole family'],
'images' => [
{ 'image' => [\'a123a', \'a123b'],
'@' => [ $VAR1->{images}[0]{image}[0],
$VAR1->{images}[0]{image}[1],
]
},
],
'@' => [ $VAR1->{name}[0], $VAR1->{title}[0],
$VAR1->{images}[0] ]
}
Something like that, I can't imagine this not to be entirely wrong.
But the gist should be clear: the hash contains both the directly
accessible individual elements and the ordered tree, side by side,
without conflict because of the use of (hopefully) illegal characters
for XML tags, with a high perlish mnemonic value. And you can
distinguish the attributes from the nested elements.
--
Bart.
------------------------------
Date: 5 Nov 2001 14:19:46 GMT
From: ebohlman@omsdev.com (Eric Bohlman)
Subject: Re: XML::Records (was Re: XML parsing)
Message-Id: <9s6762$8ui$1@bob.news.rcn.net>
Bart Lateur <bart.lateur@skynet.be> wrote:
> And worst of all:
> <img href="a123a.jpg"/>
> results in
> 'img' => ''
> Thus: an empty tag returns an empty string. This is because it contains
> no nested elements, thus it is treated as text, thereby throwing away
> the attributes. But since it's an empty element, there's no text.
That one's definitely a bug; I'll try to fix it in the next couple days.
> It's the latter that makes it useless for this particular application I
> have in mind now, because it makes a lot of use if this kind of XML
> tags.
> What might be done about it? I sure don't want to learn an awkward
> interface like SAX, so that is off.
> Perhaps XML::Records can be patched so you can choose one of many
> different "styles" of output, just like the raw XML::Parser can output
> several styles of parsed results. That way the implementor can add any
> style he pleases. Perhaps this can already be done, but it's not obvious
> from the documentation.
I'm working on XML::Pull, which is eventually going to supercede
XML::Records and XML::TokeParser. It will have the ability to call a SAX
handler on "records" which will let you build any data structure that can
be built by a SAX handler.
------------------------------
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 2070
***************************************
