[25639] in Perl-Users-Digest
Perl-Users Digest, Issue: 7881 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 15 03:05:29 2005
Date: Tue, 15 Mar 2005 00:05:15 -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 Tue, 15 Mar 2005 Volume: 10 Number: 7881
Today's topics:
Re: [Q]: How to sort first abc, then 123? <abigail@abigail.nl>
Apache::AuthCookie and multi-part forms <usenet@spoonserver.com>
Re: CGI and PL suddenly stopped working axel@white-eagle.invalid.uk
Re: How to make a blessable anonymous scalar ref? <jkrugman345@yahbitoo.com>
Re: Is there a perl array for... <buellboy@gmail.com>
Re: Is there a perl array for... <tadmc@augustmail.com>
Re: problem writing to stdin of child process <No_4@dsl.pipex.com>
Re: Reg file exported from XP/2003 - enumerate HEX to A lha404@gmail.com
regular expression help with apostrophe dmalhotr2001@yahoo.com
Re: regular expression help with apostrophe <see.sig@rochester.rr.com>
Re: regular expression help with apostrophe <tadmc@augustmail.com>
Re: regular expression help with apostrophe (Walter Roberson)
side by side concatenation man.postman@gmail.com
Re: side by side concatenation <noreply@gunnar.cc>
Tracking Routines That Caused An Error <hal@thresholddigital.com>
Re: Tracking Routines That Caused An Error <noreply@gunnar.cc>
Re: Tracking Routines That Caused An Error <hal@thresholddigital.com>
Re: Tracking Routines That Caused An Error <tadmc@augustmail.com>
using perl/cgi to access remote Haskell compiler. zeus.zamani@gmail.com
Re: using perl/cgi to access remote Haskell compiler. <tadmc@augustmail.com>
Win32: How to find out the number of serial ports? <josef.moellers@fujitsu-siemens.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 14 Mar 2005 23:33:14 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: [Q]: How to sort first abc, then 123?
Message-Id: <slrnd3c7pq.cqe.abigail@alexandra.abigail.nl>
Ilya Zakharevich (nospam-abuse@ilyaz.org) wrote on MMMMCCXIII September
MCMXCIII in <URL:news:d152sl$308g$1@agate.berkeley.edu>:
:) [A complimentary Cc of this posting was sent to
:) Fabian Pilkowski
:) <pilkowsk@informatik.uni-marburg.de>], who wrote in article <MPG.1c9de272ae7e39ef9898d4@news.individual.de>:
:) > > > Not tested:
:) > >
:) > > map {s/~//, $_} sort map {s/^(?=[~\d])/~/, $_} @data;
:) >
:) > I have just tried it out but unfortunately it doesn't work as expected
:)
:) Tested:
:)
:) map {s/^~//; $_} sort map {s/^(?=[~\d])/~/; $_} @data;
:)
:) (one '^' inserted, and commas replaced by semicolon).
:)
:) I have no idea why commas lead to a wrong result - IIRC, if it mixed
:) map BLOCK DATA with map EXPR, DATA, it would give a syntax error...
The statement inside the map block is in list context, so if you have
map {s/^(?=[~\d])/~/, $_} @data
the substitution is done in list context, and its result will be part
of the result of the map.
Replacing the comma with ; means that only $_ is returned.
Abigail
--
perl -Mstrict -we '$_ = "goto A.print chop;\n=rekcaH lreP rehtona tsuJ";A1:eval'
------------------------------
Date: Tue, 15 Mar 2005 05:52:47 GMT
From: John <usenet@spoonserver.com>
Subject: Apache::AuthCookie and multi-part forms
Message-Id: <PKuZd.4557$gx3.1873@tornado.rdc-kc.rr.com>
I'm having trouble getting data the STDIN when uploading images inside
directories that require authentication. I'm using a simple package that
inherits Apache::AuthCookie. "authenticate" returns
----
$r->connection->auth_type( $auth_type );
$r->connection->user( $ret_auth );
return OK;
----
if the authentication is good. When it to my script to handle getting the
image, I can dump the CGI object and see ...
----
$VAR1 = bless( {
'.parameters' => [
'theme',
'request_uri',
'lang',
'act',
'thefile'
],
'thefile' => [
bless( \*{'Fh::fh00002H%3A\\us0123a.JPG'},
'Fh' )
],
'request_uri' => [
''
],
'lang' => [
'en'
],
'.charset' => 'ISO-8859-1',
'.r' => bless( do{\(my $o = 141018784)}, 'Apache' ),
'.fieldnames' => {},
'escape' => 1,
'theme' => [
'default'
],
'act' => [
'add'
]
}, 'CGI' );
----
"thefile" is my image file. And it's processed with ...
----
my $full_name = $cgi->param( "thefile" );
print STDERR "File = $full_name\n";
my $data;
while( <$full_name> )
{
$data .= $_;
}
print STDERR "Data= $data\n";
---
File = H:\us0123a.JPG
Data=
The problem is, $data is always empty. However, if I move the script outside
of the directory that requires authentication, the data will be there. I'm
convinced there is something Apache::AuthCookie that is catching the STDIN
before it gets to my script. Any thoughts?
--
John
usenet@spoonserver.com
------------------------------
Date: Mon, 14 Mar 2005 21:58:44 -0600
From: axel@white-eagle.invalid.uk
Subject: Re: CGI and PL suddenly stopped working
Message-Id: <_POdnf615LrpwKvfRVn-1A@adelphia.com>
momentsofclarity@gmail.com wrote:
> For an as yet determined reason, cgi and perl scripts suddenly stopped
> working on my web server. Up until now (about 1 year) all has been
> working just fine. I have tried all of the following with no joy...
> -confirmed permissions on scripts, directories.
> -confirmed proper ExecCGI arguments in httpd.conf
> -chmod 777 scripts and directories (with suexec OFF)
> -chmod +x /usr/bin/suidperl (suggested by a user on another mail list)
> -deleted and relinked /usr/bin/perl to /usr/bin/perl5
> Scripts run ok from the command line but only as root. If logged in as
> the web user (apache), I get a "bad interpreter: Permission denied".
This points to a permissions or path problem.
Have you tried the following when running as a non-root user:
% which perl
% perl -v
And seeing that the results are what you expect?
Axel
------------------------------
Date: Mon, 14 Mar 2005 23:27:49 +0000 (UTC)
From: J Krugman <jkrugman345@yahbitoo.com>
Subject: Re: How to make a blessable anonymous scalar ref?
Message-Id: <d156ll$1q2$1@reader1.panix.com>
In <20050314145658.526$uo@newsreader.com> xhoster@gmail.com writes:
>J Krugman <jkrugman345@yahbitoo.com> wrote:
>> [] and {} are blessable anonymous refs. I.e., both
>>
>> bless [], 'Foo';
>>
>> and
>>
>> bless {}, 'Bar';
>>
>> Is there a way to get a blessable anonymous ref to a scalar? The
>> typical example of an anonymous scalar ref is something like \3,
>> but if one tries to bless such a ref, the compiler chokes on the
>> "attempt to modify a read-only value".
>I see no reason this won't work:
>bless \\undef, "Foo";
I like this one a lot. And also Anno's
bless \ "$_", 'Foo' for 3;
but I'm mystified by both. Specifically, I don't understand why
the following:
bless \undef, 'Foo' ===> Modification of a read-only value attempted
bless \\undef, 'Foo' ===> [ no error ]
bless \1, 'Foo' ===> Modification of a read-only value attempted
bless \\1, 'Foo' ===> Modification of a read-only value attempted
Why are the behaviors for undef and 1 different?
I can only guess at why Anno's idea works. It looks like interpolation
causes a new memory location to be created. But I have never seen
anything like this documented anywhere, so I'm just guessing wildly.
Anyway, many thanks!
kj
createdLikewise, I don't understand why Anno's idea works, but
bless \"3", 'Foo'
triggers an error. After all, "$_"
bless \"3", 'Foo' ===> Modification of a read-only value attempted
bless \"$_", 'Foo' for 3 ===> [ no error ]
--
To s&e^n]d me m~a}i]l r%e*m?o\v[e bit from my a|d)d:r{e:s]s.
------------------------------
Date: 14 Mar 2005 19:34:40 -0800
From: "advice please wireless 802.11 on RH8" <buellboy@gmail.com>
Subject: Re: Is there a perl array for...
Message-Id: <1110857680.502303.293080@g14g2000cwa.googlegroups.com>
mike wrote:
> I think the OP may mean $1 $2 $3 as in command line arguments, rather
> than captured matches. (He refers to a "system array.") If so,
@ARGV
> is what you're looking for. @ARGV has any arguments as entered on
the
> command line.
No, I meant an array to contain matches such as for:
$_ = 'cat 12 Felix 17 Anytown NY';
print "yes!"\n" if /^(cat|dog)\s+(\d+)\s+(\w+)\s+(\d+)/;
# this mystery array would now contain qw(cat 12 Felix 17)
---------------------------------------
It seems to me this would be common enough to store as a system array
somewhere? By system array I mean one like @_ or @ARGV, etc.. ,
something created for us by Perl...
BB
------------------------------
Date: Mon, 14 Mar 2005 22:21:25 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Is there a perl array for...
Message-Id: <slrnd3com5.52n.tadmc@magna.augustmail.com>
advice please wireless 802.11 on RH8 <buellboy@gmail.com> wrote:
> I meant an array to contain matches such as for:
>
> $_ = 'cat 12 Felix 17 Anytown NY';
>
> print "yes!"\n" if /^(cat|dog)\s+(\d+)\s+(\w+)\s+(\d+)/;
^ ^ ^
^ ^ ^
You should post real code if you want a real answer...
> # this mystery array would now contain qw(cat 12 Felix 17)
print "yes!\n" if my @mystery = /^(cat|dog)\s+(\d+)\s+(\w+)\s+(\d+)/;
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 15 Mar 2005 01:53:35 +0000
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: problem writing to stdin of child process
Message-Id: <IcCdnUFCopeG3avfRVnysA@pipex.net>
john wrote:
> #!/usr/bin/perl
> use strict;
> use warnings;
>
> use IO::Handle;
> use IO::Pipe;
>
> my $cr = IO::Handle->new(); # child reader
> my $pw = IO::Handle->new(); # child writer
>
> new IO::Pipe($cr, $pw) or die 'pr/cw pipe';
Have you read the IO::Pipe documentation?
(e.g. http://search.cpan.org/~nwclark/perl-5.8.6/ext/IO/lib/IO/Pipe.pm)
It starts with (almost) exactly what you want under the SYNOPSIS. (It
has the child writing to the parent - just swap the if/else codew blocks).
No need to mention IO::Handle (IO::Pipe gets them for you).
> my $fd = fileno($cr);
> open(my $stdin, "<", \$fd) or die "STDIN open: $!";
> *STDIN = $stdin;
>
> my $line = <STDIN>; # hopefully reading from the parent
Not sure why you would want to do this anyway. You shouldn't be
reading from STDIN - you want to read from the read-side of the pipe opened
in the parent. Don't assume that just because your want to read from it
you have to make it STDIN. STDIN is "STanDard INput" - reading from a pipe
isn't "standard" in this sense.
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: 14 Mar 2005 23:38:08 -0800
From: lha404@gmail.com
Subject: Re: Reg file exported from XP/2003 - enumerate HEX to ASCII - my head hurts
Message-Id: <1110872288.033171.132350@g14g2000cwa.googlegroups.com>
Thanks for all the help / advice
I now have a script that does what is needed.
When I have time I will try to do thing properly as Unicode.
------------------------------
Date: 14 Mar 2005 18:31:41 -0800
From: dmalhotr2001@yahoo.com
Subject: regular expression help with apostrophe
Message-Id: <1110853901.406536.76940@f14g2000cwb.googlegroups.com>
Hi,
I would like to figure out a certain issue.
I have a regular expression [^\']+ that checks whether there's a
apostrophe in a particular string. In my case I'm using a file path
and filename so for example.
C:\Documents and Settings\test_user\Local Settings\Temporary Internet
Files\Content.IE5\testing.html
Now this works to check if there is an apostrophe.
However I don't know how to check ONLY if there is an apostrophe in the
file name, meaning if there is a apostrophe in testing.html example
above. I would want it to ignore it if Local's Settings folder has an
apostrophe.
Thus, what regular expression would yield an apostrophe just in the
filename at the end and would ignore apostrophes in the folder paths.
Thanks in advance.
:D
------------------------------
Date: Tue, 15 Mar 2005 03:32:23 GMT
From: Bob Walton <see.sig@rochester.rr.com>
Subject: Re: regular expression help with apostrophe
Message-Id: <bHsZd.92553$H05.76900@twister.nyroc.rr.com>
dmalhotr2001@yahoo.com wrote:
...
> I have a regular expression [^\']+ that checks whether there's a
> apostrophe in a particular string. In my case I'm using a file path
> and filename so for example.
>
> C:\Documents and Settings\test_user\Local Settings\Temporary Internet
> Files\Content.IE5\testing.html
>
> Now this works to check if there is an apostrophe.
>
> However I don't know how to check ONLY if there is an apostrophe in the
> file name, meaning if there is a apostrophe in testing.html example
> above. I would want it to ignore it if Local's Settings folder has an
> apostrophe.
>
> Thus, what regular expression would yield an apostrophe just in the
> filename at the end and would ignore apostrophes in the folder paths.
Well, it isn't too clear what you want. I have assumed you want
a regexp that will match if a Windoze path and file name has no
apostrophe in the filename portion, and will fail to match if the
filename portion of the path and file name contains one or more
apostrophes. If that is correct, try:
use warnings;
use strict;
while(<DATA>){
chomp;
/(?:.*\\|^)[^']+$/
?
print "$_ has no apostrophe in filename\n"
:
print "$_ has at least one apostrophe in filename\n";
}
__END__
c:\no apostrophe\here.ext
c:\one ' apostrophe\here.ext
c:\file\has\apost'rophe.ext
justa.file
c:\justa.file
c:\just'a.f'''''ile
c:'\justa.file
path\file'''''.ext
just a path\
...
> :D
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Mon, 14 Mar 2005 22:18:16 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: regular expression help with apostrophe
Message-Id: <slrnd3cog8.52n.tadmc@magna.augustmail.com>
dmalhotr2001@yahoo.com <dmalhotr2001@yahoo.com> wrote:
> I have a regular expression [^\']+ that checks whether there's a
> apostrophe in a particular string.
Single quotes are not special, there is no need to backslash them.
> I would want it to ignore it if Local's Settings folder has an
> apostrophe.
What is a Local's Settings folder?
> Thus, what regular expression would yield an apostrophe
None.
Regular expressions do not "yield" characters.
They either match (succeed), or they don't match (fail).
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 15 Mar 2005 05:26:06 GMT
From: roberson@ibd.nrc-cnrc.gc.ca (Walter Roberson)
Subject: Re: regular expression help with apostrophe
Message-Id: <d15rle$nub$1@canopus.cc.umanitoba.ca>
In article <slrnd3cog8.52n.tadmc@magna.augustmail.com>,
Tad McClellan <tadmc@augustmail.com> wrote:
:dmalhotr2001@yahoo.com <dmalhotr2001@yahoo.com> wrote:
:> I have a regular expression [^\']+ that checks whether there's a
:> apostrophe in a particular string.
:Single quotes are not special, there is no need to backslash them.
There is if you are using perl -e '...' or if you are constructing
a single-quoted string that will be extrapolated into a pattern.
The first of these is, of course, an artifact of shell quoting
conventions; the second is perl itself. You can use the
q{} or qw{} operators though... which changes the delimeter
but does not evade the fact that there will be -some- character
you have to escape if it appears in the string.
--
Entropy is the logarithm of probability -- Boltzmann
------------------------------
Date: 14 Mar 2005 20:25:48 -0800
From: man.postman@gmail.com
Subject: side by side concatenation
Message-Id: <1110860748.971754.84770@g14g2000cwa.googlegroups.com>
I have an output
RowId Col1 Col2 Col3
..
..
..
..
--------------------------------------
RowId Col4 Col5 Col6
...
..
..
-----------------------------------------
I am trying to write a perl script to make it..
Row Id Col1 Col2 Col3 Col4 Col5 Col6
any advice???
thanks to everyone who responds....
------------------------------
Date: Tue, 15 Mar 2005 05:30:53 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: side by side concatenation
Message-Id: <39n76bF60881bU1@individual.net>
man.postman@gmail.com wrote:
> I have an output
>
> RowId Col1 Col2 Col3
> ..
> ..
> ..
> ..
>
>
> --------------------------------------
>
> RowId Col4 Col5 Col6
>
> ...
> ..
> ..
>
> -----------------------------------------
>
> I am trying to write a perl script to make it..
>
> Row Id Col1 Col2 Col3 Col4 Col5 Col6
>
> any advice???
Study the posting guidelines for this group:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
and let us know *what* you tried and how it failed to do what you want.
Also, you'd better provide more complete sample data, letting us know
for instance how the columns are separated and whether there is data in
each field.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 14 Mar 2005 22:53:22 -0500
From: Hal Vaughan <hal@thresholddigital.com>
Subject: Tracking Routines That Caused An Error
Message-Id: <GaydnV01oZOHwavfRVn-sA@comcast.com>
I know there's a name for what I'm looking for, and if I knew it, I'd Google
for it, but that's a danger of being self-taught.
I've seen Java programmers get errors from the compiler, or when a program
crashes. These error messages include a list of not just the line where
the error occurred, but also list of all the subroutines that show which
subroutine called which subroutine until the list ends in the actual line
of the error.
So what's this called, and can I do it in Perl?
Thanks.
Hal
------------------------------
Date: Tue, 15 Mar 2005 04:49:39 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Tracking Routines That Caused An Error
Message-Id: <39n4ojF64er3rU1@individual.net>
Hal Vaughan wrote:
> I've seen Java programmers get errors from the compiler, or when a program
> crashes. These error messages include a list of not just the line where
> the error occurred, but also list of all the subroutines that show which
> subroutine called which subroutine until the list ends in the actual line
> of the error.
See
perldoc -f caller
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 14 Mar 2005 23:30:18 -0500
From: Hal Vaughan <hal@thresholddigital.com>
Subject: Re: Tracking Routines That Caused An Error
Message-Id: <UPWdncABMYJc-avfRVn-iw@comcast.com>
Gunnar Hjalmarsson wrote:
> Hal Vaughan wrote:
>> I've seen Java programmers get errors from the compiler, or when a
>> program
>> crashes. These error messages include a list of not just the line where
>> the error occurred, but also list of all the subroutines that show which
>> subroutine called which subroutine until the list ends in the actual line
>> of the error.
>
> See
>
> perldoc -f caller
>
Okay. That perldoc page gave what I needed to know. I want a stack trace.
(It's so frustrating knowing what I want, but not knowing the terms.)
Hal
------------------------------
Date: Mon, 14 Mar 2005 22:24:35 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Tracking Routines That Caused An Error
Message-Id: <slrnd3cos3.52n.tadmc@magna.augustmail.com>
Hal Vaughan <hal@thresholddigital.com> wrote:
> I've seen Java programmers get errors from the compiler, or when a program
> crashes. These error messages include a list of not just the line where
> the error occurred, but also list of all the subroutines that show which
> subroutine called which subroutine until the list ends in the actual line
> of the error.
>
> So what's this called,
A "stack trace".
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 14 Mar 2005 17:32:01 -0800
From: zeus.zamani@gmail.com
Subject: using perl/cgi to access remote Haskell compiler.
Message-Id: <1110850321.723325.117880@l41g2000cwc.googlegroups.com>
Hi all,
Completely stuck on this one, so any suggestions/tips would be great.
When I run the following shell command through perl I get the desired
output:
system("hugs filename.hs");
This brings up the haskell compiler and compiles the hs file.
If this were to be done directly in shell after the command, the prompt
would change to Main> indicating that its within the hugs environment.
At this point I dont know how to instruct perl to give an argument to
the program. I looked at pipelining commands, but seems to be that only
works for actual shell commands and not when you're 'inside of a
program'.
Any adivse on this would be greatly appreciated.
Thanks guys..
Zeus
------------------------------
Date: Mon, 14 Mar 2005 20:23:37 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: using perl/cgi to access remote Haskell compiler.
Message-Id: <slrnd3chp9.4sa.tadmc@magna.augustmail.com>
zeus.zamani@gmail.com <zeus.zamani@gmail.com> wrote:
> system("hugs filename.hs");
>
> This brings up the haskell compiler and compiles the hs file.
>
> If this were to be done directly in shell after the command, the prompt
> would change to Main> indicating that its within the hugs environment.
>
> At this point I dont know how to instruct perl to give an argument to
> the program.
I think you need:
perldoc -q expect
How can I write expect in Perl?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 15 Mar 2005 08:56:51 +0100
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Win32: How to find out the number of serial ports?
Message-Id: <d164jl$d0i$1@nntp.fujitsu-siemens.com>
Hi,
I'm helping a friend revive some old hardware (a timekeeping device=20
using smart cards). I've sorted out all the communications details (ISO=20
7816) and most of it is working fine. The program is written in (you=20
guessed it) Perl using Win32::API and Serial-Port.
Now I'd like to add a feature to scan the serial ports for the device,=20
but rather than assume that any modern PC has 2 serial ports, I'd like=20
to determine exactly how many serial ports the current system supports.
I've looked at the Registry, but that only carried some information=20
about the serial ports (if you know which ports you have, you can find=20
out more). A colleague suggested something like cfgmgr, but there=20
doesn't seem to be a module for this.
Under a more familiar OS, I'd look at /proc/tty/driver/serial, but on XP?=
Josef
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
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 7881
***************************************
