[29518] in Perl-Users-Digest
Perl-Users Digest, Issue: 762 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Aug 16 18:09:41 2007
Date: Thu, 16 Aug 2007 15:09:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 16 Aug 2007 Volume: 11 Number: 762
Today's topics:
Re: Getting "Don't know how to decode quoted-printable" <terrence.beard@globalcrossing.com>
Re: Getting "Don't know how to decode quoted-printable" <dan.otterburn@gmail.com>
Re: Getting "Don't know how to decode quoted-printable" <dan.otterburn@gmail.com>
Re: How to ask questions on comp.lang.perl.*? <dan.otterburn@gmail.com>
Re: How to get "<$myclass_instance>" to work? <socyl@987jk.com.invalid>
Re: How to get "<$myclass_instance>" to work? <uri@stemsystems.com>
Re: How to get "<$myclass_instance>" to work? <uri@stemsystems.com>
Re: How to get "<$myclass_instance>" to work? <mritty@gmail.com>
Re: How to get "<$myclass_instance>" to work? <uri@stemsystems.com>
Re: Newbie Perl question (Randal L. Schwartz)
Re: Newbie Perl question <bik.mido@tiscalinet.it>
Re: Newbie Perl question <bik.mido@tiscalinet.it>
Re: Newbie Perl question <bik.mido@tiscalinet.it>
Re: Newbie Perl question <bik.mido@tiscalinet.it>
Re: Newbie Perl question <jurgenex@hotmail.com>
Re: Passing a reference as a reference QoS@domain.invalid
Re: Perl performance difference between Linux distribut <nospam-abuse@ilyaz.org>
Re: Perl performance difference between Linux distribut (Markus Kuhn)
Replacing Print Location.. <bill@ts1000.us>
Re: Using Subroutines with CGI::Session::MySQL? <ljames@apollo3.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 16 Aug 2007 11:48:26 -0700
From: Terry <terrence.beard@globalcrossing.com>
Subject: Re: Getting "Don't know how to decode quoted-printable" from Email::MIME on Solaris
Message-Id: <1187289851.344948.68510@x40g2000prg.googlegroups.com>
Thanks for responding, Dan.
You are correct about the code location. Your comment regarding the
inequality of the "quoted-printable" argument was right on the money.
There's a trailing space on the Content-Transfer-Encoding value;
hence, it comparing "quoted-printable" to "quoted-printable ", which
of course isn't equal. Therefore, it goes looking for a decode method
that doesn't exist.
I'll update the module code as a workaround, and send the Email::MIME
author a bug report.
Thanks!
------------------------------
Date: 16 Aug 2007 21:17:15 GMT
From: Dan Otterburn <dan.otterburn@gmail.com>
Subject: Re: Getting "Don't know how to decode quoted-printable" from Email::MIME on Solaris
Message-Id: <46c4bedb$0$21092$da0feed9@news.zen.co.uk>
On Thu, 16 Aug 2007 18:05:37 +0000, Brian McCauley wrote:
> Read the OP's error more closely. I think the problem may be that
> "quoted-printable " does *not* eq "quoted-printable".
Crikey, good eyesight! You are absolutely right.
> If you look at package Email::MIME::ContentType the relevant lines
> are...
But surely "quoted-printable" is in the "Content-Transfer-Encoding"
header, which is not parsed by
Email::MIME::ContentType::parse_content_type() but rather by
Email::Simple::header() unless I misunderstand the code?
--
Dan Otterburn
<dan.otterburn@gmail.com>
------------------------------
Date: 16 Aug 2007 21:26:00 GMT
From: Dan Otterburn <dan.otterburn@gmail.com>
Subject: Re: Getting "Don't know how to decode quoted-printable" from Email::MIME on Solaris
Message-Id: <46c4c0e8$0$21092$da0feed9@news.zen.co.uk>
On Thu, 16 Aug 2007 11:48:26 -0700, Terry wrote:
> Thanks for responding, Dan.
You're welcome.
--
Dan Otterburn
<dan.otterburn@gmail.com>
------------------------------
Date: 16 Aug 2007 20:23:07 GMT
From: Dan Otterburn <dan.otterburn@gmail.com>
Subject: Re: How to ask questions on comp.lang.perl.*?
Message-Id: <46c4b22b$0$11436$db0fefd9@news.zen.co.uk>
On Thu, 16 Aug 2007 10:27:46 -0700, Randal L. Schwartz wrote:
> I sometimes skip answering questions simply because I don't know where
> to begin or if it would even help.
Many thanks, I appreciate you taking the time to clarify this.
--
Dan Otterburn
<dan.otterburn@gmail.com>
------------------------------
Date: Thu, 16 Aug 2007 18:16:30 +0000 (UTC)
From: kj <socyl@987jk.com.invalid>
Subject: Re: How to get "<$myclass_instance>" to work?
Message-Id: <fa249u$rol$1@reader1.panix.com>
In <1187282679.716646.33380@50g2000hsm.googlegroups.com> Paul Lalli <mritty@gmail.com> writes:
>On Aug 16, 11:34 am, kj <so...@987jk.com.invalid> wrote:
>I don't know about a CPAN module explicitly, but it's pretty easy for
>me to create an example. <> is one of the overloadable operators with
>the 'overload' pragma:
<snip>
Thank you very much, and also to Xho. I hadn't even *thought* of
using overload.
kj
--
NOTE: In my address everything before the first period is backwards;
and the last period, and everything after it, should be discarded.
------------------------------
Date: Thu, 16 Aug 2007 18:26:38 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: How to get "<$myclass_instance>" to work?
Message-Id: <x7ir7fmj35.fsf@mail.sysarch.com>
>>>>> "x" == xhoster <xhoster@gmail.com> writes:
x> kj <socyl@987jk.com.invalid> wrote:
>> I want to write a class whose instances are iterators that will
>> behave similarly to (readonly) file handles. I.e. I want to be
>> able to write:
>>
>> my $thingie = Thingie->new( @args );
>> while ( <$thingie> ) {
>> # do stuff with $_
>> }
x> Surprisingly, I can't find any installed modules that use this feature of
x> overload. Maybe I just can't formulate the grep correctly to find them.
it isn't overload you want but tied. look at File::ReadBackwards for a
simple use of tying (or procedural).
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 16 Aug 2007 18:29:02 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: How to get "<$myclass_instance>" to work?
Message-Id: <x7eji3miz5.fsf@mail.sysarch.com>
>>>>> "k" == kj <socyl@987jk.com.invalid> writes:
k> In <1187282679.716646.33380@50g2000hsm.googlegroups.com> Paul Lalli <mritty@gmail.com> writes:
>> On Aug 16, 11:34 am, kj <so...@987jk.com.invalid> wrote:
>> I don't know about a CPAN module explicitly, but it's pretty easy for
>> me to create an example. <> is one of the overloadable operators with
>> the 'overload' pragma:
k> <snip>
k> Thank you very much, and also to Xho. I hadn't even *thought* of
k> using overload.
see my other post. tying is probably even easier than overloading. you
just need to create 2 methods that handle the tied interface (a
constructor and a readline). see File::ReadBackwards for a simple
working example.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 16 Aug 2007 12:23:41 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: How to get "<$myclass_instance>" to work?
Message-Id: <1187292221.928662.74570@r29g2000hsg.googlegroups.com>
On Aug 16, 2:29 pm, Uri Guttman <u...@stemsystems.com> wrote:
> >>>>> "k" == kj <so...@987jk.com.invalid> writes:
>
> k> In <1187282679.716646.33...@50g2000hsm.googlegroups.com> Paul Lalli <mri...@gmail.com> writes:
> >> On Aug 16, 11:34 am, kj <so...@987jk.com.invalid> wrote:
> >> I don't know about a CPAN module explicitly, but it's pretty easy for
> >> me to create an example. <> is one of the overloadable operators with
> >> the 'overload' pragma:
>
> k> <snip>
>
> k> Thank you very much, and also to Xho. I hadn't even *thought* of
> k> using overload.
>
> see my other post. tying is probably even easier than overloading. you
> just need to create 2 methods that handle the tied interface (a
> constructor and a readline).
... uh-huh, and with using overload, you only need the normal
constructor you were going to have anyway, and ONE method to handle
the operator.
(plus, the OP very specifically said he didn't want to mess with
tying)
Paul Lalli
------------------------------
Date: Thu, 16 Aug 2007 20:33:49 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: How to get "<$myclass_instance>" to work?
Message-Id: <x7zm0ri5hu.fsf@mail.sysarch.com>
>>>>> "PL" == Paul Lalli <mritty@gmail.com> writes:
PL> On Aug 16, 2:29 pm, Uri Guttman <u...@stemsystems.com> wrote:
>> >>>>> "k" == kj <so...@987jk.com.invalid> writes:
>> see my other post. tying is probably even easier than overloading. you
>> just need to create 2 methods that handle the tied interface (a
>> constructor and a readline).
PL> ... uh-huh, and with using overload, you only need the normal
PL> constructor you were going to have anyway, and ONE method to handle
PL> the operator.
well, we are counting the same things, a single constuctor (which is a
class method) and a single operator or readline method. i added tie
support to File::ReadBackwards by putting in two typeglob assignments to
alias the open and readline methods to the names needed by tied
handles. not much work at all and i would say less than if i did
overloading as that needs a mapping structure.
oops, i just checked and it has 5 method aliases. i started with 2 but a
bug/feature report requested eof, close and tell (those also needed new
short methods).
PL> (plus, the OP very specifically said he didn't want to mess with
PL> tying)
that i didn't see. but as i think it is less work, tying should be on
the table. maybe he was scared by what he thought it needed.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 16 Aug 2007 11:52:44 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Newbie Perl question
Message-Id: <86k5rvcnwj.fsf@blue.stonehenge.com>
>>>>> "Jürgen" == Jürgen Exner <jurgenex@hotmail.com> writes:
Jürgen> However, glob() doesn't do REs and you specifically asked for REs. I
Jürgen> have no idea how to list any file names based on REs except by walking
Jürgen> the directory tree using e.g. File::Find which of course is slow and
Jürgen> cumbersome.
There are some evil Unix Intro texts (usually random websites) that call
globbing "regular expressions". Boo. Hiss. But it means that some newbies
that are getting the wrong idea, and then spreading the bad meme.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: Thu, 16 Aug 2007 21:55:23 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Newbie Perl question
Message-Id: <ura9c3dt9155o72adntaqp4jils9dj5e60@4ax.com>
On 16 Aug 2007 17:14:37 GMT, xhoster@gmail.com wrote:
>> if (-d "/opt/*abc") {
>
>That isn't a regexp (or at least not a Perl regexp), it is shell expansion
>or a glob.
Well, strictly speaking it's a string, period. More loosely, it *can*
be a regex, just not meaning what the OP supposes.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 16 Aug 2007 21:57:18 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Newbie Perl question
Message-Id: <kua9c3dic3nklb1v2tnev3gtjbqn2l73ts@4ax.com>
On Thu, 16 Aug 2007 17:49:07 GMT, "Jürgen Exner"
<jurgenex@hotmail.com> wrote:
>Well, glob does shell filename globbing only, it doesn't do RE matching.
>And the OP was explicitely asking for RE matching which makes the task a lot
>more complicated.
A lot? Well nothing that a simple grep() can't handle. Anyway the OP
explicitly asked about RE matching, but *probably* meant globbing.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 16 Aug 2007 21:59:11 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Newbie Perl question
Message-Id: <e1b9c3t1a88s8bled4nv6e4i4vmcsdkouu@4ax.com>
On 16 Aug 2007 17:14:37 GMT, xhoster@gmail.com wrote:
>if (grep -d, glob "/opt/*abc") {
>
>
>That doesn't stop upon finding the first directory. If that bothers you,
>you can use List::Util::first.
A common error in which I recently got caught too: glob() does -d (in
this case) anyway. So grep -d is redundant.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 16 Aug 2007 22:05:29 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Newbie Perl question
Message-Id: <jfb9c39i34ruqq6oguf08erecnv5lbqepg@4ax.com>
On Thu, 16 Aug 2007 21:59:11 +0200, Michele Dondi
<bik.mido@tiscalinet.it> wrote:
>>if (grep -d, glob "/opt/*abc") {
>>
>>
>>That doesn't stop upon finding the first directory. If that bothers you,
>>you can use List::Util::first.
>
>A common error in which I recently got caught too: glob() does -d (in
>this case) anyway. So grep -d is redundant.
D'Oh! I'm a moron. Ignore this...
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 16 Aug 2007 21:44:38 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Newbie Perl question
Message-Id: <az3xi.1265$Vd.117@trndny02>
Michele Dondi wrote:
> On Thu, 16 Aug 2007 17:49:07 GMT, "Jürgen Exner"
> <jurgenex@hotmail.com> wrote:
>
>> Well, glob does shell filename globbing only, it doesn't do RE
>> matching. And the OP was explicitely asking for RE matching which
>> makes the task a lot more complicated.
>
> A lot? Well nothing that a simple grep() can't handle.
True. But how do you get that initial list of file/directory names that you
feed into grep() without generating the full list of all files in all
directories recursively?
I couldn't come up with anything better than the either that or to use
something like File::Find to filter while traversing the tree.
jue
------------------------------
Date: Thu, 16 Aug 2007 21:48:45 GMT
From: QoS@domain.invalid
Subject: Re: Passing a reference as a reference
Message-Id: <1D3xi.1581$Nf.758@trndny05>
pamelamishra@gmail.com wrote in message-id: <1187283888.262480.217480@q4g2000prc.googlegroups.com>
>
> Hi,
>
> I have this question about Perl references.
> Suppose i have this %hash which has been populated with key -
> values.Subroutine check1 gets the %hash as a refrence from the main
> and this refrence has to be passed to another subroutine check2. How
> can this be done.Any suggestions would be helpful.
> ##############################
> my %hash;
> check1(\%hash);
>
> sub check1
> {
> my ($hash)=shift;
> foreach my $keys (keys $hash)
> {
> print"$hash{$keys}\n";
> }
> check2 (I want to send the reference of %hash--which is already a
> reference);
> }
>
> sub check2
> {
> my ($hash)=shift;
> }
>
> ######################
> Thanks
If im not mistaken check2($hashRef) should work fine, is there a particular
reason why you want to pass a reference to a reference rather than just pass
the reference?
------------------------------
Date: Thu, 16 Aug 2007 18:40:11 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Perl performance difference between Linux distributions
Message-Id: <fa25mb$1l1u$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Markus Kuhn
<n07W33+mgk25@cl.cam.ac.uk>], who wrote in article <fa1r12$t6k$2@gemini.csx.cam.ac.uk>:
> Most minor changes to this program (which -- as I mentioned
> -- is already the outcome of a lengthy attempt to strip down with
> the help of DProf all irrelevant parts from a huge application
> that first exhibited this off problem) cause the dramatic
> run-time difference to disappear. Such changes include
> for example blessing to another class than "main" or removing
> the cmp overload.
>
> My speculation is that something odd is going wrong with how
> Perl has been compiled under Fedora 7, threading libraries or
> whatever.
Fedora Perl is DEBUGGING, which is a NONONO. But I do not think this
would explain 100x slowdown; usually I would expect something like
3x..4x slowdown...
Hope this helps,
Ilya
------------------------------
Date: 16 Aug 2007 21:56:03 GMT
From: n07W33+mgk25@cl.cam.ac.uk (Markus Kuhn)
Subject: Re: Perl performance difference between Linux distributions
Message-Id: <fa2h5j$f9h$1@gemini.csx.cam.ac.uk>
Ilya Zakharevich <nospam-abuse@ilyaz.org> writes:
|> > My speculation is that something odd is going wrong with how
|> > Perl has been compiled under Fedora 7, threading libraries or
|> > whatever.
|>
|> Fedora Perl is DEBUGGING, which is a NONONO. But I do not think this
|> would explain 100x slowdown; usually I would expect something like
|> 3x..4x slowdown...
It is actually the other way round: SUSE 10.2's Perl
(where the test runs much faster) was compiled with DEBUGGING,
whereas Fedora 7 Perl was not.
Markus
--
Markus Kuhn, Computer Laboratory, University of Cambridge
http://www.cl.cam.ac.uk/~mgk25/ || CB3 0FD, Great Britain
------------------------------
Date: Thu, 16 Aug 2007 11:24:23 -0700
From: Bill H <bill@ts1000.us>
Subject: Replacing Print Location..
Message-Id: <1187288663.883215.18030@w3g2000hsg.googlegroups.com>
I have a perl script that process form inputs, saves the data and then
does a "print location: ..." to a different perl program that creates
pdf files from the saved data (using data passed in the url), and when
its done it does a "print location ..." to get back to the 1st
program. All these programs are on the same server and in the same
folder. The reason for 2 programs is that the the 2nd one loads a
number of support libraries for creating pdf's, handling images etc,
the 1st one is basically a form processor and information controller.
Instead of using this method, can I use an exec call? Would the
initial environment variables still be there?
Bill H
------------------------------
Date: Thu, 16 Aug 2007 11:14:35 -0700
From: "L. D. James" <ljames@apollo3.com>
Subject: Re: Using Subroutines with CGI::Session::MySQL?
Message-Id: <1187288075.329638.159660@d55g2000hsg.googlegroups.com>
On Aug 16, 1:07 pm, xhos...@gmail.com wrote:
> In a mod_perl environment, the $session that is accessible from inside
> processdata is the variable allocated when the code was compiled, which
> means it is the variable that was in effect the first time this
> particular apache process invoked this code. So on subsequent invocation,
> $session outside of processdata is a new $session, while inside of
> processdata you get some earlier $session.
>
> This is part of the "variable will not stayed shared" problem. One
> fix is to pass $session into the subroutine rather than using the one
> from the outer scope:
>
> sub processdata {
> my $session=shift;
> #...
>
> };
>
> Xho
>
> --
> --------------------http://NewsReader.Com/--------------------
> Usenet Newsgroup Service $9.95/Month 30GB
Thanks, Xho, for the input. I tested you fix and it works in the
example. I was actually in the process of changing from the File
driver to the MySQL driver. I have 10's of subroutines that update or
check the session data before exiting. Many of the subroutines have
been accumulated almost like a library of utilities that has expected
parameters, which I've been reusing (and refining) for years.
You are the second person that suggests that the mod_perl environment
might be a culprit. Is there a way to instruct the program to use the
regular perl rather than mod_perl.
Do you know why this additional parameter passing isn't required with
using the File driver? As much as I would have preferred to move over
to the mysql driver, I may have to hold off, for having to add a new
expected parameter to all my modules.
By the way, reading the data from any of the subroutines is never a
problem. The problem is that the session info can't be updated from
anywhere, not even the main program if the line:
$session->param('anyparam');
is referenced in any subroutine, even if that subroutine isn't called.
You can test that by commenting out the $session->param('f_name');
line from my example script.
Maybe I'm looking for a way to make the $session data more public. Or
maybe, possibly adding some variant of
$session = new CGI::Session("driver:MySQL", $sid, {Handle=>$dbh}) or
die "Session Error...";
to each subroutine that needs to access the session data.
Thanks again for the input.
-- L. James
--
L. D. James
ljames@apollo3.com
www.apollo3.com/~ljames
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V11 Issue 762
**************************************
