[24278] in Perl-Users-Digest
Perl-Users Digest, Issue: 6469 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Apr 26 18:06:04 2004
Date: Mon, 26 Apr 2004 15:05:14 -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 Mon, 26 Apr 2004 Volume: 10 Number: 6469
Today's topics:
Re: assigning variable to a pipe <jwillmore@remove.adelphia.net>
Re: autobox <bik.mido@tiscalinet.it>
Re: Create MD5 of files in directories and subdirectori <jwillmore@remove.adelphia.net>
Re: Create MD5 of files in directories and subdirectori <jwillmore@remove.adelphia.net>
Re: Earthquake and tornado data evaluation Perl program <jwillmore@remove.adelphia.net>
Re: Finding all open filehandles and closing them befor <jwillmore@remove.adelphia.net>
Re: Finding all open filehandles and closing them befor <vilmos@vilmos.org>
Re: free source blogger (works) <tadmc@augustmail.com>
Re: free source blogger (works) <robin @ infusedlight.net>
Re: free source blogger (works) <robin @ infusedlight.net>
Re: free source blogger (works) <ittyspam@yahoo.com>
Re: free source blogger (works) <tore@aursand.no>
Re: Help! How to find memory leak? <jwillmore@remove.adelphia.net>
Ignore errors inserting dup records? (pt)
Re: Ignore errors inserting dup records? (Kevin Collins)
Re: Ignore errors inserting dup records? <tore@aursand.no>
Re: Is Perl *that* good? (was: How's ruby compare to it <NoSpamPlease_rubytuzdaiz@yahoo.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 26 Apr 2004 14:30:49 -0400
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: assigning variable to a pipe
Message-Id: <pan.2004.04.26.18.11.02.139083@remove.adelphia.net>
On Mon, 26 Apr 2004 05:18:43 -0700, mike wrote:
> James Willmore <jwillmore@remove.adelphia.net> wrote in message news:<pan.2004.04.24.15.07.05.347919@remove.adelphia.net>...
>> On Fri, 23 Apr 2004 22:55:25 -0700, mike wrote:
>> [ ... ]
>>
>> > PS:
>> > The original code was
>> > open SQL, "| sql -Uuser -Sserver -Ppassword " or die "Failed to open pipe: $!" ;
>> > print SQL "select \* from this_table";
>> > and the intention was to assign the output to a variable
>>
>> Is there some reason why you're not using the DBI module to interact with
>> your database (http://search.cpan.org/~timb/DBI-1.42/DBI.pm)? I see from
>> your code example that's what you *really* want to do.
[ ... ]
> i managed to solve the problem. Just need to close the handle "Writer" before
> doing the reading. I did not use DBI.pm because i have trouble installing the
> module. I am using Solaris and the perl version is 5.005. My C compiler is
> not gcc but proprietary C package from Sun.
http://sunfreeware.com/ :-)
Latest version of Perl and gcc are available.
HTH
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
Artistic ventures highlighted. Rob a museum.
------------------------------
Date: Mon, 26 Apr 2004 21:48:56 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: autobox
Message-Id: <qbpq80hgruov24ampq50rm8a62hq5p26c1@4ax.com>
On Sun, 25 Apr 2004 22:37:44 +0200, "Tassilo v. Parseval"
<tassilo.parseval@rwth-aachen.de> wrote:
>>>You find the complete thread starting with this article here:
[snip]
>The discussion following the suggested patch was IMO not very rational.
>The main reason against it appeared to be that it reminded some people
>of pseudo-hashes. However, they weren't really able to give any evidence
I've noticed that, in fact! However I don't even know what
pseudo-hashes are actually... already heard about them, though!
>for potential problems that could arise from it. Those examples that
>were given did in fact turn out to be false alarm.
I got that impression too.
>I don't know, maybe it should be put onto the agenda once again. I
>wouldn't expect much from it, though. I also have the impression that the
>birth of ponie has made it more difficult to get new features into Perl
>as people now say that one should wait for perl5.12. This happened to me
>anyway when I proposed to extend the tie() interface with stuff like
>SUBSTR, INDEX etc. for which I provided an outline on how this could be
>implemented.
Hmmm, that sounds interesting!
Michele
--
you'll see that it shouldn't be so. AND, the writting as usuall is
fantastic incompetent. To illustrate, i quote:
- Xah Lee trolling on clpmisc,
"perl bug File::Basename and Perl's nature"
------------------------------
Date: Mon, 26 Apr 2004 14:30:42 -0400
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: Create MD5 of files in directories and subdirectories
Message-Id: <pan.2004.04.16.13.24.24.883112@remove.adelphia.net>
On Fri, 16 Apr 2004 03:06:17 -0700, nicogroen wrote:
> Can somebody help me out with the following problem. I tried to use the
> following script of Ron Savage to create MD5 checksums of files in a
> directory and all subdirectories in it, posted here:
>
> http://groups.google.nl/groups?hl=nl&lr=&ie=UTF-8&oe=UTF-8&selm=7dbo9s%24ekh2%40atbhp.corpmel.bhp.com.au&rnum=2
>
> On OpenBSD:
> It takes a long time to create MD5 checksums of large files (about 4
> seconds of a file of 3MB, 12 sec of a file of 5.5MB, 43 sec of a file of
> 10,5MB).
>
> On Windows:
> Files having the same filesize (all 14,5MB) creates the same MD5
> checksum. This process goes very fast (perhaps too fast).
>
> On Redhat and FreeBSD:
> The script retuns the flowing error message:
>
> can't open (#path#
> ): No such file or directory at md5.pl line 39.
>
> The script should work on all operation systems.
Yes, it should (and appears it has) work(ed) on almost all platforms -
because you noticed a difference in the execution times :-)
Posting your code would be helpful :-)
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
I'll defend to the death your right to say that, but I never
said I'd listen to it! -- Tom Galloway with apologies to
Voltaire
------------------------------
Date: Mon, 26 Apr 2004 14:30:47 -0400
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: Create MD5 of files in directories and subdirectories
Message-Id: <pan.2004.04.16.13.43.23.493895@remove.adelphia.net>
On Fri, 16 Apr 2004 09:24:38 -0400, James Willmore wrote:
> On Fri, 16 Apr 2004 03:06:17 -0700, nicogroen wrote:
>
>> Can somebody help me out with the following problem. I tried to use the
>> following script of Ron Savage to create MD5 checksums of files in a
>> directory and all subdirectories in it, posted here:
>>
>> http://groups.google.nl/groups?hl=nl&lr=&ie=UTF-8&oe=UTF-8&selm=7dbo9s%24ekh2%40atbhp.corpmel.bhp.com.au&rnum=2
>>
>> On OpenBSD:
>> It takes a long time to create MD5 checksums of large files (about 4
>> seconds of a file of 3MB, 12 sec of a file of 5.5MB, 43 sec of a file of
>> 10,5MB).
>>
>> On Windows:
>> Files having the same filesize (all 14,5MB) creates the same MD5
>> checksum. This process goes very fast (perhaps too fast).
>>
>> On Redhat and FreeBSD:
>> The script retuns the flowing error message:
>>
>> can't open (#path#
>> ): No such file or directory at md5.pl line 39.
>>
>> The script should work on all operation systems.
>
> Yes, it should (and appears it has) work(ed) on almost all platforms -
> because you noticed a difference in the execution times :-)
>
> Posting your code would be helpful :-)
My bad, you did post code :-)
I ran it on ye olde Linux box and it worked up until it ran into a
directory that I had no permission to access ... bummer :-(
You're execution time will depend greatly on the OS and the filesystem
being accessed. That's not the script (in most cases).
IMHO, you might be able to speed up the script by using File::Find instead
of using Cwd.
Another option is to use this script as a filter and use a command native
to the OS to feed the script files. Meaning, use `find` (in *nix) and pipe the
output to the script you're working with. Now your only concern is check
the MD5 digest of each file the script is being feed :-) An added plus
to this idea is ... you can check one -or- many files with your script
without the script having to figure out *how* to find the files (using Cwd
or Find::Files).
HTH
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
It is very difficult to prophesy, especially when it pertains to
the future.
------------------------------
Date: Mon, 26 Apr 2004 14:30:36 -0400
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: Earthquake and tornado data evaluation Perl program Apr. 14, 2004
Message-Id: <pan.2004.04.15.05.11.40.255499@remove.adelphia.net>
On Wed, 14 Apr 2004 23:57:21 +0000, A. Sinan Unur wrote:
> "edgrsprj" <edgrsprj@ix.netcom.com> wrote in
> news:YZcfc.7030$zj3.3864@newsread3.news.atl.earthlink.net:
>
>> Summary: If all goes according to plan, the earthquake and tornado
>> data evaluation Perl program discussed in this report will be made
>> available to researchers, governments, disaster mitigation personnel,
>> and computer programmers around the world, possibly later this week.
>
> Well, your program managed to make me cry.
I'm glad I wasn't the only one with wet eyes :-)
A whole new example of how *not* to program in Perl.
OP ... **PLEASE** invest in a book on how to write in Perl. You have missed
the point of the language totally. A good book (like "Learning Perl")
will help you out. Heck, get your boss to buy it for you.
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
You know you have a small apartment when Rice Krispies echo.
-- S. Rickly Christian
------------------------------
Date: Mon, 26 Apr 2004 14:30:33 -0400
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: Finding all open filehandles and closing them before exiting
Message-Id: <pan.2004.04.22.04.28.10.825630@remove.adelphia.net>
On Wed, 21 Apr 2004 12:15:22 -0700, Vilmos Soti wrote:
[ ... ]
> I have a signal handler which tries to unmount the disk in
> the case of a sigint, but it will fail if copy from File::Copy
> has an open filehandle on the mounted disk.
>
> Here is a short program which fully illustrates my problem:
> (I excluded the checking of return values for the sake of keeping
> this short program, well, short)
>
> #################### program starts ####################
>
> #!/usr/bin/perl -w
>
> use strict;
> use File::Copy;
>
> sub bye () {
> print "in function bye\n";
> system ("umount /tmp/mountpoint");
> exit;
> }
>
> $SIG{INT} = \&bye;
>
> system ("mount -o loop /tmp/filesystem.img /tmp/mountpoint");
> system ("ls -l /tmp/mountpoint");
> print "copy starts\n";
> copy ("/tmp/mountpoint/devzero", "/tmp/mountpoint/devnull");
>
> #################### program ends ####################
>
> And here are the results after running the program:
>
> #################### results start ####################
>
> [root@cord pts/6 tmp]# ./a.pl
> total 12
> crw-rw-rw- 1 root root 1, 3 Dec 31 1969 devnull
> crw-rw-rw- 1 root root 1, 5 Dec 31 1969 devzero
> drwxr-xr-x 2 root root 12288 Apr 21 11:19 lost+found
> copy starts
> in function bye
> umount: /tmp/mountpoint: device is busy
> [root@cord pts/6 tmp]#
[ ... ]
Try running the script from another directory - other than /tmp.
Usually, when you get the message you have gotten, it's because you're
in the mount you're trying to unmount.
I'm not saying this is the problem, but it is worth looking at. I've done
something similar with an NFS mount and found that if I was in the mount,
I'd get a message stating the resource was busy.
HTH
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
What you don't know can hurt you, only you won't know it.
------------------------------
Date: 26 Apr 2004 13:46:44 -0700
From: Vilmos Soti <vilmos@vilmos.org>
Subject: Re: Finding all open filehandles and closing them before exiting
Message-Id: <87pt9utqkr.fsf@localhost.localdomain>
James Willmore <jwillmore@remove.adelphia.net> writes:
>> I have a signal handler which tries to unmount the disk in
>> the case of a sigint, but it will fail if copy from File::Copy
>> has an open filehandle on the mounted disk.
>>
>> Here is a short program which fully illustrates my problem:
>> (I excluded the checking of return values for the sake of keeping
>> this short program, well, short)
...
> Try running the script from another directory - other than /tmp.
That's not the problem. In the original program (which I didn't
include since it is big and the relevant parts are spread over),
I actually switch to "/" before unmounting. This program I included
here was an example program which described the problem.
Vilmos
------------------------------
Date: Mon, 26 Apr 2004 14:14:07 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: free source blogger (works)
Message-Id: <slrnc8qnrv.pjr.tadmc@magna.augustmail.com>
Uri Guttman <uri@stemsystems.com> wrote:
>
> define 'works' in 500 words or less
Two all beef patties, Special Sauce, lettuce, cheese, pickles,
onions on a seseme seed bun.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 26 Apr 2004 14:31:20 -0800
From: "Robin" <robin @ infusedlight.net>
Subject: Re: free source blogger (works)
Message-Id: <c6jrja$ov5$1@news.f.de.plusline.net>
"Tore Aursand" <tore@aursand.no> wrote in message
news:pan.2004.04.26.08.50.13.889536@aursand.no...
> On Mon, 26 Apr 2004 00:29:51 -0800, Robin wrote:
> > There is no configuration needed for this script, and I admit it needs
work.
>
> No shit, Sherlock!? You still ignores most of what people try to teach
> you. To mention a few issues:
>
> * You're using double quotes when there's no need to.
> * You're using 'exit' when you shouldn't.
> * You're not checking the return code of 'open()'.
> * You're setting environment variables from your scripts.
> * You're calling variables "constants".
> * You're not running your scripts in taint mode.
> * You're doing 'if (! ...)' instead of 'unless (...)'
> * You're using heaps of 'if' statements instead of using
> the Switch module.
>
> So - in the end: Your programming skills generally sucks. You don't seem
> to want to learn anything, so in x months from now, your programming
> skills still will sucks. Sad, but true.
I saved your message.... I'll try to get it to work with some of the stuff
you suggested...some of it is just sucky advice though, for example, the
fact that I'm using if (! ) instead of unless makes no difference.... and
the Switch module isn't installed on some servers, I have a hosted site, I'm
hoping to run my own server soon, but for now I can't cause I don't have
high speed ethernet or anything. Also, the script is run in taint mode, I
just forgot to put the -T in the one I posted here.
-Robin
------------------------------
Date: Mon, 26 Apr 2004 14:31:41 -0800
From: "Robin" <robin @ infusedlight.net>
Subject: Re: free source blogger (works)
Message-Id: <c6jrjc$ov5$2@news.f.de.plusline.net>
"Uri Guttman" <uri@stemsystems.com> wrote in message
news:x7ekqadf1q.fsf@mail.sysarch.com...
>
> define 'works' in 500 words or less
>
> uri
hmmm...it runs.
------------------------------
Date: Mon, 26 Apr 2004 16:50:33 -0400
From: Paul Lalli <ittyspam@yahoo.com>
Subject: Re: free source blogger (works)
Message-Id: <20040426164819.Q1107@dishwasher.cs.rpi.edu>
On Mon, 26 Apr 2004, Robin wrote:
> "Uri Guttman" <uri@stemsystems.com> wrote in message
> news:x7ekqadf1q.fsf@mail.sysarch.com...
> >
> > define 'works' in 500 words or less
> >
> > uri
>
> hmmm...it runs.
#!/usr/bin/perl
use strict;
my $foo = "Good";
if ($foo == "Bad"){
print "BAD!!\n";
} else {
print "Good!\n";
}
__END__
This 'runs' too. I wouldn't exactly call it working, though. Maybe it is
by your definition?
Paul Lalli
------------------------------
Date: Mon, 26 Apr 2004 23:40:58 +0200
From: Tore Aursand <tore@aursand.no>
Subject: Re: free source blogger (works)
Message-Id: <pan.2004.04.26.21.35.03.395830@aursand.no>
On Mon, 26 Apr 2004 14:31:20 -0800, Robin wrote:
>> [...]
>> So - in the end: Your programming skills generally sucks. You don't
>> seem to want to learn anything, so in x months from now, your
>> programming skills still will sucks. Sad, but true.
> I saved your message.... I'll try to get it to work with some of the
> stuff you suggested...some of it is just sucky advice though, for
> example, the fact that I'm using if (! ) instead of unless makes no
> difference....
Yes it does. Readability! Which of these snippets do you think is
easiest to read (and understand)?
next unless ( defined $var ); # Snippet 1
next if ( !defined $var ); # Snippet 2
Do you think some of my other comments are "sucky advices", as well? If
so, which one(s)?
> [...] and the Switch module isn't installed on some servers
It's been distributed with Perl for some versions, though I don't know
when it was brought in.
Anyway; Even if your ISP don't carry all modules, you could easily
install them "locally" under your home directory. Read the documentation
for more information.
--
Tore Aursand <tore@aursand.no>
"First get your facts; then you can distort them at your leisure."
(Mark Twain)
------------------------------
Date: Mon, 26 Apr 2004 15:06:30 -0400
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: Help! How to find memory leak?
Message-Id: <pan.2004.04.26.19.05.47.662163@remove.adelphia.net>
On Mon, 26 Apr 2004 18:18:41 +1000, Gregory Toomey wrote:
[ ... ]
> ... "Memory leak" is a MS windows bug; nothing to do withe Perl.
Huh? Where on Earth did you hear/read THAT? Hell ... memory leaks have
been around for a LOOONNGG time (before Windows was even an itch in Billy
boy's pants) and *do* exist in Perl :-)
Memory leaks are a result of poor programming practices - they just
*appear* to happen more often on Windoze boxes :-)
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
To be is to do. -- I. Kant To do is to be. -- A. Sartre
Yabba-Dabba-Doo! -- F. Flinstone
------------------------------
Date: 26 Apr 2004 14:28:18 -0700
From: mnemotronic@yahoo.com (pt)
Subject: Ignore errors inserting dup records?
Message-Id: <da662010.0404261328.3a6a1845@posting.google.com>
I have a table "T" with an autonum primary key field "ID" and a
text/string field "v". The field "v" is indexed and declared UNIQUE.
Is there a syntax which will allow me to add records and ignore (or
not add) any which would violate the "unique" aspect of "v"?
Table "T":
ID v
----
1 I
2 am
3 the
4 walrus
5 oo
6 koo
7 katchoo
Given this table, I run this :
INSERT INTO T (v) VALUES ("The" , "walrus" , "was" , "Paul") ;
The insertion of "walrus" will fail because it already exists, and "v"
is indexed/no_dups. I want the SQL to insert records for "The",
"was", and "Paul", and not error when in sees "walrus" already present
at record #4.
I'm doing this with Perl + DBI/DBD (not ODBC) talking to a MS-Access
.MDB file.
Thanks in advance.
------------------------------
Date: Mon, 26 Apr 2004 21:47:03 GMT
From: spamtotrash@toomuchfiction.com (Kevin Collins)
Subject: Re: Ignore errors inserting dup records?
Message-Id: <slrnc8r0qi.dsd.spamtotrash@doom.unix-guy.com>
In article <da662010.0404261328.3a6a1845@posting.google.com>, pt wrote:
> I have a table "T" with an autonum primary key field "ID" and a
> text/string field "v". The field "v" is indexed and declared UNIQUE.
> Is there a syntax which will allow me to add records and ignore (or
> not add) any which would violate the "unique" aspect of "v"?
>
> Table "T":
> ID v
> ----
> 1 I
> 2 am
> 3 the
> 4 walrus
> 5 oo
> 6 koo
> 7 katchoo
>
> Given this table, I run this :
> INSERT INTO T (v) VALUES ("The" , "walrus" , "was" , "Paul") ;
>
> The insertion of "walrus" will fail because it already exists, and "v"
> is indexed/no_dups. I want the SQL to insert records for "The",
> "was", and "Paul", and not error when in sees "walrus" already present
> at record #4.
No, it won't. It will fail because you are trying to insert 4 column values
into a table which has oonly 1 column!
>
> I'm doing this with Perl + DBI/DBD (not ODBC) talking to a MS-Access .MDB
> file.
>
> Thanks in advance.
------------------------------
Date: Tue, 27 Apr 2004 00:05:00 +0200
From: Tore Aursand <tore@aursand.no>
Subject: Re: Ignore errors inserting dup records?
Message-Id: <pan.2004.04.26.22.03.22.916075@aursand.no>
On Mon, 26 Apr 2004 14:28:18 -0700, pt wrote:
> Table "T":
> ID v
> ----
> 1 I
> 2 am
> 3 the
> 4 walrus
> 5 oo
> 6 koo
> 7 katchoo
>
> Given this table, I run this :
> INSERT INTO T (v) VALUES ("The" , "walrus" , "was" , "Paul") ;
>
> The insertion of "walrus" will fail because it already exists, and "v"
> is indexed/no_dups.
No. The insertion will fail because the SQL statement is invalid; You're
trying to insert data into 4 columns, but you only specify one columns to
insert into.
You probably want to do this:
INSERT INTO T (v) VALUES ('The'), ('walrus'), ('was'), ('Paul')
The above is a multiline insert which will work fine, and if you have
defined the 'v' column to be unique, it'll be impossible to insert any
duplicate data into it.
In Perl this could be written something like this;
my @data = qw( The walrus was Paul );
my $values = join( ',', ('(?)') x @data );
my $sth = $dbh->prepare( 'INSERT INTO T (v) VALUES ' . $values );
$sth->execute( @values );
$sth->finish();
> I'm doing this with Perl + DBI/DBD (not ODBC) talking to a MS-Access
> .MDB file.
While we're at it: Consider a) calling your table and columns something
different and b) changing database backend. :)
--
Tore Aursand <tore@aursand.no>
"First, God created idiots. That was just for practice. Then He created
school boards." (Mark Twain)
------------------------------
Date: Mon, 26 Apr 2004 16:55:02 -0400
From: "Ruby Tuesdays" <NoSpamPlease_rubytuzdaiz@yahoo.com>
Subject: Re: Is Perl *that* good? (was: How's ruby compare to it older brother python)
Message-Id: <c6jsvd$cspf4$1@ID-205437.news.uni-berlin.de>
Would this super perl program of yours can convert the massive amount of
perl script to ruby or python?
If it could, it would be great so ruby/python programmers does not have to
learn those cryptic perl-ish syntax and the non-OOish scripting language.
------------------------------
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 6469
***************************************
