[24143] in Perl-Users-Digest
Perl-Users Digest, Issue: 6337 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 30 06:05:33 2004
Date: Tue, 30 Mar 2004 03:05:06 -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, 30 Mar 2004 Volume: 10 Number: 6337
Today's topics:
ANNOUNCE - List::SkipList v0.50 released <perl_ann_skiplist_50.20.wlkngowl@spamgourmet.com>
ANNOUNCE: Perl Module GPS::Lowrance 0.30 - Connect to L <perl_ann_gps_lowrance_30.20.wlkngowl@spamgourmet.com>
Re: Cannot capture message from external program. <spamtrap@dot-app.org>
Re: Cannot capture message from external program. <thepoet_nospam@arcor.de>
Re: Cannot capture message from external program. <simon@unisolve.com.au>
Re: Cannot capture message from external program. (Himanshu Garg)
Re: Choosing Perl/Python for my particular niche <peter@semantico.com>
Re: data types <tassilo.parseval@rwth-aachen.de>
Re: exit status of first program in pipe (Anno Siegel)
Re: exit status of first program in pipe <Joe.Smith@inwap.com>
Re: Formmail simpe question <no_spam@vip.hr>
Re: Formmail simpe question <tassilo.parseval@rwth-aachen.de>
Re: Included directory problem <me@privacy.net>
Re: Included directory problem <chatiman@free.fr>
Re: life time of $1? (Anno Siegel)
Re: Performance issues with LWP? (Vorxion)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 29 Mar 2004 23:03:50 GMT
From: Robert Rothenberg <perl_ann_skiplist_50.20.wlkngowl@spamgourmet.com>
Subject: ANNOUNCE - List::SkipList v0.50 released
Message-Id: <HvDxJK.Es7@zorch.sf-bay.org>
List::SkipList has been released and should appear on a CPAN mirror
near you within 24 hours. http://search.cpan.org/~rrwo/List-SkipList/
NAME
List::SkipList - Perl implementation of skip lists
REQUIREMENTS
Perl 5.6.1 is required.
"Carp::Assert" is used for validation and debugging. (The assertions can
be commented out if the module cannot be installed.) Otherwise standard
modules are used.
SYNOPSIS
my $list = new List::SkipList();
$list->insert( 'key1', 'value' );
$list->insert( 'key2', 'another value' );
$value = $list->find('key2');
$list->delete('key1');
DESCRIPTION
This is an implementation of skip lists in Perl. What are "skip
lists"?
Skip lists are a probabilistic data structure that seem likely
to supplant balanced trees as the implementation method of
choice for many applications. Skip list algorithms have the same
asymptotic expected time bounds as balanced trees and are
simpler, faster and use less space.(*)
This particular implementation may not necessarily be faster or
use less space, but in superficial testing, it does appear to be a
reasonably faster substitute for some tree modules. See the
included Benchmark.txt file for comparisons with other Perl
modules.
Skip lists are similar to linked lists, except that they have
random links at various levels that allow searches to skip over
sections of the list, like so:
4 +---------------------------> +----------------------> +
| | |
3 +------------> +------------> +-------> +-------> +--> +
| | | | | |
2 +-------> +--> +-------> +--> +--> +--> +-------> +--> +
| | | | | | | | |
1 +--> +--> +--> +--> +--> +--> +--> +--> +--> +--> +--> +
A B C D E F G H I J NIL
A search would start at the top level: if the link to the right
exceeds the target key, then it descends a level.
More information is available in the module documentation.
(*) Bill Pugh, inventor of skip lists. Quoted from WikiPedia
<http://en.wikipedia.org/wiki/Skip_list>
REVISION HISTORY
Changes since v0.42:
0.50 Mon Mar 29 2004
- section about Assertions added to POD
- documented level() method
- clear method now intitializes initial node header
- added various assertions
* removed the forward method from *::Node
- uses enum module
- added test for non-integer keys
- clear method now resets LAST_INSRT cache
- removed use of LEVEL for List::SkipList::Node
* key_cmp method accesses KEY directly rather than uses the key method
* calling convention for List::SkipList::Node is changed
- various optimizations to List::SkipList and *::Node
- added comparison to Tree::RedBlack in Benchmark.pl
- minor changes to _search method
- added Benchmark.pl script for generating benchmarks in distro
- redesigned benchmarking script
A detailed revision history is in the Changes file included with
this distribution.
CAVEATS
Skip lists are non-deterministic. Because of this, bugs in programs
that use this module may be subtle and difficult to reproduce without
many repeated attempts.
AUTHOR
Robert Rothenberg <rrwo at cpan.org>
LICENSE
Copyright (c) 2003-2004 Robert Rothenberg. All rights reserved. This
program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
------------------------------
Date: Mon, 29 Mar 2004 22:59:38 GMT
From: Robert Rothenberg <perl_ann_gps_lowrance_30.20.wlkngowl@spamgourmet.com>
Subject: ANNOUNCE: Perl Module GPS::Lowrance 0.30 - Connect to Lowrance and Eagle GPS devices
Message-Id: <HvDxGz.A1v@zorch.sf-bay.org>
GPS::Lowrance version 0.30 has just been released. You should be able to find
a copy of it at your nearest CPAN mirror within the next 24 hours at
http://search.cpan.org/~rrwo/GPS-Lowrance/
NAME
GPS::Lowrance - Connect to Lowrance and Eagle GPS devices
SYNOPSIS
use GPS::Lowrance;
use GPS::Lowrance::Trail;
$gps = GPS::Lowrance->connect(
Device => 'com1',
BaudRate => 57600,
);
$trail = $gps->get_plot_trail( plot_trail_number => 0 );
$gps->disconnect;
DESCRIPTION
This module provides a variety of higher-level methods for communicating
with Lowrance and Eagle GPS receivers.
This is an experimental module with only a partial implementation to
read data from the device. It is documented, however.
More detailed information can be found in the POD.
Examples can be found in the "eg" directory in this package.
CAVEATS
This is a beta version of the module, so there are bound to be some
bugs. In the current form it is also far from complete.
See the module documentation for a complete list of Known Issues.
Compatability
This module should work with all Lowrance and Eagle devices which
support the LSI 100 protocol. It has been tested on the following
model(s):
Lowrance GlobalMap 100 (same as Eagle MapGuide Pro?)
If you have tested it on other models, please notify me.
REQUIREMENTS
The following non-standard modules are required to use this
module:
Carp::Assert
GPS::Lowrance::LSI
Parse::Binary::FixedFormat
Win32::SerialPort or Device::SerialPort
To extract trails or waypoints you will need the following
modues:
Geo::Coordinates::DecimalDegrees
Geo::Coordinates::UTM
XML::Generator
GPS::Lowrance::Trail
If you want to use the screen capture or icon download functions,
you also need the following module:
GD
This module should work with Perl 5.6.x. It has been tested on Perl
5.8.2.
REVISION HISTORY
Changes to this package since v0.21:
0.30 Mon 29 Mar 2004
- assertions disabled
- MAX_BYTES uses GPS::Lowrance::LSI constant
- fix: added trapping in get_current_screen so that if a memory read
fails, the GPS won't lock up
- incorporated wrappers in GPS::Lowrance for get_current_screen
and get_graphical_symbol from GPS::Lowrance::Screen
- minor reorganization of code in GPS::Lowrance::Screen
- uses Build.PL script to generate Makefile.PL and run installs
- reorganized AutoLoading in some routines
- GPS::Lowrance::Waypoint gives warnings about gdm16 format
- added set_plot_trail_mercator_meters and made set_plot_trail
a wrapper which converts from decimal degrees
- added get_plot_trail_mercator_meters and made get_plot_trail
a wrapper which converts to decimal degrees
* uses GPS::Lowrance::Trail 0.41 which allows rounding to be disabled
* upload-trail and download trail use GPS::Lowrance::Trail 0.41
- modules that are not immediately required are not used
AUTHOR
Robert Rothenberg <rrwo at cpan.org>
COPYRIGHT AND LICENSE
Copyright (C) 2004 by Robert Rothenberg <rrwo at cpan.org>.
This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself, either Perl version 5.8.2 or, at
your option, any later version of Perl 5 you may have available.
------------------------------
Date: Tue, 30 Mar 2004 01:33:45 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Cannot capture message from external program.
Message-Id: <S-udnadky7AmifTdRVn-sw@adelphia.com>
Hon Seng Phuah wrote:
> How do I capture the output error message, "cvs commit: Examining ."
Your code is capturing stdout, but the message you want to grab is
apparently being printed to stderr.
Have a look at the core module IPC::Open3.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Tue, 30 Mar 2004 08:35:37 +0200
From: "Christian Winter" <thepoet_nospam@arcor.de>
Subject: Re: Cannot capture message from external program.
Message-Id: <40691539$0$17754$9b4e6d93@newsread2.arcor-online.net>
"Hon Seng Phuah" schrieb:
[...]
> Both code displays:
>
> cvs commit: Examining .
> Here:
> Use of uninitialized value at test.pl line #.
>
> How do I capture the output error message, "cvs commit: Examining ."
> and store them into @output_message.
Seems like cvs writes its output to stderr instead
of stdout. "perldoc -q stderr" should give you some
possible solutions.
HTH
-Christian
------------------------------
Date: Tue, 30 Mar 2004 16:34:33 +1000
From: Simon Taylor <simon@unisolve.com.au>
Subject: Re: Cannot capture message from external program.
Message-Id: <c4b4hj$1k3o$1@otis.netspace.net.au>
Hon Seng Phuah wrote:
> I have the following code:
>
> $file_name = $_[0];
> @output_result = `cvs commit -m\"\" $file_name`;
> print "Here: @output_result\n";
[snip]
> Both code displays:
>
> cvs commit: Examining .
> Here:
> Use of uninitialized value at test.pl line #.
>
> How do I capture the output error message, "cvs commit: Examining ."
> and store them into @output_message.
You could try the following, (the '2>&1' is a shell construction that
ensures that anything printed to the standard error stream is
redirected to standard out):
#!/usr/bin/perl
use strict;
use warnings;
my $file_name = 'somefile';
my @output_result = `cvs commit -m\"\" $file_name 2>&1`;
print "Here: @output_result\n";
Hope this helps,
Simon Taylor
--
Unisolve Pty Ltd - Melbourne, Australia
------------------------------
Date: 30 Mar 2004 01:01:01 -0800
From: himanshu@gdit.iiit.net (Himanshu Garg)
Subject: Re: Cannot capture message from external program.
Message-Id: <a46e54c7.0403300101.72f83b4@posting.google.com>
hsphuah@usa.com (Hon Seng Phuah) wrote in message news:<3898598f.0403291739.52acb6e9@posting.google.com>...
> I have the following code:
>
> $file_name = $_[0];
> @output_result = `cvs commit -m\"\" $file_name`;
> print "Here: @output_result\n";
>
> or
>
> $file_name = $_[0]
> open(OUTPUT, "cvs commit =m\"\" $file_name |");
> @output_result = <OUTPUT>;
> close(OUTPUT);
> print "Here: @output_result\n";
>
> Both code displays:
>
> cvs commit: Examining .
> Here:
> Use of uninitialized value at test.pl line #.
>
> How do I capture the output error message, "cvs commit: Examining ."
> and store them into @output_message.
You may want to try Expect.pm from CPAN.
Something like the following works on my system. This is derived from
the ftp example that comes with the distribution. :-
use Expect;
# Start the cvs process.
my $filename = "himanshu.txt";
my $cvs = Expect->spawn("cvs commit -m\"\" $filename") or die
"Couldn't spawn cvs, $OS_ERROR";
# Look for error message. On my box this looks like:
my @output = $cvs->expect(30, "-re", "cvs.*\n");
print "Here: $output[2]";
print "Hereafter: $output[4]";
++imanshu.
------------------------------
Date: Tue, 30 Mar 2004 09:49:44 +0100
From: Peter Hickman <peter@semantico.com>
Subject: Re: Choosing Perl/Python for my particular niche
Message-Id: <406934a9$0$7564$afc38c87@news.easynet.co.uk>
Fred Ma wrote:
> I appreciate the sed terseness because
> I can make a command line pipe stage out of it, but
> the same brevity in a scripting language can make for
> rough going.
Both perl and python will allow you to do this. in perl
#!/usr/bin/perl
while(<>) { print uc $_; }
this script will read from stdin and write an uppercased version of the
input to stdout and can be used in a pipeline.
You can to the same in python and of course the guts of the loop can be
as big or small as you like. There is also a s2p tool that converts sed
scripts into perl, but rewiting would be a better bet as s2p can produce
some crufty code.
To be honest you could just flip a coin and go with that if you have no
specific requirements.
Perl may be easier to sell to your boss than python but if you just went
ahead with it you could use anything.
------------------------------
Date: 30 Mar 2004 06:34:17 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: data types
Message-Id: <c4b4d9$csm$1@nets3.rz.RWTH-Aachen.DE>
Also sprach John W. Kennedy:
> Anno Siegel wrote:
>> I guess what you're saying is:
>>
>> I have this file, and this is how I read it in PL/1. How can I read
>> it in Perl, or, if I can't, how should I re-format it so that I can.
>>
>> The problem is that you have described your problem in terms of PL/1
>> which few people here speak fluently. Neither the specification
>> "...where X is X(128) BIT(16)", nor the terms "fixed binary" and
>> "varying binary" have specific meaning outside PL/1 terminology.
>
> As it happens, I haven't had to use pack and unpack much, but:
> DECLARE X(128) BIT(16); /* In PL/I */
> would be:
> unsigned short x[128]; /* In C, assuming "short" is 16 bits */
Ah, now the only thing you need to know is the byteorder. If you want
native byteorder (that is, the byteorder of your system), use the 'S'
template:
use constant SIZEOF_SHORT => 2;
read(FILE, my $buf, 128 * SIZEOF_SHORT);
my @x = unpack "S128", $buf;
The other two templates you might want are 'n' for big-endian and 'v'
for little-endian.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: 30 Mar 2004 07:09:39 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: exit status of first program in pipe
Message-Id: <c4b6fj$2n2$2@mamenchi.zrz.TU-Berlin.DE>
Palaniappan <palam_analog@yahoo.co.in> wrote in comp.lang.perl.misc:
> Hi all,
> consider the following code
> -----
> $exit_status = system( "program1 | program2" );
> -----
> can anyone explain, what exit_status system() will return?
> is it from program1 or program2 ?
> or is it depends on whether piping is done successfully or not ?
> how to get program1 exit status alone ?
> (without using temporary files to dump the intermediate output).
That would be better asked in a Unix group. It has nothing to do
with Perl.
Anno
------------------------------
Date: Tue, 30 Mar 2004 10:40:04 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: exit status of first program in pipe
Message-Id: <88cac.35040$K91.98983@attbi_s02>
Palaniappan wrote:
> Hi all,
> consider the following code
> -----
> $exit_status = system( "program1 | program2" );
> -----
> can anyone explain, what exit_status system() will return?
> is it from program1 or program2 ?
The result is not defined by perl; it is defined by your OS.
In some cases, it the the return code of whichever program
exited last. So it varies depending on program and data.
-Joe
------------------------------
Date: Tue, 30 Mar 2004 10:35:44 +0200
From: dove_g <no_spam@vip.hr>
Subject: Re: Formmail simpe question
Message-Id: <d9ci60pbp79u1h50598k9up4o6skhq6ep0@4ax.com>
On 29 Mar 2004 09:31:36 GMT, "Tassilo v. Parseval"
<tassilo.parseval@rwth-aachen.de> wrote:
>Also sprach dove_g:
>
>> Hello.
>> I need simple thing but can't find in manual of formmail.pl.
>
>You shouldn't be using formmail.pl at all in the first place. It is
>known to be a particularly bad example of Perl with security holes big
>enough to drive a truck through. Consider using the properly written
>replacement at
>
> <http://nms-cgi.sourceforge.net/>
>
>Don't just consider. Do it. Now.
Thank you for your suggestion, but I'm not sure if my web provder does
using this NMS or whatever?
Can I do somethin similiar with NMS?
Thank you.
------------------------------
Date: 30 Mar 2004 09:14:28 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: Formmail simpe question
Message-Id: <c4bdpk$kmg$1@nets3.rz.RWTH-Aachen.DE>
Also sprach dove_g:
> On 29 Mar 2004 09:31:36 GMT, "Tassilo v. Parseval"
><tassilo.parseval@rwth-aachen.de> wrote:
>
>>Also sprach dove_g:
>>
>>> Hello.
>>> I need simple thing but can't find in manual of formmail.pl.
>>
>>You shouldn't be using formmail.pl at all in the first place. It is
>>known to be a particularly bad example of Perl with security holes big
>>enough to drive a truck through. Consider using the properly written
>>replacement at
>>
>> <http://nms-cgi.sourceforge.net/>
>>
>>Don't just consider. Do it. Now.
>
> Thank you for your suggestion, but I'm not sure if my web provder does
> using this NMS or whatever?
I don't understand. The NMS' formmail is just like Matt Wright's
formmail. In both cases you just copy the script into your cgi-bin/
directory. The NMS formmail is compatible...you have the same
configuration options as in Wright's formmail.
> Can I do somethin similiar with NMS?
Yes, sure. NMS aims at creating scripts with the duplicated
functionality of Matt Wright's one, only that they are done properly
without security holes and taking into account all the new features of
Perl5 (M. Wright's scripts were written for Perl4).
Did you have a look at
<http://nms-cgi.sourceforge.net/scripts.shtml>
already?
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Tue, 30 Mar 2004 21:08:33 +1200
From: "Tintin" <me@privacy.net>
Subject: Re: Included directory problem
Message-Id: <c4bdiv$2fii9e$1@ID-172104.news.uni-berlin.de>
"Uri Guttman" <uri@stemsystems.com> wrote in message
news:x7zna0u35x.fsf@mail.sysarch.com...
> >>>>> "c" == chatiman <chatiman@free.fr> writes:
>
> c> "John Bokma" <postmaster@castleamber.com> a écrit dans le message de
news:
> c> 40671152$0$24340$58c7af7e@news.kabelfoon.nl...
> >> Reinventing the wheel, or do you use the available tools?
> >>
> c> I don't think so. I don't know any standard way to install
> c> a script and its modules as a non root user
> c> Is there some ?
>
> FAQ. did you think you were the first person (or even the thousandth) to
> ask this?
thousandth -> millionth
------------------------------
Date: Tue, 30 Mar 2004 12:45:16 +0200
From: "chatiman" <chatiman@free.fr>
Subject: Re: Included directory problem
Message-Id: <40694fb1$0$11615$636a15ce@news.free.fr>
"Tintin" <me@privacy.net> a écrit dans le message de news:
c4bdiv$2fii9e$1@ID-172104.news.uni-berlin.de...
>
> "Uri Guttman" <uri@stemsystems.com> wrote in message
> news:x7zna0u35x.fsf@mail.sysarch.com...
> > >>>>> "c" == chatiman <chatiman@free.fr> writes:
> >
> > c> "John Bokma" <postmaster@castleamber.com> a écrit dans le message
de
> news:
> > c> 40671152$0$24340$58c7af7e@news.kabelfoon.nl...
> > >> Reinventing the wheel, or do you use the available tools?
> > >>
> > c> I don't think so. I don't know any standard way to install
> > c> a script and its modules as a non root user
> > c> Is there some ?
> >
> > FAQ. did you think you were the first person (or even the thousandth) to
> > ask this?
>
> thousandth -> millionth
>
and how many answers ?
if the answer is
use lib "prefix"
then this does not work with perl 5.005
is there another answer ? except PERL5LIB=prefix and perl -Iprefix
which don't work too ?
------------------------------
Date: 30 Mar 2004 07:02:41 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: life time of $1?
Message-Id: <c4b62h$2n2$1@mamenchi.zrz.TU-Berlin.DE>
Myron Turner <turnermm@shaw.ca> wrote in comp.lang.perl.misc:
> On 29 Mar 2004 11:40:53 GMT, anno4000@lublin.zrz.tu-berlin.de (Anno
> Siegel) wrote:
>
> >Myron Turner <mturner@ms.umanitoba.ca> wrote in comp.lang.perl.misc:
> >> On Sat, 27 Mar 2004 14:13:29 -0600, Tad McClellan
> >The use of "eval" here is abusive and misleading.
> >
> >Anno
>
> Well, I just tested it on a lerge database file and I see you're
> right.
The error in your logic is independent of the use of "eval".
> It makes sense, of course. But i have had situations where I
> did need the eval, for some reason which is why I started to use it.
"eval" is opium for the program, don't start using it lightly.
What I mean is, "eval" makes your code insensitive to fatal exceptions.
You don't want that, unless you, well, want it. The other use of
eval is for starting a nested interpreter run, but that doesn't happen
here. In any case, it is a highly specialized tool and shouldn't be
used without reason.
> Apart from that, however, you mikght want to tone down you're
> rhetoric. What is "abusive" supposed to mean here? Save it for wife
> beaters and child molesters.
It's abuse of a tool.
Anno
------------------------------
Date: 30 Mar 2004 02:17:17 -0500
From: vorxion@knockingshopofthemind.com (Vorxion)
Subject: Re: Performance issues with LWP?
Message-Id: <40691efd_1@news.iglou.com>
In article <40687d36$0$24356$58c7af7e@news.kabelfoon.nl>, John Bokma wrote:
>
>not pinging, but it gets the page. Use HEAD.
>
>> Is there any way I could check if the web server is up or not, without
>> causing any performances issues?
>
>try to connect to port 80. If you can connect, there is a server running
>on that port.
I'd have to say that using HEAD is a better idea. I've seen (multiple
times) machines that will respond to real ICMP pings but services don't
respond, and likewise daemons that accept connections but don't actually
perform transactions.
It's better, IMHO, to actually make sure it's serving content, not just
answering on the port.
--
Vorxion - Member of The Vortexa Elite
------------------------------
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 6337
***************************************
