[22523] in Perl-Users-Digest
Perl-Users Digest, Issue: 4744 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Mar 22 14:05:39 2003
Date: Sat, 22 Mar 2003 11:05:09 -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, 22 Mar 2003 Volume: 10 Number: 4744
Today's topics:
Re: array namen dynamisch generieren <jurgenex@hotmail.com>
Re: Chopping of everything after a certain word (Anno Siegel)
Re: doubts on \n ctcgag@hotmail.com
Re: doubts on \n <flavell@mail.cern.ch>
Re: doubts on \n <jurgenex@hotmail.com>
How to interchange fields and sorting in perl (siva)
Re: How to interchange fields and sorting in perl <please@no.spam>
Re: How to interchange fields and sorting in perl <spam@thecouch.homeip.net>
Re: How to interchange fields and sorting in perl <wksmith@optonline.net>
Re: How to interchange fields and sorting in perl <mbudash@sonic.net>
Re: Perl querystring encoding question <peakpeek@purethought.com>
Re: Perl querystring encoding question <mbudash@sonic.net>
Re: Problem with Getopt::Std and getopts().... <jurgenex@hotmail.com>
Re: Putting/accessing an object from an array - help! <jkeen@concentric.net>
Re: Putting/accessing an object from an array - help! <bwalton@rochester.rr.com>
Re: Putting/accessing an object from an array - help! <im_not_giving_it_here@i_hate_spam.com>
Re: regexp question (reply re-post) <mbudash@sonic.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 22 Mar 2003 15:06:20 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: array namen dynamisch generieren
Message-Id: <MZ_ea.77867$iq1.68819@nwrddc02.gnilink.net>
Ulrich Gödert wrote:
> I plan to generate several lists (arrays) out of another
> list/database.
> My idea was that I put the data (eg the results of a select) in an
> array. If I would need only one array it is no problem. But I need
> three or more arrays
Ok, that means you need a dynamic datastructure, like an array of arrays or
a hash of arrays, which allows more arrays to be added as you go.
> (and I don't know how much elements will be in
> the array).
That's not a problem because in Perl arrays themselves are dynamic and will
grow as you add more elements
> The problem now is to create the names of the arrays. So I got the
> idea to try something like $t1=substr($var,1,1) (eg $var could be name
> of a table,row or clumn - or something else ) and a constant part like
> "foo". So I want to get the array @afoo, @bfoo, ...
Which is as you have been told before neither necessary nor a good idea to
begin with, please see "perldoc -q 'variable name'": "How can I use a
variable as a variable name?"
If you want to 'name' your arrays then just use a hash of arrays.
If numbering your arrays is good enough then use an array of arrays.
But don't fool around with the symbol table by creating symbolic references
unless there is no other way to solve your problem (there is a much easier
and cleaner way in your case) and you know exactly what you are doing (you
obviously don't, otherwise you wouldn't have asked).
jue
------------------------------
Date: 22 Mar 2003 14:27:28 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Chopping of everything after a certain word
Message-Id: <b5hrsg$klh$1@mamenchi.zrz.TU-Berlin.DE>
Barry Kimelman <barryk2@SPAM-KILLER.mts.net> wrote in comp.lang.perl.misc:
> if ( $data_entry =~ m/(^.*?${given_word})/ ) { # look for word
^ ^
> $data_entry = $1;
> }
What are the "{}" doing in this expression? Answer: nothing. So they
shouldn't be there. On the other hand, inserting "\Q" before "$given_word"
would have been wise. We don't know what the "word" may contain.
Anno
------------------------------
Date: 22 Mar 2003 16:37:52 GMT
From: ctcgag@hotmail.com
Subject: Re: doubts on \n
Message-Id: <20030322113752.775$7B@newsreader.com>
helgi@decode.is (Helgi Briem) wrote:
> For myself, I wish the linefeed were standardised as so
> many things have been standardised lately, but I suppose
> that's a pipedream for now.
I have lower standards. I just wish chomp would remove any OSs' notion of
a line-ending off the end, not just the OS it is running under. I don't
think I've ever wanted to removed the \015 from the end of the line, while
keeping the \012 that may be present.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service New Rate! $9.95/Month 50GB
------------------------------
Date: Sat, 22 Mar 2003 18:27:35 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: doubts on \n
Message-Id: <Pine.LNX.4.53.0303221813130.4366@lxplus009.cern.ch>
On Fri, Mar 21, Benjamin Goldberg inscribed on the eternal scroll:
> Xavier Noria wrote:
> > Michael Carman wrote:
> >
> > :> * Is length("\n") == 1 true in all platforms?
> > :
> > : Yes; within Perl \n is \012, regardless of platform.
>
> False -- on Mac "\n" is \015.
And then there's EBCDIC-based platforms, where, as it so happens, \015
is CR is \r, but \n (as perldoc perlport shows) can have different
values - depending on which EBCDIC codepage is used.
In the words of perlport: "Some of this may be confusing." - amen to
that!
> Sometimes, I wish that \n wasn't *actually* \012 or \015, but rather
> were a special character value in the unicode application-private range,
> which would, when printed to a binmode()d filehandle, cause perl to
> die(), but would, on non-binmode()d handles, silently produce the
> system's logical newline.
Yea...
> The simplest way of dealing with untranslated newlines, is to local()ly
> set $/ to "\015\012", and chomp() the lines after reading them.
Indeed - one has to distinguish clearly between properly-behaved
socket applications on the one hand, and attempts to manipulate
cross-platform file data irrespective of its foreign platform.
perlport is very good in its advice about writing portable code
to handle platform-native file data; and also in its different advice
about how to write portable code to do sockets programming.
But coding to handle cross-platform file data is a different exercise
IMHO.
cheers
------------------------------
Date: Sat, 22 Mar 2003 18:24:44 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: doubts on \n
Message-Id: <MT1fa.78717$iq1.73845@nwrddc02.gnilink.net>
Helgi Briem wrote:
> For myself, I wish the linefeed were standardised as so
> many things have been standardised lately, but I suppose
> that's a pipedream for now.
But the linefeed is standardized.
Well, at least as long as you are talking about ASCII and ASCII-based
character sets.
LF is 0x0Am nothing else.
The other character some people are using is a Carriage Return (CR = 0x0D)
which has nothing to do with a linefeed.
jue
------------------------------
Date: 22 Mar 2003 08:29:41 -0800
From: sivaran@yahoo.com (siva)
Subject: How to interchange fields and sorting in perl
Message-Id: <a067d211.0303220829.69280f45@posting.google.com>
Hi
I am looking for following results through a perl program on a ascii
file
f1 f2 f3
siva:kumar:234
abcd:field:345
hydf:field:745
i want to read that file write back in sorting order f2,f3 and putting
f2 in 1st postion f1 in second postion(inter change the files) . my
output should look like this
field:abcd:345
field:hydf:745
kumar:siva:234
Any help welcomed ....
thanks
siva
------------------------------
Date: Sat, 22 Mar 2003 16:39:03 +0000
From: Chris Lowth <please@no.spam>
Subject: Re: How to interchange fields and sorting in perl
Message-Id: <9m0fa.522$9i.139481@newsfep1-win.server.ntli.net>
siva wrote:
> Hi
>
> I am looking for following results through a perl program on a ascii
> file
>
> f1 f2 f3
> siva:kumar:234
> abcd:field:345
> hydf:field:745
>
> i want to read that file write back in sorting order f2,f3 and putting
> f2 in 1st postion f1 in second postion(inter change the files) . my
> output should look like this
>
> field:abcd:345
> field:hydf:745
> kumar:siva:234
>
> Any help welcomed ....
>
> thanks
> siva
Something like this should do it..
@lines = ( );
while ( <STDIN> ) {
chomp;
@fields = split( /:/ );
push @lines,join(":",@fields[1,0,2]);
}
print join("\n",sort @lines)."\n";
Chris
--
My real address is: chris at lowth dot sea oh em
Author of "protector" (http://protector.sourceforge.net)
-- OpenSource (free) e-mail virus protection
------------------------------
Date: Sat, 22 Mar 2003 13:04:48 -0500
From: Mina Naguib <spam@thecouch.homeip.net>
Subject: Re: How to interchange fields and sorting in perl
Message-Id: <8B1fa.33700$Xy5.397106@wagner.videotron.net>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
siva wrote:
> Hi
>
> I am looking for following results through a perl program on a ascii
> file
>
> f1 f2 f3
> siva:kumar:234
> abcd:field:345
> hydf:field:745
>
> i want to read that file write back in sorting order f2,f3 and putting
> f2 in 1st postion f1 in second postion(inter change the files) . my
> output should look like this
>
> field:abcd:345
> field:hydf:745
> kumar:siva:234
As with all things perl, TIMTOWTDI (There is more than one way to do
it). Here's one of them (you can replace STDIN by the filehandle you're
input is coming through):
@a = sort {$a->[1] cmp $b->[1] || $a->[2] cmp $b->[2]} map
{chomp;[split/:/]} <STDIN>;
foreach (@a) {
print join(":", @$_[1,0,2]), "\n";
}
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
iD8DBQE+fKXEeS99pGMif6wRAnI8AKDIj3co/lQFFBavcSye831pwU8kvwCdEJd9
SLOIigol0JmtAjRUKL/eZ1U=
=UD2J
-----END PGP SIGNATURE-----
------------------------------
Date: Sat, 22 Mar 2003 18:31:56 GMT
From: "Bill Smith" <wksmith@optonline.net>
Subject: Re: How to interchange fields and sorting in perl
Message-Id: <w_1fa.169485$b8.35773866@news4.srv.hcvlny.cv.net>
"siva" <sivaran@yahoo.com> wrote in message
news:a067d211.0303220829.69280f45@posting.google.com...
> Hi
>
> I am looking for following results through a perl program on a ascii
> file
>
> f1 f2 f3
> siva:kumar:234
> abcd:field:345
> hydf:field:745
>
> i want to read that file write back in sorting order f2,f3 and putting
> f2 in 1st postion f1 in second postion(inter change the files) . my
> output should look like this
>
> field:abcd:345
> field:hydf:745
> kumar:siva:234
>
Assuming that the data never contains quoted or escaped colons, and
that the last field in the original remains the last field in the
output.
use strict;
use warnings;
my @lines;
while ( <DATA> ) {
push @lines,join(':',(split(/:/))[1,0,2]);
}
print sort @lines;
__END__
siva:kumar:234
abcd:field:345
hydf:field:745
Refer to the Perl Cookbook, Recipe 1.15 "Parsing Comma-Separated Data"
for suggestions on how to handle the first special case.
For the second case, chomp the line before processing it and append "\n"
to the result before printing it.
Have fun,
Bill
------------------------------
Date: Sat, 22 Mar 2003 18:51:32 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: How to interchange fields and sorting in perl
Message-Id: <mbudash-09C9EF.10513322032003@typhoon.sonic.net>
In article <w_1fa.169485$b8.35773866@news4.srv.hcvlny.cv.net>,
"Bill Smith" <wksmith@optonline.net> wrote:
> "siva" <sivaran@yahoo.com> wrote in message
> news:a067d211.0303220829.69280f45@posting.google.com...
> > Hi
> >
> > I am looking for following results through a perl program on a ascii
> > file
> >
> > f1 f2 f3
> > siva:kumar:234
> > abcd:field:345
> > hydf:field:745
> >
> > i want to read that file write back in sorting order f2,f3 and putting
> > f2 in 1st postion f1 in second postion(inter change the files) . my
> > output should look like this
> >
> > field:abcd:345
> > field:hydf:745
> > kumar:siva:234
> >
>
>
> Assuming that the data never contains quoted or escaped colons, and
> that the last field in the original remains the last field in the
> output.
>
> use strict;
> use warnings;
> my @lines;
> while ( <DATA> ) {
> push @lines,join(':',(split(/:/))[1,0,2]);
> }
> print sort @lines;
> __END__
> siva:kumar:234
> abcd:field:345
> hydf:field:745
>
>
> Refer to the Perl Cookbook, Recipe 1.15 "Parsing Comma-Separated Data"
> for suggestions on how to handle the first special case.
>
> For the second case, chomp the line before processing it and append "\n"
> to the result before printing it.
both your example and one in another earlier post sort the data by f2,
f1, f3, which is not what the o.p. requires. it was easy to miss this
fact, since the results will be the same due to the data. yours can be
modified to do the job:
use strict;
use warnings;
my @lines;
while (<D>) {
chomp;
push @lines,join(":",(split(/:/))[1,2,0]);
}
my @lines = sort @lines;
print map { (join ":", (split /:/)[0,2,1]) . "\n" } @lines;
hth-
------------------------------
Date: Sat, 22 Mar 2003 11:13:27 +0000
From: Sharon Grant <peakpeek@purethought.com>
Subject: Re: Perl querystring encoding question
Message-Id: <n0ao7v0pqg3sf06mo816a7rdl4bihfvu30@4ax.com>
On Sat, 22 Mar 2003 02:38:20 GMT, in comp.lang.perl.misc, Michael Budash <mbudash@sonic.net> wrote:
>In article <vjfn7vg7tvh6qo6al03pq1ieunu8g8evbk@4ax.com>,
> Sharon Grant <peakpeek@purethought.com> wrote:
>
>> On Fri, 21 Mar 2003 00:30:30 GMT, in comp.lang.perl.misc, Michael Budash
>> <mbudash@sonic.net> wrote:
>>
>> >In article <907e039c.0303201234.1de824c4@posting.google.com>,
>> > rdodd@xltech.net (Robert Dodd) wrote:
>> >
>> >> I am trying to pass values in a querystring that come from a a flat
>> >> file db extracted using Perl (see code below) Can anyone tell me how
>> >> to encode the variable encoding querystring variables $job_title?
>> >> right now it get truncated because it contains a / the code is below
>> >
>> >[snip unnecessary code example]
>> >
>> >> application.shtml?email=$contact_email&state=$state&position=$job_title
>> >
>> >[snip rest of unnecessary code example]
>> >
>> >if you're using the CGI perl module:
>> >
>> >my $href = 'application.shtml?email=' .
>> > CGI::escape($contact_email) .
>> > '&state=' .
>> > CGI::escape($state) .
>> > '&position=' .
>> > CGI::escape($job_title);
>>
>>
>> '&' is not valid HTML here
>
>who's talking about html??
In the context of the original post in this thread:
print <<"End_of_HTML";
...
<td><a href=application.shtml?email=$contact_email&state=$state&position=$job_title>Online
Application</a><br></td>
>and even if we were, '&' is perfectly valid...
HTML specifications:
http://www.isi.edu/in-notes/rfc1866.txt
refer 8.2.1. The form-urlencoded Media Type
http://www.w3.org/TR/1999/REC-html401-19991224/appendix/notes.html#h-B.2.2
http://www.w3.org/TR/xhtml1/#C_12
Usenet discussion:
http://groups.google.com/groups?threadm=Pine.HPP.3.95a.990803131302.13690F-100000@hpplus03.cern.ch
http://groups.google.com/groups?threadm=76gb8.83$Bw4.66714@news1.telusplanet.net
and the HTML validator which Wolf Behrenhoff mentioned elsewhere in
this thread, which is how I originally struck this issue, later
clarified for me by Alan J. Flavell's discussion in the 1999 thread
mentioned above
--
Sharon
------------------------------
Date: Sat, 22 Mar 2003 18:02:40 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: Perl querystring encoding question
Message-Id: <mbudash-479F41.10024122032003@typhoon.sonic.net>
In article <n0ao7v0pqg3sf06mo816a7rdl4bihfvu30@4ax.com>,
Sharon Grant <peakpeek@purethought.com> wrote:
> On Sat, 22 Mar 2003 02:38:20 GMT, in comp.lang.perl.misc, Michael Budash
> <mbudash@sonic.net> wrote:
>
> >In article <vjfn7vg7tvh6qo6al03pq1ieunu8g8evbk@4ax.com>,
> > Sharon Grant <peakpeek@purethought.com> wrote:
> >
> >> On Fri, 21 Mar 2003 00:30:30 GMT, in comp.lang.perl.misc, Michael Budash
> >> <mbudash@sonic.net> wrote:
> >>
> >> >In article <907e039c.0303201234.1de824c4@posting.google.com>,
> >> > rdodd@xltech.net (Robert Dodd) wrote:
> >> >
> >> >> I am trying to pass values in a querystring that come from a a flat
> >> >> file db extracted using Perl (see code below) Can anyone tell me how
> >> >> to encode the variable encoding querystring variables $job_title?
> >> >> right now it get truncated because it contains a / the code is below
> >> >
> >> >[snip unnecessary code example]
> >> >
> >> >> application.shtml?email=$contact_email&state=$state&position=$job_title
> >> >
> >> >[snip rest of unnecessary code example]
> >> >
> >> >if you're using the CGI perl module:
> >> >
> >> >my $href = 'application.shtml?email=' .
> >> > CGI::escape($contact_email) .
> >> > '&state=' .
> >> > CGI::escape($state) .
> >> > '&position=' .
> >> > CGI::escape($job_title);
> >>
> >>
> >> '&' is not valid HTML here
> >
> >who's talking about html??
>
> In the context of the original post in this thread:
>
> print <<"End_of_HTML";
> ...
> <td><a
> href=application.shtml?email=$contact_email&state=$state&position=$job_tit
> le>Online
> Application</a><br></td>
>
>
> >and even if we were, '&' is perfectly valid...
>
> HTML specifications:
>
> http://www.isi.edu/in-notes/rfc1866.txt
> refer 8.2.1. The form-urlencoded Media Type
>
> http://www.w3.org/TR/1999/REC-html401-19991224/appendix/notes.html#h-B.2.2
>
> http://www.w3.org/TR/xhtml1/#C_12
>
>
> Usenet discussion:
>
> http://groups.google.com/groups?threadm=Pine.HPP.3.95a.990803131302.13690F-100
> 000@hpplus03.cern.ch
>
> http://groups.google.com/groups?threadm=76gb8.83$Bw4.66714@news1.telusplanet.n
> et
>
>
> and the HTML validator which Wolf Behrenhoff mentioned elsewhere in
> this thread, which is how I originally struck this issue, later
> clarified for me by Alan J. Flavell's discussion in the 1999 thread
> mentioned above
well file this one under "you learn something new every day"... i've
been writing stuff like this for years, and it never bit me (thank god)
even tho it was invalid:
<a href="/script.cgi?this=that&these=those">
thanks to all
------------------------------
Date: Sat, 22 Mar 2003 15:15:19 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Problem with Getopt::Std and getopts()....
Message-Id: <b6%ea.77921$iq1.58377@nwrddc02.gnilink.net>
Michele Dondi wrote:
> On 20 Mar 2003 16:36:36 -0800, clearguy02@yahoo.com (John Smith)
> wrote:
>> C:\>test.pl 1
>
> BTW: can you really run it like this (on Win* - as it seems)?!?
Why not?
Just create the correct association for the extension 'pl' (but that's a
Windows question, not a Perl question).
BTW: ActiveState does that for you automatically when you install it and you
check the right checkbox.
jue
------------------------------
Date: 22 Mar 2003 14:15:27 GMT
From: "James E Keenan" <jkeen@concentric.net>
Subject: Re: Putting/accessing an object from an array - help!
Message-Id: <b5hr5v$7nr@dispatch.concentric.net>
"Asfand Yar Qazi" <im_not_giving_it_here@i_hate_spam.com> wrote in message
news:b5hds9$19g$1@news7.svr.pol.co.uk...
> Here's the problem:
>
What is your question?
------------------------------
Date: Sat, 22 Mar 2003 15:12:07 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: Putting/accessing an object from an array - help!
Message-Id: <3E7C79A9.3000407@rochester.rr.com>
Asfand Yar Qazi wrote:
> Here's the problem:
...
> my @all_recs = [];
()---------------^^
The [] puts a reference to an empty array in the first element of
@all_recs. You don't want that.
...
> Asfand Yar
...
--
Bob Walton
------------------------------
Date: Sat, 22 Mar 2003 16:21:06 +0000
From: Asfand Yar Qazi <im_not_giving_it_here@i_hate_spam.com>
Subject: Re: Putting/accessing an object from an array - help!
Message-Id: <b5i2f4$q37$1@news8.svr.pol.co.uk>
Bob Walton wrote:
> Asfand Yar Qazi wrote:
>
>> Here's the problem:
>
> ....
>
>> my @all_recs = [];
>
>
> ()---------------^^
>
> The [] puts a reference to an empty array in the first element of
> @all_recs. You don't want that.
>
>
> ....
>
>
>> Asfand Yar
>
> ....
>
Many thanks.
------------------------------
Date: Sat, 22 Mar 2003 18:30:50 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: regexp question (reply re-post)
Message-Id: <mbudash-00A986.10305122032003@typhoon.sonic.net>
In article <mbudash-0C7331.10271322032003@typhoon.sonic.net>,
Michael Budash <mbudash@sonic.net> wrote:
> In article <LK0fa.439$842.133@newsfep4-winn.server.ntli.net>,
> "Mike" <mike@luusac.co.uk> wrote:
>
> > "Jürgen Exner" <jurgenex@hotmail.com> wrote in message
> > news:wF%ea.15046$IM3.7673@nwrddc03.gnilink.net...
> > >
> > > Mike wrote:
> > > >
> > > > But what I want is to assign the contents to a hash (which I
> > > > understand is a 2 dimensional array in perl ?).
> > >
> > > No, it's not. An array is a mapping from natural numbers to scalars. A
> > > hash is a mapping from arbitrary strings to scalars.
> >
> > Well the ID that I am trying to match (in the first regexp) is numerical,
> > but no calculations are done with it - it just acts as an identifier of a
> > string, so is a hash what I want ?
note: this is a re-post of my earlier reply, which had several
mis-spellings:
who knows? you started this thread with one idea, now you've moved on to
another. please re-state the problem along with a minimally complete
example of the pertinent data.
with seeing your data, instead based on your comments, i'm gonna go out
on a limb and propose that this code is [at least closer to] what you
want:
use strict;
my %hash;
open (D,'data') or die "....: $!";
while (<D>) {
if (/ID\: (\d\d\d\d)/) {
my $key = $1; # save the key match
while (<D>) { # search second pattern
if (/#$/) {
chomp (my $val = scalar <D>);
$hash{$key} = $val; # enter result into hash
last;
}
}
}
}
close D;
while (my ($k, $v) = each %hash) {
print "$k=>$v\n";
}
# or print the hash sorted:
foreach (sort keys %hash) {
print "$_=>$hash{$_}\n";
}
hope this helps
------------------------------
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 4744
***************************************
