[25937] in Perl-Users-Digest
Perl-Users Digest, Issue: 8157 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jun 9 00:05:28 2005
Date: Wed, 8 Jun 2005 21:05:06 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 8 Jun 2005 Volume: 10 Number: 8157
Today's topics:
Re: Binary compatibility 5.8.0 -> 5.8.7 <sisyphus1@nomail.afraid.org>
Excel and Perl <Mark.Seger@hp.com>
increase performance <rodrick.brown@gmail.com>
Re: increase performance <mikeh@perusion.net>
Re: increase performance <someone@example.com>
Re: increase performance <1usa@llenroc.ude.invalid>
Re: Net::FTP: cwd(' ') <djames@thehub.com.au>
Re: perl one liner to display the third line from the e <djames@thehub.com.au>
Re: perl one liner to display the third line from the e <someone@example.com>
Re: Photo does not recognize format of Archive::Zip con (Anno Siegel)
Re: Photo does not recognize format of Archive::Zip con <dha@panix.com>
Re: Photo does not recognize format of Archive::Zip con <djames@thehub.com.au>
Re: Photo does not recognize format of Archive::Zip con <wcitoan@NOSPAM-yahoo.com>
Re: Photo does not recognize format of Archive::Zip con <wcitoan@NOSPAM-yahoo.com>
Re: Tk::FileSelect hangs on W98 root directory <wcitoan@NOSPAM-yahoo.com>
Re: Tk::FileSelect hangs on W98 root directory <wcitoan@NOSPAM-yahoo.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 9 Jun 2005 09:20:13 +1000
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: Binary compatibility 5.8.0 -> 5.8.7
Message-Id: <42a77d3e$0$30959$afc38c87@news.optusnet.com.au>
"Trond Hasle Amundsen" <trondham+spam@ulrik.uio.no> wrote in message
news:15ty89keu1n.fsf@tux.uio.no...
>
> Hi,
>
> I'm having trouble making a perl 5.8.7 which is binary compatible with
> our pre-installed modules for 5.8.0.
[snip]
> Problem is, the previous perl version is single-threaded and static
> (i.e. is has a libperl.a instead of libperl.so), while I want to
> compile the new version with threading support and with a shared lib.
> I don't know if this is an issue at all, but here you have it.
>
Yes - I don't think you can run threaded binaries on a non-threaded perl
(and vice-versa).
> Any suggestions? I'm stuck.
>
If you want to use those modules with a threaded perl then afaik you'll have
to rebuild those modules using that perl.
Cheers,
Rob
------------------------------
Date: Wed, 08 Jun 2005 20:57:39 -0400
From: Mark Seger <Mark.Seger@hp.com>
Subject: Excel and Perl
Message-Id: <42a6dcf7@usenet01.boi.hp.com>
I just noticed the subject was spelled wrong and am hoping maybe that's
why nobody payed any attention to it as I've gotta believe someone must
know the answer.
I've been playing with the perl ole interface to talk to excel. Very
cool. The problem I'm having is virtually all the documentation on how
to do it in perl is too simplistic for anything more sophisticated and
the everything else is in VB - perhaps an opportunity for some
documentation enhancement? In any event the good news is I've managed
to figure out how to map from one syntax to the other except for VB arrays.
Specifically, I want to read in a text file that has space separated
field and the first one is in date format. To do everything but specify
the date one simply does:
$Book = $Excel->Workbooks->OpenText({
Filename=>$filename, ConsecutiveDelimiter=>1, Space=>1,});
and it works like a champ. However to tell Excel the format of specific
fields, you need to add "FieldInfo" and that is defined as an array of
2 element arrays. I've tried a number of things but to no avail.
Anybody know how?
If anyone is interested, the way this is captured as a macro in Excel
looks like:
Workbooks.OpenText Filename:= _
"C:\mjs\excel-perl\20050601-cx01-slab-s-days1.txt",
Origin:=437, StartRow:= 1,
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote,
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False,
Comma:=False, Space:=True, Other:=False,
FieldInfo:=Array(Array(1, 5), Array(2, 1),
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1),
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1),
Array(11, 1)), TrailingMinusNumbers:=True
but I don't need to set all the fields as most of them are already
defaulted the way I want them.
-mark
------------------------------
Date: Thu, 09 Jun 2005 02:43:00 GMT
From: "Rodrick Brown" <rodrick.brown@gmail.com>
Subject: increase performance
Message-Id: <U0Ope.10587$XB2.2168585@twister.nyc.rr.com>
Hello all I have a script that processes the following data I could possibly
speed it up
0107
0205
0304
0405
0105
0805
the script just converts the output to
Jan07
feb05
mar03
apr05
etc...
Here is a sample of how i'm doing this
#!/usr/bin/perl
use warnings;
my %months = ( 1=>"jan", 2=>"feb", 3=>"mar", 4=>"apr", 5=>"may", 6=>"june",
7=>"jul", 8=>"aug", 9=>"sep", 10=>"oct", 11=>"nov",
12=>"dec" );
my $date = "./date.txt";
open LOG, $date or die("unable to open file: $!\n");
while(<LOG>)
{
foreach my $m (keys(%months))
{
if( $m eq substr($_,1,1))
{
my $days = substr($_,2,2);
print "$months{$m}$days\n";
}
}
}
--
Rodrick R. Brown
rodrick.brown[@]gmail.com
------------------------------
Date: Thu, 09 Jun 2005 03:11:05 -0000
From: Mike Heins <mikeh@perusion.net>
Subject: Re: increase performance
Message-Id: <slrndafcq9.n99.mikeh@bill.heins.net>
On 2005-06-09, Rodrick Brown <rodrick.brown@gmail.com> wrote:
> Hello all I have a script that processes the following data I could possibly
> speed it up
>
> 0107
> 0205
> 0304
> 0405
> 0105
> 0805
>
> the script just converts the output to
>
> Jan07
> feb05
> mar03
> apr05
>
> etc...
>
> Here is a sample of how i'm doing this
>
>
> #!/usr/bin/perl
>
> use warnings;
>
> my %months = ( 1=>"jan", 2=>"feb", 3=>"mar", 4=>"apr", 5=>"may", 6=>"june",
> 7=>"jul", 8=>"aug", 9=>"sep", 10=>"oct", 11=>"nov",
> 12=>"dec" );
>
> my $date = "./date.txt";
>
> open LOG, $date or die("unable to open file: $!\n");
>
> while(<LOG>)
> {
> foreach my $m (keys(%months))
> {
> if( $m eq substr($_,1,1))
> {
> my $days = substr($_,2,2);
> print "$months{$m}$days\n";
> }
> }
> }
There's no point in using a hash for this type of thing if you
don't do a hash key lookup.
my %months = qw(
01 jan
02 feb
03 mar
04 apr
05 may
06 june
07 jul
08 aug
09 sep
10 oct
11 nov
12 dec
);
while(<LOG>) {
chomp;
m{(\d\d)(\d\d)} and $months{$1}
or do {
warn "bad log line: $_\n";
next;
};
print "$months{$1}$2\n";
}
--
Mike Heins
Perusion -- Expert Interchange Consulting http://www.perusion.com/
Be patient. God isn't finished with me yet. -- unknown
------------------------------
Date: Thu, 09 Jun 2005 03:22:52 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: increase performance
Message-Id: <gCOpe.51848$9A2.19921@edtnps89>
Rodrick Brown wrote:
> Hello all I have a script that processes the following data I could possibly
> speed it up
>
> 0107
> 0205
> 0304
> 0405
> 0105
> 0805
>
> the script just converts the output to
>
> Jan07
> feb05
> mar03
> apr05
>
> etc...
>
> Here is a sample of how i'm doing this
>
>
> #!/usr/bin/perl
>
> use warnings;
>
> my %months = ( 1=>"jan", 2=>"feb", 3=>"mar", 4=>"apr", 5=>"may", 6=>"june",
> 7=>"jul", 8=>"aug", 9=>"sep", 10=>"oct", 11=>"nov",
> 12=>"dec" );
>
> my $date = "./date.txt";
>
> open LOG, $date or die("unable to open file: $!\n");
>
> while(<LOG>)
> {
> foreach my $m (keys(%months))
> {
> if( $m eq substr($_,1,1))
> {
> my $days = substr($_,2,2);
> print "$months{$m}$days\n";
> }
> }
> }
>
my %months = qw( 01 jan 02 feb 03 mar 04 apr 05 may 06 june
07 jul 08 aug 09 sep 10 oct 11 nov 12 dec );
my $date = './date.txt';
open LOG, $date or die "unable to open file: $!\n";
while ( <LOG> ) {
my $mon = substr $_, 0, 2;
substr $_, 0, 2, $months{ $mon } || $mon;
print;
}
__END__
John
--
use Perl;
program
fulfillment
------------------------------
Date: Thu, 09 Jun 2005 04:04:47 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: increase performance
Message-Id: <Xns967090CEDDDasu1cornelledu@127.0.0.1>
Mike Heins <mikeh@perusion.net> wrote in
news:slrndafcq9.n99.mikeh@bill.heins.net:
> On 2005-06-09, Rodrick Brown <rodrick.brown@gmail.com> wrote:
>> Hello all I have a script that processes the following data I could
>> possibly speed it up
>>
>> 0107
>> 0205
>> 0304
>> 0405
>> 0105
>> 0805
>>
>> the script just converts the output to
>>
>> Jan07
>> feb05
>> mar03
>> apr05
>>
>> etc...
>>
>> Here is a sample of how i'm doing this
...
> There's no point in using a hash for this type of thing if you
> don't do a hash key lookup.
Agreed.
However, the easiest way to speed this task up by an order of magnitude
is to avoid printing. As (I think) Anno says: Print rarely, print late.
But to decide how rarely, and how late, one would have to know more.
As a simple experiment, take the following script:
#! /usr/bin/perl
use strict;
use warnings;
my @months = qw(invalid
jan feb mar apr may jun
jul aug sep oct nov dec
);
while(<DATA>) {
next unless /^(\d\d)(\d\d)$/;
print "$months[0 + $1]$2\n";
}
__END__
In the version I will use illustrate, I have 10,000 lines of data
following __END__.
I am on Windows XP Pro, perl v.5.8.6.811 (ActiveState), Acer AMD64
Laptop with 1 GB RAM:
TimeThis : Command Line : perl ttt.pl
TimeThis : Start Time : Wed Jun 08 23:46:14 2005
TimeThis : End Time : Wed Jun 08 23:46:16 2005
TimeThis : Elapsed Time : 00:00:01.578
Now, replace the script with the following:
#! /usr/bin/perl
use strict;
use warnings;
my @months = qw(invalid
jan feb mar apr may jun
jul aug sep oct nov dec
);
my $result;
while(<DATA>) {
next unless /^(\d\d)(\d\d)$/;
$result .= "$months[0 + $1]$2\n";
}
__END__
On the exact same data set, we get:
TimeThis : Command Line : perl ttt.pl
TimeThis : Start Time : Thu Jun 09 00:02:31 2005
TimeThis : End Time : Thu Jun 09 00:02:31 2005
TimeThis : Elapsed Time : 00:00:00.187
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Wed, 08 Jun 2005 20:30:08 GMT
From: Damian James <djames@thehub.com.au>
Subject: Re: Net::FTP: cwd(' ')
Message-Id: <slrndadun9.bbb.djames@puli.home>
On Wed, 08 Jun 2005 12:57:42 +0200, Josef Moellers said:
> ...
> Thanks for the hint, but it seems to be a special case of Net::FTP:
>
> $dir =3D "/" unless defined($dir) && $dir =3D~ /\S/;
Well, your string would pass that test if it still contains a backslash.
If you're going over the code in Net::FTP, you'll also want to look at
Net::Cmd, but you probably knew that.
> If I remove the check for a non-blank character, I get
> "Invalid number of arguments." as the result of $ftp->message.
> None of '\ ', '\\ ', '" "' work.
What happens when you try to cwd into ' ' with an interactive ftp client?
--damian
------------------------------
Date: Wed, 08 Jun 2005 23:00:06 GMT
From: Damian James <djames@thehub.com.au>
Subject: Re: perl one liner to display the third line from the end of a file
Message-Id: <slrndaerq1.bso.djames@puli.home>
On Wed, 08 Jun 2005 18:48:28 +0100, Brian McCauley said:
> Damian James wrote:
>> perl -ne 'BEGIN{$#x=2}push@x,$_;shift@x}{print $x[0]' file
>>
>> is pleasantly obscure.
> ...
> If obscurity is not on the list but Perl is, then Damian's solution is
> more clearly written as:
>
> perl -ne 'BEGIN{ $#x=2 } push @x,$_; shift @x; END{ print $x[0] }' file
*giggles*
Actually, I like Anno's better: principal of least surprise for a file with
less than 3 lines seems to me to be to print the first one, whereas mine
tries to print undef. Oh well.
--damian
------------------------------
Date: Thu, 09 Jun 2005 02:45:44 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: perl one liner to display the third line from the end of a file
Message-Id: <s3Ope.51716$9A2.24101@edtnps89>
Damian James wrote:
> On Tue, 7 Jun 2005 14:27:10 -0500, Oxnard said:
>
>>Assuming the file is a random length text file.
>>I know I can do this in a Perl script, however I would like to add the one
>>liner to an shell script.
>>Anyone have idea ideas on how to do this?
>
>
> perl -ne 'BEGIN{$#x=2}push@x,$_;shift@x}{print $x[0]' file
>
> is pleasantly obscure.
How about:
perl -ne'BEGIN{$#x=1}($\,@x)=(splice(@x),$_)}{print' file
John
--
use Perl;
program
fulfillment
------------------------------
Date: 8 Jun 2005 20:46:54 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Photo does not recognize format of Archive::Zip contents
Message-Id: <d87lfu$ejr$1@mamenchi.zrz.TU-Berlin.DE>
Richard Trahan <rtrahan@optonline.net> wrote in comp.lang.perl.misc:
> Thank you for your reply.
> >
> > [ Thank whom for what reply? Please quote some context when you reply. ]
> No, I won't. The thanks apply to the parent posting, which you can see
> if you group your postings by thread.
So long then, and have a pleasant Usenet experience.
Anno
------------------------------
Date: Wed, 8 Jun 2005 22:32:31 +0000 (UTC)
From: "David H. Adler" <dha@panix.com>
Subject: Re: Photo does not recognize format of Archive::Zip contents
Message-Id: <slrndaesfv.8kr.dha@panix2.panix.com>
On 2005-06-08, Richard Trahan <rtrahan@optonline.net> wrote:
> Thank you for your reply.
>>
>> [ Thank whom for what reply? Please quote some context when you reply. ]
> No, I won't. The thanks apply to the parent posting, which you can see
> if you group your postings by thread.
so you feel that everyone should arrange their newsreading the way you
want to and further assume that all posts come in in the same order for
everyone.
I've seen one post indicating that you won't be getting any quality help
from here out, and I think that there will likely be more.
Have the appropriate amount of fun.
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
_Day of Wrath_ is probably Dreyer's most popular film, which already
indicates something of the problems it poses.
- David Bordwell, The Films of Carl-Theodor Dreyer
------------------------------
Date: Wed, 08 Jun 2005 23:00:07 GMT
From: Damian James <djames@thehub.com.au>
Subject: Re: Photo does not recognize format of Archive::Zip contents
Message-Id: <slrndaetlo.bso.djames@puli.home>
On Wed, 08 Jun 2005 12:50:50 -0400, Richard Trahan said:
> Thank you for your reply.
>>
>> [ Thank whom for what reply? Please quote some context when you reply. ]
> No, I won't. The thanks apply to the parent posting, which you can see
> if you group your postings by thread.
Who said "[ Thank whom for what reply? Please quote some context when you
reply. ]"? I should wait till my news server has a copy of all previous
posts in the thread before reading this?
*sigh*
You're perhaps not aware of the distributed nature of usenet. You might
ponder what the implications are of there not existing a single central
news server from which changes are promulgated and posts served. Instead,
the lag interval between posting and various people seeing the post
is quite undeterminable. Some people will see this reply before the post
of yours that I have replied to. Some news servers might not even carry
the post that someone is referring to (I know my leafnode configuration
drops anything with more than 3 crossposts, because in the groups I read,
I have never seen a non-spam post that matches that).
You may perhaps be using some sort of web-based interface (Not google, I
would not have seen your post at all, nor any replies to it, if that were
the case). Even in that case the vagaries of usenet apply, you may indeed
not see all posts in a thread. And even on google, you won't see all posts
by all people at all times, even if the post made it to the server, since
there exists the X-No-Archive header, and many people use it routinely.
All in all, denizens of groups like this one have established a convention
that says: quote what you are replying to, there's no other reliable way
for others to know what that is. You are either bringing a convention from
another environment, of you are making up your own. Either way, no-one is
saying that YOU MUST follow the conventions of this group while you are
here, but all the same not doing so shows disrespect, even contempt, of
the folks who post here regularly. Do you really want to be doing that?
Hope this helps your understanding of the situation here a little.
--damian
--
@:=grep!(m!$/|#!..$|),split//,<DATA>;@;=0..$#:;while($:=@;){$;=rand
$:--,@;[$;,$:]=@;[$:,$;]while$:;push@|,shift@;if$;[0]==@|;select$,,
$,,$,,1/80;print qq x\bxx((@;+@|)*$|++),@:[@|,@;],!@;&&$/} __END__
Just another Perl Hacker,
------------------------------
Date: Thu, 09 Jun 2005 02:01:45 -0000
From: "W. Citoan" <wcitoan@NOSPAM-yahoo.com>
Subject: Re: Photo does not recognize format of Archive::Zip contents
Message-Id: <slrndaf8o6.2jc.wcitoan@wcitoan-via.supernews.com>
Richard Trahan wrote:
>
> Yes, I do know about comp.lang.perl.tk. I chose to post here, because
> the members are more knowledgeable, for the most part.
Eh? That is rather a bizarre statement. The maintainers of Perl/Tk and
the various Tk modules frequent comp.lang.perl.tk. You will have a much
better chance of getting answers to difficult Perl/Tk questions in that
group than in this one. You will also learn a lot if you read that
group. Little Perl/Tk takes place in this group.
> It is impolite to criticize when you don't know what you're talking
> about.
The person you are responding to didn't mention comp.lang.perl.tk nor
criticize you. Besides the issues of missing and time delayed
posts as others have pointed out, quoting the previous message and
directly responding to it would avoid you making mistakes like that.
- W. Citoan
--
The only thing we have to fear is fear itself.
-- Franklin D. Roosevelt
------------------------------
Date: Thu, 09 Jun 2005 02:13:39 -0000
From: "W. Citoan" <wcitoan@NOSPAM-yahoo.com>
Subject: Re: Photo does not recognize format of Archive::Zip contents
Message-Id: <slrndaf9ed.2jc.wcitoan@wcitoan-via.supernews.com>
Anno Siegel wrote:
>
> Yes. I noticed too late that you chose to give example code that
> doesn't demonstrate the error. I corrected that part of my posting,
> but you seem to have replied to the uncorrected version. See how
> quoting *the post that you saw* can make a difference?
Well, to be fair, I saw both posts as well and assumed it was a double
post (as happens every once in awhile) since the beginning of each post
(the part visible in my display without scrolling) was identical. Only
upon seeing this did I go back and notice the Supersedes header. Since
many newsreaders/servers don't do anything with that header, a note at
the beginning of the second post would have been nice.
Though I do agree that he does need to learn the value of quoting...
- W. Citoan
--
The only thing we have to fear is fear itself.
-- Franklin D. Roosevelt
------------------------------
Date: Thu, 09 Jun 2005 01:14:03 -0000
From: "W. Citoan" <wcitoan@NOSPAM-yahoo.com>
Subject: Re: Tk::FileSelect hangs on W98 root directory
Message-Id: <slrndaf5uo.2jc.wcitoan@wcitoan-via.supernews.com>
Richard Trahan wrote:
>
> The example shown in the Perl html page
Eh, there are tons of webpages out there. I am assuming you mean the
ActivePerl page? That's a copy of the manpage.
> for getOpenFile shows a variable, $types, as a list of lists, and it
> works ok as shown, but if you reduce this list to a single line, you
> get a syntax error. Specifically:
> my $types = [
> ['Text Files', ['.txt','.text']],
> ];
> will not work. IMO, this is clearly a bug.
Not quite. I believe that when you reduce it to a single line, you no
longer have a list of lists, but instead you merely have a list. I'm
not the best at those subtleties however so I may have it wrong. I do
know that to have a single pattern you would use:
my $types = [
['Text Files', ['.txt', '.text']],
[],
];
> Notice also that the syntax of $types is inconsistent with the
> description under the heading "Specifying File Patterns"; the $types
> example shows an extra level of list nesting.
Again, not quite. It's not the clearest, but under the DESCRIPTION
section, filetypes is specified (via the [] usage) as taking a list.
Under the SPECIFYING FILE PATTERNS section, it says (the first line)
that filePattern is a list. That results in a list of lists and the
example is consistent.
> It's too bad they didn't fix FileSelect; getOpenFile is not quite the
> same because it isn't a widget and it allows the user to do things I
> don't want him/her to do, like delete files and create directories.
getOpenFile simply calls a native interface. On Windows, you get the
standard Windows open file dialog. The advantages of providing the
users a dialog they are already quite familiar with out weigh such
considerations in my mind. Especially since they can always open an
Explorer window and delete those files anyway.
But you could try at Tk::FBox as well. Look toward the end of this
page: http://www.perltk.org/articles/filedialogs/filedialogs.html
- W. Citoan
--
Practice is the best teacher.
-- Publiluis Syrus
------------------------------
Date: Thu, 09 Jun 2005 01:42:34 -0000
From: "W. Citoan" <wcitoan@NOSPAM-yahoo.com>
Subject: Re: Tk::FileSelect hangs on W98 root directory
Message-Id: <slrndaf7ka.2jc.wcitoan@wcitoan-via.supernews.com>
Richard Trahan wrote:
> Also, it ignores -initialdir.
No, it doesn't. However, on Windows, it will only recognize the
backslash and not the customary (well, at least for Perl) slash.
$top->getOpenFile(-filetypes => $types,
-initialdir => 'C:\Perl');
By the way, the answer to that can be found very easily by searching
google groups for:
perl getopenfile initialdir
You would have found plenty of answers to that problem and have had your
solution much quicker.
- W. Citoan
--
Practice is the best teacher.
-- Publiluis Syrus
------------------------------
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 8157
***************************************
