[18844] in Perl-Users-Digest
Perl-Users Digest, Issue: 1012 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue May 29 11:10:49 2001
Date: Tue, 29 May 2001 08:10:17 -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: <991149017-v10-i1012@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 29 May 2001 Volume: 10 Number: 1012
Today's topics:
Question about substitution in perl (felan)
Re: Question about substitution in perl <peter.sogaard@tjgroup.com>
Re: Question about substitution in perl (felan)
Re: Question about substitution in perl (Bernard El-Hagin)
Re: Question about substitution in perl <peter.sogaard@tjgroup.com>
Re: Question about substitution in perl (felan)
Re: Question about substitution in perl (Tad McClellan)
redirect <"relaxedrob@optushome.com.au">
Re: redirect <nobody@dev.null>
Re: redirect <"relaxedrob@optushome.com.au">
Secure Mail with Perl? An ENCRYPTION Algorithm is neede (Lars)
Re: Secure Mail with Perl? An ENCRYPTION Algorithm is n <smug@rocketmail.com>
Send Header along with get <michel.wouterse@intec-delft.com>
Re: Send Header along with get (Rafael Garcia-Suarez)
Re: Send Header along with get nobull@mail.com
udp ping socket problem (Jack Haberle)
Re: url parsing <iltzu@sci.invalid>
using perlscript <obensha@math.tau.ac.il>
Re: writing to text files using forms <admin@ase-ga.com>
Re: writing to text files using forms <pabu@mn.mediaone.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 29 May 2001 12:48:09 GMT
From: felan_66@hotmail.com (felan)
Subject: Question about substitution in perl
Message-Id: <3b139a7a.581493@news.uio.no>
I want to substitute this text:
Apples
and Oranges
with this text:
Apples and Oranges
Any one who can write a full perl code for that?
tnx
felan_66@hotmail.com
------------------------------
Date: Tue, 29 May 2001 14:52:06 +0200
From: "Peter Søgaard" <peter.sogaard@tjgroup.com>
Subject: Re: Question about substitution in perl
Message-Id: <9f061c$ncn$1@news.inet.tele.dk>
"felan" <felan_66@hotmail.com> wrote in message
news:3b139a7a.581493@news.uio.no...
> I want to substitute this text:
>
> Apples
> and Oranges
>
>
> with this text:
>
> Apples and Oranges
>
>
> Any one who can write a full perl code for that?
>
> tnx
> felan_66@hotmail.com
$str = qq{
Apples
and Oranges
};
$str =~ s/Apples\nand Oranges/Apples and Oranges/;
print $str;
------------------------------
Date: Tue, 29 May 2001 13:10:26 GMT
From: felan_66@hotmail.com (felan)
Subject: Re: Question about substitution in perl
Message-Id: <3b139c11.988891@news.uio.no>
On Tue, 29 May 2001 14:52:06 +0200, "Peter Søgaard"
<peter.sogaard@tjgroup.com> wrote:
>
>"felan" <felan_66@hotmail.com> wrote in message
>news:3b139a7a.581493@news.uio.no...
>> I want to substitute this text:
>>
>> Apples
>> and Oranges
>>
>>
>> with this text:
>>
>> Apples and Oranges
>>
>>
>> Any one who can write a full perl code for that?
>>
>> tnx
>> felan_66@hotmail.com
>
>
>$str = qq{
>Apples
>and Oranges
>};
>
>$str =~ s/Apples\nand Oranges/Apples and Oranges/;
>
>print $str;
>
>
Thanks, but what I really need is to integrate this line in a bigger
program that askes for an input file and an output file and does this
substitution:
print "Input file name: ";
chomp($infilename = <STDIN>);
print "Output file name: ";
chomp($outfilename = <STDIN>);
open(IN,$infilename) || die "cannot open $infilename for reading: $!";
$text = <IN>; # reads the whole file into $text
open (OUT,">$outfilename") || die "cannot create $outfilename: $!";
while (<$text> {
s/Apples\nand Oranges/Apples and Oranges/;
print OUT $text;
}
close(IN);
close(OUT);
and I can't get it to work!
I have also tried:
s/Apples\nand\nOranges/Apples and Oranges/si;
------------------------------
Date: Tue, 29 May 2001 13:27:32 +0000 (UTC)
From: bernard.el-hagin@lido-tech.net (Bernard El-Hagin)
Subject: Re: Question about substitution in perl
Message-Id: <slrn9h78a4.2s4.bernard.el-hagin@gdndev25.lido-tech>
On Tue, 29 May 2001 13:10:26 GMT, felan <felan_66@hotmail.com> wrote:
>On Tue, 29 May 2001 14:52:06 +0200, "Peter Søgaard"
><peter.sogaard@tjgroup.com> wrote:
[snip]
>Thanks, but what I really need is to integrate this line in a bigger
>program that askes for an input file and an output file and does this
>substitution:
>
>print "Input file name: ";
>chomp($infilename = <STDIN>);
>print "Output file name: ";
>chomp($outfilename = <STDIN>);
>open(IN,$infilename) || die "cannot open $infilename for reading: $!";
>$text = <IN>; # reads the whole file into $text
No it doesn't. It reads just one line. You either want to undef
$/ before that line or change the scalar into an array. Either
way you don't really need to read the whole file into memory
if you just use the method I showed you in my reply to your post
in alt.perl (why are you posting this multiple times instead
of crossposting, anyway?).
>open (OUT,">$outfilename") || die "cannot create $outfilename: $!";
>while (<$text> {
^
There's no closing paren there and you're using the <> operator
on a string instead of a file handle.
> s/Apples\nand Oranges/Apples and Oranges/;
> print OUT $text;
>
>}
>close(IN);
>close(OUT);
>
>and I can't get it to work!
It doesn't even compile so no wonder it doesn't work.
>I have also tried:
>
>s/Apples\nand\nOranges/Apples and Oranges/si;
This doesn't match your original string since there's no
\n between 'and' and 'Oranges' in your original post.
Cheers,
Bernard
--
perl -le '$#="Just another Perl hacker,"; print print;'
------------------------------
Date: Tue, 29 May 2001 15:29:33 +0200
From: "Peter Søgaard" <peter.sogaard@tjgroup.com>
Subject: Re: Question about substitution in perl
Message-Id: <9f087k$2cb$1@news.inet.tele.dk>
"felan" <felan_66@hotmail.com> wrote in message
news:3b139c11.988891@news.uio.no...
> On Tue, 29 May 2001 14:52:06 +0200, "Peter Søgaard"
> <peter.sogaard@tjgroup.com> wrote:
>
> >
> >"felan" <felan_66@hotmail.com> wrote in message
> >news:3b139a7a.581493@news.uio.no...
> >> I want to substitute this text:
> >>
> >> Apples
> >> and Oranges
> >>
> >>
> >> with this text:
> >>
> >> Apples and Oranges
> >>
> >>
> >> Any one who can write a full perl code for that?
> >>
> >> tnx
> >> felan_66@hotmail.com
> >
> >
> >$str = qq{
> >Apples
> >and Oranges
> >};
> >
> >$str =~ s/Apples\nand Oranges/Apples and Oranges/;
> >
> >print $str;
> >
> >
>
> Thanks, but what I really need is to integrate this line in a bigger
> program that askes for an input file and an output file and does this
> substitution:
>
> print "Input file name: ";
> chomp($infilename = <STDIN>);
> print "Output file name: ";
> chomp($outfilename = <STDIN>);
> open(IN,$infilename) || die "cannot open $infilename for reading: $!";
> $text = <IN>; # reads the whole file into $text
No it doesn't, this reads the first line into $text
See complete code below...
> open (OUT,">$outfilename") || die "cannot create $outfilename: $!";
> while (<$text> {
> s/Apples\nand Oranges/Apples and Oranges/;
> print OUT $text;
>
> }
> close(IN);
> close(OUT);
>
> and I can't get it to work!
> I have also tried:
>
> s/Apples\nand\nOranges/Apples and Oranges/si;
Do like this instead:
print "Input file name: ";
chomp($infilename = <STDIN>);
print "Output file name: ";
chomp($outfilename = <STDIN>);
open(IN,$infilename) || die "cannot open $infilename for reading: $!";
undef($/);
$text = <IN>; # NOW it reads the whole file into $text (because of $/ )
$text =~ s/Apples\nand Oranges/Apples and Oranges/;
open (OUT,">$outfilename") || die "cannot create $outfilename: $!";
print OUT $text;
close(IN);
close(OUT);
------------------------------
Date: Tue, 29 May 2001 13:53:54 GMT
From: felan_66@hotmail.com (felan)
Subject: Re: Question about substitution in perl
Message-Id: <3b13a652.3613580@news.uio.no>
On Tue, 29 May 2001 15:29:33 +0200, "Peter Søgaard"
<peter.sogaard@tjgroup.com> wrote:
>Do like this instead:
>
>print "Input file name: ";
>chomp($infilename = <STDIN>);
>print "Output file name: ";
>chomp($outfilename = <STDIN>);
>open(IN,$infilename) || die "cannot open $infilename for reading: $!";
>undef($/);
>$text = <IN>; # NOW it reads the whole file into $text (because of $/ )
>$text =~ s/Apples\nand Oranges/Apples and Oranges/;
>open (OUT,">$outfilename") || die "cannot create $outfilename: $!";
>print OUT $text;
>close(IN);
>close(OUT);
Very well, perfect, tnx
now suppose I don't only want to substitutt that one text but also for
instance all occurances of Father is to be substitutted with Mother no
matter case. I tried to wirte this little while-sentence:
print "Input file name: ";
chomp($infilename = <STDIN>);
print "Output file name: ";
chomp($outfilename = <STDIN>);
open(IN,$infilename) || die "cannot open $infilename for reading: $!";
undef($/);
$text = <IN>;
while (<$text>) {
s/Apples\nand Oranges/Apples and Oranges/;
s/Father/Mother/gi;
}
open (OUT,">$outfilename") || die "cannot create $outfilename: $!";
print OUT $text;
close(IN);
close(OUT);
Now it does not substitutt either sentences!
------------------------------
Date: Tue, 29 May 2001 09:53:52 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Question about substitution in perl
Message-Id: <slrn9h7afg.4n9.tadmc@tadmc26.august.net>
felan <felan_66@hotmail.com> wrote:
>On Tue, 29 May 2001 15:29:33 +0200, "Peter Søgaard"
><peter.sogaard@tjgroup.com> wrote:
>
>>Do like this instead:
>>
>>undef($/);
>>$text = <IN>; # NOW it reads the whole file into $text (because of $/ )
>Very well, perfect,
It is not perfect. It makes a global change to a global variable.
Much better to minimize the scope of the change, as below.
>now suppose I don't only want to substitutt that one text but also for
>instance all occurances of Father is to be substitutted with Mother no
>matter case. I tried to wirte this little while-sentence:
>
>print "Input file name: ";
>chomp($infilename = <STDIN>);
>print "Output file name: ";
>chomp($outfilename = <STDIN>);
>open(IN,$infilename) || die "cannot open $infilename for reading: $!";
>undef($/);
>$text = <IN>;
{
local $/; # defaults to undef anyway
$text = <IN>;
}
# now $/ has its "expected" value again ("\n").
Note that $text now contains the entire file.
>while (<$text>) {
Here you are trying to read input again, from some really strange
indirect filehandle.
You do not need to do any more input. You have already slurped the
whole file.
Lose the while() loop.
> s/Father/Mother/gi;
>Now it does not substitutt either sentences!
Did you pay attention to the messages that were issued?
What did they say?
Do you have warnings enabled?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 29 May 2001 13:21:50 GMT
From: "Rob" <"relaxedrob@optushome.com.au">
Subject: redirect
Message-Id: <OnNQ6.4924$25.17793@news1.eburwd1.vic.optushome.com.au>
Howdy all!
Is there a perl cgi method call that can redirect a browser?
Thanks!
Rob
------------------------------
Date: Tue, 29 May 2001 09:31:25 -0400
From: Andras Malatinszky <nobody@dev.null>
Subject: Re: redirect
Message-Id: <3B13A4AD.50103@dev.null>
Rob wrote:
> Howdy all!
>
> Is there a perl cgi method call that can redirect a browser?
>
> Thanks!
>
> Rob
Why, yes! Surprisingly, it's called redirect and it is part of the CGI
module. So why don't you go read the documentation of the CGI module
(either look for it on your own machine, assuming you have Perl
installed on it, or search for it at search.cpan.org). You'll be amazed
by the wealth of knowledge opened up for you. Of course, had you done
that before you posted... but that's an other story altogether.
------------------------------
Date: Tue, 29 May 2001 14:05:57 GMT
From: "Rob" <"relaxedrob@optushome.com.au">
Subject: Re: redirect
Message-Id: <91OQ6.4937$25.18000@news1.eburwd1.vic.optushome.com.au>
Thank you for your help!
Next time I shall remember to grovel appropriately at your feet whenever I fail
to find something you have already defined as obvious.
Rob
"Andras Malatinszky" <nobody@dev.null> wrote in message
news:3B13A4AD.50103@dev.null...
>
>
> Rob wrote:
>
> > Howdy all!
> >
> > Is there a perl cgi method call that can redirect a browser?
> >
> > Thanks!
> >
> > Rob
>
> Why, yes! Surprisingly, it's called redirect and it is part of the CGI
> module. So why don't you go read the documentation of the CGI module
> (either look for it on your own machine, assuming you have Perl
> installed on it, or search for it at search.cpan.org). You'll be amazed
> by the wealth of knowledge opened up for you. Of course, had you done
> that before you posted... but that's an other story altogether.
>
------------------------------
Date: Tue, 29 May 2001 12:00:21 GMT
From: Lars.Plessmann@gmx.de (Lars)
Subject: Secure Mail with Perl? An ENCRYPTION Algorithm is needed...
Message-Id: <3b138dd6.7429886@news.btx.dtag.de>
I've written a CGI scipt which should send an email notification.
This mail contains secret data.
Is there any possibility to encrypt the mail in my perl script?
Will be mails encrypted automatically if you have a server that
supports SSL?
If not, maybe you can refer to a good encryption algorithm? I have to
encode creditcard numbers and things like that!
Is this possible to do with perl or do I have to switch over to php or
asp?
thx in advance,
Lars
------------------------------
Date: Tue, 29 May 2001 15:06:40 +0100
From: "Neil Smith" <smug@rocketmail.com>
Subject: Re: Secure Mail with Perl? An ENCRYPTION Algorithm is needed...
Message-Id: <991145124.14002.0.nnrp-09.c2de7c8b@news.demon.co.uk>
"Lars" <Lars.Plessmann@gmx.de> wrote in message
news:3b138dd6.7429886@news.btx.dtag.de...
> I've written a CGI scipt which should send an email notification.
> This mail contains secret data.
> Is there any possibility to encrypt the mail in my perl script?
>
> Will be mails encrypted automatically if you have a server that
> supports SSL?
> If not, maybe you can refer to a good encryption algorithm? I have to
> encode creditcard numbers and things like that!
No, unfortunately emails won't be encrypted on an SSL server. In these
cases, SSL has been installed onto the webserver, encrypting traffic between
the web browser and the server.
Without going into cryptographic detail (and revealing my own lack of
knowledge!), you want what is known as a public/private key encryption
routine (also known as assymmetric encryption) like PGP or RSA. Don't be
tempted to go for a symmetric routine (such as DES), because you will end up
storing the passwords on your webserver. Then anyone hacking your webserver
will have your password and be able to decrypt any of your messages.
Have a search round the net and brush up on roughly how PGP works if you
don't know. (http://www.pgpi.com is probably a good start)
Then you will probably want to look into the variety of Perl PGP modules
(search on CPAN.) However, this will depend on your OS, as to the best of my
knowledge, none of these actually work on Windows. If you are stuck on
Windows, I vaguely remember a module called Win32::SPGP doing the job, but I
can't find the link now.
Hope this is of some use.
Cheers,
Neil.
------------------------------
Date: Tue, 29 May 2001 12:44:31 +0200
From: "Michel" <michel.wouterse@intec-delft.com>
Subject: Send Header along with get
Message-Id: <9evton$s9r$1@news.unitel.co.kr>
Hi Dear Helper,
I am fetching a document using LWP::Simple
Works tremendously fine, but I would like the webserver, the document is
requested on, to think that the original request was made from a certain
script running on my network.
i.e. there is a script on my server that just returns the name of the
referring script. this script is called: showref.pl
there's another script, called href.pl that just links to showref.pl
when in href.pl and clicking on the link to showref.pl, the $env would tell
me the referring doc. is /cgi-bin/href.pl
Now... I want to keep linking from the href.pl, but make the showref.pl
return /cgi-bin/checked.pl instead of the refering .pl file (href.pl)
I guess I need to kinda "fool" the showref.pl by changing the headers it
sends to showref.pl
My question frankly is: "How can I do this"
Or more polite: "Can anyone help me accomplish this, or at least show me the
place to look for information so I can solve this myself?"
Thank you very much,
Michel Wouterse
INTEC Engineering BV
Delft - Netherlands
michel.wouterse@intec-delft.com
------------------------------
Date: 29 May 2001 11:39:49 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Send Header along with get
Message-Id: <slrn9h72jb.41f.rgarciasuarez@rafael.kazibao.net>
Michel wrote in comp.lang.perl.misc:
}
} I am fetching a document using LWP::Simple
} Works tremendously fine, but I would like the webserver, the document is
} requested on, to think that the original request was made from a certain
} script running on my network.
LWP::Simple can't do that. You'll need to use LWP::UserAgent and to add
a Referer header into the HTTP::Request object you will use.
See the docs for LWP::UserAgent and the LWP cookbook (perldoc lwpcook)
for more info and examples.
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: 29 May 2001 12:29:29 +0100
From: nobull@mail.com
Subject: Re: Send Header along with get
Message-Id: <u9k830e6li.fsf@wcl-l.bham.ac.uk>
"Michel" <michel.wouterse@intec-delft.com> writes:
> I am fetching a document using LWP::Simple
> I guess I need to kinda "fool" the showref.pl by changing the headers it
> sends to showref.pl
> My question frankly is: "How can I do this"
> Or more polite: "Can anyone help me accomplish this, or at least show me the
> place to look for information so I can solve this myself?"
As a general rule if you have a question about how to use a a module
you should consult the documentation for that module.
In particular, note the sentence in the LWP::Simple documentation that
says:
"If you need [...] access to the header fields in the requests sent
[...] you should [...]".
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 29 May 2001 05:41:21 -0700
From: jack.haberle@bigfoot.com (Jack Haberle)
Subject: udp ping socket problem
Message-Id: <8a40c6a1.0105290441.2406c89c@posting.google.com>
Hi,
I get the following error when I try to ping using Net::Ping:
Use of uninitialized value at /usr/lib/perl5/5.00503/i386-linux/Socket.pm line 2
95, <DATA> chunk 7.
Bad arg length for Socket::unpack_sockaddr_in, length is 0, should be 16 at /usr
/lib/perl5/5.00503/i386-linux/Socket.pm line 295, <DATA> chunk 7.
Code looks like:
use Net::Ping;
$p = Net::Ping->new ();
$rv = $p->ping ($lineip);
if ($rv == 1)
...
The error looks like its from the $p->ping.
I can get this to work with icmp, but really want to use udp (default).
Anyone have any ideas?
TIA
-Jack
PS, I'm on a VALinux box running RedHat6.2
------------------------------
Date: 29 May 2001 11:07:53 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: url parsing
Message-Id: <991134054.9998@itz.pp.sci.fi>
In article <slrn9h5s7m.la0.abigail@tsathoggua.rlyeh.net>, Abigail wrote:
>Craig Berry (cberry@cinenet.net) wrote on MMDCCCXXIV September MCMXCIII
>in <URL:news:tgtetvhqvn182d@corp.supernews.com>:
>`` Ilmari Karonen (iltzu@sci.invalid) wrote:
>`` :
>`` : $url =~ /^(([^:/?#]+):)?(//([^/?#]*))?([^?#]*)(\?([^#]*))?(#(.*))?$/s
>`` : or die "Invalid URL: $url\n";
>``
>`` So a valid url can contain newlines practically anywhere?
>
>No.
>The "or die" part is utterly silly.
Right. My mistake.
I'd say the fundamental problem was that I wrote "Invalid URL" without
realizing that it might be taken as an implication that anything matched
by that regexp is valid, which is of course completely wrong.
Besides, isn't that regexp guaranteed to match any string as long as the
/s modifier is there? *smacks forehead* I plead lack of sleep.
--
Ilmari Karonen - http://www.sci.fi/~iltzu/
Please ignore Godzilla / Kira -- do not feed the troll.
------------------------------
Date: Tue, 29 May 2001 14:58:17 +0300
From: "omer" <obensha@math.tau.ac.il>
Subject: using perlscript
Message-Id: <9f02ss$s1g@news.or.intel.com>
I hope perlscript is considered OK on this group - if not please accept my
appologies.
Can anyone please enlighten me on the how to dynamically add and remove
selections from a list box, I got as far as guessing how to change the text
of an entry ($window->domains->options($c)->{'text'} = $domain[$c] ;) but
want to add more options then existed or delete existing ones to allow
interactive changing of entries in the page.
please also reply to omer.ben-shalom@intel.com if possible
Thanks
Omer.
------------------------------
Date: Tue, 29 May 2001 10:18:49 GMT
From: "GArlington" <admin@ase-ga.com>
Subject: Re: writing to text files using forms
Message-Id: <dIKQ6.139$zb7.12321@news1.cableinet.net>
lying_happy_eyes <lying_happy_eyes@hotmail.com> wrote in message
news:9evnve$q28$1@plutonium.btinternet.com...
>
> http://freewarejava.com/ubb/Forum5/HTML/002031.html
>
> can someone help me with this problem? sorry for just using the link but
it
> has all the information i need to give... thanks in advance for any hep!!
>
Link is fine, but I will need to see the script to say what is wrong!?? Or I
can try to dig out my own old script doing similar thing - it will take few
days though.
G.A.
> --
> lying_happy_eyes
> XXX
> http://go.to/nypihas
> http://balder.prohosting.com/thenyp/cgi-bin/ikonboard/ikonboard.cgi
>
>
>
>
------------------------------
Date: Tue, 29 May 2001 10:33:29 GMT
From: "Pabu" <pabu@mn.mediaone.net>
Subject: Re: writing to text files using forms
Message-Id: <ZVKQ6.37695$V6.1952393@typhoon.mn.mediaone.net>
> Link is fine, but I will need to see the script to say what is wrong!?? Or
I
> can try to dig out my own old script doing similar thing - it will take
few
> days though.
> G.A.
He had a link in the forum to the script he was using. I posted the code for
the script I created to do the same thing he was trying to do. You can check
out my code and see if you can find any security issues I may be unaware of
or something that might be wrong (I'm pretty new at cgi). I posted it in the
forum at his link. Let me know if you see anything you dont like about my
script. Please. ;)
Lee 'Pabu' Olsen
------------------------------
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 1012
***************************************
