[29804] in Perl-Users-Digest
Perl-Users Digest, Issue: 1047 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 21 11:09:43 2007
Date: Wed, 21 Nov 2007 08:09:08 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 21 Nov 2007 Volume: 11 Number: 1047
Today's topics:
*******Fashion new****************** polprex@yahoo.com
Re: 100% cpu loop of time() ... <iler.ml@gmail.com>
Calling a SQL Server Stored Procedure from within Perl <absmienk@hotmail.com>
Re: firefox could open my cgi, IE will be dead, why? <glennj@ncf.ca>
is there any command for catch in tcl in perl vikram.varshney@gmail.com
Re: is there any command for catch in tcl in perl <glennj@ncf.ca>
Re: is there any command for catch in tcl in perl <5502109103600001@t-online.de>
Re: list context inside term xueweizhong@gmail.com
Re: list context inside term xueweizhong@gmail.com
Re: list context inside term <mritty@gmail.com>
Re: list context inside term <smallpond@juno.com>
Re: list context inside term xueweizhong@gmail.com
Re: Perl Tk: long running callback loses GUI interactiv <zentara@highstream.net>
Re: Perl Tk: long running callback loses GUI interactiv <zentara@highstream.net>
Re: Perl Tk: long running callback loses GUI interactiv <stoupa@practisoft.cz>
Re: Perl wildcard un-expansion <alexxx.magni@gmail.com>
Re: Regular expression help <benedictmpwhite@gmail.com>
Re: Script to disconnect Linksys WRT54G wireless router <davewilson69@sbcglobal.net>
Re: Script to disconnect Linksys WRT54G wireless router <davewilson69@sbcglobal.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 21 Nov 2007 01:08:06 -0800 (PST)
From: polprex@yahoo.com
Subject: *******Fashion new******************
Message-Id: <c97a37d2-55cd-4c2b-84d3-a4750e8cade3@c29g2000hsa.googlegroups.com>
*******Fashion new******************
http://sunflow.50webs.com/
http://bigchurch.com/go/g912774-pmem
http://indianfriendfinder.com/go/g912773-pmem
------------------------------
Date: Wed, 21 Nov 2007 01:45:17 -0800 (PST)
From: Yakov <iler.ml@gmail.com>
Subject: Re: 100% cpu loop of time() ...
Message-Id: <83c50180-a252-4b5b-abe1-326f168458d6@41g2000hsh.googlegroups.com>
On Nov 18, 2:52 pm, Yakov <iler...@gmail.com> wrote:
> On Nov 15, 7:06 pm, xhos...@gmail.com wrote:
>
>
>
> > Yakov <iler...@gmail.com> wrote:
> > > One perl daemon happens to go sometimes into 100% cpu state.
> > > When I do strace or ltrace on it, I see infinite sequence of time()
> > > calls,
> > > and nothing in between.
>
> > > But the source code, although has couple of calls to time(), nowhere
> > > has possibility of infinite lop of time(). I wonder whether perl
> > > interpreter can be doing this inside it, maybe restarting on signals
> > > or something ?
>
> > If it were restarting on signals, then the signal events should be evident
> > in the strace along with the "time" calls.
>
> > > The code is single-threaded. Wrt to signals, it either
> > > ignores
> > > signals, or dies on signals.
>
> > Does it do any forking, either explicit or implicit (implicit meanings
> > with back-ticks, system, piped open, etc.)
>
> No.
I got the pstrack trace. This is still regular build of perl.
Can any useful conclusion or information be extracted from this trace:
0x4008e370: Perl_pp_and (804b3c8, 0, 4010d44d, 4011ebac, 4011ebac,
80dea6c)
0x40036139: S_call_body + 0x39 (804b3c8, bffff990, 0, 4016fc34,
80667a0, 2d8580) + 120
0x40036047: Perl_call_sv + 0x637 (804b3c8, 80dea6c, 2, bffffa00, 0,
23) + 30
0x4007e52e: Perl_vwarner + 0x32e (804b3c8, 29, 40111c60, bffffa30,
bffffa54, 4011ebac)
0x4007e1ea: Perl_warner + 0x3a (804b3c8, 29, 40111c60, 4010e618,
40107a07, 402d8580) + 10
0x40097320: Perl_report_uninit + 0x60 (804b3c8, 85ea160, bffffa98,
4016a012, 402d8590, 30) + c0
0x4009aed1: Perl_sv_2pv_flags + 0x8c1 (804b3c8, 8064e6c, bffffb98, 2,
27, 85c5070) + 40
0x40089ed7: Perl_hv_exists_ent + 0x207 (804b3c8, 8064cec, 8064e6c, 0,
804b3c8, bffffda4) + 20
0x400b615b: Perl_pp_exists + 0x11b (804b3c8, 0, 0, 4008e03a, 4011ebac,
804b3c8)
0x4008e059: Perl_runops_standard + 0x29 (804b3c8, 400125c0, 40012934,
4011ebac, 4011ebac, 40012140)
0x400355bb: S_run_body + 0xeb (804b3c8, 1, 400128e8, 1, 1, 0) + d0
0x40035355: perl_run + 0x165 (804b3c8, 80491c0, 3, bffffda4, 0,
bffffd44) + 10
0x08049173: main + 0xd3 (3, bffffda4, bffffdb4, 402d8108, 0, 40009db0)
+ 10
0x401c554d: _fini + 0xa124d (80490a0, 3, bffffda4, 8048d64, 8049e60,
4000a66c) + 40000268
(No symbols found in /lib/libnsl.so.1)
(No symbols found in /lib/libdl.so.2)
(No symbols found in /lib/libm.so.6)
(No symbols found in /lib/libpthread.so.0)
(No symbols found in /lib/libc.so.6)
(No symbols found in /lib/libcrypt.so.1)
(No symbols found in /lib/libutil.so.1)
(No symbols found in /lib/ld-linux.so.2)
(No symbols found in /lib/libresolv.so.2)
(No symbols found in /lib/libnss_files.so.2)
Yakov
------------------------------
Date: Wed, 21 Nov 2007 07:41:52 -0800 (PST)
From: ab <absmienk@hotmail.com>
Subject: Calling a SQL Server Stored Procedure from within Perl
Message-Id: <ef728c1f-846a-4497-9126-a93bcd1d0885@i37g2000hsd.googlegroups.com>
Hi,
I'm trying to call a simple Stored Procedure from within my Perl
script. I tested the SP named "usp_test" in the Query Analyzer and it
ran OK. My perl script looks like this
use Win32::ODBC;
if (!($MyDB = new Win32::ODBC("DSN=MyDSN;UID=MyLoginID;PWD=MyPwd;")))
{
print "Error: Unable to connect to the database\n";
exit;
}
The connection is OK, I've tested it by listing all the rows in a test
table. Now I have to call the SP. I tried something like this but that
didn't work:
my $sth = $MyDB -> prepare("EXEC usp_test");
$sth -> execute;
Any information is welcome.
Thanks,
Ab
------------------------------
Date: 21 Nov 2007 14:49:20 GMT
From: Glenn Jackman <glennj@ncf.ca>
Subject: Re: firefox could open my cgi, IE will be dead, why?
Message-Id: <slrnfk8hbh.o24.glennj@smeagol.ncf.ca>
At 2007-11-21 01:20AM, "Ron Bergin" wrote:
[...]
> use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
[...]
> my $logfile = $cgi->param('logfile');
> open( my $logfile, '<', $logs{$logfile} )
> || die "Unable to open $logfile: <$!>\n";
Probably shouldn't use "<" and ">" as quotes if you're emitting HTML.
--
Glenn Jackman
"You can only be young once. But you can always be immature." -- Dave Barry
------------------------------
Date: Wed, 21 Nov 2007 06:54:24 -0800 (PST)
From: vikram.varshney@gmail.com
Subject: is there any command for catch in tcl in perl
Message-Id: <35ea9565-d60a-4d0c-b069-95884add57ed@l22g2000hsc.googlegroups.com>
Hi
I am Vikram Varshney. My script needs to catch whether a particular
command fails or passes. This could be done very easily in tcl using
"catch" which gives "1" output when the command fails and 0 as output
when the command runs successfully. And what represents NULL character
in perl. I have tried "\0" & "NULL" & / / & ' ' . But they are not
working.
You can answer me at : vikram.varshney@gmail.com
Thanks in advance
Vikram Varshney
------------------------------
Date: 21 Nov 2007 15:18:04 GMT
From: Glenn Jackman <glennj@ncf.ca>
Subject: Re: is there any command for catch in tcl in perl
Message-Id: <slrnfk8j1c.o24.glennj@smeagol.ncf.ca>
At 2007-11-21 09:54AM, "vikram.varshney@gmail.com" wrote:
> Hi
> I am Vikram Varshney. My script needs to catch whether a particular
> command fails or passes. This could be done very easily in tcl using
> "catch" which gives "1" output when the command fails and 0 as output
> when the command runs successfully.
perldoc -f eval
If you're building some code dynamically into a string:
eval "$some_code";
if ($@) {
# some error condition
}
Otherwise:
eval { some(code()); };
handle_error($@) if $@;
> And what represents NULL character
> in perl. I have tried "\0" & "NULL" & / / & ' ' . But they are not
> working.
In what context do you need a null?
my $null = 0;
> You can answer me at : vikram.varshney@gmail.com
Um, no.
--
Glenn Jackman
"You can only be young once. But you can always be immature." -- Dave Barry
------------------------------
Date: Wed, 21 Nov 2007 16:15:58 +0100
From: Josef Moellers <5502109103600001@t-online.de>
Subject: Re: is there any command for catch in tcl in perl
Message-Id: <47444BAE.6030209@t-online.de>
vikram.varshney@gmail.com wrote:
> Hi
> I am Vikram Varshney. My script needs to catch whether a particular
> command fails or passes. This could be done very easily in tcl using
> "catch" which gives "1" output when the command fails and 0 as output
> when the command runs successfully. And what represents NULL character
> in perl. I have tried "\0" & "NULL" & / / & ' ' . But they are not
> working.
perldoc -f eval
> You can answer me at : vikram.varshney@gmail.com
(mailed and posted)
--
Mails please to josef dot moellers
and I'm on gmx dot de.
------------------------------
Date: Wed, 21 Nov 2007 01:12:59 -0800 (PST)
From: xueweizhong@gmail.com
Subject: Re: list context inside term
Message-Id: <36e2f114-bc45-441b-8c95-9273a259b73d@b15g2000hsa.googlegroups.com>
Hi John,
Thanks for you comprehensive answer. But my question still hold:
For stat(".")[0], why the compiler think stat(".") is in a void
context? This is different from print(1)+2 where ...+2 ditermined the
print is evaluated in scalar context.
To be detailed:
stat(".") --- void context, be warned
(stat(".")) --- still void context, be warned
(stat("."))[0] --- list context for stat
stat(".")[0] --- why the language is not smart enough like the (...)
[0] case to the guess the programmer's intent? The intent is obvious
here, we want ...[0] treated as a list context.
Best regards
Todd
------------------------------
Date: Wed, 21 Nov 2007 01:21:05 -0800 (PST)
From: xueweizhong@gmail.com
Subject: Re: list context inside term
Message-Id: <3fb2e70a-fae3-4a9a-8842-054863910a74@f3g2000hsg.googlegroups.com>
Hi John,
Why the language is not smart enough to treat ...[0] as a list
context? So that we can write clean code:
stat(".")[0]
rather than boring one:
(stat("."))[0]
-Todd
------------------------------
Date: Wed, 21 Nov 2007 05:52:01 -0800 (PST)
From: Paul Lalli <mritty@gmail.com>
Subject: Re: list context inside term
Message-Id: <8485beb3-ae9f-4d87-91ee-a0b15d950a5a@f3g2000hsg.googlegroups.com>
On Nov 21, 4:12 am, xueweizh...@gmail.com wrote:
> Hi John,
>
> Thanks for you comprehensive answer. But my question still hold:
>
> For stat(".")[0], why the compiler think stat(".") is in a void
> context? This is different from print(1)+2 where ...+2 ditermined the
> print is evaluated in scalar context.
>
> To be detailed:
>
> stat(".") --- void context, be warned
No. Not enough information to determine context. Context is
determined by how the expression is used.
stat("."); #void context.
$x = stat("."); #scalar context.
@x = stat("."); #list context.
> (stat(".")) --- still void context, be warned
Nope. Still not enough information to determine context. The
parentheses have nothing to do with it.
(stat(".")); #void context.
$x = (stat(".")); #scalar context.
@x = (stat(".")); #list context.
> (stat("."))[0] --- list context for stat
Yes. This is list context because the (...)[0] is a list slice. The
[0] applied to something in parentheses makes the list slice.
Obviously you can only take a list slice of a list, so the expression
within the (...) is in list context.
> stat(".")[0] --- why the language is not smart enough like the
> (...)[0] case to the guess the programmer's intent? The intent is
> obvious here, we want ...[0] treated as a list context.
It's not at all obvious to me. In fact, it's very much ambiguous.
Do you want
stat(".")[0]
to mean
(stat("."))[0]
that is "evaluate stat(".") in list context and then take the first
element of the resulting list", or to mean
stat((".")[0])
that is, "take the first element of the list ("."), and pass that
element to the stat() function?"
Because it's ambiguous, Perl makes the decision to call it a syntax
error.
Paul Lalli
------------------------------
Date: Wed, 21 Nov 2007 06:48:32 -0800 (PST)
From: smallpond <smallpond@juno.com>
Subject: Re: list context inside term
Message-Id: <00e861b6-9970-4cc6-b8fd-f18eaaff833d@b32g2000hsa.googlegroups.com>
On Nov 21, 8:52 am, Paul Lalli <mri...@gmail.com> wrote:
> On Nov 21, 4:12 am, xueweizh...@gmail.com wrote:
>
> > Hi John,
>
> > Thanks for you comprehensive answer. But my question still hold:
>
> > For stat(".")[0], why the compiler think stat(".") is in a void
> > context? This is different from print(1)+2 where ...+2 ditermined the
> > print is evaluated in scalar context.
>
> > To be detailed:
>
> > stat(".") --- void context, be warned
>
> No. Not enough information to determine context. Context is
> determined by how the expression is used.
>
> stat("."); #void context.
> $x = stat("."); #scalar context.
> @x = stat("."); #list context.
>
> > (stat(".")) --- still void context, be warned
>
> Nope. Still not enough information to determine context. The
> parentheses have nothing to do with it.
>
> (stat(".")); #void context.
> $x = (stat(".")); #scalar context.
> @x = (stat(".")); #list context.
>
> > (stat("."))[0] --- list context for stat
>
> Yes. This is list context because the (...)[0] is a list slice. The
> [0] applied to something in parentheses makes the list slice.
> Obviously you can only take a list slice of a list, so the expression
> within the (...) is in list context.
>
> > stat(".")[0] --- why the language is not smart enough like the
> > (...)[0] case to the guess the programmer's intent? The intent is
> > obvious here, we want ...[0] treated as a list context.
>
> It's not at all obvious to me. In fact, it's very much ambiguous.
> Do you want
> stat(".")[0]
> to mean
> (stat("."))[0]
> that is "evaluate stat(".") in list context and then take the first
> element of the resulting list", or to mean
> stat((".")[0])
> that is, "take the first element of the list ("."), and pass that
> element to the stat() function?"
>
> Because it's ambiguous, Perl makes the decision to call it a syntax
> error.
>
> Paul Lalli
It's not ambiguous. perlop has precedence rules for determining
which of those two cases would apply. Terms and list operators
are left-associative and all equal precedence so
stat(".")[0] would be (stat("."))[0].
The missing list context in this case is a known perl5 bug.
perl6 proposes a list keyword for just this issue:
http://dev.perl.org/perl6/rfc/175.html
------------------------------
Date: Wed, 21 Nov 2007 07:53:19 -0800 (PST)
From: xueweizhong@gmail.com
Subject: Re: list context inside term
Message-Id: <925fe46e-2129-44b4-88aa-086babc6d26b@c29g2000hsa.googlegroups.com>
Hi smallpond,
It's great with your comments. That's what i want finally:-)
-Todd
------------------------------
Date: Wed, 21 Nov 2007 12:15:21 GMT
From: zentara <zentara@highstream.net>
Subject: Re: Perl Tk: long running callback loses GUI interactivity
Message-Id: <9m78k39v1t1jumi5hbrdgiqqp7tkffmnem@4ax.com>
On Tue, 20 Nov 2007 06:42:25 -0800 (PST), andy <andygough1974@gmail.com>
wrote:
>Hi,
>
>I wonder if anyone can help me with a small perl Tk problem I have. I
>am writing an automated test script for a digital radio system, when
>the user has selected all the options for the test and hits GO in the
>GUI the callback executes a long running script, when this happens the
>Tk GUI is completley inactive until the call back is finished (which
>can take hours). Ideally i'd still like the GUI to have some
>interactivity, suck as a CANCEL button to stop the tests (currently I
>have to do a Ctrl-C in the dos window to stop the test). Is there a
>way to do this? I wasnt sure what search terms to look for when
>investigating a solution.
>
>Many thanks in advance,
>
>Andy
You have only one choice, if you want to keep the gui going AND
you want to cancel at any time..... run the command thru a piped-open
or IPC::Open3 ( or IPC::Run, Win32::Pipe, etc).
The reason for this, is you will need to get the pid of the process, so
you can kill it( your cancel).
See:
http://perlmonks.org?node_id=506909
and
http://perlmonks.org?node_id=463896
zentara
--
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html
------------------------------
Date: Wed, 21 Nov 2007 12:15:20 GMT
From: zentara <zentara@highstream.net>
Subject: Re: Perl Tk: long running callback loses GUI interactivity
Message-Id: <6h78k35n7k541tmg2hng4qqfqdgmci1bfo@4ax.com>
On Tue, 20 Nov 2007 11:12:20 -0800 (PST), smallpond <smallpond@juno.com>
wrote:
>
>My mistake. Tk cannot call fork in a callback. If using fork
>in a Tk program, call it before calling MainLoop.
>system is OK, tho.
>--S
Whoa, that is bad info. Tk can call fork anywhere it wants. You may be
confusing fork with the Tk thread safety problem.
zentara
--
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html
------------------------------
Date: Wed, 21 Nov 2007 15:02:11 +0100
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: Perl Tk: long running callback loses GUI interactivity
Message-Id: <fi1eeo$1guv$1@ns.felk.cvut.cz>
zentara wrote:
> On Tue, 20 Nov 2007 06:42:25 -0800 (PST), andy
> <andygough1974@gmail.com> wrote:
>
> You have only one choice, if you want to keep the gui going AND
> you want to cancel at any time..... run the command thru a piped-open
> or IPC::Open3 ( or IPC::Run, Win32::Pipe, etc).
>
I found a very good solution for Win platform on CPAN. This module is called
ProcFarm and work excelently. Maybe we can ask an author to make this module
platform independent ;-)
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
Date: Wed, 21 Nov 2007 01:44:19 -0800 (PST)
From: "alexxx.magni@gmail.com" <alexxx.magni@gmail.com>
Subject: Re: Perl wildcard un-expansion
Message-Id: <769cada1-4834-49b1-bcc4-3a6eee9e80a4@d61g2000hsa.googlegroups.com>
On 19 Nov, 11:33, sheinr...@my-deja.com wrote:
> On Nov 19, 10:36 am, "alexxx.ma...@gmail.com" <alexxx.ma...@gmail.com>
> wrote:
>
> > to be able to access "img0*.pgm", not its expansion
>
> On a side note to the former answers, some shells put the commandline
> into the environment.
> Take a look at the content of %ENV. Maybe you're lucky.
>
> Cheers,
> Steffen
not on BASH, it seems...
Alessandro
------------------------------
Date: Wed, 21 Nov 2007 02:51:30 -0800 (PST)
From: Benedict White <benedictmpwhite@gmail.com>
Subject: Re: Regular expression help
Message-Id: <221fb8af-3a1e-4ee1-8d25-082bfdfe6c80@w28g2000hsf.googlegroups.com>
On Nov 19, 5:33 pm, Benedict White <benedictmpwh...@gmail.com> wrote:
> I need a bit of help cleaning up a mess.
>
> I need to write a regular expression that looks for invalid email
> addresses. I know that the email addresses do not contain numerical
> charictors or unusual combinations of letters.
>
> What I was hoping for was something that would locate all emails with
> say 2 before the at addressed to the domain I am looking after,
> example.com.
>
> I tried ^[A-Za-z2._%+-]+...@example.com however the 2 is not required.
> The numbers could be anywhere in string before the @. It will miss
> email addresses with other numbers in them, but will also pick up any
> without out. I need to have all with numbers in them, to the
> example.com domain.
>
I seem to have found a regex that works:
[A-Za-Z]?[0-9][A-Za-Z]?@example.com.com
Which matches emails to the example.com domain containing numbers.
Kind regards
Benedict White
------------------------------
Date: Wed, 21 Nov 2007 13:05:42 GMT
From: Wilson <davewilson69@sbcglobal.net>
Subject: Re: Script to disconnect Linksys WRT54G wireless router on Windows
Message-Id: <G2W0j.73182$Um6.37906@newssvr12.news.prodigy.net>
Any idea how to debug this shortened freeware Perl script to disconnect the
Linksys WRT54G wireless router from the ISP? The Perl script just hangs
without any output or change in the router. Is there a way to insert debug
statements or to step through the Perl code using freeware debuggers on
Windows?
Here is, I think, the related "view -> source" code on the router at the
web page: https://192.168.0.1/StaRouter.htm
function ConnStats(obj)
{
var F=document.status;
if(flag == 1){
F.action.value="Connect";
}
else{
F.action.value="Disconnect";
}
F.submit();
}
And, here is the shortened perl script using "Disconnect" as the action:
#!/usr/bin/perl -w
use strict;
my $adr='https://192.168.0.1/StaRouter.htm'; # talk to this router
# my $user='root';
my $user=''; # the Linksys WRT54G wireless router doesn't have a username
my $pass='LetMeIn';
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST => $adr, ['action','Disconnect']);
$req->authorization_basic($user, $pass);
# send the request
my $result = $ua->request($req);
# print the result
print $result->as_string;
# The end
Unfortunately, when I run this router.pl script on Windows, it just hangs.
Do you have any suggestions for debugging this on Windows?
------------------------------
Date: Wed, 21 Nov 2007 13:51:38 GMT
From: Wilson <davewilson69@sbcglobal.net>
Subject: Re: Script to disconnect Linksys WRT54G wireless router on Windows
Message-Id: <KJW0j.46268$eY.1230@newssvr13.news.prodigy.net>
I thought the script hung but it just took a while to output this.
500 read failed:
Content-Type: text/plain
Client-Date: Wed, 21 Nov 2007 13:32:50 GMT
Client-Warning: Internal response
500 read failed:
Do you have any suggestions for debugging freeware WIndows perl scripts?
------------------------------
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 1047
***************************************
