[12140] in Perl-Users-Digest
Perl-Users Digest, Issue: 5740 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri May 21 05:07:19 1999
Date: Fri, 21 May 99 02:00:16 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 21 May 1999 Volume: 8 Number: 5740
Today's topics:
Re: Converting from octal to decimal <uri@sysarch.com>
DBD Oracle <pkotala@logis.cz>
Re: Forking and sleeping. (Bart Lateur)
frozen objs not thawing on flipside of IPC <brad@wcubed.net>
Re: How to catch the return value in Perl? (Dave Cross)
Re: Parsing email headers.. (Bart Lateur)
Re: Perl "constructors" armchair@my-dejanews.com
Re: Perl "constructors" armchair@my-dejanews.com
Re: Perl "constructors" armchair@my-dejanews.com
Re: Perl "constructors" <matt-news@sergeant.org>
Re: Perl compiler...If or when <jll@skynet.be>
Refresh a document in frame <karpat@eeh.ee.ethz.ch>
Regular expression ? tvn007@my-dejanews.com
Re: TROLL ALERT (Re: Perl "constructors") armchair@my-dejanews.com
Re: TROLL ALERT (Re: Perl "constructors") armchair@my-dejanews.com
What's wrong with this hit counter? <felixtse@crosswinds.net>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 21 May 1999 02:15:57 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Converting from octal to decimal
Message-Id: <x7hfp77xsy.fsf@home.sysarch.com>
>>>>> "DR" == Don Roby <droby@copyright.com> writes:
DR> This is why the last time I wrote a set of functions to do these
DR> things (a long long time ago in Macro-11), I called them things
DR> like bin2hex, dec2bin, etc. It's hard to remember which way the
DR> translation goes when the name doesn't reflect both source and
DR> destination.
it must have been tricky to name a macro-11 function dec2bin since it
had a 6 char limit on labels!
BTW, its macros could do things m4 and cpp still can't do!
fondly remembering macro-11 (i wrote an rtos in it, among other projects)
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Fri, 21 May 1999 07:53:01 +0200
From: "Pavel Kotala" <pkotala@logis.cz>
Subject: DBD Oracle
Message-Id: <927266159.842334@gate.logis.cz>
Can I explicitly close Oracle cursor? Does it $sth->finish?
Thank You
Pavel Kotala
------------------------------
Date: Fri, 21 May 1999 08:28:12 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Forking and sleeping.
Message-Id: <37491697.6151874@news.skynet.be>
ppith@my-dejanews.com wrote:
>I want to time a function call that can be killed if it
>takes too long to run.
perldoc -f alarm
It even gives a fine example on how to use it.
But, seeing Jonathan Feinberg's reply, this may not be the best way to
go for this specific application (something about "wheels"...).
Bart.
------------------------------
Date: Fri, 21 May 1999 01:30:51 -0600
From: Brad Waite <brad@wcubed.net>
Subject: frozen objs not thawing on flipside of IPC
Message-Id: <37450BAB.45330F3@wcubed.net>
Tom Christiansen wrote:
> How do I keep persistent data across program calls?
>
> For some specific applications, you can use one of the DBM modules.
> See the AnyDBM_File manpage. More generically, you should consult
> the FreezeThaw, Storable, or Class::Eroot modules from CPAN. Here's
> one example using Storable's `store' and `retrieve' functions:
>
> use Storable;
> store(\%hash, "filename");
>
> # later on...
> $href = retrieve("filename"); # by ref
> %hash = %{ retrieve("filename") }; # direct to hash
>
I guess I need a little more hand-holding.
I've tried to use Storeable, FreezeThaw and Eroot all with no luck
whatsoever.
If I freeze an object and then thaw it in the same program, everything's
fine.
When I store it using IPC::ShareLite or Shareable, and then fetch it in
another program, I dump core. Here's some snippets:
# Program 1
use GD;
use IPC::ShareLite;
$share = new IPC::ShareLite( -key=>'Joe', -create=>1,
-destroy=>0);
open(GIF, "/tmp/pic.gif");
$pic = newFromGif GD::Image(GIF);
close GIF;
$frozen = freeze($pic);
$share->store($frozen);
# Program 2
use GD;
use IPC::ShareLite;
$share = new IPC::ShareLite( -key=>'Joe', -create=>1,
-destroy=>0);
$frozen = $share->fetch;
$pic = thaw($frozen);
print $pic->gif;
Results: seg faults and dumps core.
Every variation I've tried produces the same result. Can anyone see why
this
isn't working?
--
Brad Waite
W Cubed - The World Wide Web Company
------------------------------
Date: Fri, 21 May 1999 06:31:17 GMT
From: dave@dave.org.uk (Dave Cross)
Subject: Re: How to catch the return value in Perl?
Message-Id: <3744fd5b.1941043@news.demon.co.uk>
On Thu, 20 May 1999 08:44:58 -0400, Ala Qumsieh <aqumsieh@matrox.com>
wrote:
>
>"peary" <peary@ms1.url.com.tw> writes:
>
>> And the '.' is not directory, it's the execution command on Redhat
>> Linux(bash).
>> I have to type "./filename" to execute a file.
>
>Warning: this is off-topic and is not Perl related.
>
>The '.' does signify the current directory. When you type
>"./filename", you are asking the shell to execute the file called
>'filename' in the current directory.
>
>Probably, the problem is with your path. If you do have the current
>directory (either as a dot, or as a complete path name) in your $PATH
>env variable, then you should be able to simply type "filename" and
>the program will execute (unless, of course, there is another program
>called "filename" whose path precedes the current path in your $PATH).
[moving further off topic]
...but of course we all know that having '.' on your path is a very
bad idea.
Dave...
Dave Cross <dave@dave.org.uk>
<http://www.dave.org.uk>
------------------------------
Date: Fri, 21 May 1999 08:28:10 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Parsing email headers..
Message-Id: <37471032.4514560@news.skynet.be>
David Raufeisen wrote:
>I have "John Doe <jdoe@somewhere.com>" in variable $HEADER{'from'}
>
>how would i do the following
>
>put
>
>John into $fname
>Doe into $lname
>jdoe@somewhere.com into $email
>jdoe into $user
Maybe use a module. There's a nice one in the MailTools package (see
CPAN): Mail::Address.
$HEADER{'from'} = 'John Doe <jdoe@somewhere.com>';
use Mail::Address;
my($addr) = Mail::Address->parse($HEADER{'from'});
# $addr is a Mail::Address object
# if there were more than one, the rest are ignored
$name = $addr->name;
$email = $addr->address;
$user = $addr->user;
print "name: $name\ne-mail: $email\nuser: $user\n";
__END__
name: John Doe
e-mail: jdoe@somewhere.com
user: jdoe
You'll have to split the name into first, middle (if present) and last
name yourself.
Bart.
------------------------------
Date: Fri, 21 May 1999 06:16:40 GMT
From: armchair@my-dejanews.com
Subject: Re: Perl "constructors"
Message-Id: <7i2to7$83g$1@nnrp1.deja.com>
In article <927202557.145405@localhost>,
zenin@bawdycaste.org wrote:
> armchair@my-dejanews.com wrote:
> : In article <927038345.900648@localhost>,
> : zenin@bawdycaste.org wrote:
> >snip<
> :> Your browser still can't linewrap correctly.
> : That's a DejaNews issue.
>
> Your choice of newsreader, thus it's your issue.
At least you are blaming it on a "newsreader" now and not my browser.
>
> :> No, it has hashes, which have the same effect for nearly all
> :> practical uses.
> :
> : Except that they are never guaranteed to hold one field. And never
> : guaranteed to have any "field name" or key.
>
> Has a key, doesn't have a key, '', undef, 0 or not, it all really
> doesn't matter in practice. This is Perl, autovivification takes
> care of the nasty bits.
Can't you make your point without the vulgarity?
>
> my %hash; ## empty hash
> if ($hash{'Some non-existent key'}++) {
> print "You won't see this\n";
> }
> if ($hash{'Some non-existent key'}++) {
> print "But you will see this!\n";
> }
That code does operate that way. What's the explanation?
>
> :> : What would happen to Perl programmers if you had my record (
$name,
> :> : ^$address, $city, $state, $zip, $ref_other ); in the
> :> : language?
> :>
> :> What would it gain over a hash? Hint: nothing.
> :
> : Matter of opinion. A hash has an unknown amount of fields, 0 to n,
and
> : they can be misassigned - STATE key was put in as STATES. Record
has a
> : fixed set of fields that are always present, with a guaranteed name.
>
> And once again, for the billionth time, see the fields pragma. See
> also the perltie man page. The features you ask for already exist
> and have for quite some time (however useless they are in practice).
Evidently at least two Perl programmers agree with me.
>
>:>: I am not looking for a separate type for short, int, double,
>:>: just one
> :> : that holds numeric values.
> :>
> :> my $n;
> :
> : my $n = "zenin";
>
> Go back to C++ little boy, you'll never be happy with Perl if the
> above is such a problem for you or indeed a problem at all.
I'd prefer not to made aware of any proclivities.
>
> :> : What technique do you use to validate that the $var you
> :> : as being
> :> : passed is actually a numeric value?
> :>
> :> It depends; Define numeric. Decimal, float? Also note that in
perl
> :> "123 foo bar dog" == 123. Of course under -w you'll get a warning
> :> if you do that, however if $n = '0 but true' you won't. It will
all
> :> "work" however.
> :
> : Perl only has one numeric and that consists of numbers, whether
whole or
> : real.
>
> #!/usr/local/bin/perl -w
> use strict;
> my $n = "0 but true";
> if ($n == 0) {
> print "$n is 0!\n";
> }
> $n = "1e+07";
> if ($n == 10000000) {
> print "Man is $n big!\n";
> }
>
> use builtin 'dualvar';
> my $eleven = dualvar 11, "Eleven";
> if ($eleven == 11) {
> print "Perl can be turned up to $eleven!\n";
> }
> __END__
"use builtin"
If modules are part of Prel, then Perl ends up having records via
fields.pm, no? Or overloaded functions via Multixxxx.pm, correct?
>
> 0 but true is 0!
> Man is 1e+07 big!
> Perl can be turned up to Eleven!
>
> Go back to C++ Armchair, you're way out of your league here.
I never left C++. Unlike some, I have not yet fallen in love with a
programming language. But maybe you are right, Perl can only be
understood by geniuses, where as C++ is the language of the common man.
>
> { local $^W; some_fancy_non_warning_compliant_code() }
>
> Even when you run under -w, not everything has to be "-w safe".
> Same goes for use strict.
So how do you turn strict off and on?
>
> >snip<
> : my $scalar = myObject->ReturnSomething();
> :
> : what does $scalar hold at this moment zenin, number, string or
> : reference?
>
> See perldoc myObject
I didn't find it.
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Fri, 21 May 1999 06:38:55 GMT
From: armchair@my-dejanews.com
Subject: Re: Perl "constructors"
Message-Id: <7i2v20$92c$1@nnrp1.deja.com>
In article <7i1lsc$c7d$1@nnrp1.deja.com>,
John Porter <jdporter@min.net> wrote:
> In article <7hvs6j$2l7$1@nnrp1.deja.com>,
> armchair@my-dejanews.com wrote:
> > sub a {
> > my $scalar = $_[0];
> > }
> >
> > my $scalar = myObject->ReturnSomething();
> >
> > what does $scalar hold at this moment zenin, number, string or
> > reference?
>
> It holds what it's supposed to hold. Those who need to know more, do.
>
> char* p = get_some_chars();
>
> Is the string that p points to null-terminated? Is it 8-bit clean?
> Is it legal SGML? Maybe get_some_chars actually returns a pointer
> to some class instance but has cast it to (char*). How do you know?
If I may use the style of the newsgroup - "this is C++, this isn't C. We
use strings in C++, not null terminated character arrays. If you want to
program in C, maybe C++ is not for you".
int var = function();
is var number or a string or an address?
my $var = function();
is $var a number or a string or an address?
>
> A* p = get_next();
>
> Hmm, does p point to a B, or possibly a C?
p is a pointer to an object that consists of at least object A. Not a
number, not a string.
my $p = get_next();
Is p a reference a number or a string?
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Fri, 21 May 1999 07:09:24 GMT
From: armchair@my-dejanews.com
Subject: Re: Perl "constructors"
Message-Id: <7i30r3$a5k$1@nnrp1.deja.com>
In article <37404878.CB8AAC@atrieva.com>,
Jerome O'Neil <jeromeo@atrieva.com> wrote:
> armchair@my-dejanews.com wrote:
>
> The behavior of keys() is well defined and documented. No sane man,
> woman, or child could read them and ever say it wasn't so. However,
> smarty-pants psedo experts lacking a clue might.
I would certainly hope there was an understanding of "scalar context"
and "list context" as one of the conditions to their sanity.
>
> How's the accounting buisness, Topmind?
>
>
The accounting business is real hectic right now Jerome. We're
struggling to make sure that all of our data processing systems will
make it through the year 2000 okay. Lots of Cobol and C to check over.
Good to hear from you, and hope your next backup goes well.
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Fri, 21 May 1999 09:46:18 +0100
From: Matt Sergeant <matt-news@sergeant.org>
Subject: Re: Perl "constructors"
Message-Id: <37451D5A.B0296FB2@sergeant.org>
armchair@my-dejanews.com wrote:
>
> > : my $scalar = myObject->ReturnSomething();
> > :
> > : what does $scalar hold at this moment zenin, number, string or
> > : reference?
> >
> > See perldoc myObject
>
> I didn't find it.
<g>
Thank you - that made my morning... :)
------------------------------
Date: Fri, 21 May 1999 08:27:09 +0200
From: Jean-Louis Leroy <jll@skynet.be>
Subject: Re: Perl compiler...If or when
Message-Id: <VA.000002fc.00304601@enterprise>
In article <m1so8r87if.fsf@halfdome.holdit.com>, Randal L. Schwartz wrote:
> Algorithm hiding is pointless (see below)
Just because you give'em a compiled program doesn't mean that you must
withhold the source ;)
> Speeding up?
Faster execution would be nice some time in the future, but for the time being
I'd be happy with shorter script startup times. And I have real figures from
real projects.
For example, at in the Belgian appeal court project we use Perl for a series of
tasks involving persistent objects retrieved from Sybase DB via Tangram.
1) We *do* give them the sources, but they don't care too much about
having complete Perl distributions (including man pages) copied on all the
courts. Yeah I could trim the distribution but it's tedious and error-prone.
perlcc would be the perfect solution.
2) Tangram weights 3,000 lines *plus* docs. I've put the docs in separate .pod
files. Now if we had a reliable perlcc I would probably left them in their
natural location, the .pm. And I hate the idea of forcing poor Mr Computer to
do the same job over and over again. I mean, it's silly, for the smaller
scripts more time is spent parsing Perl code than doing actual work!
I agree that perlcc is irrelevant to one-liners or short 'scripts'. It's very
relevant to *programs* and *large* systems.
Jean-Louis Leroy
http://ourworld.compuserve.com/homepages/jl_leroy/
------------------------------
Date: Fri, 21 May 1999 10:47:27 +0200
From: Karpat <karpat@eeh.ee.ethz.ch>
Subject: Refresh a document in frame
Message-Id: <37451D9F.EF784174@eeh.ee.ethz.ch>
Could somebody help me with such small problem:
I have two frames, the user fills a form in the first frame, on the base
of his input I add something to the document, which is seen in the
second frame. Can I make browser to refresh the second frame?
Thanks
------------------------------
Date: Fri, 21 May 1999 06:52:54 GMT
From: tvn007@my-dejanews.com
Subject: Regular expression ?
Message-Id: <7i2vs6$9gt$1@nnrp1.deja.com>
Hi,
Would someone help me with the "bug" in this perl script?
#!/usr/local/bin/perl -w
$inputfile = $ARGV[0];
unless (open(DATA,$inputfile)){
die ("ERROR: cannot open input file\n")}
my @heads = split ' ' , <DATA>; # column headers (names)
<DATA>; # skip blank line
my %values;
##################################
$3 if (/^(R\d*)\s*(\w*)\s*(.*)/), <DATA>;
#Why $1 not equal to R65000 ?
#Why $2 not equal to ddc1 ?
#Why $3 not equal to 1010HLHXX ?
#why it give me some annoying mesages "use of uninitialized value at .."
######################################
@values{@heads} = split ('', $3); # store initial values in hash
while (<DATA>) {
$3 if /^(R\d*)\s*(\w*)\s*(.*)/;
my @row = split ( '', $3 );
for (my $i=0; $i<@row; $i++) {
next if ($row[$i] eq 'X');
if ($values{$heads[$i]} eq 'X')
{
$values{$heads[$i]} = $row[$i];
}
$values{$heads[$i]} = '--unstuck--' if $row[$i] ne
$values{$heads[$i]};
}
}
foreach (@heads) {
print "PIN $_ stuck at $values{$_}\n" unless $values{$_} eq
'--unstuck--';
}
INPUT FILE is shown below:
A B C D E F G I X
R65000 ddc1 1010HLHXX
R200 ddc1 1010HLHXX
R12 ddc1 1110LLHXX
R1 ddc1 0110HLH1X
Thanks in advance,
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Fri, 21 May 1999 07:15:11 GMT
From: armchair@my-dejanews.com
Subject: Re: TROLL ALERT (Re: Perl "constructors")
Message-Id: <7i315v$a9p$1@nnrp1.deja.com>
In article <374403d3@newsread3.dircon.co.uk>,
Jonathan Stowe <gellyfish@gellyfish.com> wrote:
> armchair@my-dejanews.com wrote:
> > In article <927142546.431844@localhost>,
>
> Look Nigel it doesnt even say 'record' in the *Perl 4* manpage so I
very
> much doubt that you saw it in any documentation pertaining to the
> current release.
>
> What you quoted there doesnt even like Perl documentation at all.
Perhaps someone who knows how can check the time of last update of:
ftp://sunsite.ualberta.ca/pub/Mirror/CPAN/doc/manual/html/pod/perlfunc/l
ocaltime.html
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Fri, 21 May 1999 08:02:11 GMT
From: armchair@my-dejanews.com
Subject: Re: TROLL ALERT (Re: Perl "constructors")
Message-Id: <7i33u3$d4c$1@nnrp1.deja.com>
In article <374403d3@newsread3.dircon.co.uk>,
Jonathan Stowe <gellyfish@gellyfish.com> wrote:
> armchair@my-dejanews.com wrote:
> > In article <927142546.431844@localhost>,
> > zenin@bawdycaste.org wrote:
> >> armchair@my-dejanews.com wrote:
> >> >snip<
> >> : And the documentation does still have me baffled. For instance:
> >> :
> >> : "localtime - convert UNIX time into record or string using
> >> localtime"
> >> :
> >> : Maybe you can explain why they are using the term record in Perl
> >> : documentation?
> >>
> >> That's easy, it doesn't:
> >>
> >> $ perldoc -tf localtime | grep record | wc
> >> 0 0 0
> >> $ perldoc -tf localtime
> >>
> >> localtime EXPR
> >> Converts a time as returned by the time function to a 9-element
> >> array with the time analyzed for the local time zone. Typically
> >> used as follows:
> >>
> >
> > Well, you may not believe me on this, but I cut and paste my
> > text from
> > an entry in the "online manual" that you can get to
> > via www.perl.com.
>
> Look Nigel it doesnt even say 'record' in the *Perl 4* manpage
> so I very
> much doubt that you saw it in any documentation pertaining to the
> current release.
>
> What you quoted there doesnt even like Perl documentation at all.
>
ftp://ftp.orst.edu/pub/packages/CPAN/doc/manual/html/pod/perlfunc/localt
ime.html
or
ftp://sunsite.ualberta.ca/pub/Mirror/CPAN/doc/manual/html/pod/perlfunc/l
ocaltime.html
still have
NAME
localtime - convert UNIX time into record or string using local time
Check it out Gareth.
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Fri, 21 May 1999 16:54:46 +0800
From: Felix <felixtse@crosswinds.net>
Subject: What's wrong with this hit counter?
Message-Id: <37451F55.C061B4D3@crosswinds.net>
This is a hit counter.
I have 10 pics called count0-9.gif, and a log file called counter.log
contain "0".
Code:
#!usr/bin/perl
open(LOG,"counter.log");
while(<LOG>){
chomp;
$count=$_;
}
if $count>=10000{}
elseif $count>=1000{
$digits[0]=0;
}
elseif $count>=100{
$digits[0,1]=(0,0);
}
elseif $count>=10{
$digits[0,1,2]=(0,0,0);
}
else{
$digits[0,1,2,3]=(0,0,0,0);
}
i=4;
while($count>0){
$digits[i]=substr($count,1-,1);
$count=($count-digit[i])/10;
i--;
}
print "Content-type:text/html\n\n";
print "<Html>";
print "<Head>";
print "<Title>Hit counter</Title>";
print "</Head>";
print "<Body>";
print "<p>";
for(j=0;j<5;j++){
print "<Img Src=\"count$digit[j].gif\" Alt=\"Hit Counter\" Width=\"20\"
Height=\"30\">";
}
print "</p>;
print "</Body>";
print "</Html>";
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 5740
**************************************
