[28501] in Perl-Users-Digest
Perl-Users Digest, Issue: 9865 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Oct 19 00:05:51 2006
Date: Wed, 18 Oct 2006 21:05:04 -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, 18 Oct 2006 Volume: 10 Number: 9865
Today's topics:
Re: Archive::Zip - writeToFileNamed log? (reading news)
Re: Help with array (reading news)
Re: How to print "0A" LF or "03" ETX characters to a fi <1usa@llenroc.ude.invalid>
Re: Perl and Dos Batch File Create <bradbrockman@yahoo.com>
Re: question about cpan module (reading news)
Returning to beginning of current line with print()? <nospam@thanksanyway.org>
two array parameter <cljlkck@yahoo.com>
Re: two array parameter <DJStunks@gmail.com>
Re: unable to calculate large file size xhoster@gmail.com
Re: unable to calculate large file size <No_4@dsl.pipex.com>
Re: unable to calculate large file size himagauri@gmail.com
Re: unable to calculate large file size himagauri@gmail.com
using 'if' to optionally use a module usenet@DavidFilmer.com
Re: using 'if' to optionally use a module xhoster@gmail.com
Re: using 'if' to optionally use a module usenet@DavidFilmer.com
Re: using 'if' to optionally use a module <uri@stemsystems.com>
Re: UTF-8 encoding problem <ynl@nsparks.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 18 Oct 2006 22:52:25 GMT
From: "Mumia W. (reading news)" <paduille.4060.mumia.w@earthlink.net>
Subject: Re: Archive::Zip - writeToFileNamed log?
Message-Id: <JeyZg.15623$UG4.10294@newsread2.news.pas.earthlink.net>
On 10/18/2006 10:29 AM, MoshiachNow wrote:
> On 10/16/2006 07:27 AM, MoshiachNow wrote:
>> HI,
>>
>> How do I get it to log? the whole operation is long and silent...Only
>> the exit code is available...
>> $zip->writeToFileNamed($ZIPNAME);
>>
>> It's a long operation on big files,but I do not seem to manage to get
>> it's log...
>> Appreciate any advise.(Windows)
>> Thanks
>>
> Anybody ?
>
Your question was not well put. Read and follow the posting guidelines
for this group.
http://www.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
Quote context. Bottom-post your replies. Post a short, < 20 line script
that demonstrates your problem. Use the "strict" and "warnings" modules.
--
paduille.4060.mumia.w@earthlink.net
------------------------------
Date: Wed, 18 Oct 2006 22:52:26 GMT
From: "Mumia W. (reading news)" <paduille.4060.mumia.w@earthlink.net>
Subject: Re: Help with array
Message-Id: <KeyZg.15624$UG4.3772@newsread2.news.pas.earthlink.net>
On 10/18/2006 07:09 AM, anno4000@radom.zrz.tu-berlin.de wrote:
> Mumia W. (reading news) <paduille.4060.mumia.w@earthlink.net> wrote in comp.lang.perl.misc:
>> On 10/17/2006 09:33 PM, Deepu wrote:
>>> Hi All,
>>>
>>> I have a code:
>>>
>>> @x = qw(TEST TEST1 NEW NAME);
>>> $test = "./../DIR/test.txt";
>>>
>>> open (FH, "$test") || die;
>>> while (<FH>) {
>>> foreach my $x (@x) {
>>> if (/$x\s*TESTING\s*(\S+).*$/) {
>>> Print "$x EQU 0$1\n";
>>> }
>>> }
>>> }
>
> [...]
>
>> You could drop the foreach loop and turn @x into a regular expression
>> that uses the alternation operator (|) to select any of TEST, TEST1 or
>> "NEW NAME."
>>
>> $xalt = '(?:' . join ('|',@x) . ')';
>
> This won't work cleanly. Since "TEST" is a substring of "TEST1", if
> TEST1 appears in the target string, only "TEST" will match. In a
> s/// operation that would leave a spurious "1":
>
> $_ = "result for TEST1: failed";
> s/$xalt/testing/;
> print "$_\n";
>
> prints
>
> result for testing1: failed
>
> Sorting by descending length fixes it:
>
> $xalt =
> '(?:' .
> join ('|',sort { length( $b) <=> length( $a) } @x) .
> ')';
>
> That is something to consider whenever transforming a series of matches
> in a single match over alternatives.
>
> Anno
You are right; I'm glad you caught that. Now I hope that Deepu gets all
of this.
--
paduille.4060.mumia.w@earthlink.net
------------------------------
Date: Thu, 19 Oct 2006 03:55:18 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: How to print "0A" LF or "03" ETX characters to a filehandle
Message-Id: <Xns9860F36AC2FA7asu1cornelledu@127.0.0.1>
anno4000@radom.zrz.tu-berlin.de wrote in news:4pml6pFjcl17U2
@news.dfncis.de:
> A. Sinan Unur <1usa@llenroc.ude.invalid> wrote in comp.lang.perl.misc:
>> jeffpierce12@hotmail.com wrote in news:1161116644.199649.83670
>> @i42g2000cwa.googlegroups.com:
>
> [...]
>
>> > "\f" it sends a FF (form feed). How do I send the ASCII "LF"
>> > character?
>>
>> print ABC 0x0A, 0x03;
>
> That prints the numbers 10 and 3. You need some double-quotes.
Ahem ... Hmmmm ... Dunno what made me say that ... *Sigh* ... Apologies.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: 18 Oct 2006 16:46:58 -0700
From: "banker123" <bradbrockman@yahoo.com>
Subject: Re: Perl and Dos Batch File Create
Message-Id: <1161215217.934506.4990@k70g2000cwa.googlegroups.com>
Current code currently outputs each line from source $rec2 to
$rec1.bat. I would like to output each $rec2 to a unique batch file
using the $rec2 variable as the filename.
open (data, 'C:\Source.txt') or die ("Cannot Open");
open (test, '>C:\$rec1.bat') or die ("Cannot Open");
@array=<data>;
foreach $line(@array)
{
chop($line);
($rec1,$rec2,)=split(/\t/,$line);
print test "\\\\CPC06LBA03S\\APPS\\FORMWARE\\PROGRAMS\\JFCLIENT.EXE
/f=$rec2 /n=001 \n";
}
l v wrote:
> banker123 wrote:
>
> top posting corrected again.
>
> > l v wrote:
> >> banker123 wrote:
> >>
> >> top posting corrected.
> >>
> >>> David Peacock wrote:
> >>>> banker123 <bradbrockman@yahoo.com> wrote:
> >>>>> I am new to Perl and I am trying to use Perl to complete this task.
> >>>> Welcome.
> >>>>
> >>>>> I have a source file that list the parameter that needs to be inserted
> >>>>> into a batch file, as shown below the parameter needs to be inserted
> >>>>> after JFCLIENT.EXE/f=********* followed by /n=001 the parameter is the
> >>>> <snip>
> >>>>
> >> [snip]
> >> > open (data, 'source data') or die ("Cannot Open");
> >>
> >> Is 'source data' your real file name? Tell die to give you more
> >> information about why the open failed.
> >> .... or die "Cannot open source data, $!";
> >>
> >>
> >> > open (test, ">test.bat") or die ("Cannot Open");
> >>
> >> Improve your die as in above.
> >> You initially stated that you need a batch file for each line in you
> >> input. This will create 1 batch file with each command. Which do you
> >> require? If 1 batch file per input line, then move the open() and
> >> close() of $rec1 inside your loop below.
> >>
> >> > @array=<data>;
> >>
> >> Do not read the entire input file into memory unless the file is small.
> >>
> >> > foreach $line (@array)
> >> Better to read directly from the input filehandle
> >> while (my $line = <data>) {
> >>
> >> > {
> >> > chop($line);
> >> use chomp() to remove newline from the end of the line. chop() removes
> >> the last character.
> >>
> >>
> >> > ($rec1,$rec2,)=split(/\t/,$line);
> >> > print test "\\CPC06LBA03S\APPS\FORMWARE\PROGRAMS\JFCLIENT.EXE /f=$rec2
> >> > /n=001";
> >> > }
> >> >
> >> >
> >>
> >> --
> >>
> >> Len
> >
>
> > You initially stated that you need a batch file for each line in you
> > input. This will create 1 batch file with each command. Which do you
> > require? If 1 batch file per input line, then move the open() and
> > close() of $rec1 inside your loop below.
> >
> > I need 1batch file with each command.
> > I also need that bathh file named using the $rec1.bat.
> > Can you provide some more info on how and where to add the open in the
> > loop?
> > I am getting 1 batch file with each line and the bacth file is named
> > $rec1.bat not what I want.
> > Thanks!
> >
> >
> >
>
> You would open and close your output file using the $rec1 as your
> filename within the iterations for each line in your input file. Print
> would be between the open and close. This is a common programming
> concept regardless of the programming language. Being new to Perl
> should not make you forget program logic.
>
> Remember to post your updated code for further assistance and please
> don't top post in this NG.
> --
>
> Len
------------------------------
Date: Wed, 18 Oct 2006 22:52:27 GMT
From: "Mumia W. (reading news)" <paduille.4060.mumia.w@earthlink.net>
Subject: Re: question about cpan module
Message-Id: <LeyZg.15625$UG4.8811@newsread2.news.pas.earthlink.net>
On 10/18/2006 08:16 AM, Sherm Pendley wrote:
>
> You could also use the 'o' command from within the CPAN shell:
>
> o conf pager /usr/bin/less
>
> That sets the variable for a single session, to save it permanently:
>
> o conf commit
>
> sherm--
>
Thanks. That's much better than my approach. Amazingly I somehow missed
the part of the CPAN manual that talks about "commit."
--
paduille.4060.mumia.w@earthlink.net
------------------------------
Date: Wed, 18 Oct 2006 20:51:30 -0700
From: "Mark" <nospam@thanksanyway.org>
Subject: Returning to beginning of current line with print()?
Message-Id: <1161229881.441148@bubbleator.drizzle.com>
Hello.
My Perl program is writing to STDOUT, which happens to be a command window.
I want to display processing status to the user, without printing each
status update on a new line. How can I return to the beginning of the
current line for each print() statement? I know this is probably quite
elementary, but I have had no luck finding the answer in the usual
resources.
Thanks
-Mark
------------------------------
Date: 18 Oct 2006 19:16:43 -0700
From: "ck" <cljlkck@yahoo.com>
Subject: two array parameter
Message-Id: <1161224203.698727.78170@e3g2000cwe.googlegroups.com>
Hi
I have a sub function that pass two array parameter as below:
sub (@p1,@p2) {
print"$#p1\n";
pirnt"$#p2\n";
}
I got print out result are 0.
How do I pass two array parameter?
Thanks
------------------------------
Date: 18 Oct 2006 19:29:03 -0700
From: "DJ Stunks" <DJStunks@gmail.com>
Subject: Re: two array parameter
Message-Id: <1161224943.317879.137660@m7g2000cwm.googlegroups.com>
ck wrote:
> Hi
> I have a sub function that pass two array parameter as below:
>
> sub (@p1,@p2) {
>
> print"$#p1\n";
> pirnt"$#p2\n";
> }
>
> I got print out result are 0.
that mess does not compile. how'd you get it to print out anything?
> How do I pass two array parameter?
read perldoc perlsub
> Thanks
you're welcome.
-jp
------------------------------
Date: 18 Oct 2006 22:07:32 GMT
From: xhoster@gmail.com
Subject: Re: unable to calculate large file size
Message-Id: <20061018180839.740$yh@newsreader.com>
himagauri@gmail.com wrote:
> Hi
> My perl script is a very big script and performs a lot of complex
> tasks. One of the tasks within the script is to calulate the size of a
> file as follows:
>
> $size = -s $filename;
# ask perl what went wrong:
warn $! unless defined $size;
> $size = -1 unless defined($size);
>
> When the file size is larger than 1GB for example 16376862124 bytes or
> 16 GB, the script returns $size = -1
> For a file size less than 1 GB for example 775752944 bytes,
> the correct file size is returned.
>
> When I run another sample script performing just the above simple task
> of calculating file size, the correct size of 16376862124 bytes is
> returned for the larger file after a long time-about 40 minutes. The
> problem arises when the above task is within the larger script.
I would consider it taking 40 minutes to -s a file to be a problem in
and of itself. Maybe these problems are related. Can you strace (or
whatever the local equivalent of that is) the simple program and see what
the last 10 or so lines of the trace are?
>
> I'm using Perl Version 5.8.3
> If I do a perl -V, I do get the following option in the summary:
> uselargefiles=define
What OS?
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Thu, 19 Oct 2006 01:17:13 +0100
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: unable to calculate large file size
Message-Id: <uJidnUPU77SXWavYnZ2dnUVZ8tGdnZ2d@pipex.net>
himagauri@gmail.com wrote:
>
> $size = -s $filename;
> $size = -1 unless defined($size);
>
> When the file size is larger than 1GB for example 16376862124 bytes or
> 16 GB, the script returns $size = -1
So you've only tested (or at least only reported) < 1GB and 16GB. What
about some intermediate values, say 1.5GB, 3GB, 6GB?
> When I run another sample script performing just the above simple task
> of calculating file size, the correct size of 16376862124 bytes is
> returned for the larger file after a long time-about 40 minutes. The
> problem arises when the above task is within the larger script.
So, your simple 2 line script takes 40 minutes to size one file, but you
don't consider *that* to be a problem?
> So where could the problem lie?
> Please suggest a solution to my problem.
As has been noted - please give more detail, particularly what OS this
is on. It reminds me of a problem sizing files on VAX systems when they
were beinf accessed as NFS servers. That OS had various types of file,
including variable length record files (IIRC). So in order to find out the
"real" size of the file you actually did have to read each record
individually and add up all of the record lengths. This made "ls -l" from a
Unix system takes *ages* for such files. (FWIW: eventually the server code
was changed to allow approximate sizing...)
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: 18 Oct 2006 19:48:19 -0700
From: himagauri@gmail.com
Subject: Re: unable to calculate large file size
Message-Id: <1161226099.071057.182200@h48g2000cwc.googlegroups.com>
The OS is Suse Linux and perl version is 5.8.3.
Point is that I would later have to work on files >16 GB. Hence I
haven't tested for intermediate values.
Initially I thought the '-s' operator doesn't work for file sizes >1
GB. Hence I worked out a sample program and noticed that it works.
Then I thought probably I'm running out of memory..but not sure about
it.
The file in question is being transferred from MVS to Linux using FTP.
The file on MVS has a record format of variable block (RECFM=VB).
I need to calculate the file size on Linux to check if the number of
bytes transferred to linux is equal to the file size on MVS.
does Linux OS have variable length files? How do I define them? how
else can I calculate the file size in perl besides -s operator?
what about File::Stat? is it more efficient as compared to -s?
-Gauri
Big and Blue wrote:
> himagauri@gmail.com wrote:
> >
> > $size = -s $filename;
> > $size = -1 unless defined($size);
> >
> > When the file size is larger than 1GB for example 16376862124 bytes or
> > 16 GB, the script returns $size = -1
>
> So you've only tested (or at least only reported) < 1GB and 16GB. What
> about some intermediate values, say 1.5GB, 3GB, 6GB?
>
> > When I run another sample script performing just the above simple task
> > of calculating file size, the correct size of 16376862124 bytes is
> > returned for the larger file after a long time-about 40 minutes. The
> > problem arises when the above task is within the larger script.
>
> So, your simple 2 line script takes 40 minutes to size one file, but you
> don't consider *that* to be a problem?
>
> > So where could the problem lie?
> > Please suggest a solution to my problem.
>
> As has been noted - please give more detail, particularly what OS this
> is on. It reminds me of a problem sizing files on VAX systems when they
> were beinf accessed as NFS servers. That OS had various types of file,
> including variable length record files (IIRC). So in order to find out the
> "real" size of the file you actually did have to read each record
> individually and add up all of the record lengths. This made "ls -l" from a
> Unix system takes *ages* for such files. (FWIW: eventually the server code
> was changed to allow approximate sizing...)
>
>
> --
> Just because I've written it doesn't mean that
> either you or I have to believe it.
------------------------------
Date: 18 Oct 2006 19:52:33 -0700
From: himagauri@gmail.com
Subject: Re: unable to calculate large file size
Message-Id: <1161226353.140322.235120@k70g2000cwa.googlegroups.com>
OS is Suse Linux
xhoster@gmail.com wrote:
> himagauri@gmail.com wrote:
> > Hi
> > My perl script is a very big script and performs a lot of complex
> > tasks. One of the tasks within the script is to calulate the size of a
> > file as follows:
> >
> > $size = -s $filename;
>
> # ask perl what went wrong:
> warn $! unless defined $size;
>
> > $size = -1 unless defined($size);
> >
> > When the file size is larger than 1GB for example 16376862124 bytes or
> > 16 GB, the script returns $size = -1
> > For a file size less than 1 GB for example 775752944 bytes,
> > the correct file size is returned.
> >
> > When I run another sample script performing just the above simple task
> > of calculating file size, the correct size of 16376862124 bytes is
> > returned for the larger file after a long time-about 40 minutes. The
> > problem arises when the above task is within the larger script.
>
> I would consider it taking 40 minutes to -s a file to be a problem in
> and of itself. Maybe these problems are related. Can you strace (or
> whatever the local equivalent of that is) the simple program and see what
> the last 10 or so lines of the trace are?
>
> >
> > I'm using Perl Version 5.8.3
> > If I do a perl -V, I do get the following option in the summary:
> > uselargefiles=define
>
> What OS?
>
> Xho
>
> --
> -------------------- http://NewsReader.Com/ --------------------
> Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 18 Oct 2006 15:51:33 -0700
From: usenet@DavidFilmer.com
Subject: using 'if' to optionally use a module
Message-Id: <1161211893.464347.95990@e3g2000cwe.googlegroups.com>
According to perlmodlib, I can use 'if' as a pragmatic module to
conditionally 'use' a module. That seems a bit cleaner and more
elegant than using 'if' in the conventional manner to optionally use a
module.
I want to use CGI::Carp only if I am using the script via a webserver
(an easy check for this is to see if one of the HTTP environment
variables is set).
I try something like this:
if $ENV{'HTTP_CONNECTION'}, CGI::Carp qw{ fatalsToBrowser };
(and have guessed at a few variations) but all attempts throw compile
errors.
What would be the proper syntax for this?
Thanks!
--
The best way to get a good answer is to ask a good question.
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 18 Oct 2006 23:04:07 GMT
From: xhoster@gmail.com
Subject: Re: using 'if' to optionally use a module
Message-Id: <20061018190515.301$CY@newsreader.com>
usenet@DavidFilmer.com wrote:
> According to perlmodlib, I can use 'if' as a pragmatic module to
> conditionally 'use' a module. That seems a bit cleaner and more
> elegant than using 'if' in the conventional manner to optionally use a
> module.
>
> I want to use CGI::Carp only if I am using the script via a webserver
> (an easy check for this is to see if one of the HTTP environment
> variables is set).
>
> I try something like this:
>
> if $ENV{'HTTP_CONNECTION'}, CGI::Carp qw{ fatalsToBrowser };
>
> (and have guessed at a few variations) but all attempts throw compile
> errors.
>
> What would be the proper syntax for this?
You use pragmatic modules by "use"ing them.
use if $ENV{'HTTP_CONNECTION'}, CGI::Carp => qw{ fatalsToBrowser };
See 'perldoc if' (notice there is no -f)
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 18 Oct 2006 16:31:40 -0700
From: usenet@DavidFilmer.com
Subject: Re: using 'if' to optionally use a module
Message-Id: <1161214300.680578.110950@f16g2000cwb.googlegroups.com>
xhoster@gmail.com wrote:
> You use pragmatic modules by "use"ing them.
Geez. Duh.
Thanks!
--
The best way to get a good answer is to ask a good question.
David Filmer (http://DavidFilmer.com)
------------------------------
Date: Wed, 18 Oct 2006 23:26:06 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: using 'if' to optionally use a module
Message-Id: <x7slhlasvl.fsf@mail.sysarch.com>
>>>>> "x" == xhoster <xhoster@gmail.com> writes:
x> usenet@DavidFilmer.com wrote:
>> According to perlmodlib, I can use 'if' as a pragmatic module to
>> conditionally 'use' a module. That seems a bit cleaner and more
>> elegant than using 'if' in the conventional manner to optionally use a
>> module.
>>
>> I want to use CGI::Carp only if I am using the script via a webserver
>> (an easy check for this is to see if one of the HTTP environment
>> variables is set).
>>
>> I try something like this:
>>
>> if $ENV{'HTTP_CONNECTION'}, CGI::Carp qw{ fatalsToBrowser };
>>
>> (and have guessed at a few variations) but all attempts throw compile
>> errors.
>>
>> What would be the proper syntax for this?
x> You use pragmatic modules by "use"ing them.
x> use if $ENV{'HTTP_CONNECTION'}, CGI::Carp => qw{ fatalsToBrowser };
x> See 'perldoc if' (notice there is no -f)
or do it yourself easily enough.
if ( $ENV{'HTTP_CONNECTION'} ) {
require CGI::Carp ;
CGI::Carp->import( qw( fatalsToBrowser ) ) ;
}
that is about all 'use' does and it is easy enough to emulate. the if
pragma probably does about the same underneath and it isn't a core
module (yet afaik).
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 19 Oct 2006 00:15:12 +0200
From: Yohan N Leder <ynl@nsparks.net>
Subject: Re: UTF-8 encoding problem
Message-Id: <MPG.1fa0c5d71e6c629898ea@news.tiscali.fr>
In article <1161174042.723241.162120@m73g2000cwd.googlegroups.com>,
shreshth.luthra@gmail.com says...
> both of them had the same contents when opened in Binary mode
> (Except for XML Declaration in 1 of them)
>
>
If binary content is the same, it grandly depend of this "third party
GUI for desktop search" you use, which maybe consider UTF-8 only if it
find the XML declaration you talk about. Do you observe the same
behavior using a not XML-oriented searching tool ? Maybe a one you could
write yourself in Perl : create two short files for test (one with xml
declaration, the other not), open for reading as utf-8, search for a
test pattern, print report, close.
------------------------------
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 9865
***************************************
