[30105] in Perl-Users-Digest
Perl-Users Digest, Issue: 1348 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 10 09:09:40 2008
Date: Mon, 10 Mar 2008 06:09:05 -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, 10 Mar 2008 Volume: 11 Number: 1348
Today's topics:
Re: Conditional compilation <jeroen.lodewijks@gmail.com>
Re: Getting permissions using Win32::TieRegistry <ThomasKratz@REMOVEwebCAPS.de>
Re: how to read user's IP adress with Perl? <vikramganiga@gmail.com>
Re: how to read user's IP adress with Perl? <someone@example.com>
new CPAN modules on Mon Mar 10 2008 (Randal Schwartz)
Pattern extraction (SE)
Pattern extraction (SE)
Re: Pattern extraction <devnull4711@web.de>
Re: Pattern extraction <noreply@gunnar.cc>
Re: Pattern extraction <jurgenex@hotmail.com>
Re: Setting chmod <abigail@abigail.be>
Re: substitution - variable in variable <stoupa@practisoft.cz>
Re: substitution - variable in variable <noreply@gunnar.cc>
Re: The people in comp.lang.perl.misc said... <Riff@use.net>
Re: Using Perl to get data from website <fiazbfs@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 10 Mar 2008 03:40:01 -0700 (PDT)
From: Wcool <jeroen.lodewijks@gmail.com>
Subject: Re: Conditional compilation
Message-Id: <72c6e56f-79fd-47b1-a3a9-025e49ae559c@m44g2000hsc.googlegroups.com>
Thank you both!
Jeroen
------------------------------
Date: Mon, 10 Mar 2008 13:20:31 +0100
From: Thomas Kratz <ThomasKratz@REMOVEwebCAPS.de>
Subject: Re: Getting permissions using Win32::TieRegistry
Message-Id: <47d5278f$0$2619$bb690d87@news.main-rheiner.de>
Cosmic Cruizer wrote:
> I can get most of the registry info I need by using Win32::TieRegistry, but
> I cannot figure out how to get the permissions for the keys. Is it possbile
> to get the key permissions using TieRegistry? If not, is there a different
> way to use Perl to get the registry key permissions?
Win32::Perms is your friend.
Try:
ppm install http://www.roth.net/perl/packages/win32-perms.ppd
Thomas
--
$/=$,,$_=<DATA>,s,(.*),$1,see;__END__
s,^(.*\043),,mg,@_=map{[split'']}split;{#>J~.>_an~>>e~......>r~
$_=$_[$%][$"];y,<~>^,-++-,?{$/=--$|?'"':#..u.t.^.o.P.r.>ha~.e..
'%',s,(.),\$$/$1=1,,$;=$_}:/\w/?{y,_, ,,#..>s^~ht<._..._..c....
print}:y,.,,||last,,,,,,$_=$;;eval,redo}#.....>.e.r^.>l^..>k^.-
------------------------------
Date: Sun, 9 Mar 2008 22:33:23 -0700 (PDT)
From: vikram <vikramganiga@gmail.com>
Subject: Re: how to read user's IP adress with Perl?
Message-Id: <9cd6baab-e40b-4156-8288-a6cc9a0920f2@h11g2000prf.googlegroups.com>
On Mar 8, 1:51=A0pm, "Marthan" <mart...@csv.t-portal.cc> wrote:
> how to read user's IP adress with Perl?
>
> Marhan
Hi,
(\d)\.(\d)\.(\d)\.(\d)
represents the ipaddress.
Bye
vikram
------------------------------
Date: Mon, 10 Mar 2008 13:03:42 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: how to read user's IP adress with Perl?
Message-Id: <OkaBj.75295$w57.53684@edtnps90>
vikram wrote:
> On Mar 8, 1:51 pm, "Marthan" <mart...@csv.t-portal.cc> wrote:
>> how to read user's IP adress with Perl?
>
> (\d)\.(\d)\.(\d)\.(\d)
>
> represents the ipaddress.
66.94.234.13 is a valid IP address which won't be matched by that pattern.
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
------------------------------
Date: Mon, 10 Mar 2008 04:42:19 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Mar 10 2008
Message-Id: <JxHzqJ.17M2@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
App-Booklist-0.5
http://search.cpan.org/~genehack/App-Booklist-0.5/
Track books you want to read, are reading, and have read
----
App-MadEye-0.01
http://search.cpan.org/~tokuhirom/App-MadEye-0.01/
enterprise-class monitoring solutions
----
App-Nopaste-0.01
http://search.cpan.org/~sartak/App-Nopaste-0.01/
easy access to any pastebin
----
CGI-Application-PhotoGallery-0.11
http://search.cpan.org/~bricas/CGI-Application-PhotoGallery-0.11/
module to provide a simple photo gallery
----
CGI-Portal-0.10
http://search.cpan.org/~alpo/CGI-Portal-0.10/
Extensible Framework for Multiuser Applications
----
Calendar-Simple-1.19
http://search.cpan.org/~davecross/Calendar-Simple-1.19/
Perl extension to create simple calendars
----
Class-Workflow-0.09
http://search.cpan.org/~nuffin/Class-Workflow-0.09/
Light weight workflow system.
----
Curses-1.23
http://search.cpan.org/~giraffed/Curses-1.23/
terminal screen handling and optimization
----
DBM-Deep-1.0008
http://search.cpan.org/~rkinyon/DBM-Deep-1.0008/
A pure perl multi-level hash/array DBM that supports transactions
----
Data-Structure-Util-0.14
http://search.cpan.org/~andya/Data-Structure-Util-0.14/
Change nature of data within a structure
----
Data-Structure-Util-0.15
http://search.cpan.org/~andya/Data-Structure-Util-0.15/
Change nature of data within a structure
----
IPC-MorseSignals-0.12
http://search.cpan.org/~vpit/IPC-MorseSignals-0.12/
Communicate between processes with Morse signals.
----
IPC-ShareLite-0.13
http://search.cpan.org/~andya/IPC-ShareLite-0.13/
Lightweight interface to shared memory
----
LUGS-Events-Parser-0.01
http://search.cpan.org/~schubiger/LUGS-Events-Parser-0.01/
Event parser for the Linux User Group Switzerland
----
LUGS-Events-Parser-0.02
http://search.cpan.org/~schubiger/LUGS-Events-Parser-0.02/
Event parser for the Linux User Group Switzerland
----
Linux-SysInfo-0.09
http://search.cpan.org/~vpit/Linux-SysInfo-0.09/
Perl interface to the sysinfo(2) Linux system call.
----
Math-Round-Var-v1.0.0
http://search.cpan.org/~ewilhelm/Math-Round-Var-v1.0.0/
Variations on rounding.
----
Music-Audioscrobbler-MPD-0.1
http://search.cpan.org/~ealleniii/Music-Audioscrobbler-MPD-0.1/
Module providing routines to submit songs to last.fm from MPD.
----
Music-Audioscrobbler-Submit-0.02
http://search.cpan.org/~ealleniii/Music-Audioscrobbler-Submit-0.02/
Module providing routines to submit songs to last.fm using 1.2 protocol.
----
Net-MirrorDir-0.15
http://search.cpan.org/~knorr/Net-MirrorDir-0.15/
Perl extension for compare local-directories and remote-directories with each other
----
Number-Fraction-1.11
http://search.cpan.org/~davecross/Number-Fraction-1.11/
Perl extension to model fractions
----
PDE-v0.2.6
http://search.cpan.org/~yewenbin/PDE-v0.2.6/
Perl Development Environment in emacs
----
POE-Component-Client-opentick-0.02
http://search.cpan.org/~infidel/POE-Component-Client-opentick-0.02/
A POE component for working with opentick.com's market data feeds.
----
POE-Component-IRC-Plugin-BasePoCoWrap-0.001
http://search.cpan.org/~zoffix/POE-Component-IRC-Plugin-BasePoCoWrap-0.001/
base talking/ban/trigger functionality for plugins using POE::Component::*
----
POE-Component-IRC-Plugin-BrowserSupport-0.001
http://search.cpan.org/~zoffix/POE-Component-IRC-Plugin-BrowserSupport-0.001/
lookup browser support for CSS/HTML/JS from IRC
----
POE-Component-IRC-Plugin-Validator-HTML-0.001
http://search.cpan.org/~zoffix/POE-Component-IRC-Plugin-Validator-HTML-0.001/
access HTML validator from IRC
----
Parallel-SubFork-0.01
http://search.cpan.org/~potyl/Parallel-SubFork-0.01/
Manage Perl functions in forked processes.
----
Perlbal-1.70
http://search.cpan.org/~bradfitz/Perlbal-1.70/
Reverse-proxy load balancer and webserver
----
RDF-Query-2.000_05
http://search.cpan.org/~gwilliams/RDF-Query-2.000_05/
An RDF query implementation of SPARQL/RDQL in Perl for use with RDF::Redland and RDF::Core.
----
RRDTool-Creator-0.8
http://search.cpan.org/~jacquelin/RRDTool-Creator-0.8/
Creators for round robin databases (RRD)
----
Regexp-Wildcards-0.08
http://search.cpan.org/~vpit/Regexp-Wildcards-0.08/
Converts wildcard expressions to Perl regular expressions.
----
Run-Env-0.01
http://search.cpan.org/~jkutej/Run-Env-0.01/
running environment detection
----
Shell-Perl-0.0017
http://search.cpan.org/~ferreira/Shell-Perl-0.0017/
A read-eval-print loop in Perl
----
Spreadsheet-WriteExcel-2.21
http://search.cpan.org/~jmcnamara/Spreadsheet-WriteExcel-2.21/
Write to a cross-platform Excel binary file.
----
Template-Multipass-0.02
http://search.cpan.org/~nuffin/Template-Multipass-0.02/
Add a meta template pass to TT
----
Test-Aggregate-0.08
http://search.cpan.org/~ovid/Test-Aggregate-0.08/
Aggregate *.t tests to make them run faster.
----
Text-MeCab-0.20007
http://search.cpan.org/~dmaki/Text-MeCab-0.20007/
Alternate Interface To libmecab
----
Text-Same-0.07
http://search.cpan.org/~kim/Text-Same-0.07/
Look for similarities between files or arrays
----
Text-Template-Simple-0.51_2
http://search.cpan.org/~burak/Text-Template-Simple-0.51_2/
Simple text template engine
----
WWW-MobileCarrierJP-0.13
http://search.cpan.org/~tokuhirom/WWW-MobileCarrierJP-0.13/
scrape mobile carrier information
----
WWW-Ohloh-API-0.0.7
http://search.cpan.org/~yanick/WWW-Ohloh-API-0.0.7/
Ohloh API implementation
----
WWW-PhpfiCom-Retrieve-0.001
http://search.cpan.org/~zoffix/WWW-PhpfiCom-Retrieve-0.001/
retrieve pastes from http://phpfi.com
----
WWW-TV-0.09
http://search.cpan.org/~tigris/WWW-TV-0.09/
Parse TV.com for information about TV shows.
----
namespace-clean-0.07
http://search.cpan.org/~phaylon/namespace-clean-0.07/
Keep imports and functions out of your namespace
----
namespace-clean-0.08
http://search.cpan.org/~phaylon/namespace-clean-0.08/
Keep imports and functions out of your namespace
----
www-tv-0.09
http://search.cpan.org/~tigris/www-tv-0.09/
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 10 Mar 2008 01:14:13 -0700 (PDT)
From: "Deepan - M.Sc(SE) - 03MW06" <deepan.17@gmail.com>
Subject: Pattern extraction
Message-Id: <ae96a569-192c-49f4-a009-adc2052c15fd@d4g2000prg.googlegroups.com>
I am having a string like below:
$str="/a/b/c/"; (or) $str = "/a/b/c/d/";
What i need is that i should always be able to extract "c" from the
above strings. I should not use split. Only by using regular
expressions i should be able to achieve this. Please help me to solve
this.
Thanks,
Deepan
------------------------------
Date: Mon, 10 Mar 2008 01:42:30 -0700 (PDT)
From: "Deepan - M.Sc(SE) - 03MW06" <deepan.17@gmail.com>
Subject: Pattern extraction
Message-Id: <4954944b-06bc-4ce0-8201-089b62c50e0e@e25g2000prg.googlegroups.com>
Sorry i didnt explain the previous posy correctly.
I am having a string which can have either one of the below as its
input:
$str="/a/b/c/"; (or) $str = "/a/b/c/d/";
What i need is that regardless of the input it should always be able
to extract "c" from the
above strings. I should not use split. Only by using regular
expressions i should be able to achieve this. Please help me to solve
this.
Thanks,
Deepan
------------------------------
Date: Mon, 10 Mar 2008 09:26:09 +0100
From: Frank Seitz <devnull4711@web.de>
Subject: Re: Pattern extraction
Message-Id: <63k9l2F27srifU2@mid.individual.net>
Deepan - M.Sc(SE) - 03MW06 wrote:
> I am having a string like below:
>
> $str="/a/b/c/"; (or) $str = "/a/b/c/d/";
>
> What i need is that i should always be able to extract "c" from the
> above strings. I should not use split. Only by using regular
> expressions i should be able to achieve this. Please help me to solve
> this.
($val) = $str =~ m|/([^/]+)/$|;
$ perldoc perlrequick
$ perldoc perlretut
$ perldoc perlre
Frank
--
Dipl.-Inform. Frank Seitz; http://www.fseitz.de/
Anwendungen für Ihr Internet und Intranet
Tel: 04103/180301; Fax: -02; Industriestr. 31, 22880 Wedel
------------------------------
Date: Mon, 10 Mar 2008 10:57:08 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Pattern extraction
Message-Id: <63kf4fF281kckU1@mid.individual.net>
[ You keep starting new threads for the same problem. Don't do that!! ]
Deepan - M.Sc(SE) - 03MW06 wrote:
> I am having a string which can have either one of the below as its
> input:
>
> $str="/a/b/c/"; (or) $str = "/a/b/c/d/";
>
> What i need is that regardless of the input it should always be able
> to extract "c" from the
> above strings. I should not use split.
Says who?
> Only by using regular expressions i should be able to achieve this.
split() does make use of a regular expression...
Anyway,
if ( $str =~ m#^/[^/]+/[^/]+/([^/]+)# ) {
print "$1\n";
}
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 10 Mar 2008 11:51:58 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Pattern extraction
Message-Id: <bp7at3l6287d76l6otgvnakorcbabnsa2r@4ax.com>
"Deepan - M.Sc(SE) - 03MW06" <deepan.17@gmail.com> wrote:
>I am having a string like below:
>
> $str="/a/b/c/"; (or) $str = "/a/b/c/d/";
>
>What i need is that i should always be able to extract "c" from the
>above strings. I should not use split.
Why? It is the most natural tool for this task:
my $res = (split('/', $str))[3];
>Only by using regular
>expressions i should be able to achieve this.
1: the first argument of split() is a regular expressions
2: As stated the task is impossible because you need some other function
beside the RE to apply the RE, e.g. a s/// or m//
jue
------------------------------
Date: 10 Mar 2008 08:35:57 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: Setting chmod
Message-Id: <slrnft9snc.ec.abigail@alexandra.abigail.be>
_
Ben Morrow (ben@morrow.me.uk) wrote on VCCCIV September MCMXCIII in
<URL:news:369ea5-q95.ln1@osiris.mauzo.dyndns.org>:
**
** Quoth Joost Diepenmaat <joost@zeekat.nl>:
** > John <John.Smith@invalid.com> writes:
** >
** > > Why is the test.txt not chmodded to 0600 but to 0755
** >
** > Because $sec is not a file name or a file handle. It's a good idea to
** > check if any file operation succeeded:
** >
** > open(TEKST,">test.txt") or die $!;
** > chmod 0600,*TEKST or die $!;
**
** Don't use bare globs unless you really have to. They're very magic, and
** it's always safer to use a globref when you can:
**
** chmod 0600, \*TEKST or die $!;
So, in which way is 'chmod 0600, *TEKST' unsafe?
And why didn't you perlbug it?
Abigail
--
# Count the number of lines; code doesn't match \w. Linux specific.
()=<>;$!=$=;($:,$,,$;,$")=$!=~/.(.)..(.)(.)..(.)/;
$;++;$*++;$;++;$*++;$;++;`$:$,$;$" $. >&$*`;
------------------------------
Date: Mon, 10 Mar 2008 07:13:49 +0100
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: substitution - variable in variable
Message-Id: <fr2jjb$2mir$1@ns.felk.cvut.cz>
Gunnar Hjalmarsson wrote:
> Petr Vileta wrote:
>> Please can anybody help me with this substitution? The example is
>> described well I hope ;-)
>>
>> #!/usr/bin/perl
>> use strict;
>> my $string = '<a href="xxx.cgi?parameter">click</a>';
>> my $what = 'xxx.cgi'; # in reality readed from database (value is
>> variable) my $rx1=quotemeta($what);
>> my $rx2 = '^.+?$rx1\?(.+?)".+$';
>>
>> # this not work
>> $string =~ s/$rx2/$1/;
>> print "$string\n";
>> # output is:
>> #<a href="xxx.cgi?parameter">click</a>
>>
>> # this work as expected
>> $rx2 =~ s/\$rx1/$rx1/; # how write s/// in next line without this
>> line? $string =~ s/$rx2/$1/;
>> print "$string\n";
>> # output is:
>> #parameter
>
> Why bother with the s/// operator?
>
> if ( $string =~ /\Q$what\E\?(.+?)"/ ) {
> print "$1\n";
> }
Because $rx1 and R4x2 are stored in database (out of my control) and $rx2 is
"main" regexp and must contain $rx1 but position of $rx1 in $rx2 can be
shifted in future.
In this simple example the $rx1 not look as regexp but is it. True value is
'xxx\.cgi'
BTW: In what Perl version \Q goes first time? I run ActiveState Perl 5.6.1 but
I found right now that \Q work here. Strange! In my documentation is nothing
about \Q,\E etc. operators.
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your
mail from another non-spammer site please.)
Please reply to <petr AT practisoft DOT cz>
------------------------------
Date: Mon, 10 Mar 2008 10:39:04 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: substitution - variable in variable
Message-Id: <63ke2iF27ufelU1@mid.individual.net>
Petr Vileta wrote:
> Gunnar Hjalmarsson wrote:
>> Petr Vileta wrote:
>>> Please can anybody help me with this substitution? The example is
>>> described well I hope ;-)
>>>
>>> #!/usr/bin/perl
>>> use strict;
>>> my $string = '<a href="xxx.cgi?parameter">click</a>';
>>> my $what = 'xxx.cgi'; # in reality readed from database (value is
>>> variable) my $rx1=quotemeta($what);
>>> my $rx2 = '^.+?$rx1\?(.+?)".+$';
The qr() operator makes $rx1 expand.
my $rx2 = qr(^.+?$rx1\?(.+?)".+$);
>> Why bother with the s/// operator?
>
> Because $rx1 and R4x2 are stored in database (out of my control) and
> $rx2 is "main" regexp and must contain $rx1 but position of $rx1 in $rx2
> can be shifted in future.
What's R4x2? Anyway, see another suggestion above.
> BTW: In what Perl version \Q goes first time? I run ActiveState Perl
> 5.6.1 but I found right now that \Q work here. Strange! In my
> documentation is nothing about \Q,\E etc. operators.
I'm sure they are explained in your docs, just as in everybody else's
docs. ;-) See for instance "perldoc perlre".
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 10 Mar 2008 08:11:05 GMT
From: Ian Stuart Riffaldson is NOT Sorry ! <Riff@use.net>
Subject: Re: The people in comp.lang.perl.misc said...
Message-Id: <35r9t3d2h0maco09uvj363rl9r2j5pu8fn@4ax.com>
On Mon, 10 Mar 2008 02:58:38 -0600, Caduceus <kcom@fusemail.com>
wrote:
>....that they hate skrewdriver.
Perhaps they meant to say Hale Skrewdriver. Even so, Matt was never
in the band, but perhaps he too was a fan.
Anyhow, Hail Skrewdriver !
------------------------------
Date: Mon, 10 Mar 2008 01:42:24 -0700 (PDT)
From: fiazidris <fiazbfs@gmail.com>
Subject: Re: Using Perl to get data from website
Message-Id: <f360d010-4c6d-4429-a2f9-0d204d46b3b1@s19g2000prg.googlegroups.com>
On Mar 8, 10:34 pm, ifiaz <fiazid...@gmail.com> wrote:
> Also, please so you know,
>
> my $baseurl =
> 'http://www.bangkokflightservices.com/our_cargo_track&trace.php';
> my $hawb = 'h_prefix=HAWB&h_sn=';
>
> h_prefix should be HWB and not HAWB.
>
> I have fixed that in my code and still the same problem that it throws
> me to a different page.
>
I have reached to a level where the following URL works on a browser:
prefix and serials can be changed.
http://203.151.118.123:8090/showc_track.php?m_prefix=724&m_sn=61441122&h_prefix=HWB&h_sn=&ecy=e076438db64c6190f7b9689a379b7f7093368f1652d14db65fee1ab916713f3f5f4030f53369cb1f669614312c4748899c272f4d976a2b299274a21ad80fc072b1bab2ab1c181d08c670188722e51ec162f9ae337e3f2f132c88d249133815558d241ce8a4e9b3fa75c144268b9e901037c2c7257142ee42ff9b2bf2767f57ed62b94fd938ea4dd2b28c53fea6af74be&ch=%A0%A0%A0%A0
but this URL doesn't return results using perl or curl.
Ben Morrow, please help.
------------------------------
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 1348
***************************************
