[25771] in Perl-Users-Digest
Perl-Users Digest, Issue: 8010 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Apr 25 18:06:17 2005
Date: Mon, 25 Apr 2005 15:05:39 -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 Mon, 25 Apr 2005 Volume: 10 Number: 8010
Today's topics:
Re: [JAMLANG] - Comparative Evaluation - Draft Version <ilias@lazaridis.com>
Re: Adding Perl Core functions <sisyphus1@nomail.afraid.org>
Re: Adding Perl Core functions <guenther.sohler@newlogic.com>
Re: Command Line single execution of a line(s) of code <mdetomaso@bak.rr.com>
compound conditional <ask@me.com>
Re: compound conditional <tadmc@augustmail.com>
Re: compound conditional <perl@my-header.org>
Re: compound conditional <joe@inwap.com>
Download a HTML page with images? (Fergus McMenemie)
Re: Download a HTML page with images? <darkon.tdo@gmail.com>
Embedded Perl <guenther.sohler@newlogic.com>
Re: Embedded Perl <tassilo.von.parseval@rwth-aachen.de>
feeding a value to a js file from a perl one <hackeras@gmail.com>
Re: feeding a value to a js file from a perl one <mark.clementsREMOVETHIS@wanadoo.fr>
Re: feeding a value to a js file from a perl one <hackeras@gmail.com>
Re: feeding a value to a js file from a perl one <mark.clementsREMOVETHIS@wanadoo.fr>
File::ReadBackwards, use integer xhoster@gmail.com
Re: File::ReadBackwards, use integer (Anno Siegel)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 24 Apr 2005 21:13:34 +0300
From: Ilias Lazaridis <ilias@lazaridis.com>
Subject: Re: [JAMLANG] - Comparative Evaluation - Draft Version
Message-Id: <d4gmq2$gfa$1@usenet.otenet.gr>
Ilias Lazaridis wrote:
> I am comparing several languages based on a fixed template.
>
> you can conveniently fill a form with the code / information:
>
> http://lazaridis.com/case/lang/index.html
>
> if you are unclear about the template, you can use the ruby evaluation
> as a reference:
>
> http://lazaridis.com/case/lang/ruby/
>
> [note: the ruby language hits on some limitations, thus the code is
> incomplete]
thanks for the replies:
http://lazaridis.com/case/lang/perl.html
comments are welcome.
.
--
http://lazaridis.com
------------------------------
Date: Sat, 23 Apr 2005 11:33:47 +1000
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: Adding Perl Core functions
Message-Id: <4269a5e5$0$10305$afc38c87@news.optusnet.com.au>
"Guenther Sohler" <guenther.sohler@newlogic.com> wrote in message
news:pan.2005.04.22.20.57.26.596993@newlogic.com...
> Hallo, I was able to integrate embedded perl into my c program.
> So I am able to call perl scripts from within my program.
> Now I want to call c routines from within the perl code.
> How can I do so ? I have to add an extra function to perl
>
As an alternative to the xs approach, take a look at the Inline::C module.
See 'perldoc Inline::C-Cookbook' and 'perldoc Inline::C'.
Cheers,
Rob
------------------------------
Date: Mon, 25 Apr 2005 07:09:34 +0200
From: Guenther Sohler <guenther.sohler@newlogic.com>
Subject: Re: Adding Perl Core functions
Message-Id: <pan.2005.04.25.05.09.30.716067@newlogic.com>
Hallo Rob, ( and all the Others).
Defintely I will have a look at the Inline::C Routine.
At the weekend I had a look at the XS Approch(without beeing able to read
the newsgroup before.
Unfortunately the XS Approach did not really fit into my concept.
Using XS sounded like creating an extra, external Module for perl.
My Intent is following:
* I have a C program with an embedded perl interpreter
* I want to use the perl interpreter to have a scripting language for my
program
* But I want to have special program-related perl commands that act on
my programs database. If I did not want this I could use a normal perl
interpreter from the beginning
* Therefore I somehow want to register C- callback functions under a
dedicated perl function name.
I have written a c callback function, which draws a rectangle. It is
called
draw_rectangle. Then I instanciate a perl interpreter in my C program.
Then I want instruct !!!! "C" !!!! to register the callback function as
a new perl_command "draw_rectangle".
Finally I instruct the perl interpreter to execute a script from a file.
I dont mind, if the c callback functio has to evaluate the perl stack,
but It would be fine, if my function was registered in the main
namespace(no :: in function name) and if there were no measures in the
perl program to load the draw_rectangle from an external module).
There are to reasons why I dont want my "draw_rectangle" from an external
perl module
* I dont want to keep my program as simple as possible - No extra
files if possible
* I fear, that the extern module is not able anymore to access the
program database as it is seperated from the main program
Who has the perfect solution for me ?
On Sat,
23 Apr 2005 11:33:47 +1000, Sisyphus wrote:
>
> "Guenther Sohler" <guenther.sohler@newlogic.com> wrote in message
> news:pan.2005.04.22.20.57.26.596993@newlogic.com...
>> Hallo, I was able to integrate embedded perl into my c program.
>> So I am able to call perl scripts from within my program.
>> Now I want to call c routines from within the perl code.
>> How can I do so ? I have to add an extra function to perl
>>
>
> As an alternative to the xs approach, take a look at the Inline::C module.
> See 'perldoc Inline::C-Cookbook' and 'perldoc Inline::C'.
>
> Cheers,
> Rob
------------------------------
Date: Mon, 25 Apr 2005 19:57:14 GMT
From: "Michael De Tomaso" <mdetomaso@bak.rr.com>
Subject: Re: Command Line single execution of a line(s) of code
Message-Id: <uYbbe.21035$JB.15374@tornado.socal.rr.com>
Try putting " quotes " around your statement:
>>perl -e print join(':', split(/ */, 'hi there'));
perl -e "print join(':', split(/ */, 'hi there'))";
h:i:t:h:e:r:e
- take care M.D.
http://www.livejournal.com/users/datamd/1860.html
---
EOL - tron
"Michael De Tomaso" <mdetomaso@bak.rr.com> wrote in message
news:VxG7e.56$K25.34@news-wrt-01.socal.rr.com...
>I installed perl for WIN from ActiveState
>
> D:\study\perl>perl -v
>
> This is perl, v5.8.6 built for MSWin32-x86-multi-thread
> (with 3 registered patches, see perl -V for more detail)
>
> Copyright 1987-2004, Larry Wall
>
> ...
>
> And I was going to try to test some code from:
>
> http://www.perldoc.com/perl5.8.4/pod/func/split.html
>
>
>
> Q: let's say I wanted to run a single line of code such as:
>
> print join(':', split(/ */, 'hi there'));
>
> ... should I be able to run if from the command line like:
>
>>perl -e print join(':', split(/ */, 'hi there'));
>
>
> Q: should produce the line: " produces the output 'h:i:t:h:e:r:e'. " right
> after the command right ???
>
> - thanks & take care M.D.
>
> <aka>
> _ _
> | |_ ___ _ __ ___ __ _ | |_ ___ ___
> | __| / _ \ | '_ ` _ \ / _` | | __| / _ \ / _ \
> | |_ | (_) | | | | | | | | (_| | | |_ | (_) | | __/
> \__| \___/ |_| |_| |_| \__,_| \__| \___/ \___|
>
>
>
------------------------------
Date: Sun, 24 Apr 2005 13:11:03 -0400
From: Bob <ask@me.com>
Subject: compound conditional
Message-Id: <d4gk2c$anl$1@sunburst.ccs.yorku.ca>
Can I create a compound conditional with the :? shortform?
I tried putting two statements in curly brackets but that didn't work.
I ended up using if-then but I didn't want to take up much source room
(it only sets a variable to "is" or "are" text :-)).
------------------------------
Date: Sun, 24 Apr 2005 12:57:34 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: compound conditional
Message-Id: <slrnd6nnge.o0u.tadmc@magna.augustmail.com>
Bob <ask@me.com> wrote:
> Can I create a compound conditional with the :? shortform?
Yes.
> I tried
If you show your code we can help fix your code.
If you don't, we can't.
> putting two statements in curly brackets but that didn't work.
You can't just make shit up and expect the computer to know what you mean.
> I ended up using if-then but I didn't want to take up much source room
> (it only sets a variable to "is" or "are" text :-)).
my $to_be = singular($txt) ? 'is' : 'are';
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 24 Apr 2005 20:00:30 +0200
From: Matija Papec <perl@my-header.org>
Subject: Re: compound conditional
Message-Id: <ghnn61tro2ea4nib52k1am3l65sa8qnimc@4ax.com>
X-Ftn-To: Bob
Bob <ask@me.com> wrote:
>Can I create a compound conditional with the :? shortform?
>I tried putting two statements in curly brackets but that didn't work.
Did you also tried ?:
? :)
--
Matija
------------------------------
Date: Sun, 24 Apr 2005 20:32:45 -0700
From: Joe Smith <joe@inwap.com>
Subject: Re: compound conditional
Message-Id: <DKGdnb7G75J--fHfRVn-3Q@comcast.com>
Bob wrote:
> Can I create a compound conditional with the :? shortform?
Yes, I can.
(home/jms) jms@mathras> cat test.pl
sub whichbit {
$num = shift;
$num & 0x80 ? 'bit 7' :
$num & 0x40 ? 'bit 6' :
$num & 0x20 ? 'bit 5' :
$num & 0x10 ? 'bit 4' :
$num & 0x08 ? 'bit 3' :
$num & 0x04 ? 'bit 2' :
$num & 0x02 ? 'bit 1' :
$num & 0x01 ? 'bit 0' :
'none';
}
foreach (0 .. 17) {
print "The highest bit set in $_ is ",whichbit($_),"\n";
}
(home/jms) jms@mathras> perl test.pl
The highest bit set in 0 is none
The highest bit set in 1 is bit 0
The highest bit set in 2 is bit 1
The highest bit set in 3 is bit 1
The highest bit set in 4 is bit 2
The highest bit set in 5 is bit 2
The highest bit set in 6 is bit 2
The highest bit set in 7 is bit 2
The highest bit set in 8 is bit 3
The highest bit set in 9 is bit 3
The highest bit set in 10 is bit 3
The highest bit set in 11 is bit 3
The highest bit set in 12 is bit 3
The highest bit set in 13 is bit 3
The highest bit set in 14 is bit 3
The highest bit set in 15 is bit 3
The highest bit set in 16 is bit 4
The highest bit set in 17 is bit 4
-Joe
------------------------------
Date: Mon, 25 Apr 2005 07:24:29 +0100
From: fergus@twig.demon.co.uk (Fergus McMenemie)
Subject: Download a HTML page with images?
Message-Id: <1gvkcbe.1ia63qc1264k4cN%fergus@twig.demon.co.uk>
Hi,
I am wanting to download or mirror a series of individual HTML pages,
not a whole site. How do you do this with perl? I have looked at LWP
mirror and w3mir neither of which seem to do this. mirror does not
download assocated images, w3mir insists on placing everything at the
root and does not have an option to download a single page with images,
style sheets etc.
--
Fergus McMenemie Email:fergus@twig.demon.co.uk.
Techmore Ltd Phone:(UK) 07721 376021
Unix/Mac/Intranets Analyst Programmer
------------------------------
Date: Mon, 25 Apr 2005 14:04:19 -0000
From: "David K. Wall" <darkon.tdo@gmail.com>
Subject: Re: Download a HTML page with images?
Message-Id: <Xns96436674F73Bdkwwashere@216.168.3.30>
Fergus McMenemie <fergus@twig.demon.co.uk> wrote:
> I am wanting to download or mirror a series of individual HTML
> pages, not a whole site. How do you do this with perl? I have
> looked at LWP mirror and w3mir neither of which seem to do this.
> mirror does not download assocated images, w3mir insists on
> placing everything at the root and does not have an option to
> download a single page with images, style sheets etc.
Instead of trying to reimplement this in Perl, why not use the GNU wget
program? 'wget -p http://example.dns/page.html' should do it.
(The -p option "causes Wget to download all the files that are
necessary to properly display a given HTML page. This includes such
things as inlined images, sounds, and referenced stylesheets.")
------------------------------
Date: Mon, 25 Apr 2005 08:44:16 +0200
From: Guenther Sohler <guenther.sohler@newlogic.com>
Subject: Embedded Perl
Message-Id: <pan.2005.04.25.06.44.16.130368@newlogic.com>
Hallo Rob, ( and all the Others).
Defintely I will have a look at the Inline::C Routine.
At the weekend I had a look at the XS Approch(without beeing able to read
the newsgroup before.
Unfortunately the XS Approach did not really fit into my concept.
Using XS sounded like creating an extra, external Module for perl.
My Intent is following:
* I have a C program with an embedded perl interpreter
* I want to use the perl interpreter to have a scripting language for my
program
* But I want to have special program-related perl commands that act on
my programs database. If I did not want this I could use a normal perl
interpreter from the beginning
* Therefore I somehow want to register C- callback functions under a
dedicated perl function name.
I have written a c callback function, which draws a rectangle. It is
called
draw_rectangle. Then I instanciate a perl interpreter in my C program.
Then I want instruct !!!! "C" !!!! to register the callback function as
a new perl_command "draw_rectangle".
Finally I instruct the perl interpreter to execute a script from a file.
I dont mind, if the c callback functio has to evaluate the perl stack,
but It would be fine, if my function was registered in the main
namespace(no :: in function name) and if there were no measures in the
perl program to load the draw_rectangle from an external module).
There are to reasons why I dont want my "draw_rectangle" from an external
perl module
* I dont want to keep my program as simple as possible - No extra
files if possible
* I fear, that the extern module is not able anymore to access the
program database as it is seperated from the main program
Who has the perfect solution for me ?
------------------------------
Date: Mon, 25 Apr 2005 23:19:54 +0200
From: "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
Subject: Re: Embedded Perl
Message-Id: <slrnd6qnnq.1eo.tassilo.von.parseval@localhost.localdomain>
Also sprach Guenther Sohler:
> Hallo Rob, ( and all the Others).
> Defintely I will have a look at the Inline::C Routine.
> At the weekend I had a look at the XS Approch(without beeing able to read
> the newsgroup before.
> Unfortunately the XS Approach did not really fit into my concept.
> Using XS sounded like creating an extra, external Module for perl.
Not necessarily.
> My Intent is following:
> * I have a C program with an embedded perl interpreter
> * I want to use the perl interpreter to have a scripting language for my
> program
> * But I want to have special program-related perl commands that act on
> my programs database. If I did not want this I could use a normal perl
> interpreter from the beginning
> * Therefore I somehow want to register C- callback functions under a
> dedicated perl function name.
So create an XSUB and compile it statically into your program embedding
the Perl interpreter.
The easiest way I can think of:
First create an ordinary XS module using h2xs and write your XS-code.
After doing 'perl Makefile.PL; make' have a look at the .c file
generated by xsubpp (alternatively you can just create the .xs file and
run xsubpp manually on it). From this file you copy all the transformed
XSUBs and the boot-section into your C program. XSUBs look like this:
XS(XS_Module__Name_function); /* prototype to pass -Wmissing-prototypes */
XS(XS_Module__Name_function)
{
...
}
And the special boot-function:
XS(boot_Module__Name); /* prototype to pass -Wmissing-prototypes */
XS(boot_Module__Name)
{
dXSARGS;
char* file = __FILE__;
XS_VERSION_BOOTCHECK ;
newXS("Module::Name::function", XS_Module__Name_function, file);
XSRETURN_YES;
}
The boot thing will register the XSUBs under a fully qualified function
name using newXS(). Since you said that you'd like to make the functions
available in package main, change this line to:
newXS("main::function", XS_Module__Name_function, file);
Your C program now only has to call boot_Module__Name() once after the
Perl interpreter has been constructed and initialized. Always call it
thusly:
boot_Module__Name(aTHX);
The only thing I am not quite sure of is whether the above will work out
of the box for an embedded Perl interpreter. But I think that the 'aTHX'
macro (and the invisible 'pTHX_' that is put in by the XS(name) macro)
handles passing the right Perl interpreter context to each function.
Tassilo
--
use bigint;
$n=71423350343770280161397026330337371139054411854220053437565440;
$m=-8,;;$_=$n&(0xff)<<$m,,$_>>=$m,,print+chr,,while(($m+=8)<=200);
------------------------------
Date: Sat, 23 Apr 2005 10:44:02 +0300
From: Nikos <hackeras@gmail.com>
Subject: feeding a value to a js file from a perl one
Message-Id: <d4cuc4$3st$1@nic.grnet.gr>
Previsouly i had the following script inside my index.pl
<script type='text/javascript'>
var textToShow = "$data";
var tm;
var pos = 0;
var counter = 0;
function init()
{ tm = setInterval("type()", 45) }
function type()
{
if (textToShow.length != pos)
{
d = document.getElementById("DivText");
c = textToShow.charAt(pos++);
if (c.charCodeAt(0) != 10)
d.appendChild(document.createTextNode(c));
else
d.appendChild(document.createElement("br"));
counter++;
if (counter >= 1800 && (c.charCodeAt(0) == 10 || c == "."))
{
d.appendChild(document.createElement("br"));
d.appendChild(document.createTextNode("Press any key..."));
counter = 0;
clearInterval(tm);
document.body.onkeypress = function () {
document.getElementById("DivText").innerHTML = '';
tm =
setInterval("type()", 50);
document.body.onkeypress = null; };
}
}
else
clearInterval(tm);
}
</script>
<body onload=init()>
<center>
<div id="DivText" align="Left" style="
background-image: url(../data/images/kenzo.jpg);
border: Ridge Orange 5px;
width: 850px;
height: 500px;
color: LightSkyBlue;
font-family: Times;
font-size: 18px;">
</div
but with the idea of seperating code i wanted to put the js file out of
the perl but still remian functional:
$data =~ s/\n/\\n/g;
$data =~ s/"/\\"/g;
$data =~ tr/\cM//d;
#*******************************************************************************
<script type="text/javascript" src="../script.js"></script>
#*******************************************************************************
print br(), br(), br();
I just want to give the variable $data to the javascript file and then
javascript do calculations with it.
------------------------------
Date: Sat, 23 Apr 2005 12:53:52 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: feeding a value to a js file from a perl one
Message-Id: <426a293b$0$11711$8fcfb975@news.wanadoo.fr>
Nikos wrote:
> Previsouly i had the following script inside my index.pl
>
> <script type='text/javascript'>
>
> var textToShow = "$data";
> var tm;
> var pos = 0;
> var counter = 0;
<snip>
>
> I just want to give the variable $data to the javascript file and then
> javascript do calculations with it.
There are many answers to this particular problem: one of them is
HTML::Template.
However: at this point, Nikos, I am going to have to give up trying to
help you. This is a forum for specific questions: you are using it as
your main learning tool, though you choose to ignore most of the advice.
You need to learn about CGI programming, and in fact programming in
general. There are many howtos and faqs available on the web and a host
of reference material. Google is your friend.
I wish you good luck.
Mark
------------------------------
Date: Sat, 23 Apr 2005 14:01:33 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: feeding a value to a js file from a perl one
Message-Id: <d4d9ue$enl$1@nic.grnet.gr>
Mark Clements wrote:
> However: at this point, Nikos, I am going to have to give up trying to
> help you. This is a forum for specific questions: you are using it as
> your main learning tool, though you choose to ignore most of the advice.
> You need to learn about CGI programming, and in fact programming in
> general. There are many howtos and faqs available on the web and a host
> of reference material. Google is your friend.
>
> I wish you good luck.
>
> Mark
Thanks Mark but i think i will give up on programming too.
I like Perl and i know some basic stuff but actually i cant put much
effort on reading.
I liek things to be be pretty much self-explanatory.
Anyway thank you for tryign to help me and sorry for the annoyance i caused.
------------------------------
Date: Sun, 24 Apr 2005 00:09:53 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: feeding a value to a js file from a perl one
Message-Id: <426ac7ae$0$3109$8fcfb975@news.wanadoo.fr>
Nikos wrote:
>
> Thanks Mark but i think i will give up on programming too.
You shouldn't be too disheartened: you have been trying to run before
you could walk, although you don't seem to have realised this. Start
with the basics and build up.
> I like Perl and i know some basic stuff but actually i cant put much
> effort on reading.
This is unfortunate: reading is the key to education, in pretty much any
discipline.
> I liek things to be be pretty much self-explanatory.
Programming isn't easy: you shouldn't expect everything to magically
fall into place without understanding the whys and wherefores. If it
were easy, then it wouldn't attract people who like to be challenged,
and who like making difficult things work, and just as importantly, it
wouldn't pay. New languages only become self-explanatory (up to a point)
when you are already familiar with a variety of languages. This takes time.
> Anyway thank you for tryign to help me and sorry for the annoyance i
> caused.
The annoyance (despair?) was caused by you expecting too much from the
readers of this newsgroup, and moreover by you refusing to listen to
them. Being a beginner is not a problem (it can take years to reach
proficiency): being a beginner who doesn't want to listen *is*.
anyway, best of luck,
Mark
------------------------------
Date: 23 Apr 2005 16:49:06 GMT
From: xhoster@gmail.com
Subject: File::ReadBackwards, use integer
Message-Id: <20050423124906.511$6k@newsreader.com>
I'm having trouble using File::ReadBackwards on large files.
The problem is that the line:
my $read_size = $seek_pos % $max_read_size || $max_read_size ;
yields -1 when $seek_pos is large.
I've "solved" the problem by commenting out the line:
#use integer;
But I'm sure that "use integer" wasn't put there just be ornery, so now I
wonder what awful thing is going to happen because I commented it out.
Any thoughts?
Thanks,
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 23 Apr 2005 18:36:37 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: File::ReadBackwards, use integer
Message-Id: <d4e4jl$jhb$1@mamenchi.zrz.TU-Berlin.DE>
<xhoster@gmail.com> wrote in comp.lang.perl.misc:
> I'm having trouble using File::ReadBackwards on large files.
>
> The problem is that the line:
> my $read_size = $seek_pos % $max_read_size || $max_read_size ;
> yields -1 when $seek_pos is large.
>
> I've "solved" the problem by commenting out the line:
> #use integer;
>
>
> But I'm sure that "use integer" wasn't put there just be ornery, so now I
> wonder what awful thing is going to happen because I commented it out.
That "use integer" governs 220 lines of code. That's not a whole lot,
but it would be hard to find all places where "integer" might make a
difference. I'd ask Uri why it's there.
Even without looking at the code, "use integer" is likely to introduce a
2GB limit -- the documentation doesn't seem to mention such a thing.
Anno
------------------------------
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 V10 Issue 8010
***************************************
