[28153] in Perl-Users-Digest
Perl-Users Digest, Issue: 9517 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 24 06:05:59 2006
Date: Mon, 24 Jul 2006 03:05:05 -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, 24 Jul 2006 Volume: 10 Number: 9517
Today's topics:
Re: $# problem or bug xhoster@gmail.com
Re: ASP.Net, PERL and File Uploading <mumia.w.18.spam+nospam.usenet@earthlink.net>
Re: ASP.Net, PERL and File Uploading <mgarrish@gmail.com>
Device::Gsm v1.43 released to CPAN <cosimo@cpan.org>
Re: Idiot Q: How to find index number of HASH match? <franzl.wisseworst@mailinator.net>
Re: Idiot Q: How to find index number of HASH match? <mumia.w.18.spam+nospam.usenet@earthlink.net>
Re: Idiot Q: How to find index number of HASH match? <mumia.w.18.spam+nospam.usenet@earthlink.net>
Re: Lingua::Han::PinYin and utf8 problem <corff@zedat.fu-berlin.de>
Re: perl + regex bug? axel@white-eagle.invalid.uk
Re: Perl and Theory of languages <ebohlman@omsdev.com>
Re: Problem with function "crypt" <madan.narra@gmail.com>
redirecting system output nahum_barnea@yahoo.com
Re: redirecting system output <bik.mido@tiscalinet.it>
Re: redirecting system output <john@castleamber.com>
Re: redirecting system output <john@castleamber.com>
Re: redirecting system output <someone@example.com>
Re: redirecting system output <xicheng@gmail.com>
Re: redirecting system output <tadmc@augustmail.com>
Re: redirecting system output nahum_barnea@yahoo.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 23 Jul 2006 19:08:15 GMT
From: xhoster@gmail.com
Subject: Re: $# problem or bug
Message-Id: <20060723151420.868$DN@newsreader.com>
Leszek Rupnicki <lrupnicki@yahoo.co.uk> wrote:
> do {
> local $# = '%f';
> $x = 0.000001;
> $sql = "Something $x something";
> print $sql;
> };
>
> Result:
> Something 1e-06 something
>
> And should be:
> Something 0.000001 something
>
> Is this my fault or a bug?
It is your fault, mostly. $# sets the format for "printed numbers", not
for interpolated-into-strings numbers. However, there are some bugs around
$#, which is not suprising considering it is deprecated.
on 5.8.8:
$ perl -l -e '$#="%f"; $x=0.000001; print " $x "'
0.000001
###OK, it applies the format even thought it interpolated.
###Hey, what happened to the spaces? Apparently it isn't truly
interpolated.
$ perl -l -e '$#="%f"; $x=0.000001; print "a $x "'
a 1e-06
###now it is truly interpolated, and $# doesn't apply.
Xho
> I'm using perl v5.8.7
>
> You may also like to check this:
> $x = 0.000001;
> print "$x";
> do { local $# = "%.10f"; print "$x"; };
> print "$x";
OK, now that one is definitely a bug.
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Sun, 23 Jul 2006 18:29:00 GMT
From: "Mumia W." <mumia.w.18.spam+nospam.usenet@earthlink.net>
Subject: Re: ASP.Net, PERL and File Uploading
Message-Id: <MdPwg.3688$bP5.284@newsread1.news.pas.earthlink.net>
On 07/23/2006 07:41 AM, Matt Garrish wrote:
> Mumia W. wrote:
>> [...]
>> you can use CGI.pm's methods for creating them. See §
>> "Creating a file upload field" in "perldoc CGI".
>>
>
> And have you ever tried doing this? Please run the following html
> snippet which, unless you're using Opera, will show you you can't set a
> default value:
> [...]
Interestingly, before I posted, I had only tested setting the
default value with lynx, and it worked, so I posted.
Also interestingly, it failed with every other browser I
tried: w3m, konqueror, epiphany, mozilla, and firefox.
There is nothing in the HTML spec that requires the the
browser to accept a default value for file upload controls,
and there are undeniably security concerns with allowing that.
So what are the chances you can get all of your users to move
to either Opera or Lynx?
:)
------------------------------
Date: 23 Jul 2006 12:29:42 -0700
From: "Matt Garrish" <mgarrish@gmail.com>
Subject: Re: ASP.Net, PERL and File Uploading
Message-Id: <1153682982.116562.117550@m73g2000cwd.googlegroups.com>
Mumia W. wrote:
> On 07/23/2006 07:41 AM, Matt Garrish wrote:
> > Mumia W. wrote:
> >> [...]
> >> you can use CGI.pm's methods for creating them. See =A7
> >> "Creating a file upload field" in "perldoc CGI".
> >>
> >
> > And have you ever tried doing this? Please run the following html
> > snippet which, unless you're using Opera, will show you you can't set a
> > default value:
> > [...]
>
> Interestingly, before I posted, I had only tested setting the
> default value with lynx, and it worked, so I posted.
>=20
I'm surprised Lynx can even display a form... ; )
Matt
------------------------------
Date: Sun, 23 Jul 2006 15:54:57 GMT
From: Cosimo <cosimo@cpan.org>
Subject: Device::Gsm v1.43 released to CPAN
Message-Id: <J2wC79.n2C@zorch.sf-bay.org>
Version 1.43 of Device::Gsm perl extension has been released to CPAN,
and should be available at your local CPAN mirror in a day or two.
Recent Changes
---------------
1.43 Sun Jul 23 17:40:15 CEST 2006
- Added ability to decode alphabetical sender addresses.
Thanks to Torsten Mueller for reporting the issue.
1.42 Mon May 8 21:16:40 CEST 2006
- Fixed a bug in Device::Gsm::Sms delete() method that invoked
a non-existent Device::Gsm::deleteMessage().
- Implemented read and delete of sms messages from different
storages (ME, SM, ...). Only for PDU format. Thanks to
Jurij Sikorsky for the patch.
1.41 Thu Apr 20 21:52:19 CEST 2006
- === Now Device::Gsm 1.39+ requires at least Device::Modem v1.47 ===
Check out on CPAN before upgrading.
- Some cool fixes for better support of Iridium Satellite phones,
GPRS connections and command/response faster cycle.
Many thanks to Ed Wildgoose.
What it is?
------------
Device::Gsm is perl extension to talk to your gsm mobile phone
via serial port, bluetooth, irda, ... and reads/writes sms messages,
reads battery level, signal, imei(serial) number, makes calls,
and everything is allowed by the GSM AT+C command set.
It works at least on Windows, Linux, Solaris and *BSD systems.
Prerequisites
-------------
+ working perl installation >= 5.005_03
+ Device::Modem (most recent version is usually required)
+ Device::SerialPort (or Win32::SerialPort for Windows systems)
+ a gsm mobile phone, or oem device, compliant with AT+C GSM
command set (nearly every model is AT+C compliant)
Installation
------------
This module installs like all other good old perl modules:
$ perl Makefile.PL
$ make
$ make test
$ make install
Licensing terms
---------------
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
Use it at your own risk, and without ANY warranty!
For any need of commercial support and/or licensing, please contact
me directly: Cosimo Streppone <cosimo@cpan.org>
------------------------------
Date: Sun, 23 Jul 2006 22:09:57 +0200
From: Franzl Wisseworst <franzl.wisseworst@mailinator.net>
Subject: Re: Idiot Q: How to find index number of HASH match?
Message-Id: <ea0lub$2i5$02$1@news.t-online.com>
Jürgen Exner wrote:
[..]
> $location_de{foobar}
Thanks for the various hints and directions. It should help me get onto the
right path.
------------------------------
Date: Sun, 23 Jul 2006 21:16:40 GMT
From: "Mumia W." <mumia.w.18.spam+nospam.usenet@earthlink.net>
Subject: Re: Idiot Q: How to find index number of HASH match?
Message-Id: <YGRwg.3757$157.1925@newsread3.news.pas.earthlink.net>
On 07/23/2006 12:12 PM, wrote:
> Franzl Wisseworst wrote:
>> [ snipped ]
>
> The 'index' in a hash is more commonly called the key.
Franzl is tying to Tie::IxHash, which means that he is using
hashes that have array features.
------------------------------
Date: Sun, 23 Jul 2006 21:16:42 GMT
From: "Mumia W." <mumia.w.18.spam+nospam.usenet@earthlink.net>
Subject: Re: Idiot Q: How to find index number of HASH match?
Message-Id: <_GRwg.3758$157.1449@newsread3.news.pas.earthlink.net>
On 07/23/2006 11:16 AM, Franzl Wisseworst wrote:
> [...]
> Instead of opting for a more sophisticated multi-dimensional hash array
> method as disussed in previous posts of this string, I guess another and
> possibly easier solution would be simply to copy the keys into a standard
> array, and then use index numbers to identify the mirror pages of the other
> language version.
>
> For now I have something as follows:
>
> use Tie::IxHash;
>
> tie my %location_en, "Tie::IxHash";
> tie my %location_de, "Tie::IxHash";
>
> $current::page = $ENV{DOCUMENT_NAME} || 'undefined';
>
> %location_en = ('page1.html' => 'page one',
> 'bla.html' => 'blabla',
> 'something.html' => 'Something');
>
> %location_de = ('seite1.html' => 'Seite eins',
> 'blau.html' => 'Blau',
> 'ding.html' => 'Ding');
>
> So to utilise the existing data, as opposed to maintain hashes and arrays
> with partly duplicate data, I'd like to:
>
> 1) Copy the keys, i.e. the page URL's or filenames from %location_en into
> an normal array where I can easier refer to them by index.
>
> Exactly how would "page1.html", "bla.html"
> and "something.html" be placed
> in a standard array named @location_en. A simply question
> I know...
my @location_en = keys %location_en;
But why would you want to do this? By tying to Tie::IxHash,
you already have the equivalent of an array (if you save the
object returned by "tie").
my $obj_en = tie my %location_en, "Tie::IxHash";
my $obj_de = tie my %location_de, "Tie::IxHash";
> 2) Search the array for a possible match of the filename as already held in
> the global $current::page variable and return its index number. In the
> unlikely event no match is found, return a fixed string, e.g. "404.html".
>
Umm, why would you want to search an array when you already
have something better?
my $match_index = $obj_en->Indices($current::page);
my $string = defined $match_index ? $match_index : "404.html";
> 4) Extract the string in %location_de that has the same index number as in
> %location_de. But I guess this must be a too simple question....
>
> In any case, thank you for any helpful pointers, especially regarding
> question #1 and #2.
>
my $string = $obj_de->Keys($match_index);
P.S.
I think that a multi-dimensional hash/array would be easier:
my %lg = (
en,pages => [ 'page1.html', 'bla.html', 'something.html' ],
en,text => [ 'pageone', 'blabla', 'something' ],
de,pages => [ 'seite1.html', 'blau.html', 'ding.html' ],
de,text => [ 'Seite ens', 'blau', 'Ding' ],
);
$; = ',';
my %lgn;
foreach my $x (grep /,pages$/ keys %lg) {
foreach my $y (0..$#{$lg{$x}}) {
my $aref = $lg{$x};
$lgn{"$aref->[$y]"} = $y;
}
}
# Answer Q1: No need. @{ $lg{'en,pages'} } is already an array.
# Answer Q2:
my $match_index = $lgn{$current::page};
ALL CODE UNTESTED
------------------------------
Date: 24 Jul 2006 07:41:58 GMT
From: <corff@zedat.fu-berlin.de>
Subject: Re: Lingua::Han::PinYin and utf8 problem
Message-Id: <4ijbu6F420s1U1@uni-berlin.de>
Peter J. Holzer <hjp-usenet2@hjp.at> wrote:
: Oliver Corff wrote:
: >
: > Interesting. What prompts your assumption? I copied and pasted the
: > Lingua::Han::PinYin-related stuff directly, AS IS, from its documentation,
: > including the (format... ) parameter.
: Then you have a different version than me. I downloaded the current
: version (0.06) from CPAN yesterday, and neither the documentation nor
: the source code mention a format parameter. See also
: http://search.cpan.org/~fayland/Lingua-Han-PinYin-0.06/lib/Lingua/Han/PinYin.pm
I just installed it via ppm in ActiveState Perl. It shows up with the
(format ...) parameter if you go into ActiveState's help system (which
shows everything in HTML format); on the left side there is a frame which
contains a list of all accessible package documentations and there is Lingua::
Han::PinYin, too. _That_ documentation shows it as given above.
: >
: > I am afraid this unwanted conversion took place when uploading the minimal
: > script to the Usenet message (I am working in a text terminal which is not
: > utf8).
: Yes, but I allowed for that. Still, unless you put 'use utf8' or 'use
: encoding ...' at the top of you script it will still be a string of
: three single-byte-characters, not a string of one 3-byte-character.
I had in my script, commented it in, commented it out, it didn't make any
difference.
: These are not utf8-encoded from the point of view of a perl application.
: UTF-8 is a variable width encoding: The character U+4E00 is encoded as
: a three octet string "\x{e4}\x{b8}\x{80}". This seems to be what
: han2pinyin expects. But you give it a string with a single character
: "\x{4e00}". It tries to decode that from UTF-8 to perl's internal
: representation and fails (This seems to be a bad design decision to me
: - I would have used perl wide strings as input).
: I really think that exposing the fact that the perl interpreter stores
: wide strings internally as UTF-8 to the user by choosing names like
: "is_utf8" has been a grave mistake. It makes it very difficult to talk
: about things because if somebody talks about a "utf8 string" you never
: know whether he means a wide string or a string containing octets of
: utf-8 code.
Somehow this whole UTF-8 handling in Perl is at times, simply annoying.
While Perl usually seems to do very much what is intended from the code
writer's side (basic concepts being grasped, that is), I've often bitten
my teeth at problems arising from my understanding falling short by one
inch of how it is really done in UTF-8 issues. In this aspect, I feel
like the squirrel in 'Ice Age', in the eternal quest for the acorn.
Oliver.
--
Dr. Oliver Corff e-mail: corff@zedat.fu-berlin.de
------------------------------
Date: Mon, 24 Jul 2006 07:08:55 GMT
From: axel@white-eagle.invalid.uk
Subject: Re: perl + regex bug?
Message-Id: <bm_wg.7168$5K2.7148@fed1read03>
nitroamos@gmail.com wrote:
> Also, sorry for not providing enough information. I had hoped that the
> sample output would be enough, but since it's not, I went ahead and put
Why could it be since we did not know the input?
> my whole program online (see line 106). I debated whether I should try
> to extract a new program; I hope this is ok:
No it's not ok... this is Usenet, you should not expect us to fire
up a browser in order to look at and give advice on your problems...
the coomon curtesy would be to follow the guidelines of the group.
> http://www.wag.caltech.edu/QMcBeaver/jag_recorr_all
> which requires this input file:
> http://www.wag.caltech.edu/QMcBeaver/ne_pw91.01.in
> (I won't keep those files up there forever...)
Oh... a deadline for us to look at the problem then.
'nuff said.
Axel
------------------------------
Date: 23 Jul 2006 22:19:28 GMT
From: Eric Bohlman <ebohlman@omsdev.com>
Subject: Re: Perl and Theory of languages
Message-Id: <Xns9809B04D4FE28ebohlmanomsdevcom@130.133.1.4>
Tad McClellan <tadmc@augustmail.com> wrote in
news:slrnec70oa.lt3.tadmc@magna.augustmail.com:
> write a dot <> wrote:
>
>> This package should be placed in the public domain,
> ^^^^^^^^^^^^^
>
> That is not a good idea at all.
>
> You surrender *all* rights when you place it in the public domain,
> including the right to demand (both kinds of) "free" access to it,
> that modifications and derivatives also be open, etc...
>
> This package should be licensed "open source"!
>
> (Which is a whole lot different than "public domain".
> Are you aware of the differences?
> )
It's also worth pointing out that many (if not most) countries don't
recognize voluntary releases into the public domain; it's not part of the
Berne convention and the US is unusual in allowing it. The upshot is
that if someone from a country that doesn't recognize voluntary release
contributes code to the project, the result is no longer in the public
domain. For example, D. Richard Hipp's decision to put SQLite in the
public domain means that he can't accept code contributions from
residents of Germany, because Germany doesn't recognize voluntary release
and he'd have to rely on the good will of not just the contributor, but
all of the contributor's possible heirs, future ex-spouses, creditors,
and other beneficiaries (all of whom could argue that the contribution
gave them a valuable proprietary interest in the project).
------------------------------
Date: 23 Jul 2006 21:25:01 -0700
From: "madan" <madan.narra@gmail.com>
Subject: Re: Problem with function "crypt"
Message-Id: <1153715101.228433.9770@m73g2000cwd.googlegroups.com>
thanks all for ur reply and support....the main thing i did wrong is
that i never used $password...i have to place the parameter as an
argument that was passed to the script in the calling function...now i
am getting unique encrypted values for the password i entered....
thanks again
with regards
madan chowdary
------------------------------
Date: 23 Jul 2006 13:55:36 -0700
From: nahum_barnea@yahoo.com
Subject: redirecting system output
Message-Id: <1153688136.773388.99940@i42g2000cwa.googlegroups.com>
Hi.
In my perl script I need to run a software that give output to standard
output.
I need to count the lines of that output.
If I wanted to do it in csh I would do
set a = `sw-tool .... | wc -l`
But I wonna do it with perl and it seems there is no mechanism such as
` ... ` ?
for example
$a = `system "sw-tool | wc -l`;
does not work properly.
is there any clean perl solution except for using temporary file and
reading it?
thankX
NAHUM
------------------------------
Date: 23 Jul 2006 23:07:11 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: redirecting system output
Message-Id: <k2p7c2lslhtn1k22lj7bsc4bnfgkqge6io@4ax.com>
On 23 Jul 2006 13:55:36 -0700, nahum_barnea@yahoo.com wrote:
>But I wonna do it with perl and it seems there is no mechanism such as
>` ... ` ?
Yes, there's is and it's called... ehm...
` ... `
although I prefer qx/.../;
>for example
>
>$a = `system "sw-tool | wc -l`;
Except that I would use a proper lexical variable, along with
use strict;
use warnings;
and do the wc -l thing in perl.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 23 Jul 2006 21:16:04 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: redirecting system output
Message-Id: <Xns9809A57ABF187castleamber@130.133.1.4>
nahum_barnea@yahoo.com wrote:
> is there any clean perl solution except for using temporary file and
> reading it?
read from STDIN and count each line.
perldoc -f open
--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/
------------------------------
Date: 23 Jul 2006 21:19:30 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: redirecting system output
Message-Id: <Xns9809A60F7CF4Fcastleamber@130.133.1.4>
nahum_barnea@yahoo.com wrote:
> Hi.
>
> In my perl script I need to run a software that give output to standard
> output.
> I need to count the lines of that output.
>
> If I wanted to do it in csh I would do
>
> set a = `sw-tool .... | wc -l`
>
>
> But I wonna do it with perl and it seems there is no mechanism such as
> ` ... ` ?
>
> for example
>
> $a = `system "sw-tool | wc -l`;
>
> does not work properly.
> is there any clean perl solution except for using temporary file and
> reading it?
Addition: if you want to call sw-tool yourself, you open a pipe for
reading to sw-tool (for example).
What's wrong with the $a line:
- bad variable name
- did you use my $a (I guess not, did you use:
use strict;
use warnings;
I guess not. If I am right, fix this)
- You are calling:
system "sw-tool | wc -l
I doubt if that's what you want to do
perldoc -f system
--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/
------------------------------
Date: Sun, 23 Jul 2006 22:44:46 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: redirecting system output
Message-Id: <yZSwg.149132$S61.68187@edtnps90>
nahum_barnea@yahoo.com wrote:
>
> In my perl script I need to run a software that give output to standard
> output.
> I need to count the lines of that output.
>
> If I wanted to do it in csh I would do
>
> set a = `sw-tool .... | wc -l`
>
>
> But I wonna do it with perl and it seems there is no mechanism such as
> ` ... ` ?
>
> for example
>
> $a = `system "sw-tool | wc -l`;
>
> does not work properly.
> is there any clean perl solution except for using temporary file and
> reading it?
my $count_of_lines = () = `sw-tool ...`;
Assuming that you haven't changed the value of $/.
John
--
use Perl;
program
fulfillment
------------------------------
Date: 23 Jul 2006 16:04:54 -0700
From: "Xicheng Jia" <xicheng@gmail.com>
Subject: Re: redirecting system output
Message-Id: <1153695894.501951.270570@m73g2000cwd.googlegroups.com>
nahum_barnea@yahoo.com wrote:
> Hi.
>
> In my perl script I need to run a software that give output to standard
> output.
> I need to count the lines of that output.
>
> If I wanted to do it in csh I would do
>
> set a = `sw-tool .... | wc -l`
>
>
> But I wonna do it with perl and it seems there is no mechanism such as
> ` ... ` ?
chomp( my $num_lines = `sw-tool .... | wc -l` );
Xicheng
------------------------------
Date: Sun, 23 Jul 2006 19:58:50 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: redirecting system output
Message-Id: <slrnec86qa.o9d.tadmc@magna.augustmail.com>
nahum_barnea@yahoo.com <nahum_barnea@yahoo.com> wrote:
>
> If I wanted to do it in csh I would do
>
> set a = `sw-tool .... | wc -l`
and if you wanted to do it in Perl you would do
$a = `sw-tool .... | wc -l`;
> $a = `system "sw-tool | wc -l`;
^^^^^^ ^
^ eh?
system() is a _Perl_ function.
What goes in the backticks are _shell_ commands.
> does not work properly.
GIGO.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 24 Jul 2006 00:15:20 -0700
From: nahum_barnea@yahoo.com
Subject: Re: redirecting system output
Message-Id: <1153725320.868431.51610@s13g2000cwa.googlegroups.com>
Thanks to all answers, and specially you Xicheng Jia,
The "chomp" thing realy made my day :-)
Xicheng Jia wrote:
> nahum_barnea@yahoo.com wrote:
> > Hi.
> >
> > In my perl script I need to run a software that give output to standard
> > output.
> > I need to count the lines of that output.
> >
> > If I wanted to do it in csh I would do
> >
> > set a = `sw-tool .... | wc -l`
> >
> >
> > But I wonna do it with perl and it seems there is no mechanism such as
> > ` ... ` ?
>
> chomp( my $num_lines = `sw-tool .... | wc -l` );
>
> Xicheng
------------------------------
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 9517
***************************************
