[27916] in Perl-Users-Digest
Perl-Users Digest, Issue: 9280 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jun 11 03:05:54 2006
Date: Sun, 11 Jun 2006 00:05:07 -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 Sun, 11 Jun 2006 Volume: 10 Number: 9280
Today's topics:
Re: CGI for collecting phone numbers <ferreira@unm.edu>
Re: I received eBay Star Developer Award <jurgenex@hotmail.com>
Re: I received eBay Star Developer Award <pkstore2@columbus.rr.com>
Re: I received eBay Star Developer Award robic0
Re: I received eBay Star Developer Award robic0
Re: I received eBay Star Developer Award <ignoramus14786@NOSPAM.14786.invalid>
Re: I received eBay Star Developer Award <ignoramus14786@NOSPAM.14786.invalid>
Re: I received eBay Star Developer Award <not@this.time>
new CPAN modules on Sun Jun 11 2006 (Randal Schwartz)
problem with Email::MIME::Attachment::Stripper <gentil_ecureuil@hotmail.com>
Using tee with Perl's system command olson_ord@yahoo.it
Re: Using tee with Perl's system command <jurgenex@hotmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 10 Jun 2006 20:35:36 -0700
From: "ferreira@unm.edu" <ferreira@unm.edu>
Subject: Re: CGI for collecting phone numbers
Message-Id: <1149996936.518786.85110@f6g2000cwb.googlegroups.com>
Brian,
Your suggestion was one of the problems, a permission.
Pual,
Do you just like to badger newbes or what? I don't even get paid for
this. I'm just a volunteer trying to help out for a good cause.
I was able to find the missing piece and it works perfectly now.
Here is the final code. Maybe someone wanting to submit phone numbers
from a form to a text file with a cgi will run across this post and
save the hassle I went through.
#!/usr/bin/perl -w
use CGI;
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
hex($1))/eg;
$FORM{$name} = $value;}
}
my $file = 'sms.txt';
my $phone = $FORM{phone};
open (FILE, ">>" . $file) or die "cannot open file for appending: $!";
flock (FILE, 2) or die "cannot lock file exclusively: $!";
print "Content-type: text/html\n\n";
print FILE $phone . "\n";
close (FILE) or die "cannot close file: $!";
print qq~
<meta HTTP-EQUIV="REFRESH" content="5; url=http://www.GaryKing.org/">
<center><B>Number successfully added!
</B>
<br>
You will be returned to GaryKing .org in 5 seconds.
<p><a href="http://www.GaryKing.org/"> Or click here to return to
GaryKing.org now.</a></p></center>
~;
Brian Wakem wrote:
>
> It is unlikely your webserver is configured to execute files in your
> document root. You may have to move it into /cgi-bin or similar, and make
> sure it is executable by the webserver (permissions).
>
>
> --
> Brian Wakem
> Email: http://homepage.ntlworld.com/b.wakem/myemail.png
------------------------------
Date: Sun, 11 Jun 2006 02:05:09 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: I received eBay Star Developer Award
Message-Id: <pTKig.2102$X02.1223@trnddc02>
Ignoramus14786 wrote:
[something]
Would you mind sticking to _one_ pseudonym.
Then we wouldn't have to update our killfiles as often.
jue
------------------------------
Date: Sun, 11 Jun 2006 02:12:01 GMT
From: "pkstore2" <pkstore2@columbus.rr.com>
Subject: Re: I received eBay Star Developer Award
Message-Id: <RZKig.42140$YI5.21411@tornado.ohiordc.rr.com>
"Ignoramus14786" <ignoramus14786@NOSPAM.14786.invalid> wrote in message
news:p7Fig.5831$BD1.5328@fe07.usenetserver.com...
>I am at eBay developers conference right now, and they gave me a Star
> Developer Award for writing a Net::eBay perl module. That perl module
> allows developers to send queries to eBay API by making very simple
> perl calls. Useful for website developers or people like me who like
> to ist stuff on ebay without going to their website.
>
> Apparently, I am one of about 8 or so people who received the award
> this year.
Wow! 8 people from India got an Ebay award. Anything to make the experience
better! Keep it up.
------------------------------
Date: Sat, 10 Jun 2006 19:53:58 -0700
From: robic0
Subject: Re: I received eBay Star Developer Award
Message-Id: <281n82lcdd3rg74q76iunp6usmijqlpnud@4ax.com>
On Sat, 10 Jun 2006 19:32:37 GMT, Ignoramus14786 <ignoramus14786@NOSPAM.14786.invalid> wrote:
>I am at eBay developers conference right now, and they gave me a Star
>Developer Award for writing a Net::eBay perl module. That perl module
>allows developers to send queries to eBay API by making very simple
>perl calls. Useful for website developers or people like me who like
>to ist stuff on ebay without going to their website.
>
>Apparently, I am one of about 8 or so people who received the award
>this year.
>
>Pictures will be provided after I get back home from conference.
>
>This module is described at my site www.net-ebay.org.
>
>i
Thats good. Did they pay you a million dollars?
Should Ebay of fraud be considered something real because they,
#1 have an api (what the fuck is a Ebay api?) and
#2 have some asshole write a Perl wrapper to it?
The world is definetely strange!
------------------------------
Date: Sat, 10 Jun 2006 20:03:06 -0700
From: robic0
Subject: Re: I received eBay Star Developer Award
Message-Id: <fn1n82tg34onc2k8ginnr5cg98l9ekqisp@4ax.com>
On Sat, 10 Jun 2006 22:42:48 GMT, Ignoramus14786 <ignoramus14786@NOSPAM.14786.invalid> wrote:
>On Sat, 10 Jun 2006 16:51:09 -0500, Bertha <bertha@yetta.net> wrote:
>> On Sat, 10 Jun 2006 19:32:37 GMT, Ignoramus14786
>><ignoramus14786@NOSPAM.14786.invalid> defied the laws of time and space to say:
>>
>>> I am at eBay developers conference right now, and they gave me a Star
>>> Developer Award for writing a Net::eBay perl module. That perl module
>>> allows developers to send queries to eBay API by making very simple
>>> perl calls. Useful for website developers or people like me who like
>>> to ist stuff on ebay without going to their website.
>>
>> Congrats! Don't forget us when you become rich and famous!
>
Now theres something you don't see very often, Net::eBiotch...
>.... Net::eBay ......
Move over Net::, make room for M I C R O S O F T D O T P E R L.
They could stuff it in Net::Microsoft:: <-- multiple levels of frcatal absurdity
As if Ebay was anything at all worthy of a subclass in Net::.
Give me a fucking break !!!!!!!
------------------------------
Date: Sun, 11 Jun 2006 03:14:34 GMT
From: Ignoramus14786 <ignoramus14786@NOSPAM.14786.invalid>
Subject: Re: I received eBay Star Developer Award
Message-Id: <uULig.7208$382.916@fe78.usenetserver.com>
On Sun, 11 Jun 2006 02:05:09 GMT, Jürgen Exner <jurgenex@hotmail.com> wrote:
> Would you mind sticking to _one_ pseudonym.
> Then we wouldn't have to update our killfiles as often.
You cak killfile using outlook based on a regullar expression. The
"ignoramus" paret of my ID is not changing.
i
------------------------------
Date: Sun, 11 Jun 2006 03:25:50 GMT
From: Ignoramus14786 <ignoramus14786@NOSPAM.14786.invalid>
Subject: Re: I received eBay Star Developer Award
Message-Id: <23Mig.14816$R11.8707@fe25.usenetserver.com>
On Sat, 10 Jun 2006 19:53:58 -0700, robic0 <robic0> wrote:
> On Sat, 10 Jun 2006 19:32:37 GMT, Ignoramus14786 <ignoramus14786@NOSPAM.14786.invalid> wrote:
>
>>I am at eBay developers conference right now, and they gave me a Star
>>Developer Award for writing a Net::eBay perl module. That perl module
>>allows developers to send queries to eBay API by making very simple
>>perl calls. Useful for website developers or people like me who like
>>to ist stuff on ebay without going to their website.
>>
>>Apparently, I am one of about 8 or so people who received the award
>>this year.
>>
>>Pictures will be provided after I get back home from conference.
>>
>>This module is described at my site www.net-ebay.org.
>>
>>i
>
> Thats good. Did they pay you a million dollars?
> Should Ebay of fraud be considered something real because they,
> #1 have an api (what the fuck is a Ebay api?) and
> #2 have some asshole write a Perl wrapper to it?
>
> The world is definetely strange!
I got nothing out of the whole affair...
i
------------------------------
Date: Sun, 11 Jun 2006 00:14:00 -0400
From: Buck <not@this.time>
Subject: Re: I received eBay Star Developer Award
Message-Id: <u36n829tolsbs9slcumsufh0oo66ao03dv@4ax.com>
On Sat, 10 Jun 2006 19:32:37 GMT, Ignoramus14786
<ignoramus14786@NOSPAM.14786.invalid> wrote:
>I am at eBay developers conference right now, and they gave me a Star
>Developer Award for writing a Net::eBay perl module. That perl module
>allows developers to send queries to eBay API by making very simple
>perl calls. Useful for website developers or people like me who like
>to ist stuff on ebay without going to their website.
>
>Apparently, I am one of about 8 or so people who received the award
>this year.
>
>Pictures will be provided after I get back home from conference.
>
>This module is described at my site www.net-ebay.org.
>
>i
Congratulations!!
Buck
--
But that's just my opinion.
------------------------------
Date: Sun, 11 Jun 2006 04:42:12 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sun Jun 11 2006
Message-Id: <J0oIEC.Dq5@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
WebService-JugemKey-Auth-0.04
http://search.cpan.org/~mizzy/WebService-JugemKey-Auth-0.04/
Perl interface to the JugemKey Authentication API
----
Date-WeekOfYear-1.02
http://search.cpan.org/~gng/Date-WeekOfYear-1.02/
Simple routine to return the week of the year (as well as the year)
----
POE-Component-RSSAggregator-1
http://search.cpan.org/~jbisbee/POE-Component-RSSAggregator-1/
Watch Muliple RSS Feeds for New Headlines
----
WWW-Bugzilla-0.7
http://search.cpan.org/~bmc/WWW-Bugzilla-0.7/
Handles submission/update of bugzilla bugs via WWW::Mechanize.
----
Sys-Syslog-0.15
http://search.cpan.org/~saper/Sys-Syslog-0.15/
Perl interface to the UNIX syslog(3) calls
----
Algorithm-Pair-Swiss-0.12
http://search.cpan.org/~ggoudsmit/Algorithm-Pair-Swiss-0.12/
Generate unique pairings for tournaments
----
XML-XPathScript-1.41
http://search.cpan.org/~yanick/XML-XPathScript-1.41/
a Perl framework for XML stylesheets
----
HTML-Tested-0.16
http://search.cpan.org/~bosu/HTML-Tested-0.16/
Provides HTML widgets with the built-in means of testing.
----
Sub-Exporter-0.965
http://search.cpan.org/~rjbs/Sub-Exporter-0.965/
a sophisticated exporter for custom-built routines
----
Catalyst-View-Embperl-0.02
http://search.cpan.org/~clb/Catalyst-View-Embperl-0.02/
Embperl View Class
----
Lingua-JA-Numbers-0.04
http://search.cpan.org/~dankogai/Lingua-JA-Numbers-0.04/
Converts numeric values into their Japanese string equivalents and vice versa
----
List-MoreUtils-0.20
http://search.cpan.org/~vparseval/List-MoreUtils-0.20/
Provide the stuff missing in List::Util
----
XML-DTD-0.02
http://search.cpan.org/~wohl/XML-DTD-0.02/
Perl module for parsing XML DTDs
----
Algorithm-Pair-Swiss-0.11
http://search.cpan.org/~ggoudsmit/Algorithm-Pair-Swiss-0.11/
Perl module to select pairings (designed for Magic: The Gathering tournaments).
----
Data-Tabular-0.26
http://search.cpan.org/~gam/Data-Tabular-0.26/
Handy Table Manipulation and rendering Object
----
String-Truncate-0.100
http://search.cpan.org/~rjbs/String-Truncate-0.100/
a module for when strings are too long to be displayed in...
----
HTTP-RangeSaver-0.01
http://search.cpan.org/~blgl/HTTP-RangeSaver-0.01/
handle partial content HTTP responses
----
Biblio-Thesaurus-SQLite-0.10
http://search.cpan.org/~root/Biblio-Thesaurus-SQLite-0.10/
Perl extension for managing ISO thesaurs into a SQLite database
----
Email-Valid-0.171
http://search.cpan.org/~rjbs/Email-Valid-0.171/
Check validity of Internet email addresses
----
Algorithm-Pair-Swiss-0.1
http://search.cpan.org/~ggoudsmit/Algorithm-Pair-Swiss-0.1/
Perl module to select pairings (designed for Magic: The Gathering tournaments).
----
Email-Filter-Rules-1.11
http://search.cpan.org/~jbisbee/Email-Filter-Rules-1.11/
Simple Rules for Routing Mail with Email::Filter
----
Image-Size-3.0
http://search.cpan.org/~rjray/Image-Size-3.0/
read the dimensions of an image in several popular formats
----
WWW-Google-Calculator-0.03
http://search.cpan.org/~typester/WWW-Google-Calculator-0.03/
Perl interface for Google calculator
----
Games-Maze-SVG-0.73
http://search.cpan.org/~gwadej/Games-Maze-SVG-0.73/
Build mazes in SVG.
----
MHonArc-2.6.16
http://search.cpan.org/~ehood/MHonArc-2.6.16/
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Sun, 11 Jun 2006 03:40:56 +0200
From: "ecureuil" <gentil_ecureuil@hotmail.com>
Subject: problem with Email::MIME::Attachment::Stripper
Message-Id: <448b74a6$0$22794$626a54ce@news.free.fr>
Hi,
I have a problem with Email::MIME::Attachment::Stripper.
with KMail/1.7.x :
boundary="Boundary-00=_ficdEbM/nb3/GhZ"
my $message = do { local $/; <> };
my $parser = Email::MIME->new($message);
my @parts = $parser->parts();
$smtp->datasend(sprintf ("There are %d parts in the message\n", $#parts
+1 ) );
=> There are 3 parts in the message
It's not ok. 2 parts in this mail, no 3 parts
$message =>
Received: (qmail 3807 invoked by alias); 25 May 2006 15:02:12 -0000
Delivered-To: alias-localdelivery-zoro@testam.xxxxxxxxxx
Received: (qmail 3804 invoked from network); 25 May 2006 15:02:12 -0000
Received: from pc-00001.xxxxxxxxxxx(HELO xxxxxxxxxxx) (10.97.1.1)
by maison1.testam.xxxxxxxxxxx (10.97.1.45) with SMTP; 25 May 2006
15:02:12 -0000
Received: (qmail 12517 invoked from network); 25 May 2006 15:16:32 -0000
X-Virus-Scanned: by amavis-ng-0.1.6.4-03dc on tux.xxxxxxxxxxx
Received: from smtp5-xxx.free.fr (212.xxx.xxx.xxx)
by tux.xxxxxxxxxxx (82.xxx.xxx.xxx) with ESMTP; 25 May 2006 15:16:19 -0000
Received: from geo.localdomain (vig38-1-82-xxx.xxx-xxx.fbx.proxad.net
[82.xxx.xxx.xxx])
by smtp5-xxx.free.fr (Postfix) with ESMTP id F03591DE91
for <zoro@testam.xxxxxxxxxxx>; Thu, 25 May 2006 17:02:06 +0200
(CEST)
From: Monique =?iso-8859-1?q??= <monique@free.fr>
Reply-To: monique@free.fr
To: zoro@testam.xxxxxxxxxxx
Subject: Re-test
Date: Thu, 25 May 2006 17:09:19 +0200
User-Agent: KMail/1.7.1
MIME-Version: 1.0
Content-Type: Multipart/Mixed;
boundary="Boundary-00=_ficdEbM/nb3/GhZ"
Message-Id: <200605251709.19619.monique@free.fr>
--Boundary-00=_ficdEbM/nb3/GhZ
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline
And now, mylady, with la PJ, enfin j'espere
=2D-=20
Monique
--Boundary-00=_ficdEbM/nb3/GhZ
Content-Type: image/jpeg;
name="GateauPavotChocolat.jpg"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="GateauPavotChocolat.jpg"
/9j/4AAQSkZJRgABAQEASABIAAD//gAXQ3JlYXRlZCB3aXRoIFRoZSBHSU1Q/9sAQwAIBgYHBgUI
...
ERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERERF//Z
--Boundary-00=_ficdEbM/nb3/GhZ--
my $stripper = Email::MIME::Attachment::Stripper->new($message);
my @attachments = $stripper->attachments;
$smtp->datasend(sprintf ("There are %d attachments in the message\n\n",
$#attachments +1 ) );
=> There are 1 attachments in the message
It's ok. 1 attachment!
my Email::MIME $msg = $stripper->message->as_string;
$smtp->datasend(sprintf( "Attach Message :\n%s\n", $msg));
Attach Message :
Received: (qmail 3807 invoked by alias); 25 May 2006 15:02:12 -0000
Delivered-To: alias-localdelivery-zoro@testam.xxxxxxxxxx
Received: (qmail 3804 invoked from network); 25 May 2006 15:02:12 -0000
Received: from pc-00001.xxxxxxxxxxx(HELO xxxxxxxxxxx) (10.97.1.1)
by maison1.testam.xxxxxxxxxxx (10.97.1.45) with SMTP; 25 May 2006
15:02:12 -0000
Received: (qmail 12517 invoked from network); 25 May 2006 15:16:32 -0000
X-Virus-Scanned: by amavis-ng-0.1.6.4-03dc on tux.xxxxxxxxxxx
Received: from smtp5-xxx.free.fr (212.xxx.xxx.xxx)
by tux.xxxxxxxxxxx (82.xxx.xxx.xxx) with ESMTP; 25 May 2006 15:16:19 -0000
Received: from geo.localdomain (vig38-1-82-xxx.xxx-xxx.fbx.proxad.net
[82.xxx.xxx.xxx])
by smtp5-xxx.free.fr (Postfix) with ESMTP id F03591DE91
for <zoro@testam.xxxxxxxxxxx>; Thu, 25 May 2006 17:02:06 +0200
(CEST)
From: Monique =?iso-8859-1?q??= <monique@free.fr>
Reply-To: monique@free.fr
To: zoro@testam.xxxxxxxxxxx
Subject: Re-test
Date: Thu, 25 May 2006 17:09:19 +0200
User-Agent: KMail/1.7.1
MIME-Version: 1.0
Content-Type: Multipart/Mixed;
boundary="Boundary-00=_ficdEbM/nb3/GhZ"
Message-Id: <200605251709.19619.monique@free.fr>
--Boundary-00=_ficdEbM/nb3/GhZ
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline
And now, mylady, with la PJ, enfin j'espere
=2D-=20
Monique
--Boundary-00=_ficdEbM/nb3/GhZ
=> It's not ok.
my Email::MIME $msg1 = $stripper->message;
my $msg_body = $msg1->body;
$smtp->datasend(sprintf( "Attach Message body :\n%s\n", $msg_body));
$smtp->datasend(sprintf( "Attach Message body size : %d Bytes\n", ( length
( $msg_body ) ) ) );
$smtp->datasend(sprintf( "Incoming Mail contentstype : %s\n\n", (
$msg1->content_type ) ) );
=>
Attach Message body :
Attach Message body size : 1 Bytes
Incoming Mail contentstype : multipart/mixed;
boundary="Boundary-00=_ficdEbM/nb3/GhZ"
I have this problem with kmail 1.7.1 and 1.7.2
With another mail client, I don't have problem.
example:
Content-Type: multipart/mixed; boundary=Apple-Mail-2-621846957
Content-type: multipart/mixed;
boundary="Boundary_(ID_7yf+ICrVh+A4LyflJxVCtw)"
Content-Type: multipart/mixed;
boundary="------------000402030106050003040902"
=> no problem
Have you an idea?
thank you
anne
------------------------------
Date: 10 Jun 2006 19:23:26 -0700
From: olson_ord@yahoo.it
Subject: Using tee with Perl's system command
Message-Id: <1149992606.320988.108080@f6g2000cwb.googlegroups.com>
Hi,
I want to call/run another program with a perl script - and I need
to look at the current output on the screen and at the same time I need
this output dumped to a file. Without using perl I would just use tee.
However within perl it seems that its having some problem with the pipe
symbol "|".
As an example I have subsituted ls for my actual program and its
arguments (it has many of these). My script looks something like
--------------------------------------------
#!/usr/bin/perl
use strict; use warnings;
my @args = ("ls", "|", "tee", "out.txt");
print "\n\nExecuting @args \n";
system (@args) == 0 or die "System @args failed: $? \n";
---------------------------------------------------------------------
The output that I receive from the command line is something like
Executing ls | tee out.txt
ls: |: No such file or directory
ls: tee: No such file or directory
out.txt
System ls | tee out.txt failed: 256
I know that tee and | are not arguments to ls. However if I execute
this using back ticks then I don't get the output on the screen - so
thats not an option.
Thanks a lot for taking your time to help me.
O.O.
------------------------------
Date: Sun, 11 Jun 2006 03:31:13 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Using tee with Perl's system command
Message-Id: <58Mig.1638$hN2.798@trnddc05>
olson_ord@yahoo.it wrote:
[...]
> use tee. However within perl it seems that its having some problem
> with the pipe symbol "|".
>
> my @args = ("ls", "|", "tee", "out.txt");
> system (@args) == 0 or die "System @args failed: $? \n";
> ---------------------------------------------------------------------
> I know that tee and | are not arguments to ls.
But you are explicitely asking perl to hand those values as arguments to ls.
See first paragraph of "perldoc -f system" how to have the system shell
execute the command line.
jue
------------------------------
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 9280
***************************************
