[18542] in Perl-Users-Digest
Perl-Users Digest, Issue: 710 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Apr 19 03:05:52 2001
Date: Thu, 19 Apr 2001 00:05:16 -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: <987663916-v10-i710@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 19 Apr 2001 Volume: 10 Number: 710
Today's topics:
" XXX.pl did not return a true value at ./YYY line 56. <dontuspamme@nospammers.com>
Re: " XXX.pl did not return a true value at ./YYY line <juex@my-deja.com>
[Apache] PUT method ... cgi to "receive"? (Marc G. Fournier)
are associative arrays the way to go? <justin.devanandan.allegakoen@intel.com>
Re: are associative arrays the way to go? <xris@dont.send.spam>
Re: are associative arrays the way to go? <jgomez@soon.com>
Re: basic regex (Bernard El-Hagin)
Re: CGI.pm V. Here Docs . . . (Ameen Dausha)
Re: CGI.pm V. Here Docs . . . (Ameen Dausha)
Re: CGI/Perl/Apache <sredon@home.com>
Re: DBI and hashref question... <webmaster@webdragon.unmunge.net>
Re: DBI and hashref question... (Rafael Garcia-Suarez)
does perl implement polymorphism (late binding)? <ljr@tpg.com.au>
Re: does perl implement polymorphism (late binding)? <uri@sysarch.com>
FAQ .: Where to get this document <faq@denver.pm.org>
Re: FAQ .: Every post to the comp.lang.perl.misc newsgr (Rafael Garcia-Suarez)
Re: htaccess question (Rafael Garcia-Suarez)
Re: Is there a good Perl certification exam? <wyzelli@yahoo.com>
Re: Is there a good Perl certification exam? <uri@sysarch.com>
Re: Is there a good Perl certification exam? (Dave Bailey)
Re: Multidimensional array question <Jonathan.L.Ericson@jpl.nasa.gov>
Re: Multidimensional array question (Tad McClellan)
Re: Perl script calling Java servlet problem (Rafael Garcia-Suarez)
Re: Processing all files in directory (Mark Jason Dominus)
Proper way to export Vars <bcoon@sequenom.com>
Re: Proper way to export Vars (Tad McClellan)
Re: Run script as a daemon ? (Gil G.)
Re: search engine <jfreeman@tassie.net.au>
Re: Using a Unix script in a Perl Script <jkit@cipsinc.com>
Re: Using boundaries within regexps (Bernard El-Hagin)
Re: Using boundaries within regexps (Craig Berry)
using Unicode::String -- ordinals <plz@righthere.com>
Re: using Unicode::String -- ordinals <motivus_BLAHdiBLAH@hotmail.com>
Re: Windows Perl <dan@nospam_dtbakerprojects.com>
Re: Windows Perl <jfreeman@tassie.net.au>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 18 Apr 2001 19:43:16 -0700
From: "kalasend at YAHOO dot COM" <dontuspamme@nospammers.com>
Subject: " XXX.pl did not return a true value at ./YYY line 56. "
Message-Id: <ifsD6.18$2E4.188107@chrome-fe.eng.netapp.com>
line 56 of YYY:
require "XXX.pl";
contents of XXX.pl:
sub foo {
print "this is foo\n";
}
I am just trying to include the subroutines in XXX.pl into YYY
Any idea what is wrong?
thanks,
ben
------------------------------
Date: Wed, 18 Apr 2001 19:46:14 -0700
From: "Jürgen Exner" <juex@my-deja.com>
Subject: Re: " XXX.pl did not return a true value at ./YYY line 56. "
Message-Id: <3ade5177$1@news.microsoft.com>
"kalasend at YAHOO dot COM" <dontuspamme@nospammers.com> wrote in message
news:ifsD6.18$2E4.188107@chrome-fe.eng.netapp.com...
> line 56 of YYY:
> require "XXX.pl";
>
>
> contents of XXX.pl:
> sub foo {
> print "this is foo\n";
> }
>
> I am just trying to include the subroutines in XXX.pl into YYY
> Any idea what is wrong?
Yes, your XXX.pl does not return a true value, just as the error message
said.
You forgot to end the XXX.pl with a true value: just add the statement "1;"
to the end of the script.
jue
------------------------------
Date: Thu, 19 Apr 2001 02:33:03 +0000 (UTC)
From: scrappy@hub.org (Marc G. Fournier)
Subject: [Apache] PUT method ... cgi to "receive"?
Message-Id: <9bliov$1tpf$1@news.tht.net>
I've been trying to implement a PUT method using PHP, and either the docs
are wrong, or PHP is broken ... I'm figuring to try it using Perl instead,
since then I'd at least have the ability to deal with non-nobody directory
permissions ...
I've searched Google, and came up dry .. can someone point me to a sample
cgi, or docs on doing this?
Thanks ..
--
Marc G. Fournier scrappy@hub.org
Systems Administrator @ hub.org
scrappy@{postgresql|isc}.org ICQ#7615664
------------------------------
Date: Thu, 19 Apr 2001 11:31:40 +0800
From: "Just in" <justin.devanandan.allegakoen@intel.com>
Subject: are associative arrays the way to go?
Message-Id: <9blm70$6bn@news.or.intel.com>
Could one of you illustrious people help me?
I have a few problems. (Do I need to send a separate mail for each question
relating to the same topic?)
One of them most notedly is :- I have two text files, one has quantities and
names in it, and the other has names and its related generic code.
I want to add all the quantities that have the same code.
However if I don't know what the code is, can I assign the code as a
variable for a key of an associative array, and add all the quantities at
the same time? (There are thousands of names, and tens of codes). In a
nutshell can I do the following?
if ($NameFileB eq $NameFileA)
{
%hash = ($GenericCodeFromFileA => [$Quantity1FromFileB,
$Quantity2FromFileB]);
}
Where $QuantityXFromFileB should be added to the previous quantity if the
name in File B falls under one of the generic codes in file A
Am I out of my depth? And should I be using associative arrays? The FAQ
points to associative arrays as my saviour, but I can't find a solution to
this.
Appreciate your help.
Thanks
Justin ( Just Another someone who tries to use PERL (albeit badly), to numb
the pain of his job)
------------------------------
Date: Wed, 18 Apr 2001 23:05:22 -0500
From: xris <xris@dont.send.spam>
Subject: Re: are associative arrays the way to go?
Message-Id: <xris-EB583B.23052218042001@news.evergo.net>
In article <9blm70$6bn@news.or.intel.com>,
"Just in" <justin.devanandan.allegakoen@intel.com> wrote:
> if ($NameFileB eq $NameFileA)
> {
> %hash = ($GenericCodeFromFileA => [$Quantity1FromFileB,
> $Quantity2FromFileB]);
> }
Don't know the answer to your question (though in my own experience, I'd
use a hash to do just that), but you might save time by doing something
like:
if ($NameFileB eq $NameFileA) {
$hash{$GenericCodeFromFileA} = [$Quantity1FromFileB,
$Quantity2FromFileB];
}
I find it easier to read, and I don't think it's any slower than what
you did. that is, unless you were trying to define a TON of values, in
which case, you'd probably be better off using your method of defining
the hash all at once.
-xris
------------------------------
Date: 18 Apr 2001 23:34:04 -0500
From: "Jorge E. Gomez" <jgomez@soon.com>
Subject: Re: are associative arrays the way to go?
Message-Id: <20010418.232220.360553478.1890@thebrain.cable.net.co>
"Just in" <justin.devanandan.allegakoen@intel.com> wrote:
> ...I have two text files, one has quantities
> and names in it, and the other has names and its related generic code.
> I want to add all the quantities that have the same code.
I suppose you're trying to add the amounts as you read from file B
(amount | name), after having read all of file A (name | code).
First of all, you should create a '%code' hash, from the information on
file A, so that the value of $code{$anyname} is the code of that
particular name.
Having that hash, you can read through every line of file B (the larger
one), and create another hash (%amount), adding the amount that you read
on every line to the code that corresponds to the name that appears on
that line (i.e. the keys of that hash are codes, not names).
To make it clear, it would be something like this:
# after reading and amount | name pair from a line of file B
# (let's call them $thisname and $thisamount)
$thiscode = $code{$thisname}; # take the code from the hash created
# previously from file A
$amount{$thiscode} += $thisamount;
This would go on a while loop, that reads every line from file B.
Definitely using associative arrays is the way to go here. I hope my
answer was clear, and as always, there's more than one way to do it.
--
Jorge
------------------------------
Date: Wed, 18 Apr 2001 12:40:00 +0000 (UTC)
From: bernard.el-hagin@lido-tech.net (Bernard El-Hagin)
Subject: Re: basic regex
Message-Id: <slrn9dr2f6.3vvnt95.bernard.el-hagin@gdndev25.dev.lido-tech>
J.C.Posey <jcp@myrtle.ukc.ac.uk> wrote:
::jcp@myrtle.ukc.ac.uk (J.C.Posey) writes:
::
::> I'm sure this is trivial, but regex wreck my head...
::
::>
::> I thought it would be as simple as:
::>
::> $hour =~ /[0,1][0-6,9]/ #but still matches out of bounds, i.e. hour 19, 01
::>
::Never follow up your own post! :) I ignored the obvious:
::
::$hour =~/09|10|11|12|13|14|15|16/
$hour =~ /^(09)|(1[0-6])$/;
Cheers,
Bernard
--
perl -e's;;s,,Just another Perl hacker,;and$\="\r"and
$$=q!print${"\x27"}!;$;=qq.$0..q.v..qq!al $$!;$;=~s-\---;
/^....*(?{$|=eval$;;select($Just,$another,$Perlhacker,0.1)}).{25}/x;'
------------------------------
Date: Thu, 19 Apr 2001 02:43:39 GMT
From: ameen @ dausha . net (Ameen Dausha)
Subject: Re: CGI.pm V. Here Docs . . .
Message-Id: <3ade50a8.100665419@news.bellatlantic.net>
Everybody, thank you. There was enough in this brief discussion to
satisfy my needs. Sorry for not being able to respond sooner, but the
box I usually do newsreading on crapped out on me and I had to
rebuild. But, the question was pressing.
ameen@dausha.net spake from on high claiming:
>Greetings,
>
>I'm trying to get a handle on the use of CGI.pm. I've been using it lately and
>enjoying it, but some of my peers think that it is a bloated tool--bloated to
>the point of limiting its use. They perfer writing lengthy Here Documents
>with all that goes with it.
>
>For handling user input, they use cgi-lib. From what I understand this is a
>depreciated tool in Perl5. Is my understanding correct? (I know that 5.6.1
>has CGI.pm 2.752 inside).
>
>The developing environment uses Solaris with Netscape as a server.
>
>How can I best approach this issue to perhaps convince them that CGI.pm isn't
>so bad after all?
>
>Thanks in advance,
>Ben
>
> ----- Posted via NewsOne.Net: Free (anonymous) Usenet News via the Web -----
> http://newsone.net/ -- Free reading and anonymous posting to 60,000+ groups
> NewsOne.Net prohibits users from posting spam. If this or other posts
>made through NewsOne.Net violate posting guidelines, email abuse@newsone.net
Ben Wilson (a.k.a. Ameen, Last of the Dausha)
____________________________
-"Ever heard of Aristotle . . . Plato . . . Socrates?!"
-"Yes."
-"Morons!"
------------------------------
Date: Thu, 19 Apr 2001 02:45:47 GMT
From: ameen @ dausha . net (Ameen Dausha)
Subject: Re: CGI.pm V. Here Docs . . .
Message-Id: <3ade5123.100788808@news.bellatlantic.net>
A_Geekette <moiraine@qwest.net> spake from on high claiming:
>ameen@dausha.net wrote:
>
>
>> For handling user input, they use cgi-lib.
>
>Bad.
>
>> The developing environment uses Solaris with Netscape as a server.
>
>Use Apache with mod_perl it will handle (not to be confused with "handler") Perl
>written CGI scripts a lot faster. Not to mention Apache is just a better server in
>general.
>perl.apache.org.
Unfortunately, the customer really, really loves paying huge sums of
money when cheaper is better. So, I must live in the environment
given. Thanks for your comments. I'm getting ready to get my home web
server running, and I'm looking forward to the whole thing.
>> How can I best approach this issue to perhaps convince them that CGI.pm isn't
>> so bad after all?
>
>CGI.pm isn't bad. It's just slow for many reasons I won't get into. You can load
>just the specific portions of the module you need, but that gets a little
>complicated. For more module info post to comp.lang.perl.modules. Also, like
>Rafael said. www.cpan.org
>
>I hate to leave you hanging like this, but if I write any more I'll get criticized
>by someone.
>I speak bluntly and to the point; some people have a problem with that.
>So, give me an email if you want more information. Web stuff is my specialty.
>
>--
>Geekette
>
>"Try Not. Do or do not. There is no try."
>-If you don't know who said this,
>I don't want to talk to you. ;-)
>
>"Nothing is impossible, no matter how improbable."
>-Anonymous
>
>
Ben Wilson (a.k.a. Ameen, Last of the Dausha)
____________________________
-"Ever heard of Aristotle . . . Plato . . . Socrates?!"
-"Yes."
-"Morons!"
------------------------------
Date: Thu, 19 Apr 2001 01:15:41 GMT
From: Steve <sredon@home.com>
Subject: Re: CGI/Perl/Apache
Message-Id: <3ADE64ED.F34266F0@home.com>
"Alan J. Flavell" wrote:
> On Wed, 18 Apr 2001, Steve wrote:
>
> > More information about this error may be available in the server error
> > log.
> ...
> > Any assistance would be appreciated.
>
> You seem to have just supplied it!
?
> What's more, the fact that you could ask the question with a straight
> face rather suggests that you failed to read the FAQ. Usenet tends
> to consider that as a discourtesy.
My apologies. Your response motivated me to search and
find the FAQ, and there was quite a bit of good information
in the post.
> ___
> /
> perldoc -q server error
>
> =head1 Found in /usr/local/lib/perl5/5.00503/pod/perlfaq9.pod
>
> =head2 My CGI script runs from the command line but not the browser.
> (500 Server Error)
>
> If you can demonstrate that you've read the following FAQs and that
> your problem isn't something simple that can be easily answered,
> you'll probably receive a courteous and useful reply to your question
> if you post it on comp.infosystems.www.authoring.cgi
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
>
I did a search on my news server for 'cgi', but got 0 hits. I guess
I'll have to find an alternate news server.
>
> [...]
>
> \___
>
> Good luck.
Cheers
Steve
------------------------------
Date: 19 Apr 2001 01:17:09 GMT
From: "Scott R. Godin" <webmaster@webdragon.unmunge.net>
Subject: Re: DBI and hashref question...
Message-Id: <9bleal$klp$1@216.155.32.172>
In article <xris-C46433.18202918042001@news.evergo.net>,
xris <xris@dont.send.spam> wrote:
| I've been messing with DBI a lot lately, and a lot of what I do ends up
| being something like:
|
| $sh = $dbh->prepare('SELECT * FROM myTable');
| $sh->execute;
| push @Rows, $ref while (my $ref = $sh->fetchrow_hashref);
| $sh->finish;
|
| I know that there's a "fetchall_arrayref" function, but am wondering if
| there's something that returns an arrayref to hashes, rather than an
| arrayref to more arrays (I have no guarantee about the order the fields
| will be returned in, so I need the hash reference - plus, according to
| what I've read, hashes are generally faster than accessing array
| elements).
|
| Does anyone know of a way to do this other than manually building the
| array like I'm doing above?
|
Well, In Programmming The Perl DBI, on page 225 it mentions the following
-=-
"To fetch only the fields called 'foo' and 'bar' of every row:"
$tbl_ary_ref = $sth->fetchall_arrayref({ foo => 1, bar => 1});
"This example returns a reference to an array of hashrefs."
-=-
It makes me curious, what happens if you pass it an empty hashref?
$tbl_ary_ref = $sth->fetchall_arrayref( {} );
I don't unfortunately have a way to test this now, for you, so don't
take this as an 'answer', but it might be a possible avenue of
exploration.
I couldn't find anything else in a cursory examination of the book. :(
HTH
--
unmunge e-mail here:
#!perl -w
print map {chr(ord($_)-3)} split //, "zhepdvwhuCzhegudjrq1qhw";
# ( damn spammers. *shakes fist* take a hint. =:P )
------------------------------
Date: 19 Apr 2001 06:26:30 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: DBI and hashref question...
Message-Id: <slrn9dt1a0.g4j.rgarciasuarez@rafael.kazibao.net>
xris wrote in comp.lang.perl.misc:
} I've been messing with DBI a lot lately, and a lot of what I do ends up
} being something like:
}
} $sh = $dbh->prepare('SELECT * FROM myTable');
} $sh->execute;
} push @Rows, $ref while (my $ref = $sh->fetchrow_hashref);
} $sh->finish;
}
} I know that there's a "fetchall_arrayref" function, but am wondering if
} there's something that returns an arrayref to hashes, rather than an
} arrayref to more arrays (I have no guarantee about the order the fields
} will be returned in, so I need the hash reference - plus, according to
} what I've read, hashes are generally faster than accessing array
} elements).
DBI has a selectall_hashref method since version 1.15.
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Thu, 19 Apr 2001 15:26:35 +1000
From: "Lachlan Rosenberg" <ljr@tpg.com.au>
Subject: does perl implement polymorphism (late binding)?
Message-Id: <3ade7d80@dnews.tpgi.com.au>
Hi
I come from a Java C++ background and am just learning perl for cgi.
perl 5 says that it is OO and i can find information about its encapsulation
and inheritance mechanisms via packages (just like Ada95 in fact) but i cant
find anywhere how it implements polymorphism (i dont think it does).
By polymorphism i mean the invoking of a method of an object via a reference
to the object as an instance of its base class resulting in the execution of
the method defined by the objects actual superclass definition (in Java, the
base class method is abstract, in c++ its virtual or pure virtual and the
superclass redefines the method).
Can anyone tell me if perl5 has polymorphism like the features im used to
implementing in the compiled languages like Java, C++, Ada95 or is it just
OO without polymorphism?
Thanks.
------------------------------
Date: Thu, 19 Apr 2001 05:45:33 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: does perl implement polymorphism (late binding)?
Message-Id: <x7lmoxjvcz.fsf@home.sysarch.com>
>>>>> "LR" == Lachlan Rosenberg <ljr@tpg.com.au> writes:
LR> perl 5 says that it is OO and i can find information about its
LR> encapsulation and inheritance mechanisms via packages (just like
LR> Ada95 in fact) but i cant find anywhere how it implements
LR> polymorphism (i dont think it does).
LR> By polymorphism i mean the invoking of a method of an object via a
LR> reference to the object as an instance of its base class resulting
LR> in the execution of the method defined by the objects actual
LR> superclass definition (in Java, the base class method is abstract,
LR> in c++ its virtual or pure virtual and the superclass redefines
LR> the method).
LR> Can anyone tell me if perl5 has polymorphism like the features im
LR> used to implementing in the compiled languages like Java, C++,
LR> Ada95 or is it just OO without polymorphism?
perl has polymorphism and some (damian conway for one) say that it is
better than the support in the other languages you mention. you can
decide which method to use in a class at run time in perl. how late
binding is that?
i use polymorphism in stem a great deal. many classes implement the same
method name and i control which one gets called by setting the object or
class name. in a variant on that, i build the method name out of an
field in a message, look into a class to see if that method exists and
use it as the message delivery method for this object. if the method
doesn't exist, i use a default ('msg_in') method and again test if it
exists.
OO perl is so dynamic that you can do things like match the best (but
not perfect) method/class to use when passing in multiple arguments of
different types. there is a module that does this called:
Class::MultiMethods written by that aforementioned damian conway (who is
from .au). he is
also the author of 'object oriented perl' which i highly recommend if
you want to get into this subject in any depth.
also he is teaching a class in advanced object oriented perl in july in
boston. read about it here:
http://www.sysarch.com/perl/OOP_class.html
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture and Stem Development ------ http://www.stemsystems.com
Learn Advanced Object Oriented Perl from Damian Conway - Boston, July 10-11
Class and Registration info: http://www.sysarch.com/perl/OOP_class.html
------------------------------
Date: Thu, 19 Apr 2001 06:16:23 GMT
From: PerlFAQ Server <faq@denver.pm.org>
Subject: FAQ .: Where to get this document
Message-Id: <XovD6.1303$T3.195199488@news.frii.net>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with every Standard Distribution of
Perl.
+
Where to get this document
This document is posted regularly to comp.lang.perl.announce and several
other related newsgroups. It is available in a variety of formats from
CPAN in the /CPAN/doc/FAQs/FAQ/ directory, or on the web at
http://www.perl.com/perl/faq/ .
-
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep comming up. If you are some how irritated by
seeing these postings you are free to ignore them or add the sender
to your killfile. If you find errors or other problems with these
postings please send corrections or comments to the posting email
address.
If you are not able to find this or other Perl documentation from
your installation you may access it via the web by following the
appropriate links from one of the addresses listed below.
http://theoryx5.uwinnipeg.ca/mod_perl/cpan-search
http://www.perldoc.com
http://www.cpan.org
http://www.perl.com
Answers to questions about LOTS of other stuff, mostly not related to
Perl, can be found at
news:news.answers
and in the many thousands of other useful Usenet news groups.
Please note that the FAQ text posted by this server has been modified
from that distributed in the stable Perl release. It has been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ is available on request.
The perlfaq manual pages contain the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-1999 Tom Christiansen and Nathan
Torkington. All rights reserved.
When included as an integrated part of the Standard
Distribution of Perl or of its documentation (printed or
otherwise), this work is covered under Perl's Artistic
License. For separate distributions of all or part of
this FAQ outside of that, see the perlfaq manpage.
Irrespective of its distribution, all code examples here
are public domain. You are permitted and encouraged to
use this code and any derivatives thereof in your own
programs for fun or for profit as you see fit. A simple
comment in the code giving credit to the FAQ would be
courteous but is not required.
This work is provided in the hope that it will be useful but does
not represent a commitment of any kind on the part of the contributers,
authors or their agents.
--
This space intentionally left blank
------------------------------
Date: 19 Apr 2001 06:06:09 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: FAQ .: Every post to the comp.lang.perl.misc newsgroup consumes the time and
Message-Id: <slrn9dt03q.ft1.rgarciasuarez@rafael.kazibao.net>
PerlFAQ Server wrote in comp.lang.perl.misc, :
} 1. The latest stable release of Perl is 5.6.0.
It's time to update.
} 8. Have you tried archives of Usenet? http://www.dejanews.com/
} maintains an archive of postings to Usenet dating from March, 1995.
This domain is still alive, but perhaps should it be replaced by
http://groups.google.com/.
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: 19 Apr 2001 06:21:24 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: htaccess question
Message-Id: <slrn9dt10e.g47.rgarciasuarez@rafael.kazibao.net>
Plop wrote in comp.lang.perl.misc :
} Hi,
}
} Sorry if I am not at the right place...
}
} I know how to deny an IP or IP range with the .htaccess file on an
} Apache server.
}
} But is it possible to redirect the visitor to a special page (or
} script, etc), according to his IP, instead of "denyng" him ?
}
} I know there are some cgi scripts for that, but I "feel' there's a way
} with the .htaccess file !
This is typically a job for the server. The apache module
mod_rewrite can handle this. I suggest to ask in one of the
comp.infosystems.www.servers.* groups.
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Thu, 19 Apr 2001 12:15:09 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: Is there a good Perl certification exam?
Message-Id: <n4sD6.34$mi4.2865@vic.nntp.telstra.net>
"Chris Stith" <mischief@velma.motion.net> wrote in message
news:tds0c4su362161@corp.supernews.com...
> BTW, my score was 3.88 out of 5.0 for anyone curious. Perhaps I'll
> take the same thing again in a couple of weeks or a month from home
> with fewer distractions just to see if I can get them to call me a
> master. ;-)
FWIW I got 3.6 just on a year ago, but still consider myself nowhere near a
master programmer. I should probably update too since I figure I've learnt
a lot in the last year. I actually only took it for fun too after Uri
mentioned it.
Wyzelli
--
($a,$b,$w,$t)=(' bottle',' of beer',' on the wall','Take one down, pass it
around');
for(reverse(1..100)){$s=($_!=1)?'s':'';$c.="$_$a$s$b$w\n$_$a$s$b\n$t\n";
$_--;$s=($_!=1)?'s':'';$c.="$_$a$s$b$w\n\n";}print"$c*hic*";
------------------------------
Date: Thu, 19 Apr 2001 03:48:25 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Is there a good Perl certification exam?
Message-Id: <x7ofttk0s6.fsf@home.sysarch.com>
>>>>> "W" == Wyzelli <wyzelli@yahoo.com> writes:
W> "Chris Stith" <mischief@velma.motion.net> wrote in message
W> news:tds0c4su362161@corp.supernews.com...
>> BTW, my score was 3.88 out of 5.0 for anyone curious. Perhaps I'll
>> take the same thing again in a couple of weeks or a month from home
>> with fewer distractions just to see if I can get them to call me a
>> master. ;-)
W> FWIW I got 3.6 just on a year ago, but still consider myself
W> nowhere near a master programmer. I should probably update too
W> since I figure I've learnt a lot in the last year. I actually only
W> took it for fun too after Uri mentioned it.
i had to get them to stop spamming me with crap. at least they seemed to
have a working opt out mechanism. if someone applied for a job i was
offering and proffered up a moronbench score i would probably kick them
out. it is such a useless test given all of its constraints. i can
determine the real perl skills of someone much faster in a short
conversation. just seeing how they think about and in perl is more
important than actual details of stuff that can be looked up if
needed. i never use formats, so asking me about them is stupid. i would
(gladly) fail any format questions on a test. does that mean i don't
know perl? the whole premise is stupid.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture and Stem Development ------ http://www.stemsystems.com
Learn Advanced Object Oriented Perl from Damian Conway - Boston, July 10-11
Class and Registration info: http://www.sysarch.com/perl/OOP_class.html
------------------------------
Date: 19 Apr 2001 05:45:01 GMT
From: dave@sydney.daveb.net (Dave Bailey)
Subject: Re: Is there a good Perl certification exam?
Message-Id: <slrn9dski7.ih6.dave@sydney.daveb.net>
On Thu, 19 Apr 2001 03:48:25 GMT, Uri Guttman <uri@sysarch.com> wrote:
>>>>>> "W" == Wyzelli <wyzelli@yahoo.com> writes:
>
> W> "Chris Stith" <mischief@velma.motion.net> wrote in message
> W> news:tds0c4su362161@corp.supernews.com...
>
> >> BTW, my score was 3.88 out of 5.0 for anyone curious. Perhaps I'll
> >> take the same thing again in a couple of weeks or a month from home
> >> with fewer distractions just to see if I can get them to call me a
> >> master. ;-)
>
> W> FWIW I got 3.6 just on a year ago, but still consider myself
> W> nowhere near a master programmer. I should probably update too
> W> since I figure I've learnt a lot in the last year. I actually only
> W> took it for fun too after Uri mentioned it.
>
>i had to get them to stop spamming me with crap. at least they seemed to
>have a working opt out mechanism. if someone applied for a job i was
>offering and proffered up a moronbench score i would probably kick them
>out.
That's good to know. I am interviewing for some offsite contract
work next week and was considering showing up with 37 copies of my
"Master Perl" (4.46, because I'm *really* fast at flipping through the
Camel Book) certification and just handing them out to everyone at
the company. Then when they ask me to write a "Hello, world" Perl
script in the interview I could shift uncomfortably in my chair and
mumble that I "don't code from scratch" and I'd "have to FTP some
stuff over here to really do it right". After that, when they ask
me what a hash table is, I could say, "Oh, that's quite simple. It's
a variable that starts with a percent sign. As a Master Perl
programmer, you see, I come into contact with hash tables every day.".
>it is such a useless test given all of its constraints. i can
>determine the real perl skills of someone much faster in a short
>conversation. just seeing how they think about and in perl is more
>important than actual details of stuff that can be looked up if
>needed. i never use formats, so asking me about them is stupid. i would
>(gladly) fail any format questions on a test. does that mean i don't
>know perl? the whole premise is stupid.
By far my favorite test is the "Typing Speed and Accuracy" exam.
I never tire of bragging to friends that I type an astonishing
81 words per minute. My favorite technique is to ask them "Guess
how fast I type?", and when they respond with a guess that's too low,
saying, "Higher!" and cackling maniacally. Usually they give up in
exasperation after about three iterations (fewer if I've tried this
on them before), and then I belt it out at the top of my lungs,
scream like a baboon, and run out of the room. I've actually done
this to all three of my friends, so I'm going to start accosting
strangers on the street pretty soon. I figure it'll be a great way
to meet people, especially if I preface the interaction by handing
them a copy of the "Master Perl" certification.
Brainbench has changed my life (or has it?).
--
Dave Bailey
davidb54@yahoo.com
------------------------------
Date: 19 Apr 2001 01:39:08 +0000
From: Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov>
Subject: Re: Multidimensional array question
Message-Id: <86k84h3byb.fsf@jon_ericson.jpl.nasa.gov>
"The NewsBrowser" <nbr@newsbrowser.com> writes:
> #the array
> @InboxArray = ();
>
> #reading the file into the array
>
> my $InboxFileContents = "";
> my $InboxFileContentBuffer = "";
I would remove these my declarations.
> $InboxFileName = "MyInbox.txt";
> open(INBOXFILE,"<$InboxFileName");
Check for the success with an or clause:
open(INBOXFILE,"<$InboxFileName")
or die "can't open $InboxFileName: $!"
> while($InboxFileContentBuffer = <INBOXFILE>)
I would use $_:
while(<INBOXFILE>)
Or a short lexical variable:
while(my $line = <INBOXFILE>)
See perlop for discussion of this.
> {
> @TempArray = split(/\s/, $InboxFileContentBuffer);
> push(@InboxArray, [@TempArray]);
> }
This block is bizzare. Why isn't @TempArray a lexical? Why does it
exist:
push(@InboxArray, [split(/\s/, $InboxFileContentBuffer)]);
Or with $_:
push(@InboxArray, [split]);
> close(INBOXFILE);
>
> #writing the first three elements in each of the arrays
> #in @InboxArray
> foreach $Elem (@InboxArray)
> {
> print $Elem->[0];
> print $Elem->[1];
> print $Elem->[2];
> }
>
I don't know what your problem is without having the data you ran.
One thing that could help you is the Data::Dumper module.
Jon
------------------------------
Date: Wed, 18 Apr 2001 23:07:19 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Multidimensional array question
Message-Id: <slrn9dslj6.1rr.tadmc@tadmc26.august.net>
The NewsBrowser <nbr@newsbrowser.com> wrote:
>I'm new to Perl, and I'm trying to do something I thought would be
>quite simple; read a file into an array of arrays, then print out
>the contents of the array using the foreach construct.
> open(INBOXFILE,"<$InboxFileName");
You should always, yes *always*, check the return value from open():
open(INBOXFILE,"<$InboxFileName") or die "could not open '$InboxFileName' $!";
> while($InboxFileContentBuffer = <INBOXFILE>)
> {
> @TempArray = split(/\s/, $InboxFileContentBuffer);
^^
^^
> push(@InboxArray, [@TempArray]);
> foreach $Elem (@InboxArray)
> {
> print $Elem->[0];
> print $Elem->[1];
> print $Elem->[2];
> }
>
>However, nothing gets printed out.
Maybe it is printing 3 empty strings. That's what would happen if
you have some leading whitespace on your data lines. Of course, we
can't tell, because you have not shown us any data lines.
Use the Data::Dumper module and print out the entire data structure.
>I'm sure I've made a mistake
>in the references;
That part looks fine to me...
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 19 Apr 2001 06:13:20 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Perl script calling Java servlet problem
Message-Id: <slrn9dt0h9.ft1.rgarciasuarez@rafael.kazibao.net>
Chris Fedde wrote in comp.lang.perl.misc :
}
} I did not see an obvious problem with your code. Then again I did
} not look all that colsely. Still IIWY i'd make this segment into
} a complete stand alone program and start testing it that way. Once
} you have that working you can re-integrate it.
In this stand alone program, I think that LWP::Debug can help.
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Thu, 19 Apr 2001 02:04:05 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: Processing all files in directory
Message-Id: <3ade4794.6eef$183@news.op.net>
In article <kgsqdtci31du6feujo2athne3f9mhk0op3@4ax.com>,
Bart Lateur <bart.lateur@skynet.be> wrote:
>p.s. Why they all insist on writing "maneuver", which looks Dutch, I
>don't know.
That is the correct American spelling. (It's also the Old French
spelling. The 'o' was added in the 13th Century.) These days
'Manoeuvre' is a Britishism.
> My English dictionary says it should be written "Manoeuvre".
Perhaps you need to get a better dictionary.
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
Date: Wed, 18 Apr 2001 19:07:17 -0700
From: Bryan Coon <bcoon@sequenom.com>
Subject: Proper way to export Vars
Message-Id: <3ADE4855.357240ED@sequenom.com>
I have been reading the perldoc perlmod and perldoc perlmodlib man
pages, and have not reached a good solution to my problem.
I have a project in perl which has many files, which share several
variables, i.e.:
$cgibin = "apachessl/cgi-bin/project";
$htdocs = "/apachessl/htdocs";
etc.
This project is going into a cvs repository, so I was trying to
implement a global variables file, so those working on the project can
just set up that file with their local information.
I tried doing
our $cgibin = "apachessl/cgi-bin/project";
in a file called global.pm, and then doing 'require "global.pm" in all
project files. This kind of worked for some of them and not for others-
meaning $cgibin had was initialized in some cases, but not others.
What is the correct way to do this? Making the global.pm file a module
seems like overkill for what I want to do...
Shoud this work at all the way Im doing it? (meaning there is some other
bug)
Thanks,
Bryan
------------------------------
Date: Wed, 18 Apr 2001 23:16:28 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Proper way to export Vars
Message-Id: <slrn9dsm4c.1rr.tadmc@tadmc26.august.net>
Bryan Coon <bcoon@sequenom.com> wrote:
>I have been reading the perldoc perlmod and perldoc perlmodlib man
>pages, and have not reached a good solution to my problem.
>
>I have a project in perl which has many files, which share several
>variables, i.e.:
>$cgibin = "apachessl/cgi-bin/project";
>$htdocs = "/apachessl/htdocs";
>etc.
>
>This project is going into a cvs repository, so I was trying to
>implement a global variables file,
How about implementing a (single) global hash containing your variables?
$config{cgibin} = 'apachessl/cgi-bin/project';
$config{htdocs} = '/apachessl/htdocs';
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 19 Apr 2001 02:25:25 GMT
From: gil@nospam-keskydee.com (Gil G.)
Subject: Re: Run script as a daemon ?
Message-Id: <3ade4c85.509822@news-server>
Thanks everyone, I think I have enough info now to move forward.
Sincerely,
Gil.
------------------------------
Date: Thu, 19 Apr 2001 17:06:23 +1000
From: "James Freeman" <jfreeman@tassie.net.au>
Subject: Re: search engine
Message-Id: <JQvD6.6689$482.28448@newsfeeds.bigpond.com>
[cc author and posted perl.misc]
jezreel <zeebee@poczta.onet.pl> wrote in message
news:9bfa98$7re$5@news.onet.pl...
> I wonder if somebody would find some time and help me, since my knowledge
of
> perl is still insufficient.
> The relevant portion of code provided below, needs adjustments so the
search
> engine would not accept entries smaller than 6 letters.
why not use:
if (length $searchwords < 6) {
print "Please enter at least 6 chars\n"
exit;
}
James
>
> An answer to priv would be appreciated.
> zeebee@poczta.onet.pl
>
> #####################
>
> print "Content-type:text/html\n\n";
>
> $thisScript=$ENV{'SCRIPT_NAME'};
> $data = $ENV{'SCRIPT_FILENAME'};
> $data=~s/(.*)\/.*/$1/;
> $top="$data/searchTop.html";
> $bottom="$data/searchBottom.html";
> $data="$data/data/searchindex.dat";
>
>
> $query = $ENV{'QUERY_STRING'};
> @pairs = split(/&/,$query);
> foreach $pair (@pairs)
> {
> ($name,$value) = split(/=/, $pair);
> $value=~tr/+/ /;
> $value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> $FORM{$name} = $value;
> }
>
>
> $searchwords=$FORM{'search'};
>
$searchwords=~s/[\|\\\/\!\@\#\$\%\^\&\*\(\)\[\]\{\}\;\:\'\"\+\=\-\_\?\.\,]//
> isg;
>
> @terms=split(/\s+/,$searchwords);
>
> open(FILE, "$data") or dieNice ("Can't open file: $data.<br>You should run
> archive.cgi script first!");
>
> $no=0;
> while ($line=<FILE>)
> {
> ($URL, $title) = split(/\|\|\|/, $line);
> $matches=0;
> foreach $word (@terms)
> {
> if ($title=~/$word/i) {$matches++}
> }
> if ($matches)
> {
> $found{$URL}=$matches;
> $title{$URL}=$title;
> }
> }
> while (scalar(%found))
> {
> $maxMatches=0;
> while (($URL,$matches)=each(%found))
> {
> if ($matches>$maxMatches)
> {
> $maxMatches=$matches;
> $maxURL=$URL;
> }
> }
> $results[$no]=$maxURL;
> $no++;
> delete $found{$maxURL};
> }
>
> close(FILE);
>
>
>
------------------------------
Date: Wed, 18 Apr 2001 07:54:26 -0400
From: jkit <jkit@cipsinc.com>
Subject: Re: Using a Unix script in a Perl Script
Message-Id: <3ADD8072.69EBF180@cipsinc.com>
Try back ticks.
$output = `somescript`;
or
$command = "somescript";
$output = `$command`;
John
Tad McClellan wrote:
> Prasad, Victor [FITZ:K500:EXCH] <vprasad@americasm01.nt.com> wrote:
>
> >I have to pass the parameters to the Unix script - but am not sure how
> >to get the output from the script to Perl.
>
> >I was going to use the system command to make the script run. But am
> ^^^^^^
> >not sure how to get the output to let the use know all is OK.
> >
> >Any advice?
>
> Yes.
>
> Read the documentation for the functions that you use.
>
> The answer to your question is given by:
>
> perldoc -f system
>
> --
> Tad McClellan SGML consulting
> tadmc@augustmail.com Perl programming
> Fort Worth, Texas
------------------------------
Date: Thu, 19 Apr 2001 05:37:06 +0000 (UTC)
From: bernard.el-hagin@lido-tech.net (Bernard El-Hagin)
Subject: Re: Using boundaries within regexps
Message-Id: <slrn9dsu19.3vvnt95.bernard.el-hagin@gdndev25.dev.lido-tech>
Craig Berry <cberry@cinenet.net> wrote:
::George Adams (g_adams27@hotSPAMISBADmail.com) wrote:
::: Thanks to those who replied to my earlier question - using m/// in a list
::: context works well.
::
:: s/\/\/\//\/\/
Shouldn't that be:
s/\/\/\//\/\//
:-)
Cheers,
Bernard
--
perl -e's;;s,,Just another Perl hacker,;and$\="\r"and
$$=q!print${"\x27"}!;$;=qq.$0..q.v..qq!al $$!;$;=~s-\---;
/^....*(?{$|=eval$;;select($Just,$another,$Perlhacker,0.1)}).{25}/x;'
------------------------------
Date: Thu, 19 Apr 2001 05:54:44 -0000
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Using boundaries within regexps
Message-Id: <tdsvd4h73foceb@corp.supernews.com>
Bernard El-Hagin (bernard.el-hagin@lido-tech.net) wrote:
: Craig Berry <cberry@cinenet.net> wrote:
: ::George Adams (g_adams27@hotSPAMISBADmail.com) wrote:
: ::: Thanks to those who replied to my earlier question - using m/// in a list
: ::: context works well.
: ::
: :: s/\/\/\//\/\/
:
: Shouldn't that be:
:
: s/\/\/\//\/\//
Of course it should. That'll teach me to be clever. :P
--
| Craig Berry - http://www.cinenet.net/~cberry/
--*-- "When the going gets weird, the weird turn pro."
| - Hunter S. Thompson
------------------------------
Date: Wed, 18 Apr 2001 18:04:59 -0700
From: "B McDonald" <plz@righthere.com>
Subject: using Unicode::String -- ordinals
Message-Id: <vSqD6.38477$qv3.16827496@nnrp5-w.sbc.net>
Hi. I'm not all that familiar with character encodings but here's what I'm
trying to do and how I'm doing it:
I have a bunch of XML files that are apparently in UTF-8 format. The problem
is that they contain a lot of characters from the Latin-1 character set. For
example,
<name>Edén</name>
and
<address1>6ª Calle entre 3ª y 4ª Avenidas, Zona 1</address1>
These should be, respectively
Edén
and
6^o Calle entre 3^o y 4^o Avenidas, Zona 1
where "^o" represents an ordinal(?), superscript 'o', in spanish -- like
"6th floor between 3rd and 4th Avenues".
First I tried the transliteration algorithm provided in the ActivePerl docs:
perlunicode...
tr/\0-\x{FF}//UC; # UTF-8 to latin1 (8-bit)
This correctly transliterated most of the characters; however, the ordinals
got turned into these:
6ª Calle entre 3ª y 4ª Avenidas, Zona 1
Next, I tried Unicode::String like this:
use Unicode::String qw( utf8 );
...later...
# specify output format
Unicode::String->stringify_as('latin1');
...later...
my $str = utf8($_);
but, the same thing happened.
Does anyone know how I can properly convert these ordinal characters as well
as the other Latin-1 chars?
TIA,
Brian
------------------------------
Date: 19 Apr 2001 04:39:28 GMT
From: "bmm" <motivus_BLAHdiBLAH@hotmail.com>
Subject: Re: using Unicode::String -- ordinals
Message-Id: <9blq60$mqk@dispatch.concentric.net>
> 6^o Calle entre 3^o y 4^o Avenidas, Zona 1
>
> where "^o" represents an ordinal(?), superscript 'o', in spanish -- like
> "6th floor between 3rd and 4th Avenues".
>
I don't know if this part was clear.
"6^o" is my attempt to render a number 6 with a superscript letter "o"...
which, I guess, is the spanish translation of "6th".
brian
------------------------------
Date: Thu, 19 Apr 2001 02:07:33 GMT
From: Dan Baker <dan@nospam_dtbakerprojects.com>
Subject: Re: Windows Perl
Message-Id: <3ADE4720.3C5D8488@nospam_dtbakerprojects.com>
Sherry Carvalho wrote:
>
> Where can I get a simulator that runs Perl programs from a win32 pc.
-------
you can get perl for win98 at activestate.com, and I have had great luck
with the free webserver from Xitami.com for testing scripts on PC as a
localhost.
>
> please reply to hmust2@pitt.edu
-------
FYI, this is really impolite.... people expect you to take the time to
come back to the group and read the answers, and perhaps contribute
someday.
D
------------------------------
Date: Thu, 19 Apr 2001 16:44:20 +1000
From: "James Freeman" <jfreeman@tassie.net.au>
Subject: Re: Windows Perl
Message-Id: <2wvD6.6675$482.28141@newsfeeds.bigpond.com>
[cc to original poster and perl.misc]
Sherry Carvalho <slcarvalho@hotmail.com> wrote in message
news:3ADE1F47.1D7AA9D1@hotmail.com...
> Where can I get a simulator that runs Perl programs from a win32 pc. My
> OS is win98. I have acces to unix through telnet, but I have to get
> online in order to write or test my code. I'd rather not tie up my
> phone line if I don't have to.
>
> Thank you,
> Henry
As noted get an honest to goodness Perl interpreter from aActive State
http://www.activestate.com/ASPN/Downloads/ActivePerl/
As a bonus you get all the docs that go with perl bundled with this
distribution. All for free. Install it as per usual
To use under DOS ie in a DOS window you will need to set the path to the
Perl executable.
Type the following
C:\>path
you should get something like:
C:\>path
PATH=C:\WINDOWS;C:\WINDOWS\COMMAND;C:\PROGRAMFILES\MTS;D:\PERL\BIN;
C:\>
The important bit is D:\PERL\BIN
If you do not have this in your path statement, find the file perl.exe
START|FIND|FILES OR FOLDERS|perl.exe
It will probably be in C:\PERL\BIN on a standard system.
To permanently install this in your path edit the autoexec.bat file.
START|RUN|sysedit
If you don't permanently install this path you will need to type the
following each time you open a DOS window.
C:\>path %path%;c:\perl\bin
This adds c:\perl\bin to the path. DOS is case insensitive so......
Right, you are now ready to go. To run a perl file myscript.pl just type
C:\>perl myscript.pl
Hello World!
Soon to be a Perl Hacker!
C:\>
If by a simulator you mean a full blow windows GUI based IDE (Integrated
Development Environment) like Visual C++ etc the I recommend you try
Perl Builder 2 from Solution Soft. This prog includes support for debugging,
running and simulating CGI, and has a free 15 day trial version.
http://www.solutionsoft.com
Enough ads
Cheer
James
>
> please reply to hmust2@pitt.edu
>
------------------------------
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 710
**************************************
