[25537] in Perl-Users-Digest
Perl-Users Digest, Issue: 7781 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Feb 15 00:05:55 2005
Date: Mon, 14 Feb 2005 21:05:13 -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 Mon, 14 Feb 2005 Volume: 10 Number: 7781
Today's topics:
Re: editing pdf files with perl <hacker.poet@gmail.com>
Re: editing pdf files with perl aditya2507@gmail.com
Re: Feeding false an App <larry_wallet@yahoo.com>
Re: Feeding false an App <hackeras@gmail.com>
Re: Feeding false an App <1usa@llenroc.ude.invalid>
Re: mkpath <abigail@abigail.nl>
Modification of a read-only value attempted <g-preston1@ti.com>
Re: new to group, need a temperature perl script. <jurgenex@hotmail.com>
Re: Perl 6 and the massive changes it will bring. <trizor@gmail.com>
Re: Perl 6 and the massive changes it will bring. <mgjv@tradingpost.com.au>
Perl script question <georgemj@sympatico.ca>
Re: Perl script question <jurgenex@hotmail.com>
Re: Process word occurances in Bible? <see.sig@rochester.rr.com>
Re: Record Hash Data Structure (Newbie) rajasekaran.natarajan@gmail.com
Re: Record Hash Data Structure (Newbie) rajasekaran.natarajan@gmail.com
Standard regexps module? <please_post@nomail.edu>
Re: Standard regexps module? <noreply@gunnar.cc>
Re: Unexpected Result From Pipe Read <jgibson@mail.arc.nasa.gov>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 14 Feb 2005 19:36:01 -0800
From: "pikus" <hacker.poet@gmail.com>
Subject: Re: editing pdf files with perl
Message-Id: <1108438561.091781.264040@o13g2000cwo.googlegroups.com>
Bill Segraves wrote:
> <aditya2507@gmail.com> wrote in message
> news:1108405623.370567.287490@o13g2000cwo.googlegroups.com...
> >
> > Hi,
> >
> > I have a collection of PDF files which are stored in a directory.
These
> > PDF files follow a particular format. Each one of these files has
some
> > fields in the first page which are left blank. I need to fill those
> > fields based on the input given by the user(s).
> > I CANNOT overwrite these PDF files since the data contained in them
is
> > not elsewhere. I simply need to be able to edit and update the
first
> > page of these PDF files.
> >
> > Is there any way I can do this with Perl?
>
> Yes.
>
> OTOH, your question is not a Perl question that is appropriate for
this
> newsgroup.
>
> Please try posting the same question on the newsgroup comp.text.pdf,
where
> you'll likely get a few ideas, among which would be my response to
your
> posting there.
>
> Good luck.
> --
> Bill Segraves
So why does this not qualify as an appropriate question for this group?
It certainly looks like a miscellaneous perl question to me... Plus I
want to know the answer but I'm lazy enough not to go to comp.text.pdf
to get it. :-) Thanks. - pikus
------------------------------
Date: 14 Feb 2005 19:36:20 -0800
From: aditya2507@gmail.com
Subject: Re: editing pdf files with perl
Message-Id: <1108438580.247393.83610@g14g2000cwa.googlegroups.com>
Bill Segraves wrote:
> <aditya2507@gmail.com> wrote in message
> news:1108405623.370567.287490@o13g2000cwo.googlegroups.com...
> >
> > Hi,
> >
> > I have a collection of PDF files which are stored in a directory.
These
> > PDF files follow a particular format. Each one of these files has
some
> > fields in the first page which are left blank. I need to fill those
> > fields based on the input given by the user(s).
> > I CANNOT overwrite these PDF files since the data contained in them
is
> > not elsewhere. I simply need to be able to edit and update the
first
> > page of these PDF files.
> >
> > Is there any way I can do this with Perl?
>
> Yes.
>
> OTOH, your question is not a Perl question that is appropriate for
this
> newsgroup.
I am not sure? :( I need to know how to do this in Perl, not any other
language.
> Please try posting the same question on the newsgroup comp.text.pdf,
where
> you'll likely get a few ideas, among which would be my response to
your
> posting there.
But if you suggest, I will do so.
> Good luck.
> --
> Bill Segraves
Thanks Bill.
------------------------------
Date: 14 Feb 2005 16:13:59 -0800
From: "Larry" <larry_wallet@yahoo.com>
Subject: Re: Feeding false an App
Message-Id: <1108426438.961939.68720@l41g2000cwc.googlegroups.com>
A. Sinan Unur wrote:
> Assumption: An email address with the word 'hacker' correlates with
> immaturity.
>
> Similar to using larry_wallet, IMNSHO.
>
> Sinan.
I do not know what IMNSHO means, but I am using the name given to me by
my mother and father, Lawrence Thomas Wallet Jr. I am a Physics
professor at our local community college and I have programmed in C as
a hobby for the last 30 years.
You are very arrogant for someone who is not even published on cpan.
Larry
------------------------------
Date: Tue, 15 Feb 2005 00:13:02 +0000 (UTC)
From: Richard Anderson <hackeras@gmail.com>
Subject: Re: Feeding false an App
Message-Id: <Xns95FE16D2BB5E0hackerasgmailcom@194.177.210.210>
Sherm Pendley <spamtrap@dot-app.org> wrote in
news:IfWdnUmYx4XEh4zfRVn-uA@adelphia.com:
> Richard Anderson wrote:
>
>> I can find the app's port and network protocol and configure the
>> firewall to redirect the traffic to that port to my app instead but
>> then the trouble is that i cannot write my own perl app to listen to
>> requests and then false feed it wrong. This is beyond my basic perl
>> capabilities.
>
> I *knew* there was a Perl question lurking in there somewhere. We just
> had to find it. :-)
>
> To start learning about network programming in Perl, have a look at
> "perldoc perlipc", especially the section "Sockets: Client/Server
> Communication". That's low-level stuff though. If you're using a
> well-known protocol - heck, even if you're using an obscure protocol,
> have a look around CPAN to see if there's a module that implements it.
>
>> Also i want to say that even if i was able to do that, intercepting
>> and false feeding then that would still wont get the job done because
>> his online chess server would be waitng for a cpu id respond from his
>> chess cleint software and not from my app. Am i right?
>
> Once your app is listening for and accepting connections, it can also
> send responses. If you want to be sneaky, set up your app as a "man in
> the middle". When it gets an incoming connection, establish a
> connection with the real app too.
>
> You can then write your app to handle the CPU ID request however you
> want, but forward other requests to the main app and return its
> responses back to the server, either as-is or modified.
>
>> He must surely have a way to identify all the data that his servers
>> recieves if they are coming from his software or from another app.
>
> There's no way for me to know that. That's what the packet scanner is
> for, so you can examine the traffic between the client and server.
> You'll need to decide how to proceed based on what you see there.
>
> sherm--
Thanks alot Sherm! You helpes me clarify steps.
Exmm is there a way that you can also contribute to the perl prog i have
so far by adding network programming support?
------------------------------
Date: Tue, 15 Feb 2005 02:28:26 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Feeding false an App
Message-Id: <Xns95FDDA71EC1D2asu1cornelledu@127.0.0.1>
"Larry" <larry_wallet@yahoo.com> wrote in news:1108426438.961939.68720
@l41g2000cwc.googlegroups.com:
> A. Sinan Unur wrote:
>> Assumption: An email address with the word 'hacker' correlates with
>> immaturity.
>>
>> Similar to using larry_wallet, IMNSHO.
> I do not know what IMNSHO means,
In my not so humble opinion
> but I am using the name given to me by
> my mother and father, Lawrence Thomas Wallet Jr.
If that is really the case, I am apologize. I had (it seems incorrectly)
assumed that larry_wallet was a play on "Larry Wall".
Sinan.
------------------------------
Date: 15 Feb 2005 00:33:00 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: mkpath
Message-Id: <slrnd12gps.ov1.abigail@alexandra.abigail.nl>
Alexandre Jaquet (alexj@floor.ch) wrote on MMMMCLXXXV September MCMXCIII
in <URL:news:cuqb7q$s6l$1@news.hispeed.ch>:
== Hi again,
== does mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711); create
== /foo/bar/baz directories based on blurf1/quux or it's only create thow
== directories
Djees. Why on earth do you ask? What happened when you tried?
Abigail
--
# Count the number of lines; code doesn't match \w. Linux specific.
()=<>;$!=$=;($:,$,,$;,$")=$!=~/.(.)..(.)(.)..(.)/;
$;++;$*++;$;++;$*++;$;++;`$:$,$;$" $. >&$*`;
------------------------------
Date: Mon, 14 Feb 2005 22:17:07 -0600
From: "Jerry Preston" <g-preston1@ti.com>
Subject: Modification of a read-only value attempted
Message-Id: <curt44$7j6$1@home.itg.ti.com>
I do not understand this at all:
local( *FI );
open( FI, $file ) || die "cannot open input file $file: ";
while(<FI>) { # I get "Modification of a read-only value attempted at
$file this line"
I have done this countless number of times. What is going on?
Thanks,
Jerry
------------------------------
Date: Tue, 15 Feb 2005 02:14:15 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: new to group, need a temperature perl script.
Message-Id: <XVcQd.21329$uc.6039@trnddc02>
scupper79 wrote:
> thanks for all the not-help you gave me,
Who is "you"? Please provide some attribution and/or quoted text, such that
people can understand what you are talking about.
> and outlook express is the only way to deal with newsgroups.
Not exactly, but that discussion belongs somewhere in
*.Newsreader.ReligiousWars or so.
jue
------------------------------
Date: 14 Feb 2005 16:18:52 -0800
From: "Edgar Bering" <trizor@gmail.com>
Subject: Re: Perl 6 and the massive changes it will bring.
Message-Id: <1108426732.348898.158120@f14g2000cwb.googlegroups.com>
Gregory Toomey wrote:
> Are you trolling?
No, sorry if I came off as one. I honeslty had heard no detail of perl
6, and I can never remember where to look for any perl info when I need
it, so I ask here.
------------------------------
Date: 15 Feb 2005 02:05:40 GMT
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: Perl 6 and the massive changes it will bring.
Message-Id: <slrnd12m7q.oag.mgjv@verbruggen.comdyn.com.au>
On 14 Feb 2005 16:18:52 -0800,
Edgar Bering <trizor@gmail.com> wrote:
> Gregory Toomey wrote:
>> Are you trolling?
>
> No, sorry if I came off as one. I honeslty had heard no detail of perl
> 6, and I can never remember where to look for any perl info when I need
> it, so I ask here.
Whenever I don't know these things, I try things like
http://www.perl.com/ (which has loads of P6P digests, and which would
have answered your questions a few links down), or
http://www.perl.org/ (which also has links to the apocalypses), or I
use google ("perl 6" or "perl6" would have both got you there
directly, and "perl apocalypse" via a little longer route).
Maybe for future reference, you shuold make a note of this errmm...
technique, because it also works for things that are not related to
Perl.
Martien
--
| Yes; Windows is great for running &
Martien Verbruggen | developing viruses, for instance. It's also
| very popular, but then again, so is the
| common cold. -- Dave Hinz
------------------------------
Date: Mon, 14 Feb 2005 21:42:38 -0500
From: "George Monappallil" <georgemj@sympatico.ca>
Subject: Perl script question
Message-Id: <BkdQd.2142$dZ.202018@news20.bellglobal.com>
Hi Guys:
Below is my code.
How can I grab the last data of the first column of the output of egrep -n
and store it in a file for comparing it against the last data next time the
script is run.
Is there an easier way of doing this?
Your help is appreciated.
------------------------------
#!/bin/perl
$LOG = "./messages.log";
$SIG{"INT"} = "clean_exit";
$SIG{"TERM"} = "clean_exit";
open(FILE, $LOG) || die "Can not open file $LOG";
# Main loop.
$WORD = "ERROR";
if ($LOG) {
$CURRLINECNT=`egrep -n $WORD $LOG | awk -F":" '{print $1}'`;
# THIS DOES NOT WORK EITHER. What's wrong in the syntax ?
}
# We jump here in case of INT or TERM signals
sub clean_exit {
($signal) = @_;
close FILE;
print "$file closed.\nExiting on signal $signal...\n";
exit;
}
--------------------------
------------------------------
Date: Tue, 15 Feb 2005 04:26:34 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Perl script question
Message-Id: <_ReQd.21347$uc.12451@trnddc02>
George Monappallil wrote:
> Hi Guys:
> Below is my code.
You may not believe it, but a namesake of yours just posted exactly the same
question to CLP. You may want to check there for answers he received.
jue
------------------------------
Date: Tue, 15 Feb 2005 02:07:27 GMT
From: Bob Walton <see.sig@rochester.rr.com>
Subject: Re: Process word occurances in Bible?
Message-Id: <zPcQd.12958$vK5.6447@twister.nyroc.rr.com>
ioneabu@yahoo.com wrote:
> Anno Siegel wrote:
...
>>"$total++" and the count in %words should be independent statements,
>>not connected by "and". If the first word in the file is a unique
>>word, you'll miss it. "$total++" will return 0 when it should be
>>counted.
>
>
> I don't understand this part. Can you give an example. I know you
> must be right, but I keep reading it over and over and missing it.
For the very first word, whatever it is, $total++ returns 0. The
"and" operator sees this as its left operand, and realizes it
doesn't need to compute the $words{lc $1}++ bit in order to
figure out that the result of the "and" is false, so that gets
skipped. If this was the only time in the whole file where the
very first word appeared, that word would be missed. And
further, even if that word does appear again, its count would be
off by one. What should one do? Well, the easiest would be to
use the comma operator instead of "and".
...
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: 14 Feb 2005 17:26:15 -0800
From: rajasekaran.natarajan@gmail.com
Subject: Re: Record Hash Data Structure (Newbie)
Message-Id: <1108430775.913296.243040@o13g2000cwo.googlegroups.com>
Hi all
Thanks a lot for your comments and help.
I just cant forgive myself for my typos I am sorry for that.
Here is the corrected version and it is working.
`Learning perl` I am using but they didnt give much about the hash of
hash etc.
I have also given the input data format. I need to link the generated
hash data to the element hash which I am gonna do later in the second
part. Basically every element has four grids and each grid has x,y,z
corordinates. + 2 more field. which kind of format is better to store
this and retrieve it for almost a 300,000 elements.
Any help will be appreciated.
ps: I tried to use `use strict` but it makes life harder for a newbie
like me. any better detailed source abt the use strict stuff.
#!/usr/sbin/perl -w
#extracts grid data from test.dat and stores in hash of hash
# raj - 15/Feb/2005
$file1 = "test.dat";
($identifier,$gridNo,$cp,$xcor,$ycor,$zcor,$cd);
open(DECK,"$file1") || die ("Cant open input file \"$file1\", Unable to
Find, Check the file name and path");
while($line= <CLIST>){
if ($line =~ m/^GRID/) {
($identifier,$gridNo,$cp,$xcor,$ycor,$zcor,$cd)= unpack("A8 A8 A8 A8
A8 A8 A8",$line);
%grid = (
$gridNo => {cp => $cp, xcor => $xcor, ycor => $ycor, zcor => $zcor,},
);
}
foreach $gridNo (keys %grid) {
printf
"$gridNo,$grid{$gridNo}->{xcor},$grid{$gridNo}->{ycor},$grid{$gridNo}->{zcor}\n";
}
}
close(DECK);
#Input File Format for test.dat <this is a MSC/NASTRAN INPUT DECK>
#each input field has 8 columns/fields
#COR-is co-ordinat value
#<name> <NUBMER> <CPVALUE> <XCOR> <YCOR> <ZCOR> <CPVALUE> each 8
columns
#GRID 130421 780.0 -422.625267.99
#GRID 130422 780.0 -380.25 267.99
#GRID 130423 780.0 380.25 10.73996
#GRID 130424 780.0 423.562510.73996
#GRID 130425 780.0 466.5 10.73996
#------------------------------------------------------
#NEXTPART
#<ElementName> <ElementNo> <Grid1> <Grid2> <Grid3> <Grid4>
#CQUAD4 115236 119524 119525 119528 119527
#CQUAD4 115237 119527 119528 119522 119521
#CQUAD4 115238 119521 119522 119519 119518
------------------------------
Date: 14 Feb 2005 19:36:57 -0800
From: rajasekaran.natarajan@gmail.com
Subject: Re: Record Hash Data Structure (Newbie)
Message-Id: <1108438617.406599.291620@z14g2000cwz.googlegroups.com>
Hi all!
Yeah I included another hash for element data for the second part. but
I do not know how to acess the hash %grid using the values I get from
%element hash (check the print loop)
my $file1 = "test.dat";
my ($identifier,$gridNo,$cp,$xcor,$ycor,$zcor,$cd);
open(DECK,"$file1") || die ("Cant open input file \"$file1\", Unable to
Find, Check the file name and path");
while($line= <DECK>){
if ($line =~ m/^GRID/) {
($identifier,$gridNo,$cp,$xcor,$ycor,$zcor,$cd)= unpack("A8 A8 A8 A8
A8 A8 A8",$line);
%grid = (
$gridNo => {cp => $cp, xcor => $xcor, ycor => $ycor, zcor => $zcor,},
);
}
elsif($line =~ m/^CQUAD4/) {
($eId,$elementNo,$grid1,$grid2,$grid3,$grid4) = unpack("A8 A8 x8 A8
A8 A8 A8",$line);
%element = (
$elementNo => {ETYPE=> $eId, con1 => $grid1, con2 => $grid2, con3=>
$grid3, con4 => $grid4},
);
}
foreach $elementNo (keys %element) {
print
"\n$element{$elementNo}->{ETYPE},$elementNo,$element{$elementNo}->{con1},$element{$elementNo}->{con2},$element{$elementNo}->{con3},$element{$elementNo}->{con4}
\n";
#here I wanted to print grid1-grid4 (from `con1`-`con4` value of
%element) and its x,y,z corordinates (x,y,z needs tobe picked from like
%grid{con1}->{xcor} is it possible
#I dont know how to do that I tried many ways.
}
}
close(DECK);
My Present Goal is to print like this
Element1 grid1 grid2 grid3 grid4 (-> this line is ok)
grid1 xcor ycor zcor -> these four lines I could not get.
grid2 xcor ycor zcor
grid3 xcor ycor zcor
grid4 xcor ycor zcor
Element2 grid1 grid2 grid3 grid4
grid1 xcor ycor zcor
grid2 xcor ycor zcor
grid3 xcor ycor zcor
grid4 xcor ycor zcor
I tried something like that - don`t laugh - it did not work
foreach $elementNo (keys %element) {
print
"\n$element{$elementNo}->{ETYPE},$elementNo,$element{$elementNo}->{con1},$element{$elementNo}->{con2},$element{$elementNo}->{con3},$element{$elementNo}->{con4}
\n";
@g = ($element{$elementNo}->{con1},$element{$elementNo}->{con2},
$element{$elementNo}->{con3}, $element{$elementNo}->{con4});
foreach $g (@g) {
print "$g,$grid{$g}->{xcor},$grid{$g}->{ycor},$grid{$g}->{zcor}\n";
}
Is there anyother way to do this stuff more efficiently.
Any help will be apprciated.
------------------------------
Date: Tue, 15 Feb 2005 02:58:00 +0000 (UTC)
From: bill <please_post@nomail.edu>
Subject: Standard regexps module?
Message-Id: <curofo$q1t$1@reader2.panix.com>
After searching CPAN for a while, I was not able to find a Perl
module consisting of "standard" regular expressions (e.g. the
"standard" regular expression to match an internet IP address, or
a "number", or a "Perl identifier", etc.). I realize that in some
cases it is pretty easy to come up with the regexp oneself, but
this kind of code seems like a trivially good candidate for re-use.
Pointers to the right CPAN module would be much appreciated.
Thanks,
bill
------------------------------
Date: Tue, 15 Feb 2005 03:58:39 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Standard regexps module?
Message-Id: <37d76dF59oaf9U1@individual.net>
bill wrote:
> After searching CPAN for a while, I was not able to find a Perl
> module consisting of "standard" regular expressions (e.g. the
> "standard" regular expression to match an internet IP address, or
> a "number", or a "Perl identifier", etc.). I realize that in some
> cases it is pretty easy to come up with the regexp oneself, but
> this kind of code seems like a trivially good candidate for re-use.
>
> Pointers to the right CPAN module would be much appreciated.
You seem to looking for Regexp::Common.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 14 Feb 2005 17:29:57 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Unexpected Result From Pipe Read
Message-Id: <140220051729579710%jgibson@mail.arc.nasa.gov>
In article <pan.2005.02.14.23.01.32.469282@hotmail.com>, John
<john_tilly@hotmail.com> wrote:
> All:
>
> I have set up a named pipe to transfer data between threads. While the
> transfer is successful, I'm perplexed by the system messages I trap along
> the way. As a necessity, I start attempting to read from the pipe ahead
> of writing to the pipe using:
>
> <code snip>
>
> do {
> open (FIFO_READ, "< $FIFO");
You should be testing the return value from open. The $! variable will
not be set to a relevant value if the open succeeds. You may be looking
at a previous error.
> if ($!) {
> print "Exception: $! - sleeping 1 seconds and trying again\n";
> sleep(1);
> } # end if
Please delete extraneous comments such as '# end if'
> else {
> print "No exception...\n";
> $exception_flag = 0;
> } # end else
Ditto.
>
> } until ( !$exception_flag ) ;
>
> The output continues to be "Exception: No such file or directory -
> sleeping 1 seconds and trying again" until something is written to the
> pipe at which time the exception becomes:
>
> "Exception: Illegal seek - sleeping 1 seconds and trying again"
>
> At this point the data is transfered, but I find it odd that this is the
> exception message at this point in the process.
>
> The pipe for writing is created with:
>
> <code snip>
>
> my $FIFO = $path;
>
> unless (-p $FIFO) { # unless the file is not a pipe
> system('/bin/mknod', $FIFO, 'p')
> && die "can't mknod $FIFO: $!";
> } # end unless
>
> # next line blocks until there is a reader
>
> open(FIFO_WRITE, "> $FIFO") || die "can't write $FIFO: $!";
Are you sure this will block?
> print "WRITE_TO_PIPE - Writing $phrase to pipe: $phrase\n";
> print FIFO_WRITE "$phrase\n";
> close FIFO_WRITE;
> sleep 1; # to avoid dup signals
----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= East/West-Coast Server Farms - Total Privacy via Encryption =---
------------------------------
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 7781
***************************************
