[13809] in Perl-Users-Digest
Perl-Users Digest, Issue: 1219 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 29 09:05:37 1999
Date: Fri, 29 Oct 1999 06:05:19 -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: <941202318-v9-i1219@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 29 Oct 1999 Volume: 9 Number: 1219
Today's topics:
Re: [offtopic] English <jeffp@crusoe.net>
Can not run another program from CGI-script <alex@kawo2.rwth-aachen.de>
decode $ENV{'HTTP_WEFERER'}? <vadim@sns.ru>
Re: decode $ENV{'HTTP_WEFERER'}? (Abigail)
Re: downloaded emails appended to file, want to pick ou (kevin anderson)
Re: downloaded emails appended to file, want to pick ou (kevin anderson)
great regex strips quotes... but... <trent@jps.net>
Re: great regex strips quotes... but... <rhomberg@ife.ee.ethz.ch>
Re: help downloaded files appended to file, search for (kevin anderson)
It is always like this here? <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
mySQL -> Sybase <r.jordan@gigabell.net>
Re: NT: How can I change drive within a perl script? <r.j.yates@open.ac.uk>
Re: Q: digit-wise number comparisons ? (M.J.T. Guy)
Re: Q: digit-wise number comparisons ? (M.J.T. Guy)
Re: Q: digit-wise number comparisons ? (M.J.T. Guy)
Re: Regular Expression (M.J.T. Guy)
Re: Regular Expression <jeffp@crusoe.net>
Reinventing the wheel <david.laneNOdaSPAM@mantech.com.invalid>
Re: Sub in which module (M.J.T. Guy)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 29 Oct 1999 07:27:58 -0400
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: [offtopic] English
Message-Id: <Pine.GSO.4.10.9910290726430.2694-100000@crusoe.crusoe.net>
> >: > : =CC hope anyone of you can answer my question,
> >: > : and mildly ignore it's dumbness .
> Sorry for being off-topic, but can you explain why you are frustrated?
> I don't see any possessive "its" in the original quote...
The contraction "it's" means "it is". The possessive "its" means
something belonging to "it". "Please ignore its dumbness" is correct use
of possessive its. "Please ignore; it's dumb" is correct use of the
contraction.
--=20
MIDN 4/C PINYAN, USNR, NROTCURPI
jeff pinyan japhy@pobox.com
perl stuff japhy+perl@pobox.com
CPAN ID: PINYAN http://www.perl.com/CPAN/authors/id/P/PI/PINYAN/
------------------------------
Date: Fri, 29 Oct 1999 12:51:12 +0200
From: Alex Farber <alex@kawo2.rwth-aachen.de>
Subject: Can not run another program from CGI-script
Message-Id: <38197C20.4AF774F3@kawo2.rwth-aachen.de>
Hi,
I am using "perl, version 5.005_55 built for sun4-solaris"
and have read perldoc on system, exec, perlipc and perlfaq8
but still can't get my CGI-script to run another script -
so I would appreciate any hints very much!
I have a CGI script edit-gazeti.pl which adds an URL to a
database and another script print-gazeti.pl which generates
a web page out of this database and runs as a cron job.
Now I would like to run this script also at the end of CGI
to see my changes immideately. Here is what I've tried:
#!/usr/local/bin/perl -T # that's my edit-gazeti.pl
$ENV{PATH} = '/usr/bin'; # the path to the csh
$|++;
...
system '/export/home/afarber/lit/print-gazeti.pl';
print end_html; # the EOF edit-gazeti.pl
-OR-
print pre (qx (/export/home/afarber/lit/print-gazeti.pl)),
end_html;
-OR-
print end_html;
exec '/export/home/afarber/lit/print-gazeti.pl';
I have also tried calling the same commands with perl:
'/usr/local/bin/perl /export/home/afarber/lit/print-gazeti.pl'
There is no effect - the program print-gazeti.pl seems not
to be run. However the following works fine
print qx (/bin/ls -l /export/home/afarber/lit/print-gazeti.pl);
Permissions are okay (for CGI-user too) and the script
runs fine from the shell. Who has an idea?
Regards
Alex
------------------------------
Date: Fri, 29 Oct 1999 07:55:19 -0400
From: Vadim Kulakov <vadim@sns.ru>
Subject: decode $ENV{'HTTP_WEFERER'}?
Message-Id: <3819ED97.EA2148BE@sns.ru>
How can I decode the string (Apache/1.3.4 (Unix)):
HTTP_WEFERER=HYUCDDJBLVLMHAALPTCXLYRWTQTIPWIGYOKSTT
Thanks in advance!
Vadim.
------------------------------
Date: 29 Oct 1999 07:52:15 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: decode $ENV{'HTTP_WEFERER'}?
Message-Id: <slrn81j62q.66b.abigail@alexandra.delanet.com>
Vadim Kulakov (vadim@sns.ru) wrote on MMCCL September MCMXCIII in
<URL:news:3819ED97.EA2148BE@sns.ru>:
## How can I decode the string (Apache/1.3.4 (Unix)):
## HTTP_WEFERER=HYUCDDJBLVLMHAALPTCXLYRWTQTIPWIGYOKSTT
You'll have to ask the wabbits.
Abigail
--
perl -we 'print q{print q{print q{print q{print q{print q{print q{print q{print
qq{Just Another Perl Hacker\n}}}}}}}}}' |\
perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Fri, 29 Oct 1999 11:21:44 GMT
From: andersjk@sol-invictus.org (kevin anderson)
Subject: Re: downloaded emails appended to file, want to pick out the info...
Message-Id: <38198323.100296749@news.isar.de>
Thanks, Art... i see the program already.!!!! at list i have an
idea...
thanks,
kevin anderson
On Wed, 27 Oct 1999 22:26:49 GMT, Scratchie <AgitatorsBand@yahoo.com>
wrote:
>kevin anderson <andersjk@sol-invictus.org> wrote:
>: we get these email leads so far my program logs into the pop3 server
>: on a sun machine and retrieves just the body and appends all messages
>: to file. this 'data' file has then for example 10 email bodies they
>: all have the same format for example
>
>: name: joe blow
>: company: blah blah inc.
>
>So at the point that your (hypothetical) perl script is supposed to start,
>this data file has already been created, right?
>
>: joe blow, blah blah inc.,user@host.com
>: mr.smith,ork ork inc, user@host.com
>
>: till the whole 'data' file is read then extracted to data1
>
>: i see that while(<>) reads line by line etc...
>
>Presumably you have some sort of marker in "data" to tell when you've
>reached the end of one record, right?
>
>Basically what you want to do is read in each line and split it on the ":"
>(perldoc -f split). You'll probably want to create a hash with the
>left-hand part as the key and the right-hand part as the value.
>
>Then, when you reach the end of the record, you have all the data you need
>in the hash... write it out in whatever order you want (probably using the
>"join" function) and clear out the hash (you could probably just set it to
>an empty list).
>
>Does that help you get started? If so, come back when you have a little
>code written and we can probably help you through the rough spots.
>
>--Art
>
>--
>--------------------------------------------------------------------------
> National Ska & Reggae Calendar
> http://www.agitators.com/calendar/
>--------------------------------------------------------------------------
------------------------------
Date: Fri, 29 Oct 1999 11:22:19 GMT
From: andersjk@sol-invictus.org (kevin anderson)
Subject: Re: downloaded emails appended to file, want to pick out the info...
Message-Id: <38198354.100345709@news.isar.de>
thanks Tom...
got the email going...
kevin anderson...
On Wed, 27 Oct 1999 11:07:52 -0700, Tom Phoenix <rootbeer@redcat.com>
wrote:
>On Wed, 27 Oct 1999, kevin anderson wrote:
>
>> i just need to see the path how to get there...
>
>There are some modules on CPAN for working with email. If that's not what
>you want, it would probably be good to ask a question when you post a
>request. Cheers!
>
>--
>Tom Phoenix Perl Training and Hacking Esperanto
>Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
>
------------------------------
Date: Fri, 29 Oct 1999 00:23:19 -0700
From: "Trent" <trent@jps.net>
Subject: great regex strips quotes... but...
Message-Id: <38194b6b@news1.jps.net>
this code snippet works excellent on quoted csv's.
undef @data;
push(@data, defined($1) ? $1:$3)
while m/"([^"\\]*(\\.[^"\\]*)*)"|([^,]+)/g;
But, after manipulating the data, and then attempting the join,
$line = join (",", map { "\"$_\"" } @data);
the map adds more quotes than I originally had.
Is the solution obvious to anyone?
Trent Hare
------------------------------
Date: Fri, 29 Oct 1999 14:46:04 +0200
From: Alex Rhomberg <rhomberg@ife.ee.ethz.ch>
Subject: Re: great regex strips quotes... but...
Message-Id: <3819970C.65D13D43@ife.ee.ethz.ch>
Trent wrote:
>
> this code snippet works excellent on quoted csv's.
>
> undef @data;
> push(@data, defined($1) ? $1:$3)
> while m/"([^"\\]*(\\.[^"\\]*)*)"|([^,]+)/g;
>
> But, after manipulating the data, and then attempting the join,
>
> $line = join (",", map { "\"$_\"" } @data);
>
> the map adds more quotes than I originally had.
My PSI::ESP module tells me that you don't want quotes if there are no
commas in a field
map {s/(.*,.*)/"$1"/; $_;} @data;
map {/,/ ? qq%"$_"% : $_} @data; #fewer strokes
instead of your map does that
- Alex
------------------------------
Date: Fri, 29 Oct 1999 09:46:45 GMT
From: andersjk@sol-invictus.org (kevin anderson)
Subject: Re: help downloaded files appended to file, search for info..help...
Message-Id: <38196cac.94545028@news.isar.de>
Hi thanks,
i have already loaded the mail modules i will have to do some more
research into this... hmmm i do have the books and i will try...
thanks again to both of you who answered...!
kevin anderson
On Wed, 27 Oct 1999 23:08:04 GMT, mgjv@comdyn.com.au (Martien
Verbruggen) wrote:
>On Wed, 27 Oct 1999 17:10:06 GMT,
> kevin anderson <andersjk@sol-invictus.org> wrote:
>> Hi all,
>>
>> i just need a pointer in the right direction!! the rest i should be
>> able to figure out...
>>
>> we get these email leads so far my program logs into the pop3 server
>> on a sun machine and retrieves just the body and appends all messages
>> to file. this 'data' file has then for example 10 email bodies they
>> all have the same format for example
>>
>> name: joe blow
>> company: blah blah inc.
>>
>> and so on about seven 'fields' i would like to have the name, company
>> etc. formated in another file like comma delimited so it reads the
>> 'data' file picks out 'name' 'company' and writes to data1 in a row
>>
>> joe blow, blah blah inc.,user@host.com
>> mr.smith,ork ork inc, user@host.com
>>
>> till the whole 'data' file is read then extracted to data1
>>
>> i see that while(<>) reads line by line etc...
>
>You could use that, and you could parse these lines yourself, but you
>might be able to save yourself a lot of trouble by getting one of the
>modules from CPAN. There are quite a few there that deal with mail,
>and I know for a fact that one of them specifically gives you access
>to the headers.
>
># lynx http://www.cpan.org/modules/
>[The module list]
>[19) Mail and Usenet news]
>
>I believe Mail::Field is the one you want. It comes in a package
>called MailTools by Graham Barr, which contains many good Mail
>goodies.
>
>Martien
>--
>Martien Verbruggen |
>Interactive Media Division | For heaven's sake, don't TRY to be
>Commercial Dynamics Pty. Ltd. | cynical. It's perfectly easy to be
>NSW, Australia | cynical.
------------------------------
Date: Fri, 29 Oct 1999 03:08:54 -0700
From: Mark Bluemel <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
Subject: It is always like this here?
Message-Id: <000b8d9b.40a12527@usw-ex0101-001.remarq.com>
I've been teaching myself Perl for a few weeks, with moderate success,
so I thought I'd join the newsgroup. After just one day, I'm more than
half inclined to drop out again. Large amount of traffic, huge
noise-to-signal ratio, cluelessness in abundance and a fair proportion
of abuse - these all add up to somewhere that I'm not feeling like
hanging round in.
Is it always like this, or have I picked a bad time?
Are there techniques we could use to improve things, like frequently
posted pointers to FAQs etc... (No, not the whole flaming things - if
people can read news, surely they can find a web page given a hint)? Or
is it simply that Perl attracts a vast number of <insert your
uncomplementary epithet here>?
Mark Bluemel
Not yet a Perl hacker
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Fri, 29 Oct 1999 14:54:46 +0200
From: Reinhold Jordan <r.jordan@gigabell.net>
Subject: mySQL -> Sybase
Message-Id: <38199916.B4D2D23@gigabell.net>
Hello,
I'm looking for an easy way to transfer tables from a mySQL to a Sybase.
I think, this is often used, but I didn't find a solution.
Thx, Reinhold
--
Reinhold Jordan, Administrator Linux
Cybermedia GmbH, Mainzer Landstr. 46, 60325 Frankfurt
------------------------------
Date: Fri, 29 Oct 1999 11:06:05 GMT
From: Richard Yates <r.j.yates@open.ac.uk>
Subject: Re: NT: How can I change drive within a perl script?
Message-Id: <7vbv2s$gtd$1@nnrp1.deja.com>
In article <MPG.12763096d98e741f98a0bd@nntp.hpl.hp.com>,
Larry Rosler <lr@hpl.hp.com> wrote:
> In article <380C510A.75863FC0@open.ac.uk> on Tue, 19 Oct 1999 12:07:54
> +0100, Richard Yates <r.j.yates@open.ac.uk> says...
> > or find out what drive I'm on "now".
> use Cwd;
> print substr cwd, 0, 1;
> > I'm asking this on behalf of a colleague.........
> ........who is unable to ask for h(is|er)self?
Quite so. However, thank you very much (& Mr. McMahan) for your
helpful replies, which I have forwarded. I know nothing of NT
or Perl, perhaps I'll start investicating. Perl, anyway.....
Richard.
--
Please e-mail copy r.j.yates@open.ac.uk when replying,
if you will be so kind.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 29 Oct 1999 11:40:09 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Q: digit-wise number comparisons ?
Message-Id: <7vc12p$5q7$1@pegasus.csx.cam.ac.uk>
Alex Rhomberg <rhomberg@ife.ee.ethz.ch> wrote:
>M.J.T. Guy wrote:
>>
>> Alex Rhomberg <rhomberg@ife.ee.ethz.ch> wrote:
>> >
>> >The best you can do is take every 11th number.
>> >In my test using random numbers, it was really slowing down with >60_000
>> >numbers found.
>>
>> Hardly "the best", since it doesn't make all combinations equally likely.
>
>could you please back your argument up with some data.
Eh? It's self evident that sets containing only multiples of 11
are not uniformly distributed over the set of all possible sets.
>Show me a list of numbers that fits the specification and contains more
>elements than mine:
>@nums = map {$_ * 11} (0..90909);
>This contains 90910 number. I think it is the most that can be found.
Nope. The obvious check digit coding does better, giving N/10 values.
E.g. take all numbers the sum of whose digits is 7 mod 10.
Mike Guy
------------------------------
Date: 29 Oct 1999 12:24:23 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Q: digit-wise number comparisons ?
Message-Id: <7vc3ln$889$1@pegasus.csx.cam.ac.uk>
In article <7v80oc$gl4$1@charm.magnus.acs.ohio-state.edu>,
Ilya Zakharevich <ilya@math.ohio-state.edu> wrote:
>[A complimentary Cc of this posting was sent to Tye McQueen
><tye@metronet.com>],
>who wrote in article <7v7s1s$6dj@beanix.metronet.com>:
>> No, you can get even denser. You can use 1/10 of the space, not
>> just 1/11. For example, you add 11 nine times, then add 1, add 11
>> nine times, add 1, etc:
>>
>> for $i ( 1000..9999 ) {
>> for $j( 0..9 ) {
>> print "$i$j$j\n";
>> }
>> }
>>
>> 100000
>> ...
>> 100100
>
>Look on these two.
>
>If my vague memory from my highschool days is correct, "each 11th" is
>the densest possible packing - with an exception that sometimes one
>can put *one* additional number.
Not quite. The numbers divisible by 11 form a maximal set. The numbers
congruent to a != 0 mod 11 form a maximal set with the addition of one
extra number, e.g. the numbers congruent to 1 together with 181818.
But a maximal set is merely one that cannot be extended - there can
exist larger sets. In particular the sets "sum of digits congruent to
x mod 10" are maximal and of size N/10.
Whether those are actually the largest maximal sets I don't know -
given the slippery nature of coding theory, I rather doubt it.
It's also interesting to ask how small a maximal set can be, since that
gives the largest number of numbers you can guarantee to get from an
algorithm like Abigail's. A maximal set clearly has at least N/55
members, so the original poster is safe ( "> 1500" is comfortably less
than 18182). But I can't see any better bound.
Mike Guy
------------------------------
Date: 29 Oct 1999 12:35:32 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Q: digit-wise number comparisons ?
Message-Id: <7vc4ak$8rt$1@pegasus.csx.cam.ac.uk>
In article <7v3nia$d92$1@eve.enteract.com>,
Tushar Samant <Tbone@pimpdaddy.com> wrote:
>tye@metronet.com writes:
>>I tried for no 3 digits the same, but after about 300 six-digit
>>IDs the search got too slow. I wonder what the sizes are of the
>>largest and smallest sets of 6 digit IDs were no two have 2 (or
>>3) digits in common and no IDs can be added to the set without
>>breaking that property.
>
>Don't know if I am reading the problem right, but an ID in such
>a set would rule out 6 * 9 ids "around" it which differ from it
>in only one digit, and 15 * 9 ** 2 around those which differ in
>two digits. Which means each ID takes out 1270 out of 10 ** 6,
>giving 787 at most. Don't know how high you can actually go...
Nope. He wants "Hamming distance at least 2", so only 54 neighbours
are excluded by each number. And each neighbour is excluded by 54
numbers. So that shows you only that the set has size at most N/2.
Presumably the actual upper bound is rather lower, but I don't have
any better argument currently.
Mike Guy
------------------------------
Date: 29 Oct 1999 11:20:39 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Regular Expression
Message-Id: <7vbvu7$4qi$1@pegasus.csx.cam.ac.uk>
In article <Pine.GSO.4.10.9910280823310.2694-100000@crusoe.crusoe.net>,
Jeff Pinyan <japhy@pobox.com> wrote:
>
> 3) learn about the /BEGIN(?:(?!END))END/ regular expression, how you can
> apply it here, and what it does in general.
Don't you mean
/BEGIN(?:(?!END).)*END/
there? There's not many things your version would match.
Mike Guy
------------------------------
Date: Fri, 29 Oct 1999 07:59:58 -0400
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: Regular Expression
Message-Id: <Pine.GSO.4.10.9910290755510.2694-100000@crusoe.crusoe.net>
On Oct 29, M.J.T. Guy blah blah blah:
> > 3) learn about the /BEGIN(?:(?!END))END/ regular expression, how you can
> Don't you mean
> /BEGIN(?:(?!END).)*END/
Whoops, I copied that incorrectly. I did forget a couple characters. Oh.
Wait.
Let me start over.
/BEGIN((?:(?!BEGIN).)*)END/
is for matching the string " two " out of "BEGIN one BEGIN two END".
I don't know where I pulled that other regex out of. Probably my ass.
--
MIDN 4/C PINYAN, USNR, NROTCURPI
jeff pinyan japhy@pobox.com
perl stuff japhy+perl@pobox.com
CPAN ID: PINYAN http://www.perl.com/CPAN/authors/id/P/PI/PINYAN/
------------------------------
Date: Fri, 29 Oct 1999 05:49:45 -0700
From: david.lane@mantech.com <david.laneNOdaSPAM@mantech.com.invalid>
Subject: Reinventing the wheel
Message-Id: <1415c574.a0e37bb4@usw-ex0101-006.remarq.com>
Greetings,
I suspect someone out there has already done this and can help me out.
I am trying to take a directory output (from NetWare's NDIR command) and
transpose it so that I can shove it into a database. Once I get it
transposed, I can easily upload it. The problem is getting it
transposed.
What I have is this:
CORP_02/SHARES:SPC\PROJECTS\MARKETI0\NUTRIVIL\*.*
Files Size Last Update Owner
----------------- ------------- ---------------
-------------------------
MANUAL6.DOC o 477,696 4/03/98 12:04p
MScott.Alexandria.ISDN...
NUORDERF.DOC o 12,288 3/17/98 10:53a
MScott.Alexandria.ISDN...
MANUAL.DOC o 484,864 4/03/98 12:05p
MScott.Alexandria.ISDN...
NUTACTIV.DOC 527,360 2/26/98 8:49a
MScott.Alexandria.ISDN...
What I want to get rid of is the formating crap (Files, size and the
underline) between the directory name and the files. I also want to
tack on the directory name to the files listing so that in general I
have:
file, size, date, user, directory
I can get as far as the regex to pull out the directory name and put
that in a variable for appending, but I cannot skip or get rid of the
next two lines. With 500 pages of this stuff to sort through, I really
want to do this in an automated fashion.
Any thoughts?
Thanks,
DAVID
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: 29 Oct 1999 12:46:35 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Sub in which module
Message-Id: <7vc4vb$9g2$1@pegasus.csx.cam.ac.uk>
In article <1415c574.5bef9648@usw-ex0101-002.remarq.com>,
Samay <samay1NOsaSPAM@hotmail.com.invalid> wrote:
>Hi, I have main program which list several use statement and code.
>How I can find that particular subroutine is in which module?
By grepping the sources?
By reading the documentation of the modules?
Mike Guy
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 1219
**************************************
