[24100] in Perl-Users-Digest
Perl-Users Digest, Issue: 6294 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 23 06:10:41 2004
Date: Tue, 23 Mar 2004 03:10:09 -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, 23 Mar 2004 Volume: 10 Number: 6294
Today's topics:
Re: Printing in Perl <Joe.Smith@inwap.com>
regexp question <ihatespam@hotmail.com>
Re: regexp question (Malcolm Dew-Jones)
Re: regexp question <ihatespam@hotmail.com>
Re: regexp question (Anno Siegel)
Re: Regular Expressions Question <abaugher@esc.pike.il.us>
Text from binary code <goth1938@hotmail.com>
Re: Text from binary code <goth1938@hotmail.com>
Re: Text from binary code <gnari@simnet.is>
Re: using a variable as STDIN for an external program <gned@telsmonopolytradotcom.remove.monopoly)>
Re: working example File::Taill <abaugher@esc.pike.il.us>
Re: working example File::Taill (Anno Siegel)
zip backup via ftp (jon)
Re: zip backup via ftp <simon@unisolve.com.au>
Re: zip backup via ftp <bigiain@mightymedia.com.au>
Re: zip backup via ftp <nospam@bigpond.com>
Re: zip backup via ftp (jon)
Re: zip backup via ftp <gnari@simnet.is>
Re: zip backup via ftp <nospam@bigpond.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 23 Mar 2004 10:05:36 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: Printing in Perl
Message-Id: <QZT7c.67626$SR1.117547@attbi_s04>
Bill Soistmann wrote:
> The code was from a book he was using.
> I had used perl for many years and was confused as to why the code
> did not work, so I tried some simple tests like:
>
> print "Help Me";
>
> and it would print nothing unless I did
>
> print ("Help Me");
>
> so I just was *curious* why -- not a big deal
What version of perl are you using? Version 1???
(Use "perl -v" to get the version number.)
Perl version 4 does not require parenthesis, nor does version 5.8.3
which is what your student should be using.
-Joe
------------------------------
Date: Mon, 22 Mar 2004 23:50:26 -0800
From: BigDaDDY <ihatespam@hotmail.com>
Subject: regexp question
Message-Id: <105vr1he7hpbh20@corp.supernews.com>
Hi all,
I have kind of a tricky problem. Here goes:
We have some shorthand notations we use in practice that describe a
structure that I would like to allow in my program. However, in order to
allow them, I need to be able to expand them out. They work as follows:
(30/40/50)S is the same as (30/40/50/50/40/30) Note: the S only occurs
once at the end
(30/40/50)$ is the same as (30/40/50/40/30) Note: the $ only occurs
once at the end
and finally (30/40(5)/50) is the same as 30/40/40/40/40/40/50 Note: the
quantifier in parenthesis (in this case the (5)) is allowed anywhere. For
example this would be allowed too:
(30(4)/40(5)/50(5))S =
(30/30/30/30/40/40/40/40/40/50/50/50/50/50/50/50/50/50/50/40/40/40/40/40/30/30/30/30)
How can I allow the user to use this shorthand notation, and make my
program transparent to it? In other words how would I have my program
expand out these shorthand notations?
------------------------------
Date: 23 Mar 2004 00:13:17 -0800
From: yf110@vtn1.victoria.tc.ca (Malcolm Dew-Jones)
Subject: Re: regexp question
Message-Id: <405ff19d@news.victoria.tc.ca>
BigDaDDY (ihatespam@hotmail.com) wrote:
: Hi all,
: I have kind of a tricky problem. Here goes:
: We have some shorthand notations we use in practice that describe a
: structure that I would like to allow in my program. However, in order to
: allow them, I need to be able to expand them out. They work as follows:
: (30/40/50)S is the same as (30/40/50/50/40/30) Note: the S only occurs
: once at the end
: (30/40/50)$ is the same as (30/40/50/40/30) Note: the $ only occurs
: once at the end
: and finally (30/40(5)/50) is the same as 30/40/40/40/40/40/50 Note: the
: quantifier in parenthesis (in this case the (5)) is allowed anywhere. For
: example this would be allowed too:
: (30(4)/40(5)/50(5))S =
: (30/30/30/30/40/40/40/40/40/50/50/50/50/50/50/50/50/50/50/40/40/40/40/40/30/30/30/30)
: How can I allow the user to use this shorthand notation, and make my
: program transparent to it? In other words how would I have my program
: expand out these shorthand notations?
this might to get you started
my $original = '(30/40(3)/50)S'; # an example
my @numbers = $original =~ m/(\d+(?:\(\d+\)){0,1})/g;
print "@numbers\n";
my @expanded = map {my @x=(m/\d+/g,1); ($x[0]) x $x[1] } @numbers;
print "@expanded\n";
# # pseudo code now # #
if S at end then @final = ( @expanded , reverse @expanded)
if $ at end then @rev = reverse @expanded; shift @rev; @final=(@expanded,@rev)
$result = '(' . join '/' , @final . ')';
------------------------------
Date: Tue, 23 Mar 2004 01:35:38 -0800
From: BigDaDDY <ihatespam@hotmail.com>
Subject: Re: regexp question
Message-Id: <1060170ng09ru8f@corp.supernews.com>
Malcolm Dew-Jones wrote:
> BigDaDDY (ihatespam@hotmail.com) wrote:
> : Hi all,
>
> : I have kind of a tricky problem. Here goes:
>
> : We have some shorthand notations we use in practice that describe a
> : structure that I would like to allow in my program. However, in order
> : to
> : allow them, I need to be able to expand them out. They work as follows:
>
> : (30/40/50)S is the same as (30/40/50/50/40/30) Note: the S only
> : occurs once at the end
>
>
> : (30/40/50)$ is the same as (30/40/50/40/30) Note: the $ only occurs
> : once at the end
>
> : and finally (30/40(5)/50) is the same as 30/40/40/40/40/40/50 Note: the
> : quantifier in parenthesis (in this case the (5)) is allowed anywhere.
> : For example this would be allowed too:
>
> : (30(4)/40(5)/50(5))S =
> :
(30/30/30/30/40/40/40/40/40/50/50/50/50/50/50/50/50/50/50/40/40/40/40/40/30/30/30/30)
>
> : How can I allow the user to use this shorthand notation, and make my
> : program transparent to it? In other words how would I have my program
> : expand out these shorthand notations?
>
> this might to get you started
>
>
> my $original = '(30/40(3)/50)S'; # an example
>
> my @numbers = $original =~ m/(\d+(?:\(\d+\)){0,1})/g;
>
> print "@numbers\n";
>
> my @expanded = map {my @x=(m/\d+/g,1); ($x[0]) x $x[1] } @numbers;
>
> print "@expanded\n";
>
> # # pseudo code now # #
>
> if S at end then @final = ( @expanded , reverse @expanded)
>
> if $ at end then @rev = reverse @expanded; shift @rev;
> @final=(@expanded,@rev)
>
> $result = '(' . join '/' , @final . ')';
Forgot to mention one important thing. The numbers shown are not
necessarily always integer numbers. For example, the following would also
be valid:
(124.23/74.23/23.25)S
(124.23/74.23/23.25)$
(124.23(5)/74.23(4)/23.25(3))
------------------------------
Date: 23 Mar 2004 11:01:12 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: regexp question
Message-Id: <c3p5do$7et$1@mamenchi.zrz.TU-Berlin.DE>
BigDaDDY <ihatespam@hotmail.com> wrote in comp.lang.perl.misc:
> Malcolm Dew-Jones wrote:
>
> > BigDaDDY (ihatespam@hotmail.com) wrote:
> > : Hi all,
> >
> > : I have kind of a tricky problem. Here goes:
> >
> > : We have some shorthand notations we use in practice that describe a
> > : structure that I would like to allow in my program. However, in order
> > : to
> > : allow them, I need to be able to expand them out. They work as follows:
> >
> > : (30/40/50)S is the same as (30/40/50/50/40/30) Note: the S only
> > : occurs once at the end
> >
> >
> > : (30/40/50)$ is the same as (30/40/50/40/30) Note: the $ only occurs
> > : once at the end
> >
> > : and finally (30/40(5)/50) is the same as 30/40/40/40/40/40/50 Note: the
> > : quantifier in parenthesis (in this case the (5)) is allowed anywhere.
> > : For example this would be allowed too:
> >
> > : (30(4)/40(5)/50(5))S =
> > :
> (30/30/30/30/40/40/40/40/40/50/50/50/50/50/50/50/50/50/50/40/40/40/40/40/30/30/30/30)
> >
> > : How can I allow the user to use this shorthand notation, and make my
> > : program transparent to it? In other words how would I have my program
> > : expand out these shorthand notations?
> >
> > this might to get you started
> >
> >
> > my $original = '(30/40(3)/50)S'; # an example
> >
> > my @numbers = $original =~ m/(\d+(?:\(\d+\)){0,1})/g;
> >
> > print "@numbers\n";
> >
> > my @expanded = map {my @x=(m/\d+/g,1); ($x[0]) x $x[1] } @numbers;
> >
> > print "@expanded\n";
> >
> > # # pseudo code now # #
> >
> > if S at end then @final = ( @expanded , reverse @expanded)
> >
> > if $ at end then @rev = reverse @expanded; shift @rev;
> > @final=(@expanded,@rev)
> >
> > $result = '(' . join '/' , @final . ')';
>
>
>
> Forgot to mention one important thing. The numbers shown are not
> necessarily always integer numbers. For example, the following would also
> be valid:
>
> (124.23/74.23/23.25)S
> (124.23/74.23/23.25)$
> (124.23(5)/74.23(4)/23.25(3))
Oh please! "Sorry, I forgot to mention part of my problem. Please
send another solution."
Have you even made the slightest attempt to adapt Malcolm's solution to
your situation?
Anno
------------------------------
Date: Mon, 22 Mar 2004 21:25:52 -0600
From: Aaron Baugher <abaugher@esc.pike.il.us>
Subject: Re: Regular Expressions Question
Message-Id: <868yhs8csf.fsf@cail.baugher.pike.il.us>
Tore Aursand <tore@aursand.no> writes:
> This one will print all lines, except those beginning with 'Diaplay':
>
> while ( <FILE> ) {
> next unless ( /^Display/ );
> print;
> }
That prints only lines that match. To print the ones that don't
match:
while ( <FILE> ) {
print unless ( /^Display/ );
}
--
Aaron
abaugher@esc.pike.il.us
------------------------------
Date: Tue, 23 Mar 2004 11:12:04 +0800
From: "Just in" <goth1938@hotmail.com>
Subject: Text from binary code
Message-Id: <c3o9u8$q5b$1@news01.intel.com>
I've got this Perl program running on this clunky old Apollo Unix
workstation. Thing is apart from the first line of code, the rest of it is
in a compiled format.
I guess the original coder thought it would be smart to do so as they were
trying to hide a password.
I was wondering if any of you would know how to interpret it into normal
plain text.
I did a hex dump for part of the file:-
------------------------------
Date: Tue, 23 Mar 2004 11:18:03 +0800
From: "Just in" <goth1938@hotmail.com>
Subject: Re: Text from binary code
Message-Id: <c3oa9j$qbn$1@news01.intel.com>
"Just in" <goth1938@hotmail.com> wrote in message
news:c3o9u8$q5b$1@news01.intel.com...
> I've got this Perl program running on this clunky old Apollo Unix
> workstation. Thing is apart from the first line of code, the rest of it is
> in a compiled format.
>
> I guess the original coder thought it would be smart to do so as they were
> trying to hide a password.
>
> I was wondering if any of you would know how to interpret it into normal
> plain text.
>
> I did a hex dump for part of the file:-
>
>
Sorry, here are part of the contents:
#!//tcx140/usr/bin/t3perl
zT-Ŵ"T>-,sz'
Zѐ~zzTܻsZ--,O?Yo"'~T">ܺ?S'
ܻs
I used HexWizard to do a hex dump of the file, heres the output:-
0x0000000 2321 2F2F 7463 7831 3430 2F75 7372 2F62 #!//tcx140/usr/b
0x0000010 696E 2F74 3370 6572 6C0A FBF1 D6FF 9EBC in/t3perl z
0x0000020 9997 ADDD D9D8 F2DC C5B4 D6D1 93BB 999B T-Ŵ"T>
0x0000030 FFC8 DE97 A582 9AF4 E7FF 9EBC 928E FFD1 -,sz'Z
0x0000040 9098 B190 C59E D6D1 9EB9 99DE E2D5 D9D5 ~zzT
0x0000050 F2DB DCBB BF9A 90FB 8E96 FFDA 9782 A690 ܻsZ--,
0x0000060 8CBB BD86 8DB7 D29F BB9C 8DA8 B694 92F8 O?Yo"'
0x0000070 AFDA 98BA 99A1 B093 A19B BA81 DCBA FBD7 ~T">ܺ
0x0000080 DAEF F78D A686 8A92 B8DD DCBB BF9A 90FB ?S'ܻs
0x0000090 9E8C AFD5 D398 BBD5 DAFA B391 98F4 D092 zO~'~'
0x00000A0 B092 9799 F594 8DE4 BFD5 94B8 9288 BA80 '-T""'^?
0x00000B0 DED3 B698 9AB4 F196 8DA7 DFD7 E4FF 0A80 Ӷ~s- ?
If it helps any: I know the source code has system, and chdir in it.
Thanks
------------------------------
Date: Tue, 23 Mar 2004 08:27:36 -0000
From: "gnari" <gnari@simnet.is>
Subject: Re: Text from binary code
Message-Id: <c3osbh$v6v$1@news.simnet.is>
"Just in" <goth1938@hotmail.com> wrote in message
news:c3oa9j$qbn$1@news01.intel.com...
>
> "Just in" <goth1938@hotmail.com> wrote in message
> news:c3o9u8$q5b$1@news01.intel.com...
> > I've got this Perl program running on this clunky old Apollo Unix
> > workstation. Thing is apart from the first line of code, the rest of it
is
> > in a compiled format.
> >
> > I was wondering if any of you would know how to interpret it into normal
> > plain text.
> >
> > I did a hex dump for part of the file:-
>
> #!//tcx140/usr/bin/t3perl
> zT-Ŵ"T>-,sz'
>
Zѐ~zzTܻsZ--,O?Yo"'~T">ܺ?S'
> ܻs
this means that file://tcx140/usr/bin/t3perl is run to
execute the file. this could be anything. but you could:
a) see if t3perl is perl or other readable format
b) see if you have source of t2perl on your system
c) in case t3perl executes perl proper substitute your
own fake perl in its place
d) reverse-engineer t3perl
e) run t3perl under a debugger
f) (or should this the a)) google for the answer, or
ask t3perls author
happy hacking
gnari
------------------------------
Date: Tue, 23 Mar 2004 17:48:48 +1100
From: "C3" <gned@telsmonopolytradotcom.remove.monopoly)>
Subject: Re: using a variable as STDIN for an external program
Message-Id: <405fdd6c$0$13661$afc38c87@news.optusnet.com.au>
It was a silly mistake. I accessed the wrong variable later on in my program
and thought that the external program's output hadn't been captured, but it
had been in another variable all along.
cheers,
C3
------------------------------
Date: Mon, 22 Mar 2004 19:57:16 -0600
From: Aaron Baugher <abaugher@esc.pike.il.us>
Subject: Re: working example File::Taill
Message-Id: <86d6748gw3.fsf@cail.baugher.pike.il.us>
Paul Lalli <ittyspam@yahoo.com> writes:
> The only time the defined() would return a different response than
> the simple boolean test is if the last line of the file contained
> just the string "0" (without a newline). In this case, the boolean
> test would return false, but a defined() test would return true.
The last line could also be blank (just a newline), or "000000" or
"0000.0000", or anything else that evaluates as false. Probably best
to stick with defined() here.
--
Aaron
abaugher@esc.pike.il.us
------------------------------
Date: 23 Mar 2004 06:27:33 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: working example File::Taill
Message-Id: <c3olcl$pmj$1@mamenchi.zrz.TU-Berlin.DE>
Aaron Baugher <abaugher@esc.pike.il.us> wrote in comp.lang.perl.misc:
> Paul Lalli <ittyspam@yahoo.com> writes:
>
> > The only time the defined() would return a different response than
> > the simple boolean test is if the last line of the file contained
> > just the string "0" (without a newline). In this case, the boolean
> > test would return false, but a defined() test would return true.
>
> The last line could also be blank (just a newline), or "000000" or
> "0000.0000", or anything else that evaluates as false. Probably best
> to stick with defined() here.
None of these evaluate to false. A single "0" without a terminating
newline is the only type of line that may be missed. That is really
a malformed line, so it is customary to simply check for truth.
Anno
------------------------------
Date: Mon, 22 Mar 2004 19:18:13 -0800 (PST)
From: xbg86@webtv.net (jon)
Subject: zip backup via ftp
Message-Id: <8690-405FAC75-127@storefull-3311.bay.webtv.net>
what i need is a script where you exicute it, it automatically extracts
all the files and directories in your root, then puts them into one zip
(say backup.zip). then logs into the ftp client with the username and
password of which you specify in your script, finds the zip file in your
root (backup.zip), then sends it to the ftp client. after all this is
done, it closes the ftp connection, and then removes the local zip.
afterwards, it shows a confirmation with ftp output on the screen,
saying whether or not it was a success.
i dont want this script to have to rely on a computer to use it. i need
it to be executed in a browser.
------------------------------
Date: Tue, 23 Mar 2004 15:12:22 +1100
From: Simon Taylor <simon@unisolve.com.au>
Subject: Re: zip backup via ftp
Message-Id: <c3odip$pif$1@otis.netspace.net.au>
jon wrote:
> what i need is a script where you exicute it, it automatically extracts
> all the files and directories in your root, then puts them into one zip
> (say backup.zip). then logs into the ftp client with the username and
> password of which you specify in your script, finds the zip file in your
> root (backup.zip), then sends it to the ftp client. after all this is
> done, it closes the ftp connection, and then removes the local zip.
> afterwards, it shows a confirmation with ftp output on the screen,
> saying whether or not it was a success.
>
> i dont want this script to have to rely on a computer to use it. i need
> it to be executed in a browser.
>
Hello Jon,
All easily done with perl. ;-)
See the following perl modules at cpan.org:
Archive::Zip;
Net::FTP;
CGI;
Or, if you have tried to solve any of the problems you've described
already, and your code does not do what you want, post the code and let
us have a look at it.
Regards,
Simon Taylor
--
Unisolve Pty Ltd - Melbourne, Australia
------------------------------
Date: Tue, 23 Mar 2004 15:40:14 +1100
From: Iain Chalmers <bigiain@mightymedia.com.au>
Subject: Re: zip backup via ftp
Message-Id: <bigiain-2BB3CE.15401423032004@news.fu-berlin.de>
In article <c3odip$pif$1@otis.netspace.net.au>,
Simon Taylor <simon@unisolve.com.au> wrote:
> jon wrote:
<snip>
> > i dont want this script to have to rely on a computer to use it.
> All easily done with perl. ;-)
Hmmm, I must be a bit behind the times, I didn't know they'd started
porting Perl to things _other_ than computers... Good work lads!
:-)
big (#!/dishwasher/bin/perl -w)
--
"A magazine here has a bunch of bonobo's in the zoo and a bunch of
market analysts from major banks picking stocks weekly. So far the
bonobo's are turning in a profit and the analysts lose money. The
banks haven't made the logical step yet." - Lieven Marchand in SDM
------------------------------
Date: Tue, 23 Mar 2004 17:47:07 +1000
From: Gregory Toomey <nospam@bigpond.com>
Subject: Re: zip backup via ftp
Message-Id: <22503104.CJbku1B4CD@GMT-hosting-and-pickle-farming>
jon wrote:
> what i need is a script where you exicute it, it automatically extracts
> all the files and directories in your root, then puts them into one zip
> (say backup.zip). then logs into the ftp client with the username and
> password of which you specify in your script, finds the zip file in your
> root (backup.zip), then sends it to the ftp client. after all this is
> done, it closes the ftp connection, and then removes the local zip.
> afterwards, it shows a confirmation with ftp output on the screen,
> saying whether or not it was a success.
>
> i dont want this script to have to rely on a computer to use it. i need
> it to be executed in a browser.
And I want a round the world trip.
You dont want to rely on a computer. What will you use, a gorilla?
How does you browser execute Perl?
Maybe what you really want is something like the zip downloads I've
implemented in www.ipo-australia.com/data It's done with Archive::Zip &
mysql & doesnt use intermediate flies. If you're interested I'll give you
more details.
gtoomey
------------------------------
Date: Tue, 23 Mar 2004 00:19:40 -0800 (PST)
From: xbg86@webtv.net (jon)
Subject: Re: zip backup via ftp
Message-Id: <26971-405FF31C-320@storefull-3312.bay.webtv.net>
how about i clear up a little bit lol..
as you can see by my email, im on webtv, so i cant rely on a hard drive
on a pc.
im not having problems with a script because i dont have it yet, i just
cant find one anywhere that does the operations i want automatically.
ive searched google through an through for keywords describing what i
need, and i just cant find anything.
------------------------------
Date: Tue, 23 Mar 2004 08:34:15 -0000
From: "gnari" <gnari@simnet.is>
Subject: Re: zip backup via ftp
Message-Id: <c3oso1$v82$1@news.simnet.is>
"jon" <xbg86@webtv.net> wrote in message
news:8690-405FAC75-127@storefull-3311.bay.webtv.net...
> what i need is a script where you exicute it, it automatically extracts
> all the files and directories in your root, then puts them into one zip
> (say backup.zip). then logs into the ftp client with the username and
> password of which you specify in your script, finds the zip file in your
> root (backup.zip), then sends it to the ftp client. after all this is
> done, it closes the ftp connection, and then removes the local zip.
> afterwards, it shows a confirmation with ftp output on the screen,
> saying whether or not it was a success.
>
> i dont want this script to have to rely on a computer to use it.
:-)
> ... i need
> it to be executed in a browser.
just a couple of comments
a) a cgi script may not have the required privileges to read
the root tree (and put a backup.zip there)
b) the process is likely to take a long time, and the HTTP
connection may have been closed before you are finished
gnari
------------------------------
Date: Tue, 23 Mar 2004 21:01:54 +1000
From: Gregory Toomey <nospam@bigpond.com>
Subject: Re: zip backup via ftp
Message-Id: <2730379.TfyujZSnAD@GMT-hosting-and-pickle-farming>
jon wrote:
> how about i clear up a little bit lol..
>
> as you can see by my email, im on webtv, so i cant rely on a hard drive
> on a pc.
>
> im not having problems with a script because i dont have it yet, i just
> cant find one anywhere that does the operations i want automatically.
>
> ive searched google through an through for keywords describing what i
> need, and i just cant find anything.
As a mimumum you sell need to run Perl, be able to edit files, & need a web
server. I cant see how you do this with webtv - you need a PC at a minimum,
and perhaps a hosting service.
If the script you need does not exist then you will need to learn
programming & do it yourself or hire someone else.
To obtain Perl for the PC see http://www.activestate.com/
Perl is included in most version of linux/unix.
For a Perl tutorial see
http://www.perlmonks.org/index.pl?node=Tutorials
For more extensive documentation see http://perldoc.com/
For a comprehensive list of Perl modules see http://cpan.org/
gtoomey
------------------------------
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 6294
***************************************
