[19820] in Perl-Users-Digest
Perl-Users Digest, Issue: 2015 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 26 09:06:36 2001
Date: Fri, 26 Oct 2001 06:05:13 -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: <1004101513-v10-i2015@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 26 Oct 2001 Volume: 10 Number: 2015
Today's topics:
$ENV not defined <lars.snith@inpactmicro.com>
Re: $ENV not defined <josef.moellers@fujitsu-siemens.com>
Re: $ENV not defined <jurgenex@hotmail.com>
Re: $ENV not defined <mgjv@tradingpost.com.au>
Re: $ENV not defined <lars.snith@inpactmicro.com>
$image${number} = "selected"; Doesn't work, what will? (Bob)
Re: $image${number} = "selected"; Doesn't work, what wi <mgjv@tradingpost.com.au>
Re: Automated html index ? <leary@foad.NOSPAM.org>
Re: beginner: leading zerro function <tim@vegeta.ath.cx>
Re: beginner: leading zerro function <bernard.el-hagin@lido-tech.net>
Re: beginner: leading zerro function <tim@vegeta.ath.cx>
Re: getting %errorlevel% values with perl? <e_kelleher@hotmail.com>
Re: how to call a sub from anywhere? <tsee@gmx.net>
Local/CGI help please (Stefan)
Re: Need script or tool to create function call lists <goldbb2@earthlink.net>
Re: Need script or tool to create function call lists <edgue@web.de>
Re: NEWBIE: double sort on a string <please@no.spam>
Re: NEWBIE: double sort on a string <goldbb2@earthlink.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 26 Oct 2001 10:57:53 +0200
From: Lars Snith <lars.snith@inpactmicro.com>
Subject: $ENV not defined
Message-Id: <3BD92591.99DD40D9@snith.nu>
Hello All,
Moving our private site from a webhotel to a
virtual web server (Apache on Linux) I noted that
some of the scripts did no longer run correctly.
I traced the problems to the $ENV variable that
is undefined.
Code:
print "At $date, $ENV{'REMOTE_HOST'} came here from <a
href=\"$ENV{'HTTP_REFERER'}\">$ENV{'HTTP_REFERER'}</a> using
$ENV{'HTTP_USER_AGENT'}.\n";
LOG using -w:
Use of uninitialized value at snok.pl line 117.
Use of uninitialized value at snok.pl line 117.
Use of uninitialized value at snok.pl line 117.
Probably this is due to the "virtuality", but I do
not immediately know how to work around it. Any ideas?
Lars Snith
------------------------------
Date: Fri, 26 Oct 2001 12:05:50 +0200
From: Josef =?iso-8859-1?Q?M=F6llers?= <josef.moellers@fujitsu-siemens.com>
Subject: Re: $ENV not defined
Message-Id: <3BD9357E.10795C6A@fujitsu-siemens.com>
Lars Snith wrote:
> =
> Hello All,
> =
> Moving our private site from a webhotel to a
> virtual web server (Apache on Linux) I noted that
> some of the scripts did no longer run correctly.
> I traced the problems to the $ENV variable that
> is undefined.
> =
> Code:
> print "At $date, $ENV{'REMOTE_HOST'} came here from <a
> href=3D\"$ENV{'HTTP_REFERER'}\">$ENV{'HTTP_REFERER'}</a> using
> $ENV{'HTTP_USER_AGENT'}.\n";
> =
> LOG using -w:
> Use of uninitialized value at snok.pl line 117.
> Use of uninitialized value at snok.pl line 117.
> Use of uninitialized value at snok.pl line 117.
> =
> Probably this is due to the "virtuality", but I do
> not immediately know how to work around it. Any ideas?
Have you looked at
use "CGI";
-- =
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: Fri, 26 Oct 2001 04:13:25 -0700
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: $ENV not defined
Message-Id: <3bd94557@news.microsoft.com>
"Lars Snith" <lars.snith@inpactmicro.com> wrote in message
news:3BD92591.99DD40D9@snith.nu...
> Hello All,
>
> Moving our private site from a webhotel to a
> virtual web server (Apache on Linux) I noted that
> some of the scripts did no longer run correctly.
> I traced the problems to the $ENV variable that
> is undefined.
Careful. You need to distinguish between %ENV, $ENV, and $ENV{xxx}
%ENV is defined. $ENV has nothing to do with your problem
> Code:
> print "At $date, $ENV{'REMOTE_HOST'} came here from <a
> href=\"$ENV{'HTTP_REFERER'}\">$ENV{'HTTP_REFERER'}</a> using
> $ENV{'HTTP_USER_AGENT'}.\n";
>
> LOG using -w:
> Use of uninitialized value at snok.pl line 117.
> Use of uninitialized value at snok.pl line 117.
> Use of uninitialized value at snok.pl line 117.
>
> Probably this is due to the "virtuality", but I do
> not immediately know how to work around it. Any ideas?
This is not surprising. Not all browsers set those values.
But you can easily check if the values exist, see
perldoc -f exists
perldoc -f defined
jue
------------------------------
Date: Fri, 26 Oct 2001 21:29:39 +1000
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: $ENV not defined
Message-Id: <slrn9tii93.23f.mgjv@martien.heliotrope.home>
On Fri, 26 Oct 2001 10:57:53 +0200,
Lars Snith <lars.snith@inpactmicro.com> wrote:
> Hello All,
>
> Moving our private site from a webhotel to a
> virtual web server (Apache on Linux) I noted that
> some of the scripts did no longer run correctly.
> I traced the problems to the $ENV variable that
> is undefined.
>
> Code:
> print "At $date, $ENV{'REMOTE_HOST'} came here from <a
> href=\"$ENV{'HTTP_REFERER'}\">$ENV{'HTTP_REFERER'}</a> using
> $ENV{'HTTP_USER_AGENT'}.\n";
>
> LOG using -w:
> Use of uninitialized value at snok.pl line 117.
> Use of uninitialized value at snok.pl line 117.
> Use of uninitialized value at snok.pl line 117.
That's not the $ENV variable, but the %ENV hash, the keys of which
represent the environment variables that were set when your program
started [1]. What the environment of the program is, and what the values
of the variables are is up to the calling environment, and the calling
environment alone. In this case that is the web server.
You should first of all talk to your ISP about this, and ask them what
they use, and how it's configured. Then, you find a Usenet group that
talks about your particular server, and you aks the question there.
\begin{offtopic}
My best guess, and because this is so terribly offtopic, that guess
should be worth nothing, is that your server doesn't do reverse DNS
lookups, and consequently doesn't set REMOTE_HOST (some servers do, some
don't), or that HTTP_REFERER isn't set, because the client doesn't set
it, the server doesn't offer it, or the user didn't come from 'somewhere
else', or the client doesn't offer any user agent information.
No decent CGI program would assume any of these three to be set.
\end{offtopic}
Martien
[1] Leaving aside any manipulations of the environment you did after
that.
--
|
Martien Verbruggen | We are born naked, wet and hungry.
| Then things get worse.
|
------------------------------
Date: Fri, 26 Oct 2001 14:03:28 +0200
From: Lars Snith <lars.snith@inpactmicro.com>
Subject: Re: $ENV not defined
Message-Id: <3BD95110.DBCB53B6@inpactmicro.com>
OK, OK!
Thanks for the help on the matter, off-topic or not.
The records are truly not in the %ENV hash.
I have also tried out the server at:
http://zonecheck.ipsec.se/
and there is no reverse PTR, so this seem to be a
very plausible explanation.
As for netiquette, I suspected this might be a basic
question, even if I never visited the group before,
and have only very basic knowledge about Perl.
But reading up on the subject takes time, and I needed
to find a quick way to stop a galloping errorlog,
the site has 4000 visitors a day.
My apologies.
Lars Snith
------------------------------
Date: Fri, 26 Oct 2001 03:02:14 -0700
From: null@null.com (Bob)
Subject: $image${number} = "selected"; Doesn't work, what will?
Message-Id: <null-2610010302140001@user128.lwpw-01.cwia.com>
I am trying to write a script to display 100+ sequential images. I want to
give the viewer the option to jump to an image out of sequence. I've seen
scripts at the script archives that do this through a field into which one
types the number of the page. I would prefer a pull down menu. I want the
menu to be set to the image being viewed.
My idea so far is to print all the options as so:
print <<EOF;
<select name="image">
<option value="1" $image1 >1</option>
<option value="2" $image2 >2</option>
<option value="3" $image3 >3</option>
(etc)
</select>
EOF
and then assign the value of "selected" to the $image# which is the
current image. The other $image# entries would be undefined and nothing
would be printed.
My idea is not currently working because I cannot succesfully assign the
value of "selected" to the variable. The current image will be assigned to
the variable $number and passed to the script. I cannot then use that as I
wish and would appreciate any help.
I have tried:
$image${number} = "selected";
and other variations of that.
------------------------------
Date: Fri, 26 Oct 2001 21:57:04 +1000
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: $image${number} = "selected"; Doesn't work, what will?
Message-Id: <slrn9tijsf.23f.mgjv@martien.heliotrope.home>
On Fri, 26 Oct 2001 03:02:14 -0700,
Bob <null@null.com> wrote:
> I am trying to write a script to display 100+ sequential images. I want to
> give the viewer the option to jump to an image out of sequence. I've seen
> scripts at the script archives that do this through a field into which one
> types the number of the page. I would prefer a pull down menu. I want the
> menu to be set to the image being viewed.
It's a bad, bad idea to have a pulldown menu with 100 entries. BAD!
> My idea so far is to print all the options as so:
>
> print <<EOF;
><select name="image">
><option value="1" $image1 >1</option>
><option value="2" $image2 >2</option>
><option value="3" $image3 >3</option>
> (etc)
></select>
> EOF
>
> and then assign the value of "selected" to the $image# which is the
> current image. The other $image# entries would be undefined and nothing
> would be printed.
>
> My idea is not currently working because I cannot succesfully assign the
> value of "selected" to the variable. The current image will be assigned to
> the variable $number and passed to the script. I cannot then use that as I
> wish and would appreciate any help.
>
> I have tried:
>
> $image${number} = "selected";
>
> and other variations of that.
Don't even go there. You do not want to know how to do what you think
you need to do. Trust me, you do not want to know it. No. I am not
telling you. No. If you think you want to know anyway, look up symref
(symbolic reference) in the archives of this group [1].
What you want to do is (untested code follows):
# Somehow, get thgis information:
my $n_images = 100;
my $active_image = 23;
# And then, to print the enormously long pulldown:
print qq(<select name="image">);
for my $i (1 .. $n_images)
{
printf qq(<option value="$i"%s>$i</option>),
$i == $active_image ? " selected" : "";
}
print qq(<select>);
Or, even better, use CGI:
print popup_menu(-name => "image",
-values => [(1 .. $n_images)],
-default => $active_image);
The last option really is the best. It takes a lot of the pain of HTML
out of this sort of thing, especially if your program happens to be a
CGI program.
Martien
[1] Normally the answer is that you don't want to do it, instead you
need to use a hash. In this case, however, that's not true.
--
|
Martien Verbruggen | That's not a lie, it's a
| terminological inexactitude.
|
------------------------------
Date: Fri, 26 Oct 2001 06:49:41 -0500
From: "Leary" <leary@foad.NOSPAM.org>
Subject: Re: Automated html index ?
Message-Id: <f2cC7.51808$6i7.6315150@e420r-atl1.usenetserver.com>
"David Efflandt" <efflandt@xnet.com> wrote in message
> On Thu, 25 Oct 2001 10:10:07 -0500, Leary <Leary@foad.org> wrote:
> > Is it feasible to use perl to create an index of html docs in a given
dir? I
> > need to include info from the title field and an updated field within
each
> > html doc in the index.
>
> See pub/dirindex.txt in either bottom URL in my sig. I use that as
> index.cgi (included in DirectoryIndex list) to list files in those
> directories because they have Indexing disabled there. Other replies
> should help you add the code to parse the pages for the title.
>
> To get the modification time just do a $mtime = (stat($file))[9]; on each
> file and crank $mtime into localtime(), gmtime() or strftime in the POSIX
> module. For example scalar gmtime($mtime) would give you a typical Unix
> like date in GMT.
>
> --
> David Efflandt - All spam is ignored - http://www.de-srv.com/
> http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
> http://cgi-help.virtualave.net/ http://hammer.prohosting.com/~cgi-wiz/
While this provides a wealth of information and code to play with, I need to
get the "title" and "updated" info from within each html doc, not the file
mod time. I could really use a working example of using the HTML::Parser or
other routine. I played with HTML::Parser quite a while yesterday and am not
having much luck so far.
------------------------------
Date: Fri, 26 Oct 2001 10:57:10 GMT
From: Tim Hammerquist <tim@vegeta.ath.cx>
Subject: Re: beginner: leading zerro function
Message-Id: <slrn9tih7n.dbr.tim@vegeta.ath.cx>
Me parece que Philip Newton <pne-news-20011025@newton.digitalspace.net> dijo:
> On Wed, 24 Oct 2001 22:32:01 GMT, Tim Hammerquist <tim@vegeta.ath.cx>
> wrote:
>
> > $ perl -
> ^
> Don't really need that.
True. It seems I use the '-' for a similar reason to your __END__.
Explicitness (is that a word?) Then again, it might come under the
ever-present "useless use of $something", eg:
$ cat textfile.txt | more
instead of
$ more textfile.txt
(for Win32 users)
C:\> type textfile.txt | more
instead of
C:\> more textfile.txt
> (And I like typing __END__ to finish off rather than ^D. Personal
> preference, I suppose, and partly because I test on Win98 and it doesn't
> always seem to like ^Z for end-of-file.)
Really? I never had a problem with that back when I used Win98.
Win98SE, ActivePerl 5.005_03 (forget the release number), and usually
cygwin b20 but also COMMAND.COM prompt.
> Cheers,
> Philip
Tim
--
Emacs is a nice OS - but it lacks a good text editor.
That's why I am using Vim.
-- Anonymous
------------------------------
Date: 26 Oct 2001 11:01:19 GMT
From: Bernard El-Hagin <bernard.el-hagin@lido-tech.net>
Subject: Re: beginner: leading zerro function
Message-Id: <slrn9tig7b.3nk.bernard.el-hagin@gdndev25.lido-tech>
On Fri, 26 Oct 2001 10:57:10 GMT, Tim Hammerquist <tim@vegeta.ath.cx> wrote:
> Me parece que Philip Newton <pne-news-20011025@newton.digitalspace.net> dijo:
>> On Wed, 24 Oct 2001 22:32:01 GMT, Tim Hammerquist <tim@vegeta.ath.cx>
>> wrote:
>>
>> > $ perl -
>> ^
>> Don't really need that.
>
> True. It seems I use the '-' for a similar reason to your __END__.
> Explicitness (is that a word?)
That's not really a Perl question, but yes, "explicitness" is a word,
although an arguably cumbersome one.
;-)
Cheers,
Bernard
------------------------------
Date: Fri, 26 Oct 2001 11:47:54 GMT
From: Tim Hammerquist <tim@vegeta.ath.cx>
Subject: Re: beginner: leading zerro function
Message-Id: <slrn9tik6q.e6j.tim@vegeta.ath.cx>
Me parece que Bernard El-Hagin <bernard.el-hagin@lido-tech.net> dijo:
> On Fri, 26 Oct 2001 10:57:10 GMT, Tim Hammerquist <tim@vegeta.ath.cx> wrote:
> > Me parece que Philip Newton <pne-news-20011025@newton.digitalspace.net> dijo:
> >> On Wed, 24 Oct 2001 22:32:01 GMT, Tim Hammerquist <tim@vegeta.ath.cx>
> >> wrote:
> >>
> >> > $ perl -
> >> ^
> >> Don't really need that.
> >
> > True. It seems I use the '-' for a similar reason to your __END__.
> > Explicitness (is that a word?)
>
> That's not really a Perl question, but yes, "explicitness" is a word,
> although an arguably cumbersome one.
>
> ;-)
You see? I post an _off-topic_ question, adding several kbytes to the
clpm archives to find out something I could've solved thus:
$ grep explicitness /usr/dict/words
What's wrong with me?
Oops. I did it again. =)
Thanx.
> Cheers,
> Bernard
Tim
--
Windows - what do you want to crash today?
------------------------------
Date: Fri, 26 Oct 2001 08:42:24 -0400
From: ek <e_kelleher@hotmail.com>
Subject: Re: getting %errorlevel% values with perl?
Message-Id: <3BD95A30.4F182345@hotmail.com>
David
Tha's exactly what I'm looking to catch (the 2 value that echo %errorlevel%
returns after the dir rubbish) and cannot with perl. If, as I said, I do it
with a batch file it returns 2 from echo %errorlevel% but perl returns
zero. At the moment the only way I can get around it is to call a 2-line
batch file with perl but if at all possible I need to get away from any
dependency on batch files to make it portable to Solaris.
Thanks for your help and suggestions up to now,
Eoghan
David Wall wrote:
> ek <e_kelleher@hotmail.com> wrote on 25 Oct 2001:
>
> > I have tried getting values for $?, $EXTENDED_OS_ERROR, $!, and
> > $EVAL_ERROR all without any success at all with system() and ` ` None
> > of them will return the %errorlevel% of 1 I get from the command
> > prompt or from batch files. Any ideas?
>
> So what DO you get? 256?
>
> my $returned_text = `dir rubbish`;
> print $? / 256;
>
> on my system (WinNT4) prints out 2. (rubbish as a file or dir name
> doesn't exist on my computer.)
>
> c:\> dir rubbish
> c:\> echo %errorlevel%
>
> also prints 2.
>
> --
> David Wall
> darkon@one.net
------------------------------
Date: Fri, 26 Oct 2001 14:58:45 +0200
From: "Steffen Müller" <tsee@gmx.net>
Subject: Re: how to call a sub from anywhere?
Message-Id: <9rbmiq$6gf$02$1@news.t-online.com>
"jimbo" <jimbo@soundimages.co.uk> schrieb im Newsbeitrag
news:ji1C7.212$l57.1328@NewsReader...
| "Steffen Müller" <tsee@gmx.net> wrote
|
| > Better yet if you want to append something to a var:
|
| He could RTFM. Why do you accept such waste for such simplicity?
|
| jimbo
| ;-)
I realized that only telling people to RTFM is not going to make the RTFM,
but piss them off instead. True, yeah, they should've known beforehand, but
they're more likely to learn if you tell them nicely and give them what they
ask for.
Well, sometimes I cannot resist the urge to trash them either ;)
Steffen
--
$_=q;33352987319029872958319011313364356732192639127636833335345138283712
3712336415083973397340602842912;;s;\n;;;print"\n";$o=$_;push@o,substr($o,
$_*4,4)for(0..24);pop@o;for(@o){$i++;print' 'x(26-$i).(chr$_/29-$i)."\n"}
------------------------------
Date: 26 Oct 2001 04:21:36 -0700
From: sjoris@rocketmail.com (Stefan)
Subject: Local/CGI help please
Message-Id: <ecc85a3a.0110260321.32567ca3@posting.google.com>
I use win32::driveinfo::drivespace to check used/available disk space
on a bunch of server volumes.
Following script works perfectly from command prompt and displays
drivespace info array; ex 3709337600104857600003709337600.
#!c:/perl/bin/perl
use win32::DriveInfo;
use CGI qw(:all);
print "Content-type: text/plain\r\n\r\n";
$ServerName="myserver";
print Win32::DriveInfo::DriveSpace("\\\\$ServerName\\data");
However, in web browser nothing is displayed.
My troubleshooting steps so far..
- use lib...
- moving win32 libfolder would give error, so module was found
- enable perl option -U
Any help would be appreciated!!
------------------------------
Date: Fri, 26 Oct 2001 03:14:50 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Need script or tool to create function call lists
Message-Id: <3BD90D6A.8D43E437@earthlink.net>
Larry Wilson wrote:
>
> Anybody know of a perl script (or other unix tool) to analyze a bunch
> of C/C++ source code files to create function call diagrams or lists
> of function calls automatically? Something like this (where
> functionFoo is called by functionABC, which is called by funcXYZ, and
> so on)...
perldoc B::Xref
--
Klein bottle for rent - inquire within.
------------------------------
Date: Fri, 26 Oct 2001 09:52:50 +0200
From: Edwin =?iso-8859-1?Q?G=FCnthner?= <edgue@web.de>
Subject: Re: Need script or tool to create function call lists
Message-Id: <3BD91652.55D180A2@web.de>
Hi,
> > Anybody know of a perl script (or other unix tool) to analyze a bunch
> > of C/C++ source code files to create function call diagrams or lists
^^^^^^^
> perldoc B::Xref
Says:
"The B::Xref module is used to generate a cross reference listing of
all definitions and uses of variables, subroutines and formats in a
Perl program. It is implemented as a backend for the Perl compiler."
But Larry wants to analyze C/C++ - thus a tool that analyzes perl
wont help him much, will it?
------------------------------
Date: Fri, 26 Oct 2001 10:45:35 GMT
From: Andrew Cady <please@no.spam>
Subject: Re: NEWBIE: double sort on a string
Message-Id: <87u1wmznpk.fsf@homer.cghm>
"John W. Krahn" <krahnj@acm.org> writes:
> Andrew Cady wrote:
>
> > @sorted_array = map { $_->[2] }
> > sort { $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1] }
> > map { [ (split '|', lc)[0,1], $_ ] } @array_to_sort;
> ^^^^^^^^^
> > Tada. It's faster, yet still easier to write, easier to
> > understand, and idiomatic.
> ^^^^^^^^^
> split /\|/, ... would have been idiomatic.
Using the regex syntax isn't an idiom, it's just typical (although I
frequently see strings used for splits on a single character).
Unfortunately, I somehow forgot that the escape is still necessary
when you use a string, so my original code would not have worked.
Oops. And '\|' doesn't near the aesthetic appeal of '|'. Perhaps
this (in addition to the special handling of ' ') illustrates the
danger in using a string to supply a regex...
------------------------------
Date: Fri, 26 Oct 2001 07:16:52 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: NEWBIE: double sort on a string
Message-Id: <3BD94624.42D7766A@earthlink.net>
John W. Krahn wrote:
>
> Andrew Cady wrote:
[snip]
> > @sorted_array = map { $_->[2] }
> > sort { $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1] }
> > map { [ (split '|', lc)[0,1], $_ ] } @array_to_sort;
> ^^^^^^^^^
> > Tada. It's faster, yet still easier to write, easier to understand,
> > and idiomatic.
> ^^^^^^^^^
> split /\|/, ... would have been idiomatic.
Not to mention correct, considering that the first argument to split [if
it is anything other than ' '] is always turned into a regexp if it
isn't one already.
--
Klein bottle for rent - inquire within.
------------------------------
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 2015
***************************************
