[26155] in Perl-Users-Digest
Perl-Users Digest, Issue: 8346 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 22 14:05:38 2005
Date: Mon, 22 Aug 2005 11:05: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, 22 Aug 2005 Volume: 10 Number: 8346
Today's topics:
Need some reading advice for Sessions <nospam@nospam.com>
Re: Need some reading advice for Sessions xhoster@gmail.com
Re: Perl module error at runtime (Anno Siegel)
Re: perl strings <rprp@gmx.net>
Re: perl strings (Anno Siegel)
Re: perl strings <no@email.com>
Re: perl strings xhoster@gmail.com
Re: Semi OT: Uniquely Identifying Substrings for an Ele (Anno Siegel)
Re: Semi OT: Uniquely Identifying Substrings for an Ele xhoster@gmail.com
Re: Use of uninitialized value Error <1usa@llenroc.ude.invalid>
Re: Use of uninitialized value Error <nospam@nospam.com>
Re: Use of uninitialized value Error <nobull@mail.com>
values of a "subhash" <dkehr@gnx.de>
Re: values of a "subhash" <sherm@dot-app.org>
Re: values of a "subhash" (Anno Siegel)
Re: values of a "subhash" (Anno Siegel)
Re: values of a "subhash" <krevlar.newsgroups@tragetaschen.dyndns.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 22 Aug 2005 11:55:41 -0400
From: "daniel kaplan" <nospam@nospam.com>
Subject: Need some reading advice for Sessions
Message-Id: <1124726067.840955@nntp.acecape.com>
Hi All,
My webpages are all made with Perl, and they have a logged in or out state.
So I wanted to use Cookies to keep track of who is logged in or not, thereby
allowing access to certain scripts for those who are logged on.
The closest I have found is session management. But where I am lost is,
since any cookie is readable, what's to stop someone from copying the
session to their own cookie? I mean sure, I guess I could place a Perl app
on the server end that every minute, cancels any session more than X minutes
old. But that sounds sort of kludgy.
Unless of course that's really the way to do it?
If anyone knows any site or reading that they feel best describes the
process, I would greatly appreciate it.
Thanks,
Daniel
------------------------------
Date: 22 Aug 2005 16:04:57 GMT
From: xhoster@gmail.com
Subject: Re: Need some reading advice for Sessions
Message-Id: <20050822120457.503$Lb@newsreader.com>
"daniel kaplan" <nospam@nospam.com> wrote:
> Hi All,
>
> My webpages are all made with Perl, and they have a logged in or out
> state. So I wanted to use Cookies to keep track of who is logged in or
> not, thereby allowing access to certain scripts for those who are logged
> on.
>
> The closest I have found is session management. But where I am lost is,
> since any cookie is readable, what's to stop someone from copying the
> session to their own cookie?
Why would you want to stop someone from copying a "session" from their own
cookie to another one of their own cookies?
> I mean sure, I guess I could place a Perl
> app on the server end that every minute, cancels any session more than X
> minutes old.
If you consider the cookie to be the session, which you seem to, then you
can't do that. The server can't hunt down client machines and force them
surrender their cookies. If you consider the cookie to only be a key the
lets the server lookup the session, then you could do this, but I don't see
the point. Have the expiration of old sessions be part of the duties of the
same app which is making the sesions in the first place, rather than
running a separate app.
> But that sounds sort of kludgy.
>
> Unless of course that's really the way to do it?
>
> If anyone knows any site or reading that they feel best describes the
> process, I would greatly appreciate it.
CGI::Session?
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 22 Aug 2005 13:01:41 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Perl module error at runtime
Message-Id: <decibl$rca$1@mamenchi.zrz.TU-Berlin.DE>
John Smith <tjgatlga@bellsouth.net> wrote in comp.lang.perl.misc:
> I installed a perl module I got from a books' CD copy of CPAN. We are
> currently running 5.8.6.
Why use a CD copy from who-knows-when when you can access the up-to-date
CPAN over the Internet? The wisdom of adding such a CD to the book
may be questioned.
> From the book, I copies this script and tried to run it.
>
> The script
>
> use Date::Calc qw(Days_in_Month Month_to_text today);
Two typos in there. "Month_to_text" should be "Month_to_Text" and
"today" should be "Today". Case matters.
> my ($year, $month, $day) = Today();
> my $days_in_Month = Days_in_Month($year, $month);
> my $month_text = Month_to_text($month);
Again, "Month_to_Text".
> print "There are $days_in_Month days in the month of $month_text\n";
>
>
> Generates this error message:
>
> Can't load module Date::Calc, dynamic loading not available in this perl.
> (You may need to build a new perl executable which either supports
> dynamic loading or has the Date::Calc module statically linked into it.)
> at datecalc1.pl line 3
> Compilation failed in require at datecalc1.pl line 3.
> BEGIN failed--compilation aborted at datecalc1.pl line 3.
>
>
> When I installed the module, the "make" did not generate any kind of errors.
Did you "make test"? If you did, the perl you installed the module with
*is* capable of loading Date::Calc. If you didn't, all bets are off.
Anno
--
If you want to post a followup via groups.google.com, don't use
the broken "Reply" link at the bottom of the article. Click on
"show options" at the top of the article, then click on the
"Reply" at the bottom of the article headers.
------------------------------
Date: Mon, 22 Aug 2005 12:12:42 +0200
From: Reinhard Pagitsch <rprp@gmx.net>
Subject: Re: perl strings
Message-Id: <4309a51a$0$18645$14726298@news.sunsite.dk>
Hello Cristian,
Cristian Zoicas wrote:
> Hello all
>
> I would like to know more about the perl strings. Is there
> any documentation explaining in detail what a perl string
> can contain ?
Yes, perldoc perldata -> look at scalars
"Strings" in perl are scalars.
>
> For example, right now I have written the following piece of program
> and I would like to know if it is a valid one for reading binary files:
>
>
> open( INFILE, "f.txt" );
>
> while( <INFILE> )
> {
> print( ":" . $_ );
> }
Sure you can do it, depends on what you want todo. (Nothing is
impossible with Perl.)
Better is to use binmode(INFILE) to tell Perl it is a binary file.
To print a binary file to the console it is not a good idea, especial
under Windows. It can be that you bother your colleagues with continous
sound from the speaker :-)
regards,
Reinhard
------------------------------
Date: 22 Aug 2005 10:21:58 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: perl strings
Message-Id: <dec906$l3c$1@mamenchi.zrz.TU-Berlin.DE>
Cristian Zoicas <cristi@medialab.sissa.it> wrote in comp.lang.perl.misc:
> Hello all
>
> I would like to know more about the perl strings. Is there
> any documentation explaining in detail what a perl string
> can contain ?
Anything. Any sequence of bytes can form a Perl string.
> For example, right now I have written the following piece of program
> and I would like to know if it is a valid one for reading binary files:
>
>
> open( INFILE, "f.txt" );
>
> while( <INFILE> )
> {
> print( ":" . $_ );
> }
Your code has other problems. On windowish systems, you may need to set
binmode on the filehandle (see perldoc -f binmode). Further, <INFILE>
is a line oriented operation, but binary files don't have lines. They
may happen to contain line-feeds in random places, which will then
randomly determine what each <INFILE> reads. Binary files are read in
fixed chunks using read() (see perldoc -f read).
Anno
--
If you want to post a followup via groups.google.com, don't use
the broken "Reply" link at the bottom of the article. Click on
"show options" at the top of the article, then click on the
"Reply" at the bottom of the article headers.
------------------------------
Date: Mon, 22 Aug 2005 13:11:50 +0100
From: Brian Wakem <no@email.com>
Subject: Re: perl strings
Message-Id: <3mtto5F18nrk9U1@individual.net>
Reinhard Pagitsch wrote:
> Sure you can do it, depends on what you want todo. (Nothing is
> impossible with Perl.)
If you can write a script to tell me next week's lottery numbers I'd be
grateful. :-)
--
Brian Wakem
Email: http://homepage.ntlworld.com/b.wakem/myemail.png
------------------------------
Date: 22 Aug 2005 15:51:50 GMT
From: xhoster@gmail.com
Subject: Re: perl strings
Message-Id: <20050822115150.393$bi@newsreader.com>
Brian Wakem <no@email.com> wrote:
> Reinhard Pagitsch wrote:
>
> > Sure you can do it, depends on what you want todo. (Nothing is
> > impossible with Perl.)
>
> If you can write a script to tell me next week's lottery numbers I'd be
> grateful. :-)
Sure. Am I allowed to use "sleep 604800;" in it?
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 22 Aug 2005 11:50:34 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Semi OT: Uniquely Identifying Substrings for an Elem in a Set: substr, Sets and Complexity
Message-Id: <dece6a$om9$1@mamenchi.zrz.TU-Berlin.DE>
Veli-Pekka Tätilä <vtatila@mail.student.oulu.fi> wrote in comp.lang.perl.misc:
> Hi,
> Here's a text processing problem that came to mind based on finding a
> certain set of sub strings. As I came up with this one on my own
> incidentally, I don't know any real good words for Googling useful
> information or solutions to the problem and thought I'd ask here then,
> having seen a number of basic string processing threads during my short-time
> presence.
>
> The Problem:
>
> Suppose we have a set S of character strings. Each string in the set is
> unique (well sets are), may be of arbitrary length and is composed of some
> known alphabet (e.g. a to z). The task is to write a function that takes an
> element E in S and returns all sub strings of E that uniquely identify E in
> S. Put another way, all the returned strings are sub strings of E but they
> may *not* be sub strings of any other element in S.
Here is a brute-force solution. Generate all substrings of all strings
in the set and remember the string each substring was generated from.
(That happens in the hash %coll.) Then the substrings that were generated
from exactly one string are the ones you're looking for.
If you have to find solutions to your problem repeatedly (with the same
basic set of strings), my solution may even be practical. Its main
virtue is that the algortithm is so simple, it is almost certainly correct.
With a bow to Tassilo for providing a good example set:
#!/usr/bin/perl
use strict; use warnings; $| = 1;
my %coll;
for my $str ( <DATA> ) {
chomp $str;
push @{ $coll{ $_}}, $str for substrings( $str);
}
# postprocessing for nice output
my %abbrev;
@{ $coll{ $_}} == 1 and push @{ $abbrev{ $coll{ $_}->[ 0]}}, $_ for
keys %coll;
print "$_ -> @{ $abbrev{ $_}}\n" for sort keys %abbrev;
#################################################################
sub substrings {
my $str = shift;
map substr_n( $str, $_), 0 .. length $str;
}
sub substr_n {
my ($str, $l) = @_;
map substr( $str, $_, $l), 0 .. length( $str) - $l;
}
__DATA__
abc
bcd
foobar
foo
bar
pearl
perl
modperl
Anno
--
If you want to post a followup via groups.google.com, don't use
the broken "Reply" link at the bottom of the article. Click on
"show options" at the top of the article, then click on the
"Reply" at the bottom of the article headers.
------------------------------
Date: 22 Aug 2005 15:48:06 GMT
From: xhoster@gmail.com
Subject: Re: Semi OT: Uniquely Identifying Substrings for an Elem in a Set: substr, Sets and Complexity
Message-Id: <20050822114806.829$ZO@newsreader.com>
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote:
> >
> > The Problem:
> >
> > Suppose we have a set S of character strings. Each string in the set is
> > unique (well sets are), may be of arbitrary length and is composed of
> > some known alphabet (e.g. a to z). The task is to write a function that
> > takes an element E in S and returns all sub strings of E that uniquely
> > identify E in S. Put another way, all the returned strings are sub
> > strings of E but they may *not* be sub strings of any other element in
> > S.
>
> Here is a brute-force solution. Generate all substrings of all strings
> in the set and remember the string each substring was generated from.
> (That happens in the hash %coll.) Then the substrings that were
> generated from exactly one string are the ones you're looking for.
>
> If you have to find solutions to your problem repeatedly (with the same
> basic set of strings), my solution may even be practical. Its main
> virtue is that the algortithm is so simple, it is almost certainly
> correct.
:)
If you add 'mississippi' to the list, it misses 'iss' as a identifying
substring (and I suppose others), due to the internal duplication.
> With a bow to Tassilo for providing a good example set:
>
> #!/usr/bin/perl
> use strict; use warnings; $| = 1;
>
> my %coll;
> for my $str ( <DATA> ) {
> chomp $str;
> push @{ $coll{ $_}}, $str for substrings( $str);
> }
You should either use a hash of hash rather than a hash of array, (which
seems to me like it would be a more natural anyway) or change substrings so
that it only returns one copy of each substring for any given invocation.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Mon, 22 Aug 2005 11:37:20 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Use of uninitialized value Error
Message-Id: <Xns96BA4D88B5AB7asu1cornelledu@127.0.0.1>
"daniel kaplan" <nospam@nospam.com> wrote in
news:1124683086.39494@nntp.acecape.com:
> "A. Sinan Unur" <1usa@llenroc.ude.invalid> wrote in message
> news:Xns96B9B709FE392asu1cornelledu@127.0.0.1...
>>
>> To suppress the warning, you can use
>> no warnings 'unintialized';
>>
>
>> > Replace this : my $came_from = $ENV{'HTTP_REFERER'};
>>> with : my $came_from = 'I must learn proper CGI
>>> programming first';
>>
>> and see if the warning disappears.
>
> So what I did was shorten the code, to makefinding this warning more
> managable. It is listed below at ***.
>
> But even after changing:
> my $came_from = $ENV{'HTTP_REFERER'};
...
> the warning still occured.
You use a bunch of variables in the same interpolated string, so, if it
is not one uninitialized, then it will be another uninitialized variable
causing the warning.
> So it's down to what is below, and I finally found the one line I can
> comment IN or OUT, and cause the warning to disappear. Essentially,
> if I comment out the SECOND line in:
>
> my $ema = "";
> $ema = $q->param('email');
>
> then the warning diappears. Which means I really have to ask what is
> going on here, because now I am really confused.
Why are you confused? Above, you initialize $ema with the empty string.
If a value for email was not submitted, you then set it to undef (by
assigning $q->param('email') to it).
You must check if valid values were passed to your CGI script. You must
turn on taint checking (to keep reminding you that you must validate
values before using them, see perldoc perlsec).
>
> As for,
>
>>>>I will also suggest, at the very least, that you use HTML::Template
>>>>with
> your scripts.
>
> Am just curious, for writing small HTML output with my Perl scriptts,
> which is why I am trying to do it this way. Is that considered ok?
> Or must I use HTML::Template?
I did not say 'must'. I said 'I suggest'.
> Am I that wrong in attempting this way?
Even with syntax highlighting, it becomes difficult to figure out where
you use variables. Separating HTML from source code would be a huge
improvement.
In addition, there is no need to assign to out in PrintSurvey. You
should also pass the variables you use in the argument list to
PrintSurvey.
#!/usr/bin/perl
use strict;
use warnings;
my $out = Survey(email => 'you@example.com');
# ...
print $out;
sub Survey {
my %args = @_;
return <<SURVEY;
...
<tr><td colspan="2"> </td></tr>
<tr><td>
<input type="text" name="email" value="$args{email}"
maxlength="64" size="32">
...
SURVEY
}
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Mon, 22 Aug 2005 11:00:20 -0400
From: "daniel kaplan" <nospam@nospam.com>
Subject: Re: Use of uninitialized value Error
Message-Id: <1124722746.220674@nntp.acecape.com>
"daniel kaplan" <nospam@nospam.com> wrote in message
news:1124683086.39494@nntp.acecape.com...
> my $ema = "";
> $ema = $q->param('email');
So essentially, to make I understand this, $ema is valid with the first
line, BUT if no value comes in with the param 'email', then $ema becomes
"undefined" therefore giving me that error? And that's where I am missing
this whole thing.
In Perl "undefined" is like a FALSE, but not undeclared? And this is what
causes the "uninitialized" warning ?
I think that's the part I am missing, just want to confirm.
------------------------------
Date: Mon, 22 Aug 2005 17:50:02 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: Use of uninitialized value Error
Message-Id: <decvnq$g4e$1@redhat2.bham.ac.uk>
daniel kaplan wrote:
>
> So essentially, to make I understand this, $ema is valid with the first
> line, BUT if no value comes in with the param 'email', then $ema becomes
> "undefined" therefore giving me that error? And that's where I am missing
> this whole thing.
>
> In Perl "undefined" is like a FALSE, but not undeclared? And this is what
> causes the "uninitialized" warning ?
>
> I think that's the part I am missing, just want to confirm.
Yes. As I've said numerous times 'uninitialized value' is a meaningless
concept. Meaningful concepts are 'uninitialized variable' and 'undefined
value'. The problem with this message (appart from the fact that it's
wrong) is that when people subconciously replace 'uninitialized value'
with one of the meaningful concepts they pick the wrong one.
'uninitialized value' should be read as 'undefined value'.
Note: the concept 'uninitialized variable' is relevant in some languages
but not in Perl. In Perl you can safely assume that all variables behave
as if they've been initialised to undef (or, in the case of agregates,
empty).
------------------------------
Date: Mon, 22 Aug 2005 14:15:30 +0200
From: Dietmar Kehr <dkehr@gnx.de>
Subject: values of a "subhash"
Message-Id: <pan.2005.08.22.12.15.30.57527@gnx.de>
hi,
if i have a hash %myhash in, lets say tree arguments, with values
$myhash{$a}{$b}{$c}
then i can get the value-list of the "last"
subhash (fixed 1.,2. args) by
values %{$myhash{bla}{blum}}
Cool!
I'd like to get the list of the "middle" subhash
(fixed 1., 3. args). How is this possible?
Best regards.
------------------------------
Date: Mon, 22 Aug 2005 09:22:53 -0400
From: Sherm Pendley <sherm@dot-app.org>
Subject: Re: values of a "subhash"
Message-Id: <m27jeeumvm.fsf@Sherm-Pendleys-Computer.local>
Dietmar Kehr <dkehr@gnx.de> writes:
> then i can get the value-list of the "last"
> subhash (fixed 1.,2. args) by
>
> values %{$myhash{bla}{blum}}
>
> Cool!
>
> I'd like to get the list of the "middle" subhash
> (fixed 1., 3. args). How is this possible?
The same way:
values %{$myhash{bla}};
Keep in mind that the values are hash refs, not hashes. See perldsc
and perllol for more.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: 22 Aug 2005 13:36:20 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: values of a "subhash"
Message-Id: <deckck$rca$2@mamenchi.zrz.TU-Berlin.DE>
Dietmar Kehr <dkehr@gnx.de> wrote in comp.lang.perl.misc:
>
> hi,
>
> if i have a hash %myhash in, lets say tree arguments, with values
>
> $myhash{$a}{$b}{$c}
>
> then i can get the value-list of the "last"
> subhash (fixed 1.,2. args) by
>
> values %{$myhash{bla}{blum}}
>
> Cool!
>
> I'd like to get the list of the "middle" subhash
> (fixed 1., 3. args). How is this possible?
Good question. Please define your terms: What is a "subhash"? What
does it mean to "fix an arg"?
One answer could be (untested)
my %aux;
for my $k1 ( keys %myhash ) {
for my $k2 ( keys %{ $myhash{ $k1}} ) {
for my $k3 ( keys %{ $myhash{ $k1}->{ $k2} ) {
$aux{ $k1}->{ $k3}->{ $k2} = $myhash{ $k1}->>{ $k2}->{ $k3};
}
}
}
$aux{ bla}->{ blub};
The interpretation is up to you.
Anno
--
If you want to post a followup via groups.google.com, don't use
the broken "Reply" link at the bottom of the article. Click on
"show options" at the top of the article, then click on the
"Reply" at the bottom of the article headers.
------------------------------
Date: 22 Aug 2005 13:39:01 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: values of a "subhash"
Message-Id: <deckhl$rca$3@mamenchi.zrz.TU-Berlin.DE>
Sherm Pendley <sherm@dot-app.org> wrote in comp.lang.perl.misc:
> Dietmar Kehr <dkehr@gnx.de> writes:
>
> > then i can get the value-list of the "last"
> > subhash (fixed 1.,2. args) by
> >
> > values %{$myhash{bla}{blum}}
> >
> > Cool!
> >
> > I'd like to get the list of the "middle" subhash
> > (fixed 1., 3. args). How is this possible?
>
> The same way:
>
> values %{$myhash{bla}};
Ah, but that doesn't "fix the third arg", whatever that means. I'm
not sure what the OP really wants.
Anno
--
If you want to post a followup via groups.google.com, don't use
the broken "Reply" link at the bottom of the article. Click on
"show options" at the top of the article, then click on the
"Reply" at the bottom of the article headers.
------------------------------
Date: Mon, 22 Aug 2005 16:34:50 +0200
From: Arne Ruhnau <krevlar.newsgroups@tragetaschen.dyndns.org>
Subject: Re: values of a "subhash"
Message-Id: <decnqb$6rh$02$1@news.t-online.com>
Anno Siegel wrote:
> Sherm Pendley <sherm@dot-app.org> wrote in comp.lang.perl.misc:
>
>>Dietmar Kehr <dkehr@gnx.de> writes:
>>
>>>then i can get the value-list of the "last"
>>> subhash (fixed 1.,2. args) by
>>>
>>> values %{$myhash{bla}{blum}}
>>>
>>>Cool!
>>>
>>>I'd like to get the list of the "middle" subhash
>>>(fixed 1., 3. args). How is this possible?
>>
>>The same way:
>>
>> values %{$myhash{bla}};
>
> Ah, but that doesn't "fix the third arg", whatever that means. I'm
> not sure what the OP really wants.
Maybe
$hash{fixed1}{wildcard}{fixed3}
resulting in every $key for which
$hash{fixed1}{$key}{fixed3}
exists? Well, nevertheless the OP should clarify what he wants (and why).
Arne Ruhnau
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 8346
***************************************
