[30143] in Perl-Users-Digest
Perl-Users Digest, Issue: 1386 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 24 03:10:16 2008
Date: Mon, 24 Mar 2008 00:09:06 -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, 24 Mar 2008 Volume: 11 Number: 1386
Today's topics:
Re: (trivial) unshift and shift vs push and pop <nospam-abuse@ilyaz.org>
new CPAN modules on Mon Mar 24 2008 (Randal Schwartz)
passing filename path with spaces to subs news2003@wanadoo.es
Re: passing filename path with spaces to subs <sandy_saydakov@yahoo.com>
Re: passing filename path with spaces to subs <see@sig.invalid>
Re: passing filename path with spaces to subs <benkasminbullock@gmail.com>
Re: passing filename path with spaces to subs <jurgenex@hotmail.com>
Re: problem starting perl script from cron environment <news@lawshouse.org>
Redirecting to my own login page instead of Apache Logi nahanfee@gmail.com
Re: strategys other than subroutine and OO? <No_4@dsl.pipex.com>
Re: strategys other than subroutine and OO? <szrRE@szromanMO.comVE>
Re: strawberry perl: Form method not found <RedGrittyBrick@SpamWeary.foo>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 23 Mar 2008 19:07:43 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: (trivial) unshift and shift vs push and pop
Message-Id: <fs69pv$1o6j$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Abigail
<abigail@abigail.be>], who wrote in article <slrnfub93u.e9.abigail@alexandra.abigail.be>:
> ;; If the allocated block is already full on the relevant side, though, I
> ;; suspect push() to be (much) more efficient than unshift() - at least if
> ;; standard malloc/re-alloc is used. Also, pop() and push() are the usual
> ;; names for stack operations, so if only for that reason you should
> ;; probably use them when modelling stacks.
> Perl uses its own malloc.
More often wrong than not.
> However, repeatedly pushing should be faster than repeated unshifting.
> Whenever the allocated memory for the (C) array of SV pointers is full (or
> when a boundary is reached), and the array increases beyond a boundary,
> Perl allocates new memory, and copies the pointers over. The new slice
> of memory will have about 20% surplus room - so an array can increases
> for a while before reallocating is needed again. But this surplus room
> will be at the end, so you can have many push()es before reallocating
> is needed, but not so many unshift()s.
??? This makes no sense.
If I read the current code (5.8.8) correct, unshift()ing may be slower
than push, since grow-for-unshift involves something realloc()ish,
then movement of pointers inside the C array. AND, unshift()ing may
be quickier than push, since it grows the C array in larger
increments.
Which tendency wins should depend on the details of the build of Perl.
Hope this helps,
Ilya
------------------------------
Date: Mon, 24 Mar 2008 04:42:18 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Mar 24 2008
Message-Id: <Jy7x2I.4AM@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Apache-AuthCAS-0.5
http://search.cpan.org/~dcastro/Apache-AuthCAS-0.5/
A configurable Apache authentication module that enables you to protect content on an Apache server using an existing Yale CAS authentication server.
----
App-Env-0.08
http://search.cpan.org/~djerius/App-Env-0.08/
manage application specific environments
----
App-Env-0.09
http://search.cpan.org/~djerius/App-Env-0.09/
manage application specific environments
----
Bio-FASTASequence-0.04
http://search.cpan.org/~reneeb/Bio-FASTASequence-0.04/
Perl extension for Bioinformatics. Parsing sequence informations.
----
Courier-Filter-v0.200
http://search.cpan.org/~jmehnle/Courier-Filter-v0.200/
Purely Perl-based mail filter framework for the Courier MTA
----
DBD-Pg-2.5.0
http://search.cpan.org/~turnstep/DBD-Pg-2.5.0/
PostgreSQL database driver for the DBI module
----
DBIx-StORM-0.08
http://search.cpan.org/~lukeross/DBIx-StORM-0.08/
Perl extension for object-relational mapping
----
Deliantra-Client-0.9966
http://search.cpan.org/~mlehmann/Deliantra-Client-0.9966/
----
Devel-Fail-MakeTest-1.011
http://search.cpan.org/~mthurn/Devel-Fail-MakeTest-1.011/
a distro that always fails the `make test` stage
----
Devel-TakeHashArgs-0.003
http://search.cpan.org/~zoffix/Devel-TakeHashArgs-0.003/
make a hash from @_ and set defaults in subs while checking that all mandatory arguments are present
----
GIS-Distance-Fast-0.02
http://search.cpan.org/~bluefeet/GIS-Distance-Fast-0.02/
C implementation of GIS::Distance formulas.
----
Geo-IP-1.31
http://search.cpan.org/~tjmather/Geo-IP-1.31/
Look up location and network information by IP Address
----
Geo-IP-PurePerl-1.19
http://search.cpan.org/~tjmather/Geo-IP-PurePerl-1.19/
Look up country by IP Address
----
HTML-Widgets-NavMenu-1.0200
http://search.cpan.org/~shlomif/HTML-Widgets-NavMenu-1.0200/
A Perl Module for Generating HTML Navigation Menus
----
Lingua-Jspell-1.50_05
http://search.cpan.org/~ambs/Lingua-Jspell-1.50_05/
Perl interface to the Jspell morphological analyser.
----
Module-Starter-Plugin-CGIApp-0.01
http://search.cpan.org/~jaldhar/Module-Starter-Plugin-CGIApp-0.01/
template based module starter for CGI apps.
----
Muldis-D-0.24.0
http://search.cpan.org/~duncand/Muldis-D-0.24.0/
Formal spec of Muldis D relational DBMS lang
----
NetHack-Menu-0.05
http://search.cpan.org/~sartak/NetHack-Menu-0.05/
interact with NetHack's menus
----
POE-0.9999_03
http://search.cpan.org/~rcaputo/POE-0.9999_03/
portable multitasking and networking framework for Perl
----
POE-Component-IRC-Plugin-WWW-OhNoRobotCom-Search-0.001
http://search.cpan.org/~zoffix/POE-Component-IRC-Plugin-WWW-OhNoRobotCom-Search-0.001/
search http://ohnorobot.com/ website from IRC
----
POE-Component-WebService-HtmlKitCom-FavIconFromImage-0.001
http://search.cpan.org/~zoffix/POE-Component-WebService-HtmlKitCom-FavIconFromImage-0.001/
non-blocking wrapper around WebService::HtmlKitCom::FavIconFromImage
----
Parse-Marpa-0.205_003
http://search.cpan.org/~jkegl/Parse-Marpa-0.205_003/
(Alpha) Earley's algorithm with LR(0) precomputation
----
RT-Client-Console-0.1.0
http://search.cpan.org/~dams/RT-Client-Console-0.1.0/
Text based RT console
----
TM-1.33
http://search.cpan.org/~drrho/TM-1.33/
Topic Maps, Base Class
----
Text-SenseClusters-0.96
http://search.cpan.org/~tpederse/Text-SenseClusters-0.96/
----
Tie-File-AnyData-MultiRecord_CSV-0.01
http://search.cpan.org/~motif/Tie-File-AnyData-MultiRecord_CSV-0.01/
Accessing groups of CSV records in a file via a Perl array.
----
WWW-Pastebin-CSSStandardsOrg-Create-0.001
http://search.cpan.org/~zoffix/WWW-Pastebin-CSSStandardsOrg-Create-0.001/
create new pastes on http://paste.css-standards.org/ website
----
WWW-Pastebin-PastebinCa-Create-0.001
http://search.cpan.org/~zoffix/WWW-Pastebin-PastebinCa-Create-0.001/
create new pastes on http://pastebin.ca/ from Perl
----
WWW-Pastebin-PastebinCom-Create-0.001
http://search.cpan.org/~zoffix/WWW-Pastebin-PastebinCom-Create-0.001/
paste to <http://pastebin.com> from Perl.
----
WWW-Pastebin-PastebinCom-Retrieve-0.002
http://search.cpan.org/~zoffix/WWW-Pastebin-PastebinCom-Retrieve-0.002/
retrieve pastes from http://pastebin.com/ website
----
WWW-Pastebin-PhpfiCom-Create-0.001
http://search.cpan.org/~zoffix/WWW-Pastebin-PhpfiCom-Create-0.001/
create new pastes on http://phpfi.com/ pastebin site
----
WWW-Pastebin-RafbNet-Create-0.001
http://search.cpan.org/~zoffix/WWW-Pastebin-RafbNet-Create-0.001/
create new pastes on http://rafb.net/
----
WWW-Search-2.498
http://search.cpan.org/~mthurn/WWW-Search-2.498/
Virtual base class for WWW searches
----
WWW-Search-Search-1.010
http://search.cpan.org/~mthurn/WWW-Search-Search-1.010/
class for searching www.search.com
----
WebService-HtmlKitCom-FavIconFromImage-0.001
http://search.cpan.org/~zoffix/WebService-HtmlKitCom-FavIconFromImage-0.001/
generate favicons from images on http://www.html-kit.com/favicon/
----
Win32-API-0.55
http://search.cpan.org/~cosimo/Win32-API-0.55/
Perl Win32 API Import Facility
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Sun, 23 Mar 2008 18:09:41 -0700 (PDT)
From: news2003@wanadoo.es
Subject: passing filename path with spaces to subs
Message-Id: <6d6539ba-bb2c-49d2-bc12-3dfcecc9d515@c19g2000prf.googlegroups.com>
I have a basic question. It has to do with the way I pass files with
spaces. I have two versions of the same code. once calls $exifTool-
>ExtractInfo($file) directly as argument from the command line.
perl extract.pl /home/john/pictures 2/15.jpg
with the code like:
my $file = $ARGV[0];
# Create a new Image::ExifTool object
my $exifTool = new Image::ExifTool;
# Extract meta information from image
$exifTool->ExtractInfo($file);
The second version is taking the code from a file
perl extract2.pl fdir.output.txt
being the code in this case:
open( FILE, "< $filename" ) or die "Can't open $filename : $!";
foreach my $line ( <FILE> ) {
chomp ($line);
print $line."\t";
extractInfo("$line");
}
close FILE;
# read information on files
sub extractInfo(){
my $file = "@_";
# Create a new Image::ExifTool object
my $exifTool = new Image::ExifTool;
# Extract meta information from image
#$exifTool->ExtractInfo($file);
the input file on the second case is like this
/home/john/pictures/49.jpg
/home/john/pictures 2/15.jpg
The first file works fine but the second fails, I reckon is due to the
spacein the name. It seems that when I call the script with the file
name as argument works fine (independently of the presence of the
space) but when I try to back the process using a file with the file
location the process fails if the file name contains spaces on the
path. My Linux box parse the file fine but not when it comes directly
from the file. I have tried to escape the space with \ but get the
same result.
Any ideas?
Thanks in advance for your help
John
------------------------------
Date: Sun, 23 Mar 2008 20:22:22 -0700 (PDT)
From: Sandy <sandy_saydakov@yahoo.com>
Subject: Re: passing filename path with spaces to subs
Message-Id: <6dcab5e3-b858-44a3-96a8-852a80a2a847@s19g2000prg.googlegroups.com>
On Mar 23, 6:09 pm, news2...@wanadoo.es wrote:
> I have a basic question. It has to do with the way I pass files with
> spaces.
This has nothing to do with Perl. Just quote your argument so the
shell would not break it into two arguments:
--- t.pl ---
#!/usr/bin/perl -w
use strict;
my $first = $ARGV[0];
my $second = $ARGV[1] || '';
print "First: '$first'\n";
print "Second: '$second'\n";
---
no quotes
> ./t.pl blah blah
First: 'blah'
Second: 'blah'
quotes
> ./t.pl "blah blah"
First: 'blah blah'
Second: ''
/sandy
http://myperlquiz.com/
------------------------------
Date: Sun, 23 Mar 2008 22:33:04 -0500
From: Bob Walton <see@sig.invalid>
Subject: Re: passing filename path with spaces to subs
Message-Id: <47e72182$0$4951$4c368faf@roadrunner.com>
news2003@wanadoo.es wrote:
> I have a basic question. It has to do with the way I pass files with
> spaces. I have two versions of the same code. once calls $exifTool-
>> ExtractInfo($file) directly as argument from the command line.
>
> perl extract.pl /home/john/pictures 2/15.jpg
>
> with the code like:
>
> my $file = $ARGV[0];
The above will assign "/home/john/pictures" to $ARGV[0] and
"2/15.jpg" to $ARGV[1]. If you don't believe me, try:
C:\junk>perl -e "print $ARGV[0]" /home/john/pictures 2/15.jpg
/home/john/pictures
C:\junk>
Thus, this example will not "work" in the sense that it will process file
"/home/john/pictures"
rather than the intended
"/home/john/pictures 2/15.jpg"
This is true on Windows and Linux/UNIX -- but you didn't really say what
your platform is.
>
> # Create a new Image::ExifTool object
> my $exifTool = new Image::ExifTool;
>
> # Extract meta information from image
> $exifTool->ExtractInfo($file);
>
> The second version is taking the code from a file
> perl extract2.pl fdir.output.txt
>
> being the code in this case:
>
> open( FILE, "< $filename" ) or die "Can't open $filename : $!";
>
> foreach my $line ( <FILE> ) {
> chomp ($line);
> print $line."\t";
> extractInfo("$line");
> }
>
> close FILE;
>
> # read information on files
> sub extractInfo(){
> my $file = "@_";
This line would be much better written as:
my $file=shift;
>
> # Create a new Image::ExifTool object
> my $exifTool = new Image::ExifTool;
>
> # Extract meta information from image
> #$exifTool->ExtractInfo($file);
>
> the input file on the second case is like this
> /home/john/pictures/49.jpg
> /home/john/pictures 2/15.jpg
>
> The first file works fine but the second fails, I reckon is due to the
> spacein the name. It seems that when I call the script with the file
> name as argument works fine (independently of the presence of the
> space) but when I try to back the process using a file with the file
> location the process fails if the file name contains spaces on the
> path. My Linux box parse the file fine but not when it comes directly
> from the file. I have tried to escape the space with \ but get the
> same result.
The above should work fine. You say it fails, but a simplified version
of it works fine for me. Why do you think it fails? Do you get an
error message? If so, what, exactly, does it say? Is there any chance
there is extraneous whitespace at the end of the second line of file
fdir.output.txt? If so, that would cause the file not to be found.
Here is my simplified version:
C:\junk>type junk597.pl
use warnings;
use strict;
my $filename=$ARGV[0];
open(FILE,"< $filename") or die "Can't open $filename, $!";
for my $line(<FILE>){
chomp $line;
print $line."\n";
mysub($line);
}
close FILE;
sub mysub{
my $file="@_";
print "in mysub, \$file is:$file:\n";
}
C:\junk>type junk597a.txt
/home/john/pictures/49.jpg
/home/john/pictures 2/15.jpg
C:\junk>perl junk597.pl junk597a.txt
/home/john/pictures/49.jpg
in mysub, $file is:/home/john/pictures/49.jpg:
/home/john/pictures 2/15.jpg
in mysub, $file is:/home/john/pictures 2/15.jpg:
C:\junk>
HTH
...
> John
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Sun, 23 Mar 2008 20:37:41 -0700 (PDT)
From: Ben Bullock <benkasminbullock@gmail.com>
Subject: Re: passing filename path with spaces to subs
Message-Id: <24ea4873-76aa-4b9b-88ac-cda02d5f45af@u10g2000prn.googlegroups.com>
On Mar 24, 12:22 pm, Sandy <sandy_sayda...@yahoo.com> wrote:
> On Mar 23, 6:09 pm, news2...@wanadoo.es wrote:
>
> > I have a basic question. It has to do with the way I pass files with
> > spaces.
>
> This has nothing to do with Perl.
Excuse me for saying so, Sandy, but I'm not sure whether you read the
original poster's question carefully. His problem is with the second
script, and it is a purely Perl problem.
------------------------------
Date: Mon, 24 Mar 2008 06:18:05 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: passing filename path with spaces to subs
Message-Id: <a1heu3dd1513tm2g4i1a64b3ioivcldt8j@4ax.com>
news2003@wanadoo.es wrote:
>I have a basic question. It has to do with the way I pass files with
>spaces. I have two versions of the same code. once calls $exifTool-
>>ExtractInfo($file) directly as argument from the command line.
>
>perl extract.pl /home/john/pictures 2/15.jpg
Your shell will break this line down into 4 elements:
- perl
- extract.pl
- /home/john/pictures
- 2/15.jpg
If you want only three elements then you will have to tell your shell that
the last space is part of the third element rather than a separator,
typically by enclosing the element in quotes.
>being the code in this case:
>
>open( FILE, "< $filename" ) or die "Can't open $filename : $!";
I can't reproduce your problem. This line opens a file just fine, even if
the name contains a space.
jue
------------------------------
Date: Sun, 23 Mar 2008 13:01:59 +0000
From: Henry Law <news@lawshouse.org>
Subject: Re: problem starting perl script from cron environment - ps: don't know which terminal to select
Message-Id: <1206277318.10734.0@proxy01.news.clara.net>
Micha wrote:
>> Perhaps your ksh startup file calls it.....
>
> no it doesn't ;) - still wondering why, currently I'm using a
You say that, and indeed you may be right, but I'd encourage you to look
at it again, since it seems to be the most likely cause of a call to a
system utility which you've not coded. Remember that cron runs in quite
a different environment to that in your terminal: it has its own set of
environment variables, for example, and (I presume) could also have its
own shell startup script.
BTW unless it turns back into a Perl error pretty soon we should stop
discussing in comp.lang.perl.misc! Set followups if appropriate.
--
Henry Law Manchester, England
------------------------------
Date: Sun, 23 Mar 2008 21:22:04 -0700 (PDT)
From: nahanfee@gmail.com
Subject: Redirecting to my own login page instead of Apache Login
Message-Id: <a24cfd34-87ab-4597-aefa-435e73202828@s13g2000prd.googlegroups.com>
Hello,
I made one login page (in cgi perl) which authenticates the user using
Ldap data. It is working fine.
Now I want to prevent the Apache web server User authentication page
to display and use my login page instead.
The idea is I am redirecting to the restricted folder (directory) only
if the authentication made.
But if user itself type the URL of that directory it is showing Apache
login page.
I am new in CGI and apache web configuration things.
any help will be appreciable
Thanks in advance
------------------------------
Date: Mon, 24 Mar 2008 01:53:33 +0000
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: strategys other than subroutine and OO?
Message-Id: <89ednTXFZrMDlHranZ2dnUVZ8sSrnZ2d@pipex.net>
Various people wrote various parts of:
>
> I think that has also to do with what you're used to. with last, next,
> etc. the direction is in the keyword.
The direction might be, but the location isn't if you don't use a label (and
with thise you don't need to). At least goto's always have a label.
> With goto, you have to pick a clear
> label. I see no difference between:
>
> last DOING_THIS;
>
> goto DONE_THIS;
Agreed, but there can be a difference between:
last;
and
got to DONE_THIS;
and...
> more readable than
>
> while (<>) {
> some_code();
> if ($x) {
> more_code();
> if ($y) {
> even_more_code();
> if ($z) {
> if_all_goes_well();
> }
> }
> }
> }
a) I would never use tabs (which is what are there in the copy I received) -
they are an abomination, since they can mean different things to different
people, and hence any alignment they produce is fragile
b) as for the code, that's why elsif exists:
while (<>) {
some_code();
if ($x) {
more_code();
}
elsif ($y) {
even_more_code();
}
elsif ($z) {
if_all_goes_well();
}
}
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: Sun, 23 Mar 2008 22:46:32 -0700
From: "szr" <szrRE@szromanMO.comVE>
Subject: Re: strategys other than subroutine and OO?
Message-Id: <fs7f7p02ri9@news3.newsguy.com>
Big and Blue wrote:
[...]
>
>> With goto, you have to pick a clear
>> label. I see no difference between:
>>
>> last DOING_THIS;
>>
>> goto DONE_THIS;
>
> Agreed, but there can be a difference between:
>
> last;
> and
> got to DONE_THIS;
>
I believe the comparison for goto vs. next/last/redo is concerned where
the latters use labels; to me that's where they are most similar to
'goto'.
[...]
> a) I would never use tabs (which is what are there in the copy I
> received) - they are an abomination, since they can mean different
> things to different people, and hence any alignment they produce is
> fragile
Indeed, especially in a widely used plain-text medium such as UseNet and
even plain-text email. Tabs can easily differ in size depending on the
platform, editor, the font, and the font size, and it gets even messier
if you compare news readers that use a fixed-width font (I think
majority still do) vs. ones that use a proportional font. At least for
UseNet, spaces should always be used instead of raw tabs.
Many readers (like the one I'm using right now), when composing, will
yields a certain about of spaces, predefined in the preferences, when
you hit the TAB key.
> b) as for the code, that's why elsif exists:
>
> while (<>) {
> some_code();
> if ($x) {
> more_code();
> }
> elsif ($y) {
> even_more_code();
> }
> elsif ($z) {
> if_all_goes_well();
> }
> }
Actually it would have to read like:
while (<>) {
some_code();
if ($x) {
more_code();
}
elsif ($x && $y) {
even_more_code();
}
elsif ($x && $y && $z) {
if_all_goes_well();
}
}
in order to equate to:
while (<>) {
some_code();
if ($x) {
more_code();
if ($y) {
even_more_code();
if ($z) {
if_all_goes_well();
}
}
}
}
--
szr
------------------------------
Date: Sun, 23 Mar 2008 10:35:19 +0000
From: RedGrittyBrick <RedGrittyBrick@SpamWeary.foo>
Subject: Re: strawberry perl: Form method not found
Message-Id: <bdCdnZ03Lrr2r3vaRVnyggA@bt.com>
Nospam wrote:
> I am trying to use Strawberry perl, and it says form method cannot be found,
> from cpan within strawberry perl it says HTML::Form is uptodate, is this a
> known issue?
>
>
http://groups.google.com/group/comp.lang.perl.misc/msg/08732dc1e0fcc9aa
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 1386
***************************************
