[22796] in Perl-Users-Digest
Perl-Users Digest, Issue: 5017 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed May 21 06:07:16 2003
Date: Wed, 21 May 2003 03: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)
Perl-Users Digest Wed, 21 May 2003 Volume: 10 Number: 5017
Today's topics:
Re: Another regex problem (Anno Siegel)
Re: calling an exe file <islaw@adexec.com>
Re: calling an exe file <bernard.el-hagin@DODGE_THISlido-tech.net>
Re: calling an exe file <REMOVEsdnCAPS@comcast.net>
Re: calling an exe file <allanon@hotmail.com>
Re: Can't install HTML::Request::Common in Cygwin! Any <REMOVEsdnCAPS@comcast.net>
Re: Can't locate sub.pl <pierre@couderc.cc>
Re: Can't locate sub.pl <pierre@couderc.cc>
Re: Children killing parent SIGCHLD (Joe Smith)
Re: copying files between two directories (Andres Monroy-Hernandez)
Crypt-SSLeay & Openssl want a divorce (Sebastien@Patriate)
Re: error handling on file open (Andres Monroy-Hernandez)
Re: Finding files and moving them in perl (david)
Re: Finding files and moving them in perl <tassilo.parseval@rwth-aachen.de>
Re: How can I get stats about how many time is a progra (i5513)
Re: multiple sort subroutine (Joe Smith)
Re: Perl: Regex help request <bart.lateur@pandora.be>
Re: Perl: Regex help request <REMOVEsdnCAPS@comcast.net>
Re: Problem with regular expression evaluation from per (Joe Smith)
Re: Sending email with perl. (Joe Smith)
Re: Syslog parsing with Perl (Joe Smith)
underscoring initialisms (Julian Day)
Re: underscoring initialisms <scare.crow@oz.land>
Re: underscoring initialisms <fxn@hashref.com>
Re: While loops and arrays (Andres Monroy-Hernandez)
Re: While loops and arrays <islaw@adexec.com>
Re: While loops and arrays <ThomasKratz@REMOVEwebCAPS.de>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 21 May 2003 08:44:24 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Another regex problem
Message-Id: <bafe98$dhh$1@mamenchi.zrz.TU-Berlin.DE>
Zak McGregor <zak@mighty.co.za> wrote in comp.lang.perl.misc:
> Hi guys
>
> I have input of the form
> <[command option]some text[/command]>
>
> where "some text" may contain further <[command option]other
> text[/command]> syntax. Each "command" could be different as well, and
> they can be nested to arbitrary depths. I've tried to use a regex to
> handle this, but it is proving difficult, especially when some of the
> "arbittrary text" contains "[" or "]" characters. apparently
> Parse::RecDescent should be my next step, but it is proving awfully tough
> to get into. Am I wasting time trying to get a regex to do what I want -
> the FAQ seems to suggest that that is the case.
It's true that nested structures are hard to parse with just a regex.
While it can be done, the result is usually not something you would
like to maintain.
> If i am wasting time,
> does anyone have any good references to Parse::RecDescent tutorials or
> other information on implementing it please?
Take a look at Text::Balanced. It isn't as powerful as Parse::RecDescent,
but it's easier to apply. It may turn out to be the right intermediate
approach for your problem.
[example snipped]
Anno
------------------------------
Date: Wed, 21 May 2003 06:46:31 GMT
From: "Islaw" <islaw@adexec.com>
Subject: Re: calling an exe file
Message-Id: <bhFya.4663$YS4.3391@newssvr17.news.prodigy.com>
w i l l wrote:
> On Tue, 20 May 2003 23:19:52 GMT, "Anthony" <johnsmith@yahoo.com>
> wrote:
>
>> hi
>>
>>
>> Am still a newie to perl
>> How do i run an exe. Is there a command.
>>
>> once the script is finished running
>> i need to alert an application that files are waiting in c:\test. The
>> application has an exe test.exe and will pick the waiting files in
>> c:\test. How do i call the test.exe
>>
>>
>> tony
>>
>>
>
>
>
> system('c:/test/test.exe');
>
>
> -------
>
> w i l l
Or if the output is needed to be captured:
my $out = `c:/test/text.exe 2>&1
--
Islaw
------------------------------
Date: Wed, 21 May 2003 07:42:37 +0000 (UTC)
From: "Bernard El-Hagin" <bernard.el-hagin@DODGE_THISlido-tech.net>
Subject: Re: calling an exe file
Message-Id: <Xns93826274FE470elhber1lidotechnet@62.89.127.66>
Islaw wrote:
> w i l l wrote:
>> On Tue, 20 May 2003 23:19:52 GMT, "Anthony" <johnsmith@yahoo.com>
>> wrote:
>>
>>> hi
>>>
>>>
>>> Am still a newie to perl
>>> How do i run an exe. Is there a command.
>>>
>>> once the script is finished running
>>> i need to alert an application that files are waiting in c:\test. The
>>> application has an exe test.exe and will pick the waiting files in
>>> c:\test. How do i call the test.exe
>>>
>>>
>>> tony
>>>
>>
>> system('c:/test/test.exe');
>
>
> Or if the output is needed to be captured:
>
> my $out = `c:/test/text.exe 2>&1
Closing the quote will help substantially.
:-)
--
Cheers,
Bernard
--
echo 42|perl -pe '$#="Just another Perl hacker,"'
------------------------------
Date: Wed, 21 May 2003 04:35:11 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: calling an exe file
Message-Id: <Xns938238CD1C141sdn.comcast@216.166.71.239>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
"Islaw" <islaw@adexec.com> wrote in news:bhFya.4663$YS4.3391
@newssvr17.news.prodigy.com:
> Or if the output is needed to be captured:
>
> my $out = `c:/test/text.exe 2>&1
Somehow I expect that "2>&1" won't work under Windows.
- --
Eric
print scalar reverse sort qw p ekca lre reh
ts uJ p, $/.r, map $_.$", qw e p h tona e;
-----BEGIN xxx SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBPstIQmPeouIeTNHoEQKSJwCdGBVd2yzlR7zj5kRnTkimS1jycDEAoKMk
ZB0zohSrb/DIlWWmYlV1q7cO
=lFFz
-----END PGP SIGNATURE-----
------------------------------
Date: Wed, 21 May 2003 10:33:53 +0100
From: "Allanon" <allanon@hotmail.com>
Subject: Re: calling an exe file
Message-Id: <bafh62$16rq@newton.cc.rl.ac.uk>
"Islaw" <islaw@adexec.com> wrote in message
news:bhFya.4663$YS4.3391@newssvr17.news.prodigy.com...
[..]
> Or if the output is needed to be captured:
>
> my $out = `c:/test/text.exe 2>&1`
That's useful to know :)
Can you explain what the "2>&1" bit actually means/does char-by-char.
Thanks
Allanon
------------------------------
Date: Wed, 21 May 2003 04:48:42 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: Can't install HTML::Request::Common in Cygwin! Any ideas??
Message-Id: <Xns93823B1EB878Bsdn.comcast@216.166.71.239>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
steven@sanctuaryweb.org (Steven W. Buehler, B.A.) wrote in
news:f76e1dcb.0305201421.5fdcbb9c@posting.google.com:
> Running Cygwin, Perl 5.8.0. HTML::Request::Common refuses to install
> and produces the following test failures. Any ideas how to fix?
>
> SWB
>
> Failed Test Stat Wstat Total Fail Failed List of Failed
> -----------------------------------------------------------------------
> -------- local/http-get.t 119 30464 19 19 100.00% 1-19
> local/http.t 119 30464 18 18 100.00% 1-18
> robot/ua-get.t 7 5 71.43% 1-3 5 7
> robot/ua.t 7 5 71.43% 1-3 5 7
> Failed 4/26 test scripts, 84.62% okay. 47/343 subtests failed, 86.30%
> okay.
>
Run those individual test scripts and see what specific tests are failing.
- --
Eric
print scalar reverse sort qw p ekca lre reh
ts uJ p, $/.r, map $_.$", qw e p h tona e;
-----BEGIN xxx SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBPstLeGPeouIeTNHoEQLrkwCgvRnt+Nx3KrUpYPJkw+4qm2hFlAIAn0AL
+32whjWY6VdhtQfDL8ieY1/I
=31XZ
-----END PGP SIGNATURE-----
------------------------------
Date: Wed, 21 May 2003 08:57:18 +0200
From: Pierre Couderc <pierre@couderc.cc>
To: Brian McCauley <nobull@mail.com>
Subject: Re: Can't locate sub.pl
Message-Id: <3ECB234E.30104@couderc.cc>
Brian McCauley wrote:
> Pierre Couderc <pierre@couderc.cc> writes:
>
>
>>I am sorry that I am too new to perl to understand what is so "horrible"...
>
>
> Sorry, I do not understand the significance of this statement.
>
I wanted to understand!
And I thnk you very much for your explanations.
And I understand that nothing is simple in perl. I wanted only put some
instructions in a separate file because they repeat in many scripts.
I have spent many many days on this point and learnt a few things.
I have solved the problem with absolute path in my script. A solution that
personnally, I find "horrible".
Thank you again.
Pierre Couderc
------------------------------
Date: Wed, 21 May 2003 09:00:51 +0200
From: Pierre Couderc <pierre@couderc.cc>
To: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Can't locate sub.pl
Message-Id: <3ECB2423.8060704@couderc.cc>
Gunnar Hjalmarsson wrote:
> Relative paths should _never_ be relied on when running scripts under
> mod_perl.
I have learnt that the hard way...
> One solution might be to change main.pl...
Thank you, this solution is better that wat I did : use full path
Pierre
------------------------------
Date: Wed, 21 May 2003 08:53:50 GMT
From: inwap@inwap.com (Joe Smith)
Subject: Re: Children killing parent SIGCHLD
Message-Id: <y8Hya.18690$io.353228@iad-read.news.verio.net>
In article <Xns93819CB384F8BTweetiePooh@62.253.162.105>,
Tweetie Pooh <tp601553@cia.gov> wrote:
>I use SIG(CHLD) to clean up defunct processes. If I remove handles I get the
>zombies but the parent loops back to pick up another client. With the
>handler the parent hits the cleanup routine then exits its loop and closes
>down.
>
>Is there something else I need to do so the parent just returns to its main
>loop on a child death after cleanup?
If one child forks and immediately exits, the grandchild will have no
parent which means process-ID 1 (init) will take care of it.
while(1) {
$client = $listensock->accept(); # Wait for client to connect
if (fork()) {
close $client; # Parent: let child have exclusive access to socket
} else {
fork() and exit; # Temporary child goes away, grandchild gets PPID = 1
}
wait(); # Reap the temporary child
} # Go back to waiting for another client to connect, loop forever.
-Joe
--
See http://www.inwap.com/ for PDP-10 and "ReBoot" pages.
------------------------------
Date: 20 May 2003 21:32:18 -0700
From: andres@monroy.com (Andres Monroy-Hernandez)
Subject: Re: copying files between two directories
Message-Id: <3591b31a.0305202032.2ca37c9b@posting.google.com>
Naina,
you can always use a system call within your perl program. For example:
my $status = system("cp /dir1/file1 /dir2/file2");
Cheers,
-Andres
naina_r@yahoo.com (Naina) wrote in message news:<5622768f.0305200944.6b260565@posting.google.com>...
> Hi,
> Iam trying to copy files existing under two different root
> directories.Help needed with also if any Attributes can be used to
> get all files with some extension. Any suggestions would be welcome.
> Thanks,
> Naina
------------------------------
Date: 21 May 2003 03:04:30 -0700
From: sebastien@patriate.com.au (Sebastien@Patriate)
Subject: Crypt-SSLeay & Openssl want a divorce
Message-Id: <24827557.0305210204.32729d90@posting.google.com>
Original thread moved from Mechanize assistance ....
> I think this can mean that the openssl shared libs are incompatible with the
> Crypt::SSLeay build - which can happen if you have one particular version of
> OpenSSL and build Crypt-SSLeay against a different version.
>
> (On windows I'll get a pop-up telling me that a certain "ordinal" could not
> be found in a certain dll.)
>
> Was your Crypt-SSLeay built against your current OpenSSL installation ?
I have no idea and still trying to figure that out.
I am using perl 5.8.0, Binary build 806 provided by ActiveState Corp.
http://www.ActiveState.com and Crypt-SSLeay 0.49 provided by
ActiveState.
openssl provided by Shining Light Productions
Program doesn't crash it just returns from the never never eventually.
Now I read the following on the net to install Crypt-SSLeay:
-----------------------------------------------------------
1. Installing OpensSSL 0.9.7
a. Get openssl 0.9.7 from http://www.openssl.org
b. Follow the instruction to install the openssl 0.9.7. I used VC++ to
build the dll version
2. Installing Crypt-SSLeay 0.49
a. At the c:> prompt, type 'ppm'
b. Add the repository at winnipeg by doing the following at the ppm
prompt:
ppm> rep add winnipeg
http://theoryx5.uwinnipeg.ca/cgi-bin/ppmserver?urn:/PPMServer58
ppm> install Crypt-SSLeay
3. Copy the relevant files into the appropriate perl\site\lib
directory
Assume that your perl is installed at c:\Perl and openssl build
directory at c:\openssl-0.9.7
From the openssl directory, copy the ssleay32.dll and libeay32.dll in
c:\openssl-0.9.7\out32dll
to the directory c:\Perl\site\lib\auto\Crypt\SSLeay
---------------------------------------------------------------------
1. Now my first issue is that I need to get a binary distribution of
openssl so went and got
http://www.shininglightpro.com/products/x86/OpenSSL/Official/OpenSSL.exe
Any others?
2. Now when I installed Crypt-SSLeay, it told me that there were
already dll's installed on my system in the system32 dir. Don't know
how they got there, perhaps they're part of citrix app.
So who put it there?
3. Could not locate the dlls that were mentioned in the note in the
openssl dir.
I give up :(
Okay did a few tests:
a) Copied ssleay32.dll and libeay32.dll found in the winnt/system32
dir into \Perl\site\lib\auto\Crypt\SSLeay. Prgram still fails.
b) Copied ssleay32.dll and libeay32.dll found in the perl/bin dir into
\Perl\site\lib\auto\Crypt\SSLeay. Prgram still fails.
c) Tried with openssl uninstalled, no luck. Program still fails.
No joy ... I am going insane ... :&^($^*#$#
----------------------------------------------------------------------
Here is the snippit of code I am working with:
use strict;
use LWP::Debug qw(+);
use HTTP::Cookies;
use LWP::UserAgent;
$ENV{HTTPS_DEBUG} = 1;
$ENV{HTTPS_VERSION} = 3;
#
# CLIENT PKCS12 CERT SUPPORT
#
$ENV{HTTPS_PKCS12_FILE} = 'cert.pfx';
$ENV{HTTPS_PKCS12_PASSWORD} = 'password';
my $ua = new LWP::UserAgent;
my $cookie_jar = HTTP::Cookies->new(
file => "$ENV{'HOME'}/lwp_cookies.dat",
autosave => 1,
);
$ua->cookie_jar( $cookie_jar );
my $req = new HTTP::Request('GET',
'https://shopfront3.telstra.com.au/LOLOPRODapp/LoloSplash.jsp');
my $res = $ua->request($req);
print $res->code."\n";
-------------------------------------------------------------------
and when run, perl ssl.pl, I get the following output.
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking shopfront3.telstra.com.au
for cookies
HTTP::Cookies::add_cookie_header: Checking .telstra.com.au for cookies
HTTP::Cookies::add_cookie_header: - checking cookie path=/
HTTP::Cookies::add_cookie_header: - checking cookie
SMIDENTITY=Y2zl3jdbQSl57arHRdTHEbIKkbvL5kn9+jgvDw==
HTTP::Cookies::add_cookie_header: it's a match
HTTP::Cookies::add_cookie_header: Checking telstra.com.au for cookies
HTTP::Cookies::add_cookie_header: Checking .com.au for cookies
HTTP::Cookies::add_cookie_header: Checking com.au for cookies
HTTP::Cookies::add_cookie_header: Checking .au for cookies
LWP::UserAgent::send_request: GET
https://shopfront3.telstra.com.au/LOLOPRODapp/LoloSplash.jsp
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
AND no more output, dos prompt returned :(
--------------------------------------------------
Now if I uncomment out the code below in my script to turn off
certification test:
$ENV{HTTPS_PKCS12_FILE} = 'cert.pfx';
$ENV{HTTPS_PKCS12_PASSWORD} = 'password';
then the program runs with the following output till the end, but
takes some time to get there.
LWP::UserAgent::new: ()
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking shopfront3.telstra.com.au
for cookies
HTTP::Cookies::add_cookie_header: Checking .telstra.com.au for cookies
HTTP::Cookies::add_cookie_header: - checking cookie path=/
HTTP::Cookies::add_cookie_header: - checking cookie
SMIDENTITY=Y2zRtjra53DoknrJ5vSsEbIKkbvL5kn9+jgvDw==
HTTP::Cookies::add_cookie_header: it's a match
HTTP::Cookies::add_cookie_header: Checking telstra.com.au for cookies
HTTP::Cookies::add_cookie_header: Checking .com.au for cookies
HTTP::Cookies::add_cookie_header: Checking com.au for cookies
HTTP::Cookies::add_cookie_header: Checking .au for cookies
LWP::UserAgent::send_request: GET
https://shopfront3.telstra.com.au/LOLOPRODapp/LoloSplash.jsp
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
SSL_connect:before/connect initialization
SSL_connect:SSLv3 write client hello A
SSL_connect:error in SSLv3 read server hello A
SSL_connect:before/connect initialization
SSL_connect:SSLv2 write client hello A
SSL_connect:SSLv2 read server hello A
SSL_connect:SSLv2 write client master key A
SSL_connect:SSLv2 client start encryption
SSL_connect:SSLv2 write client finished A
SSL_connect:SSLv2 read server verify A
SSL_connect:SSLv2 read server finished A
LWP::UserAgent::request: Simple response: Found
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking telstra.com for cookies
HTTP::Cookies::add_cookie_header: Checking .com for cookies
LWP::UserAgent::send_request: GET
https://telstra.com/siteminderagent/SmMakeCookie.ccc?SMSESSION=QUERY&PERSIST=0&TARGET=$SM$https%3a
%2f%2fshopfront3%2etelstra%2ecom%2eau%2fLOLOPRODapp%2fLoloSplash%2ejsp
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
SSL_connect:before/connect initialization
SSL_connect:SSLv3 write client hello A
SSL_connect:SSLv3 read server hello A
SSL_connect:SSLv3 read server certificate A
SSL_connect:SSLv3 read server done A
SSL_connect:SSLv3 write client key exchange A
SSL_connect:SSLv3 write change cipher spec A
SSL_connect:SSLv3 write finished A
SSL_connect:SSLv3 flush data
SSL_connect:SSLv3 read finished A
SSL3 alert read:warning:close notify
LWP::UserAgent::request: Simple response: Found
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking shopfront3.telstra.com.au
for cookies
HTTP::Cookies::add_cookie_header: Checking .telstra.com.au for cookies
HTTP::Cookies::add_cookie_header: - checking cookie path=/
HTTP::Cookies::add_cookie_header: - checking cookie
SMIDENTITY=Y2zl3jdbQSl8wrJ5vSsEbIKkbvL5kn9+jgvDw==
HTTP::Cookies::add_cookie_header: it's a match
HTTP::Cookies::add_cookie_header: Checking telstra.com.au for cookies
HTTP::Cookies::add_cookie_header: Checking .com.au for cookies
HTTP::Cookies::add_cookie_header: Checking com.au for cookies
HTTP::Cookies::add_cookie_header: Checking .au for cookies
LWP::UserAgent::send_request: GET
https://shopfront3.telstra.com.au/LOLOPRODapp/LoloSplash.jsp?SMSESSION=NO
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
SSL_connect:before/connect initialization
SSL_connect:SSLv3 write client hello A
SSL_connect:SSLv3 read server hello A
SSL_connect:SSLv3 read server certificate A
SSL_connect:SSLv3 read server done A
SSL_connect:SSLv3 write client key exchange A
SSL_connect:SSLv3 write change cipher spec A
SSL_connect:SSLv3 write finished A
SSL_connect:SSLv3 flush data
SSL_connect:SSLv3 read finished A
SSL3 alert read:warning:close notify
LWP::UserAgent::request: Simple response: Found
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking clientssl.telstra.com.au
for cookies
HTTP::Cookies::add_cookie_header: Checking .telstra.com.au for cookies
HTTP::Cookies::add_cookie_header: - checking cookie path=/
HTTP::Cookies::add_cookie_header: - checking cookie
SMIDENTITY=Y2zl3jdbQSl8wj0CO5vSsEbIKkbvL5kn9+jgvDw==
HTTP::Cookies::add_cookie_header: it's a match
HTTP::Cookies::add_cookie_header: Checking telstra.com.au for cookies
HTTP::Cookies::add_cookie_header: Checking .com.au for cookies
HTTP::Cookies::add_cookie_header: Checking com.au for cookies
HTTP::Cookies::add_cookie_header: Checking .au for cookies
LWP::UserAgent::send_request: GET
https://clientssl.telstra.com.au/siteminderagent/cert/1053506957/smgetcred.scc?TYPE=1244&REALM
=$SM$%2fLOLO%20[18%3a49%3a17%3a3177]&TARGET=$SM$https%3a%2f%2fshopfront3%2etelstra%2ecom%2eau%2fLOLOPRODapp%2fLoloSplash%2ejsp
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
SSL_connect:before/connect initialization
SSL_connect:SSLv3 write client hello A
SSL_connect:SSLv3 read server hello A
SSL_connect:SSLv3 read server certificate A
SSL_connect:SSLv3 read server certificate request A
SSL_connect:SSLv3 read server done A
SSL3 alert write:warning:no certificate
SSL_connect:SSLv3 write client certificate A
SSL_connect:SSLv3 write client key exchange A
SSL_connect:SSLv3 write change cipher spec A
SSL_connect:SSLv3 write finished A
SSL_connect:SSLv3 flush data
SSL_connect:SSLv3 read finished A
SSL3 alert read:warning:close notify
LWP::UserAgent::request: Simple response: Found
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking register.telstra.com.au for
cookies
HTTP::Cookies::add_cookie_header: Checking .telstra.com.au for cookies
HTTP::Cookies::add_cookie_header: - checking cookie path=/
HTTP::Cookies::add_cookie_header: - checking cookie
SMIDENTITY=Y2zl3jdbQSl8wj0COoknSsEbIKkbvL5kn9+jgvDw==
HTTP::Cookies::add_cookie_header: it's a match
HTTP::Cookies::add_cookie_header: Checking telstra.com.au for cookies
HTTP::Cookies::add_cookie_header: Checking .com.au for cookies
HTTP::Cookies::add_cookie_header: Checking com.au for cookies
HTTP::Cookies::add_cookie_header: Checking .au for cookies
LWP::UserAgent::send_request: GET
https://register.telstra.com.au/online/unregistered.html
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
SSL_connect:before/connect initialization
SSL_connect:SSLv3 write client hello A
SSL_connect:SSLv3 read server hello A
SSL_connect:SSLv3 read server certificate A
SSL_connect:SSLv3 read server done A
SSL_connect:SSLv3 write client key exchange A
SSL_connect:SSLv3 write change cipher spec A
SSL_connect:SSLv3 write finished A
SSL_connect:SSLv3 flush data
SSL_connect:SSLv3 read finished A
LWP::Protocol::collect: read 4096 bytes
LWP::Protocol::collect: read 4096 bytes
LWP::Protocol::collect: read 4096 bytes
LWP::Protocol::collect: read 1067 bytes
HTTP::Cookies::extract_cookies: Set cookie CASESSION =>
61.95.13.39:908c1e30-040e-3edb7de0-0031-b4d0510e
LWP::UserAgent::request: Simple response: OK
Don't know why the above took so long (more than 10 seconds), but in
the browser 1 second.
Don't know why I am seeing SSL3 alert read:warning:close notify
messages. Is this normal?
Help !!!
Cheers,
Sebastien
------------------------------
Date: 20 May 2003 21:30:38 -0700
From: andres@monroy.com (Andres Monroy-Hernandez)
Subject: Re: error handling on file open
Message-Id: <3591b31a.0305202030.7f346100@posting.google.com>
Hi Rene,
re 1) as long as you use the parenthesis in the open function, it
doesn't matter which operator you use.
The or operator is just safer to use because it has lower precedence,
so in case you do something like:
open FILE, "filenpath" or die("cannot open file");
it will be the same as:
open (FILE, "filenpath") or die("cannot open file");
but, because || has higher precedence, something like:
open FILE, "filenpath" || die("cannot open file");
will be the same as:
open FILE, ("filenpath" || die("cannot open file"));
which is not what you want.
re 2) One way you can do that is:
unless ( open(FILE, "filepath") ) {
print "cannot open file";
print "exiting script";
exit;
}
Remember, open returns undef if it fails:
http://www.perldoc.com/perl5.6/pod/func/open.html
Cheers,
-Andres
"Rene Scheibe" <Rene.Scheibe@gmx.net> wrote in message news:<baebsj$slmfu$1@ID-65612.news.dfncis.de>...
> i have some questions about handling errors
> when opening files. for example you can do
>
> open (FILE, "filenpath") or die("cannot open file");
>
> my questions:
> 1) what is the difference using "or" or "||"?
>
> 2) how can i run more than one command after "or"?
> the following doesnt work:
> open (FILE, "filepath") or {
> print "cannot open file";
> print "exiting script";
> exit; }
>
> thanks rene
------------------------------
Date: 20 May 2003 22:35:33 -0700
From: dwlepage@yahoo.com (david)
Subject: Re: Finding files and moving them in perl
Message-Id: <b09a22ae.0305202135.5142c855@posting.google.com>
dwlepage@yahoo.com (david) wrote in message news:<b09a22ae.0305201813.138fefa8@posting.google.com>...
> Im wondering if someone can help me with this simple perl problem. I
> have files in a directory /opt/scripts of the format:
> QF12345
> DF12345
> QF23456
> DF23456
>
> If I find files that start with QF(.*) and DF$1 I want to copy them to
> a different directory. I've been toying with File::Find and
> File::Copy, and seem to have a way to find and a seperate way to copy
> the files but cannot seem to implement the right solution. Here is
> what I have so far:
>
> #!/usr/bin/perl
>
> use strict;
> use File::Find;
> use File::Copy;
>
> sub findfile {
> if ($File::Find::name=~/QF(.*)/i or $File::Find::name=~/DF$1/i) {
> print $File::Find::name;
> print "\n";
>
> }
> }
>
> find \&findfile, '/opt/scripts';
>
> Any idea how I can get the files I find to then copy them to a
> seperate directory?
>
> Thanks!
>
> Dave
Im a dufus. I found the answer. I just got frustrated after staring at
this for 4 hours. Anyways, here is what I came up with:
#!/usr/bin/perl
#
use File::Copy;
opendir(DIR, ".") or die "Cannot open directory";
foreach $entry (readdir DIR)
{
if ($entry=~m/DF(.*)|QF$1/) {
move("$entry","/opt/scripts/testdir");
}
}
closedir(DIR);
------------------------------
Date: 21 May 2003 05:48:33 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: Finding files and moving them in perl
Message-Id: <baf3vh$mpb$1@nets3.rz.RWTH-Aachen.DE>
Also sprach david:
> Im wondering if someone can help me with this simple perl problem. I
> have files in a directory /opt/scripts of the format:
> QF12345
> DF12345
> QF23456
> DF23456
>
> If I find files that start with QF(.*) and DF$1 I want to copy them to
> a different directory. I've been toying with File::Find and
> File::Copy, and seem to have a way to find and a seperate way to copy
> the files but cannot seem to implement the right solution. Here is
> what I have so far:
>
> #!/usr/bin/perl
>
> use strict;
> use File::Find;
> use File::Copy;
>
> sub findfile {
> if ($File::Find::name=~/QF(.*)/i or $File::Find::name=~/DF$1/i) {
> print $File::Find::name;
> print "\n";
>
> }
> }
>
> find \&findfile, '/opt/scripts';
>
> Any idea how I can get the files I find to then copy them to a
> seperate directory?
The problem with your findfile-sub is that you only have one filename
for each instance of the subroutine. I suggest you only look at the QF(.*)
files and for each find out whether DF$1 exists. If so copy both of
them:
sub findfile {
if (/QF(.*)/ and -e "$File::Find::dir/DF$1") {
for ($File::Find::name, "$File::Find::dir/DF$1") {
print "Copying $_\n";
copy $_, $target_dir or warn "Error copying: $!";
}
}
}
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: 21 May 2003 02:05:46 -0700
From: i5513@hotmail.com (i5513)
Subject: Re: How can I get stats about how many time is a program into a function?
Message-Id: <a657ec02.0305210105.752a3f60@posting.google.com>
> See 'perldoc Devel::DProf'. It is pretty exactly what you want.
>
Thank you, I was lost. It is exactly I was searching.
------------------------------
Date: Wed, 21 May 2003 10:03:25 GMT
From: inwap@inwap.com (Joe Smith)
Subject: Re: multiple sort subroutine
Message-Id: <N9Iya.18708$io.353021@iad-read.news.verio.net>
In article <5fWxa.7754$7B6.85884@wagner.videotron.net>,
Mina Naguib <spam@thecouch.homeip.net> wrote:
>-----BEGIN xxx SIGNED MESSAGE-----
>Hash: SHA1
>
>Dave wrote:
>>>This is untested, however should work, and is fairly clean and
>>>non-clumsy:
>>>
>>>sub seniority {
>>> my $res;
>>> foreach (qw(SALARY AGE LAST FIRST)) {
>>> if (/^\d+$/) {
>>> $res = $a->{$_} <=> $b->{$_};
>>> }
>>> else {
>>> $res = $a->{$_} cmp $b->{$_};
>>> }
>>> return $res if $res;
>>> }
>>> return 0;
>>>}
> > Thanks for the quick response! Unfortunately, I'm still missing
> > something. The subroutine seniority needs to run through each
> > iteration. i don't know how to explain it, but this would work if I knew
> > which comparision to use:
> >
> > sub seniority {
> > $a->{$sort1} <=> $b->{$sort1}
> > or $a->{sort2} <=> $b->{$sort2}
> > or $a->{$sort3} cmp $b->{$sort3}
> > or $a->{$sort4} cmp $b->{$sort4}
> > }
>
>Unless I misunderstood you a second time in a row, the sorting
>subroutine I posted should do what you asked for, which is sort based on
>salary, then age, then last, then first, with each sort being the
>correct alphabetical or numerical sort.
The above code is testing the wrong variable for being numeric.
It should meet Dave's requirements after changing
>>> if (/^\d+$/) {
to
if ($a->{$_} =~ /^\d+$/ && $b->{$_} =~ /^\d+$/) {
Dave,
The corrected code will use '<=>' on fields that consist of
digits only and 'cmp' otherwise. Like 'or', it will short-circuit
the evaluation when it is obvious that a difference has been detected.
In other words, seniority() will do the comparison as you asked.
-Joe
--
See http://www.inwap.com/ for PDP-10 and "ReBoot" pages.
------------------------------
Date: Wed, 21 May 2003 09:24:24 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Perl: Regex help request
Message-Id: <94hmcvsinl2e1rvricqe60uldif83c0ml6@4ax.com>
deepak p wrote:
>I need to replace null values in a pipe separated data file with 0.
>There is one record per line and my env is perl 5.61 on Solaris if
>that matters.
>
>The first line of the data line is shown below along with what I would
>like to change it to.
>
>before
>Line 1|550|152|154|29|3|1|||||||
>
>would like it to be changed to
>Line 1|550|152|154|29|3|1|0|0|0|0|0|0|0
I propose split(), fill in the blanks, and join() again.
Note that the value for the special variable $, will insert the pipe
symbols on print(); $\ will append a newline.
$\ = "\n";
$, = "|";
while(<>) {
chomp;
my @data = split /\|/, $_, -1;
$_ ||= 0 foreach @data;
print @data;
}
--
Bart.
------------------------------
Date: Wed, 21 May 2003 04:47:09 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: Perl: Regex help request
Message-Id: <Xns93823ADB91E0Asdn.comcast@216.166.71.239>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
deepak10000@hotmail.com (deepak p) wrote in
news:9e77c6b2.0305200900.627cea11@posting.google.com:
> Dear Colleagues,
>
> I need to replace null values in a pipe separated data file with 0.
> There is one record per line and my env is perl 5.61 on Solaris if
> that matters.
>
> The first line of the data line is shown below along with what I would
> like to change it to.
>
> before
> Line 1|550|152|154|29|3|1|||||||
>
> would like it to be changed to
> Line 1|550|152|154|29|3|1|0|0|0|0|0|0|0
So you want every | that is followed by another | or end-of-line to have
a 0 placed after it?
s/\|(?>\||$)/|0/gx;
which is:
s/ # substitute
\| # look for a |
(?> # followed by
\| # another |
| # or
$ # end-of-line
)
/|0/gx; # replace with |0
Your regex, s/\|\|/|0|/g, wasn't working because it advanced past the
second | each time. You need (?>) to peek ahead without advancing the
regex engine.
- --
Eric
print scalar reverse sort qw p ekca lre reh
ts uJ p, $/.r, map $_.$", qw e p h tona e;
-----BEGIN xxx SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBPstLG2PeouIeTNHoEQInjgCfegbl7GvTSEYI5SgawZmuxfWzqvQAoOTm
Mx5WK+9Gu1YjUDc9kx5YDBFu
=gTnr
-----END PGP SIGNATURE-----
------------------------------
Date: Wed, 21 May 2003 08:14:44 GMT
From: inwap@inwap.com (Joe Smith)
Subject: Re: Problem with regular expression evaluation from perl 5.6 to 5.8
Message-Id: <UzGya.18682$io.353167@iad-read.news.verio.net>
In article <bads0v$rsn$1@trsvr.tr.unisys.com>,
Gregory K. Deal <nospam.gregory.deal@unisys.com> wrote:
>Original statement in 5.6 :
> regular expression as an IF argument : if ($inst2_key =~
>/_${index}$/) { . . . .
> This finds the pattern specified in the $index variable at the end of
>the line. But, in 5.8, the IF did not match.
>
>Modified statement in 5.8 :
> regular expression now : if ($inst2_key =~ /_${index}/m) { . . . .
> This works as expected in 5.6 and 5.8
But you changed two things there. Which of the following work for you:
1) /_${index}$/
2) /_${index}$/m
3) /_${index}/m
Does the string in $inst2_key have multiple instances of "\n" or "\r\n"?
-Joe
--
See http://www.inwap.com/ for PDP-10 and "ReBoot" pages.
------------------------------
Date: Wed, 21 May 2003 09:16:46 GMT
From: inwap@inwap.com (Joe Smith)
Subject: Re: Sending email with perl.
Message-Id: <2uHya.18696$io.353228@iad-read.news.verio.net>
In article <Mopya.52$bO6.117807@news1.news.adelphia.net>,
Chip <chip@afcoms.NOSPAM.com> wrote:
>I read the perldoc -f open but did not realy understand how it
>would work. Can you explain it a little beter for me?
open MAIL,"|mailx -s '$subject' $mailto" or die "open(|mailx) $!\n";
print MAIL "One or more lines of text here\n" or warn "print(mailx) $!\n";
close MAIL or warn "close(mailx) $!\n";
-Joe
--
See http://www.inwap.com/ for PDP-10 and "ReBoot" pages.
------------------------------
Date: Wed, 21 May 2003 09:23:06 GMT
From: inwap@inwap.com (Joe Smith)
Subject: Re: Syslog parsing with Perl
Message-Id: <_zHya.18698$io.353228@iad-read.news.verio.net>
In article <79c1dbe1.0305191246.52707479@posting.google.com>,
Big Brother <jonasb@alum.rpi.edu> wrote:
>if I have the logfile open in the Perl script, will this put a lock
>on it and prevent logging to this file?
If the syslog file is stored on a Unix server, open-for-read does
not prevent syslogd from writing to the file. Win32 is another story.
-Joe
--
See http://www.inwap.com/ for PDP-10 and "ReBoot" pages.
------------------------------
Date: 20 May 2003 21:20:13 -0700
From: syzygyooo@yahoo.ca (Julian Day)
Subject: underscoring initialisms
Message-Id: <c0cbb4b4.0305202020.566f55d0@posting.google.com>
I'm looking for a regex to separate strings of letters with
underscores in case they contain no vowels. So with the following
where $c = consonants and $v = vowels:
while (<DATA>) {
s/\G($c)(?!($c)*($v))/$1_/g;
print;
}
__DATA__
qwrtd
afdhgj
shgaeklo
dddd
The output is almost what I am looking for:
q_w_r_t_
afdhgj
shgaeklo
d_d_d_d_
Except for that nasty trailing underscore. Any alternatives? (I would
really like to use a clean search and replace here).
/Julian Day
------------------------------
Date: Wed, 21 May 2003 08:15:37 +0200
From: Eric Moors <scare.crow@oz.land>
Subject: Re: underscoring initialisms
Message-Id: <pan.2003.05.21.08.15.36.812147.14874@oz.land>
On Wed, 21 May 2003 06:20:13 +0200, Julian Day wrote:
> I'm looking for a regex to separate strings of letters with underscores
> in case they contain no vowels. So with the following where $c =
> consonants and $v = vowels:
>
> while (<DATA>) {
>
> s/\G($c)(?!($c)*($v))/$1_/g;
> print;
> }
>
> __DATA__
> qwrtd
> afdhgj
> shgaeklo
> dddd
>
> The output is almost what I am looking for:
>
> q_w_r_t_
> afdhgj
> shgaeklo
> d_d_d_d_
>
> Except for that nasty trailing underscore. Any alternatives? (I would
> really like to use a clean search and replace here).
>
> /Julian Day
Looks like the commifying problem from the FAQ:
perldoc -q 'numbers with commas'
while (<DATA>) {
if (/^.*[aeiou].*$/) {
print;
next;
}
1 while s/^([a-z]+)([a-z]{1})/$1_$2/;
print;
}
__DATA__
qwrtd
afdhgj
shgaeklo
dddd
Eric
------------------------------
Date: Wed, 21 May 2003 06:35:29 +0000 (UTC)
From: Xavier Noria <fxn@hashref.com>
Subject: Re: underscoring initialisms
Message-Id: <baf6nh$o6d$1@news.ya.com>
In article <c0cbb4b4.0305202020.566f55d0@posting.google.com>, Julian Day wrote:
: I'm looking for a regex to separate strings of letters with
: underscores in case they contain no vowels. So with the following
: where $c = consonants and $v = vowels:
:
: while (<DATA>) {
:
: s/\G($c)(?!($c)*($v))/$1_/g;
This substitution with /e could do the job as well:
s: ^$c+$ : join('_', split(//, $&)) :xe;
Don't know whether is slower than a solution with assertions, but looks more
readable to me.
-- fxn
------------------------------
Date: 20 May 2003 21:17:25 -0700
From: andres@monroy.com (Andres Monroy-Hernandez)
Subject: Re: While loops and arrays
Message-Id: <3591b31a.0305202017.7320289e@posting.google.com>
One way to do it (remember TMTOWTDI) is to create a temporary array
for every cycle of the while loop. After each cycle, append the
temporary array to the global array @data.
It would be something like:
use strict;
my @data;
while(<FILE>){
my @tmp = split /,/;
push(@tmp, @data);
}
print "@data";
This will print all the elements captured by the while loop.
By the way, always work with "use strict" enabled.
Cheers!
-Andres
dayjp@yahoo.com (Jday) wrote in message news:<827501f5.0305201451.2c532d9f@posting.google.com>...
> I am writing a script to iterate through each element of one array and
> compare each element with another array to pick out the corresponding
> value. I have popluated my arrays by using while loops, as my data is
> contained in comma delimited format:
>
> while (<FILE>) {
> @data = split /,/;
> }
>
> My frustration is that I can't figure out how to keep and use the data
> in the array after the while loop has ended. For example, if I were
> to do this:
>
> while (<FILE>) {
> @data = split /,/;
> print "@data\n";
> }
>
> I get all the data in the array, whereas if I do this:
>
> while (<FILE>) {
> @data = split /,/;
> }
> print "@data\n";
>
> I get the last row of data in the array. How can I "transfer" the
> data in the array from within the while loop so I can use that full
> array in another portion of the script? Thanks for your help!!!
------------------------------
Date: Wed, 21 May 2003 06:41:30 GMT
From: "Islaw" <islaw@adexec.com>
Subject: Re: While loops and arrays
Message-Id: <ucFya.4662$vO4.2272@newssvr17.news.prodigy.com>
Michael P. Broida wrote:
> w i l l wrote:
>>
>> On 20 May 2003 15:51:23 -0700, dayjp@yahoo.com (Jday) wrote:
>>
>>> I am writing a script to iterate through each element of one array
>>> and compare each element with another array to pick out the
>>> corresponding value. I have popluated my arrays by using while
>>> loops, as my data is contained in comma delimited format:
>>>
>>> while (<FILE>) {
>>> @data = split /,/;
>>> }
>>>
>>> My frustration is that I can't figure out how to keep and use the
>>> data in the array after the while loop has ended. For example, if
>>> I were to do this:
>>>
>>> while (<FILE>) {
>>> @data = split /,/;
>>> print "@data\n";
>>> }
>>>
>>> I get all the data in the array, whereas if I do this:
>>>
>>> while (<FILE>) {
>>> @data = split /,/;
>>> }
>>> print "@data\n";
>>>
>>> I get the last row of data in the array. How can I "transfer" the
>>> data in the array from within the while loop so I can use that full
>>> array in another portion of the script? Thanks for your help!!!
>>
>> Push the data to a new array, SOMHOW, like this.
>>
>> for (<FILE>) {
>>
>> push $_, @someArray;
>>
>> }
>
> Um, am I misreading that? Or misunderstanding what you mean?
> "push" wants the ARRAY arg first, the LIST arg second.
> Shouldn't that example be:
> push @someArray, $_;
> ?? That will push $_ onto the end of @someArray.
>
> Mike
You are right. The other poster probably just did that by mistake.
And while I'm here you may want to consider an array of arrays or hash of
arrays so you may keep each "row" seperate.
__CODE__
#!/usr/local/bin/perl
use strict;
my @rows;
open FILE, 'test.comma.txt';
while (<FILE>) {
chomp; # Eat newline at end of line.
my @data = split /,/;
push @rows, \@data; # Add a row.
}
close FILE;
print "Row [0] = (". join(', ', @{$rows[0]} ). ")\n";
print "Row [0], Value [1] = $rows[0][1]\n";
__DATA__ (in test.comma.txt)
1,2,3
4,5,6
7,8,9
__OUTPUT__
Row [0] = (1, 2, 3)
Row [0], Value [1] = 2
--
Islaw
------------------------------
Date: Wed, 21 May 2003 10:34:02 +0200
From: "Thomas Kratz" <ThomasKratz@REMOVEwebCAPS.de>
Subject: Re: While loops and arrays
Message-Id: <3ecb4201.0@juno.wiesbaden.netsurf.de>
DQoiQW5kcmVzIE1vbnJveS1IZXJuYW5kZXoiIDxhbmRyZXNAbW9ucm95LmNvbT4gc2NocmllYiBp
bSBOZXdzYmVpdHJhZyBuZXdzOjM1OTFiMzFhLjAzMDUyMDIwMTcuNzMyMDI4OWVAcG9zdGluZy5n
b29nbGUuY29tLi4uDQo+IE9uZSB3YXkgdG8gZG8gaXQgKHJlbWVtYmVyIFRNVE9XVERJKSBpcyB0
byBjcmVhdGUgYSB0ZW1wb3JhcnkgYXJyYXkNCj4gZm9yIGV2ZXJ5IGN5Y2xlIG9mIHRoZSB3aGls
ZSBsb29wLiBBZnRlciBlYWNoIGN5Y2xlLCBhcHBlbmQgdGhlDQo+IHRlbXBvcmFyeSBhcnJheSB0
byB0aGUgZ2xvYmFsIGFycmF5IEBkYXRhLg0KPiANCj4gSXQgd291bGQgYmUgc29tZXRoaW5nIGxp
a2U6DQo+IA0KPiB1c2Ugc3RyaWN0Ow0KPiBteSBAZGF0YTsNCj4gd2hpbGUoPEZJTEU+KXsNCj4g
ICAgIG15IEB0bXAgPSBzcGxpdCAvLC87DQo+ICAgICBwdXNoKEB0bXAsIEBkYXRhKTsgDQoNClN1
cmVseSB5b3UgbWVhbjoNCg0KcHVzaChAZGF0YSwgQHRtcCk7DQoNCk9yIHVzaW5nIGFuZCBhcnJh
eSBvZiBhcnJheXMgYXMgb3RoZXJzIGhhdmUgc3VnZ2VzdGVkOg0KDQpwdXNoKEBkYXRhLCBcQHRt
cCk7DQoNCj4gfQ0KPiANCj4gcHJpbnQgIkBkYXRhIjsNCj4gDQo+IFRoaXMgd2lsbCBwcmludCBh
bGwgdGhlIGVsZW1lbnRzIGNhcHR1cmVkIGJ5IHRoZSB3aGlsZSBsb29wLg0KPiANCj4gQnkgdGhl
IHdheSwgYWx3YXlzIHdvcmsgd2l0aCAidXNlIHN0cmljdCIgZW5hYmxlZC4NCg0KQW5kIHRlc3Qg
Y29kZSBiZWZvcmUgeW91IHBvc3QgaXQgOy0pDQoNClRob21hcw==
------------------------------
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 5017
***************************************
