[13734] in Perl-Users-Digest
Perl-Users Digest, Issue: 1144 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Oct 21 18:06:14 1999
Date: Thu, 21 Oct 1999 15:05:16 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <940543514-v9-i1144@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 21 Oct 1999 Volume: 9 Number: 1144
Today's topics:
Re: a tree of subdirectories in perl? <gellyfish@gellyfish.com>
Re: a tree of subdirectories in perl? <sariq@texas.net>
Re: a tree of subdirectories in perl? <lr@hpl.hp.com>
bind invalid argument <blchan@pacific.net.sg>
Re: Can't FTP to unix after Stripping ^M's from files u <maurice.maltbia@intel.com>
Re: Can't get Perl working with Apache <nmishler@uiuc.edu>
Re: Check whether a string is numeric, mixed or only ch <lr@hpl.hp.com>
Re: chomp() nested in split() doesn't work - why? (Tad McClellan)
exiting non-zero at end of perl -[np] jrw32982@my-deja.com
Re: Expr or block as 1st param: Compiler magic needed? (Alan Curry)
Re: file attachments <gellyfish@gellyfish.com>
Re: file upload <gellyfish@gellyfish.com>
Re: Formatting 42 to $42.00 <jspangen@my-deja.com>
Help substituting '/' ? <junkNOjuSPAM@tfw.net.invalid>
Re: Help substituting '/' ? (Mark Badolato)
Re: Help substituting '/' ? (Sebastian)
Re: How can print a HTML file? <Jing.Shi@usa.alcatel.com>
How do you substitute '/' ? <junkNOjuSPAM@tfw.net.invalid>
HTML Mail <customk9@home.com>
Re: in need of example... <ltl@rgsun5.viasystems.com>
Re: Language resource / module <gellyfish@gellyfish.com>
Re: NEED URGENT HELP <sariq@texas.net>
Net::FTP <samay1NOsaSPAM@hotmail.com.invalid>
Re: Net::FTP <maurice.maltbia@intel.com>
New short cut assignment operators? (Email55555)
Re: New short cut assignment operators? <newsposter@cthulhu.demon.nl>
NEWBIE ARRAY QUESTION <g-preston1@ti.com>
Re: NEWBIE ARRAY QUESTION <lr@hpl.hp.com>
Re: news.announce.newusers (was: what is SHTML ?) (Joe Petolino)
Obtaining a users login username cwoodsy@my-deja.com
Re: SGML/HTML parsing tool (Tad McClellan)
Re: stealing the news: how hard can it be? <dsparling@my-deja.com>
Re: subroutine rancorr@hotmail.com
Re: subroutine <newsposter@cthulhu.demon.nl>
Re: subroutine <ltl@rgsun5.viasystems.com>
Re: subroutine <lr@hpl.hp.com>
Re: subroutine <lr@hpl.hp.com>
Re: Substitution (Peter J. Kernan)
Re: Underlying data structure behind blessed reference. (Alan Curry)
Re: Underlying data structure behind blessed reference. <jeffp@crusoe.net>
Very New Perl User question kennedyjd@my-deja.com
Re: Win98, PWS4, ActivePerl - Help with Paths <gellyfish@gellyfish.com>
Re: Working on an Array of Hashes: "using $_->{ }" <kbandes@home.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 21 Oct 1999 20:27:25 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: a tree of subdirectories in perl?
Message-Id: <7unsvd$cda$1@gellyfish.btinternet.com>
On Wed, 20 Oct 1999 20:48:49 -0200 Joyce Ynoue wrote:
> Does anybody know how to implement in perl something like described
> below??
>
>>tree usr
>
Ah you must be in the same class as those other guys ...
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Thu, 21 Oct 1999 16:09:34 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: a tree of subdirectories in perl?
Message-Id: <380F810E.5064DBEC@texas.net>
Joyce Ynoue wrote:
>
> Does anybody know how to implement in perl something like described
> below??
Your professor probably does. Office hours may be available. I'd take
a look at the syllabus.
In fact, out of the goodness of my heart, I've gone ahead and CC'ed your
professor. I hope that will assist you in your quest for knowledge.
> >tree usr
>
> usr
> bin
> temp
> linux
> unix
> dos
>
> bin, temp and dos are subdirectories of usr
> linux and unix are subdirectories of temp
>
> Thanks
No problem.
HTH. HAND.
- Tom
------------------------------
Date: Thu, 21 Oct 1999 14:25:58 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: a tree of subdirectories in perl?
Message-Id: <MPG.127924c0b127e2e798a0f1@nntp.hpl.hp.com>
In article <7unsvd$cda$1@gellyfish.btinternet.com> on 21 Oct 1999
20:27:25 -0000, Jonathan Stowe <gellyfish@gellyfish.com> says...
> On Wed, 20 Oct 1999 20:48:49 -0200 Joyce Ynoue wrote:
> > Does anybody know how to implement in perl something like described
> > below??
> >
> >>tree usr
>
> Ah you must be in the same class as those other guys ...
unicamp.br => Universidade Estaduel de Campinas
Should we just *plonk* all posts from Campinas State University? Nah...
Actually, there has been enough discussion already so that any of those
students smart enough to post the question here should also have been
smart enough to see that it had already been answered. So maybe
*plonk*ing the university is right, after all. :-)
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 22 Oct 1999 04:59:08 +0800
From: simon <blchan@pacific.net.sg>
Subject: bind invalid argument
Message-Id: <380F7E9C.A30CB2A0@pacific.net.sg>
Hi,
I'm trying out a client/server model utilizing stream sockets for
communication
using both client and server on the same machine, and the client
simply reads a greating message from server and prints on screen.
This is a very simple program yet I couldn't seem to figure out what's
wrong with it.
I got "Invalid argument" when I try to bind the sock to the file e.g.
Server Started
Socket OK
Bind Invalid argument
I try it on both Linux and Solaris with same result. I'm using
perl, version 5.004_04.
TIA.
Rgds,
Simon
.
.
.
print "Server Started\n";
$AF_UNIX=1;
$SOCK_STREAM=1;
$PROTOCOL=0;
socket(SERVERSOCKET,$AF_UNIX,$SOCK_STREAM,$PROTOCOL)||
die "Socket $!\n";
print "Socket OK\n";
$name="./greetings";
unlink "./greetings" || warn "$name:$\n";
$addr="127.0.0.1";
#bind(SERVERSOCKET,$name) || die "Bind $!\n";
bind(SERVERSOCKET,"$addr") || die "Bind $!\n";
print "bind OK\n";
.
.
.
------------------------------
Date: Thu, 21 Oct 1999 14:32:59 -0700
From: "Maurice Maltbia" <maurice.maltbia@intel.com>
Subject: Re: Can't FTP to unix after Stripping ^M's from files under NT
Message-Id: <7uo0q8$9mq@news.or.intel.com>
Larry,
Thanks for a great solution to stripping the ^M's.
I am using FTP in the Win32::Internet module to tranfer the stripped files,
but
they will not transfer to my unix host. FTP works great on the same file
before stripping it.
Do you have any suggestions?
Maurice Maltbia
Intel Corporation
Larry Rosler wrote in message ...
>In article <380e46aa$0$203@nntp1.ba.best.com> on 20 Oct 1999 22:48:10
>GMT, Josh Geller <dclxvi@best.com> says...
>
> open FILE, $file or
> die "Couldn't open '$file'. $!\n";
> open NEWFILE, ">$file.new" or
> die "Couldn't open '$file.new'. $!\n";
> binmode NEWFILE;
> print NEWFILE while <FILE>;
>
>--
>(Just Another Larry) Rosler
>Hewlett-Packard Laboratories
>http://www.hpl.hp.com/personal/Larry_Rosler/
>lr@hpl.hp.com
------------------------------
Date: Thu, 21 Oct 1999 15:30:31 -0500
From: Nathaniel Abram Mishler <nmishler@uiuc.edu>
Subject: Re: Can't get Perl working with Apache
Message-Id: <380F77E6.BB9910EF@uiuc.edu>
I'm having the same troubles as you only I'm running the Win32 version
of 1.3.9.
I keep generating the Internal Server Error
The server encountered an internal error or misconfiguration and was
unable to complete your request...
My cgi script starts with #!/usr/bin/perl.
My error.log says: [Thu Oct 21 07:37:05 1999] [error] [client "ip"]
(2)No such file or directory: couldn't spawn child process: c:/program
files/apache/cgi-bin/readinput.cgi
But I have checked and double-checked the directory and the
readinput.cgi document IS in the folder.
Any advice?
Thanks in Advance
------------------------------
Date: Thu, 21 Oct 1999 13:35:50 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Check whether a string is numeric, mixed or only characters
Message-Id: <MPG.127918fcab671d9398a0ef@nntp.hpl.hp.com>
In article <MPG.12790abfdc91363098a0ee@nntp.hpl.hp.com> on Thu, 21 Oct
1999 12:35:04 -0700, Larry Rosler <lr@hpl.hp.com> says...
...
> I think the suggestion in the response by Alan Curry, to use '\z'
> instead of '$' as the end anchor, is good. Perhaos the FAQ should be
> revised to show that. I've mailed that thought to
> perlfaq-suggestions@perl.com, as Tom Christiansen doesn't live here any
> more.
Here is my suggestion:
> Perhaps those regexes that use '$' as an end anchor should be changed to
> use '\z' instead. The latter probably didn't exist when the FAQ was
> written.
Here is Tom's response:
> Nor does it probably exist on most people's systems.
>
> As far as I'm concerned, '$' has always meant the end. These
> fufi additions like \z and \Z are subintuitive and marginal.
>
> --tom
That might influence our posting (and our coding?).
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 21 Oct 1999 12:06:24 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: chomp() nested in split() doesn't work - why?
Message-Id: <0mdnu7.obg.ln@magna.metronet.com>
rev_bhagwan@my-deja.com wrote:
: chomp() does not behave the way I expect
You sign contracts without reading them first?
Calling a function (signing the contract) without reading
what it will do is Russian Roulette.
*Especially* when it doesn't do what you guessed it would do!
In that case, it is time to give up on guessing, and go look
it up in perlfunc.
: example 2:
: @title = ();
: @avail = ();
: @type = ();
: $prodfile = 'c:\perl\mdat\products.txt';
: open(prods,$prodfile) || die 'couldn\'t open products file';
You should print the value of the $! special variable in
your die(), it tells you _why_ it failed.
This script will suddenly stop working when Perl v6.X introduces
a new "prods" keyword.
You should stick to the convention of upper case FILEHANDLES
to avoid that problem.
You should be using the -w switch too you know.
No sense spending seconds/minutes of human-time chasing
problems that your 'puter can find for you in milliseconds...
: $rec_num=0;
: while ($record = <prods>) {
: ($title[$rec_num],$type[$rec_num],$avail[$rec_num]) =
: split(/,/,chomp($record));
Note what perlfunc says chomp will return.
You are trying to split an integer. There probably aren't
many commas in it :-)
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 21 Oct 1999 20:54:53 GMT
From: jrw32982@my-deja.com
Subject: exiting non-zero at end of perl -[np]
Message-Id: <7unuir$kk4$1@nnrp1.deja.com>
How can I exit with a non-zero return code when using perl -n or perl
-p?
What I want to do is something like:
perl -ne 'exit 0 if /.../; END { exit 1 }'
I get an exception if I try to exit from an END block. If I set
$SIG{__DIE__} and die from the END block, I get the signal handler
calling itself several times before finally dying, which is pretty ugly.
There must be a better way. Or should I just give up and code the perl
-[np] loop by hand? I wish there were some sort of $RC global variable
which controlled the default return code when perl runs off the end of a
script. Or on the other hand, I wish I could exit from an END block
without getting an exception. What have I missed?
John Wiersba
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 21 Oct 1999 20:27:30 GMT
From: pacman@defiant.cqc.com (Alan Curry)
Subject: Re: Expr or block as 1st param: Compiler magic needed?
Message-Id: <SGKP3.26271$E_1.1403257@typ11.nn.bcandid.com>
In article <MPG.127907c3b909876598a0ec@nntp.hpl.hp.com>,
Larry Rosler <lr@hpl.hp.com> wrote:
>print any_expr_or_block(qw(foo foobar)), "\n";
>print any_expr_or_block(qw(foo baz)), "\n";
>print any_expr_or_block(sub { /foo/ }, qw(foobar)), "\n";
>print any_expr_or_block(sub { /foo/ }, qw(baz)), "\n";
But that's not like grep. With grep, you can omit the "sub" keyword before
your anonymous sub. That's the compiler magic.
--
Alan Curry |Declaration of | _../\. ./\.._ ____. ____.
pacman@cqc.com|bigotries (should| [ | | ] / _> / _>
--------------+save some time): | \__/ \__/ \___: \___:
Linux,vim,trn,GPL,zsh,qmail,^H | "Screw you guys, I'm going home" -- Cartman
------------------------------
Date: 21 Oct 1999 21:19:22 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: file attachments
Message-Id: <7uo00q$cdn$1@gellyfish.btinternet.com>
On Thu, 21 Oct 1999 18:00:46 GMT Brett W. McCoy wrote:
> I've seen something like 5 or 6 uuencoded files in this newsgroup this
> week. Correct me if I'm wrong, but aren't they netiquettely incorrect in
> non *.binary.* newsgroups?
>
Yes.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 21 Oct 1999 20:37:19 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: file upload
Message-Id: <7unthv$cdd$1@gellyfish.btinternet.com>
On Thu, 21 Oct 1999 08:06:58 -0700 Larry Rosler wrote:
> In article <380f2576_1@newsread3.dircon.co.uk> on 21 Oct 1999 15:38:46
> +0100, Jonathan Stowe <gellyfish@gellyfish.com> says...
>> CS <@mdo.net> wrote:
>
> ...
>
>> > open INFILE, "<$myfile";
>>
>> Except that you really must check that the file was opened successfully:
>>
>> open INFILE, "$myfile" or die "Cant open $myfile - $!\n";
>
> I would move the first two quotes to where they might be useful (for
> example, leading or trailing spaces in the filename):
>
> open INFILE, $myfile or die "Cant open '$myfile' - $!\n";
>
Er, yes - I have to admit that I went "yyjjjpjlllllllllllllllllx" etc
without thinking too much about it ... The astute observer will know
that if I had typed it out afresh I would have put :
open(INFILE,$myfile) || die "Can't open $myfile - $!\n";
;-}
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Thu, 21 Oct 1999 20:34:06 GMT
From: Johannes <jspangen@my-deja.com>
Subject: Re: Formatting 42 to $42.00
Message-Id: <7untbv$joi$1@nnrp1.deja.com>
In article <7unjum$cji$1@nnrp1.deja.com>,
steveeq1@earthlink.net wrote:
> I searched a few books and couldn't find info on this one. Does anyone
> know how to format numbers in Perl to a specific format? I used to use
> the "format" command in Visual Basic, but I don't know how to do it in
> Perl. Basically, I need:
>
> 42
>
> to become
>
> $42.00
>
> or 42.1
>
> to
>
> $42.10
>
> I assume there is a module or something that makes life easy on me.
You don't need a module for that,
try sprintf and have a look at "man printf"
For your example use:
print sprintf "\$%.2f\n", 42.1;
$42.10
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 21 Oct 1999 14:10:34 -0700
From: shylock <junkNOjuSPAM@tfw.net.invalid>
Subject: Help substituting '/' ?
Message-Id: <0a0133f8.71573350@usw-ex0101-008.remarq.com>
I'm trying to strip / (forward slashes) off a report using perl.
ex:
$line =~ s/\///;
any advice?
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: 21 Oct 1999 21:27:46 GMT
From: mbadolato@quepasa.com (Mark Badolato)
Subject: Re: Help substituting '/' ?
Message-Id: <36454.60400498BFE0mbadolatoquepasacom@4.22.39.123>
On 21 Oct 1999, junkNOjuSPAM@tfw.net.invalid (shylock) wrote in
<0a0133f8.71573350@usw-ex0101-008.remarq.com>:
>I'm trying to strip / (forward slashes) off a report using perl.
>ex:
>$line =~ s/\///;
>
>any advice?
Use a different delimiter so that you don't need to escape the slash,
and add the g switch if you want all instances removed.
$line =~ s!/!!g;
--mark
------------------------------
Date: Thu, 21 Oct 1999 21:36:38 GMT
From: not@this.address (Sebastian)
Subject: Re: Help substituting '/' ?
Message-Id: <7uo135$5lk@dfw-ixnews17.ix.netcom.com>
In article <0a0133f8.71573350@usw-ex0101-008.remarq.com>, shylock <junkNOjuSPAM@tfw.net.invalid> wrote:
>I'm trying to strip / (forward slashes) off a report using perl.
>ex:
>$line =~ s/\///;
>
>any advice?
$line =~ s!/!!g;
$line =~ s=/==g;
$line =~ s?/??g;
You can use any non-alphanumeric, non-whitespace delimiters you want.
------------------------------
Date: Thu, 21 Oct 1999 16:25:45 -0400
From: Jing Shi <Jing.Shi@usa.alcatel.com>
Subject: Re: How can print a HTML file?
Message-Id: <380F76C9.FB4B4351@usa.alcatel.com>
Will that print out the file with all the HTML tags?
Yes, I can use HTML::Parse to get rid of those tags. But I mean
how I can get the print out just like I print it from Netscape?
BTW, is HTML::Parse same as HTML::Parser? If not, where can I get it?
Thanks for your help
Makarand Kulkarni wrote:
> Jing Shi wrote:
>
> > How can I write a Perl program to print out (from the printer) a HTML
> > file without open the Netscape (or other browser)?
>
> write a short script using LWP::Simple or LWP::UserAgent that
> gets the required page. Then pipe this to lpr
> --
------------------------------
Date: Thu, 21 Oct 1999 14:08:07 -0700
From: shylock <junkNOjuSPAM@tfw.net.invalid>
Subject: How do you substitute '/' ?
Message-Id: <17599f0b.70b34094@usw-ex0101-008.remarq.com>
Having trouble getting perl to susbstitute / (forward slash)
using $line =~ s/\///;
Any advice?
Thanks
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Thu, 21 Oct 1999 21:42:57 GMT
From: "Don Stefani" <customk9@home.com>
Subject: HTML Mail
Message-Id: <BNLP3.3598$2a.24241@news1.frmt1.sfba.home.com>
I have a free Mail list program that I would like to send html in the body
of the message.
The body tags in the cgi script are
print "Body of the e-mail:<br>\n";
print "<textarea name=\"body\" cols=\"60\" rows=\"10\"
wrap=\"virtual\"></textarea><br>\n";
Is this were I would make changes to use html in the body?
If so, and if it's not too much hassel, could someone tell me how?
Thanks,
DJS
------------------------------
Date: 21 Oct 1999 19:59:46 GMT
From: lt lindley <ltl@rgsun5.viasystems.com>
Subject: Re: in need of example...
Message-Id: <7unrbi$pos$1@rguxd.viasystems.com>
Neko <tgy@chocobo.org> wrote:
:>On Thu, 21 Oct 1999 07:32:06 -0700, Larry Rosler <lr@hpl.hp.com> wrote:
:>>Just one reason. Please?
:>From DirHandle:
:> The only objective benefit to using DirHandle is that it avoids
:> namespace pollution by creating globs to hold directory handles.
Well, so did the local typeglob assignment that Larry did. So that
isn't a good enough reason.
--
// Lee.Lindley /// I used to think that being right was everything.
// @bigfoot.com /// Then I matured into the realization that getting
//////////////////// along was more important. Except on usenet.
------------------------------
Date: 21 Oct 1999 20:16:16 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Language resource / module
Message-Id: <7unsag$cd6$1@gellyfish.btinternet.com>
On 21 Oct 1999 15:40:37 GMT Bianka Martinovic wrote:
>
> I'd like to extract all the output of a script and put it into an external
> file, so I'm able to use the same script with different languages just
> changing the external file.
>
There was an article by Sean M. Burke and Jordan Lachler in issue #13
of The Perl Journal about localizing Perl programs - well worth a look
if you are engaged in this stuff - you can order back issues at :
<http://www.tpj.com>
I am however baffled as to what is causing your problem .
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Thu, 21 Oct 1999 16:33:55 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: NEED URGENT HELP
Message-Id: <380F86C3.E67538BC@texas.net>
Tom Renic wrote:
>
> Does anyone know how to use cgi on Personal Web Server?
>
> I can't get anything to work.
>
> HELP!
Gosh, I'm afraid I can't help with that, but...
Do you know what barbecue sauce goes best with penguin?
I can't find a good one.
HELP!
- Tom
------------------------------
Date: Thu, 21 Oct 1999 13:09:02 -0700
From: Samay <samay1NOsaSPAM@hotmail.com.invalid>
Subject: Net::FTP
Message-Id: <0a0133f8.64353b62@usw-ex0101-006.remarq.com>
Hi, At URL:
http://www.perl.com/reference/wrap.cgi?net-ftp
I found how they use it.. But never found Net::FTP
I want it for Winodws..
Anyhelp appriciated..
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Thu, 21 Oct 1999 14:35:22 -0700
From: "Maurice Maltbia" <maurice.maltbia@intel.com>
Subject: Re: Net::FTP
Message-Id: <7uo0un$9sp@news.or.intel.com>
Try Win32::Internet at Activestate:
http://www.activestate.com/packages/zips/
File: http://www.activestate.com/packages/zips/Win32-Internet.zip
Samay wrote in message <0a0133f8.64353b62@usw-ex0101-006.remarq.com>...
>Hi, At URL:
>http://www.perl.com/reference/wrap.cgi?net-ftp
>I found how they use it.. But never found Net::FTP
>I want it for Winodws..
>
>
>Anyhelp appriciated..
>
>
>
>
>* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network
*
>The fastest and easiest way to search and participate in Usenet - Free!
>
------------------------------
Date: 21 Oct 1999 21:02:03 GMT
From: email55555@aol.com (Email55555)
Subject: New short cut assignment operators?
Message-Id: <19991021170203.15878.00000104@ng-cr1.aol.com>
Hello All,
This is not a discussion about operator "??" (hookhook)!
This is about short cut assignment operators : +=, -=, *=, ... etc
When I use Perl (or C/C++), I always have this question in my mind:
we have invented +=, -=, *=, >>= ... etc for facility, why do we not have
similar shortcut assignment operators for no commutative operation?
For example :
We have $a -= $b; which is like $a = $a - $b;
And for $a = $b - $a; why not $a =- $b;
Another example :
$a .= $b; ( it's like $a = $a . $b; )
Why not $a =. $b; (it's like $a = $b . $a; )
... etc
The space (or newline) between operator and operant is important to avoid
ambiguity,
We already have this situation in Perl for operator x= .
e.g.: $ax=4; is not the same as $a x=4;
If we accept operator =- , that means $a=-3; ( same as $a = -3;) is not same as
$a =- 3;
( I hope there are not very many programmers who use this kind of style :-) )
( Note: you can't write $a =. 3; ==> compilation error. )
The choice of writing is open, maybe not =-, =/, =., =||, =&& ... etc maybe
!-=, !/=, !.=, …etc or …
I do not want to complicate Perl, I'm just curious. If we invented -=, /=,
…etc.
Why not the same for the converse?
(Note: I often have the code like this, $a = $b . $a; so the shortcut maybe
useful in this situation. )
Any input?
Thanks for listening,
Hao (David) Tran
------------------------------
Date: 21 Oct 1999 21:15:23 GMT
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: New short cut assignment operators?
Message-Id: <7unvpb$nup$1@internal-news.uu.net>
Email55555 <email55555@aol.com> wrote:
[snipped "reversed" shortcuts]
> The space (or newline) between operator and operant is important to avoid
> ambiguity,
> We already have this situation in Perl for operator x= .
> e.g.: $ax=4; is not the same as $a x=4;
Having syntax depend on whitespace is a bad thing and should be
avoided as much as possible.
Erik
------------------------------
Date: Thu, 21 Oct 1999 16:23:54 -0500
From: Jerry Preston <g-preston1@ti.com>
Subject: NEWBIE ARRAY QUESTION
Message-Id: <380F846A.4C52A75C@ti.com>
I just cannot get the hang of it. I need to pass an array form one sub to an
other. I have defined the array as a global:
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$query=new CGI;
@foo = $query->param('foo');
I input some data into @foo in a sub 'do_foo':
sub do_foo {
@foo = qw( 1 2 3 4 5 6 7 8 );
print "foo data ** @foo **";
# all the data in the @foo is printed
}
In another sub, say 'display_foo':
sub display_foo {
print "foo data ** @foo **";
}
Nothing prints to the screen!
I know it has to be simple, but what am I doing wrong?
Thanks in advance!
Jerry
------------------------------
Date: Thu, 21 Oct 1999 14:54:45 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: NEWBIE ARRAY QUESTION
Message-Id: <MPG.12792b7f2a2a127b98a0f3@nntp.hpl.hp.com>
Both ALL CAPS and newbie in the Subject: header is likely to get your
post ignored by many potential readers.
In article <380F846A.4C52A75C@ti.com> on Thu, 21 Oct 1999 16:23:54 -
0500, Jerry Preston <g-preston1@ti.com> says...
> I just cannot get the hang of it. I need to pass an array form one sub to an
> other. I have defined the array as a global:
>
> use CGI;
> use CGI::Carp qw(fatalsToBrowser);
> $query=new CGI;
>
> @foo = $query->param('foo');
>
> I input some data into @foo in a sub 'do_foo':
What about the data you put in with the line above?
> sub do_foo {
> @foo = qw( 1 2 3 4 5 6 7 8 );
...
> }
>
> In another sub, say 'display_foo':
>
> sub display_foo {
> print "foo data ** @foo **";
> }
>
> Nothing prints to the screen!
>
> I know it has to be simple, but what am I doing wrong?
Are you quite sure you called do_foo() before you called display_foo()?
This whole style of programming using global variables is rather
sickening, to my taste. Maybe this problem shows you why. Too bad
'Baby Perl' encourages it.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 21 Oct 1999 20:13:09 GMT
From: petolino@joe.Eng.Sun.COM (Joe Petolino)
Subject: Re: news.announce.newusers (was: what is SHTML ?)
Message-Id: <7uns4l$p1$1@engnews2.Eng.Sun.COM>
>Maybe that's what we should say to every off-topic or FAQ-asking poster.
>
>"We won't answer this. You didn't read news.announce.newusers."
It's been well over a decode since I've been a new usenet user, so I
thought I'd take a look, too. At the risk of offending the clpm regulars,
I'll quote the second paragraph of the 'Rules for posting to Usenet'
article. Pay particular attention to the last two sentences.
Some newsgroups are intended for discussions and some for announcements
or queries. It is not usually a good idea to carry on discussions in
newsgroups that are designated otherwise. It is never a good idea to
carry on "meta-discussions" about whether a given discussion is
appropriate -- such traffic mushrooms until nobody can find articles
that belong. If you are unhappy with what some user said, send him/her
mail, don't post it.
But then, I'm probably violating this rule by posting to this thread.
The rules about reading the FAQs and documentation first (which I heartily
agree with, of course) don't come until paragraph 18.
While you're in news.announce.newusers, you might also take a look at the
etiquette pointers in the 'A Primer on Working With the Usenet Community'
article.
http://www.netannounce.org/news.announce.newusers/
-Joe
------------------------------
Date: Thu, 21 Oct 1999 21:44:02 GMT
From: cwoodsy@my-deja.com
Subject: Obtaining a users login username
Message-Id: <7uo1f1$mr9$1@nnrp1.deja.com>
Hi,
When a user logs into my site using the .htaccess method, is there
any way that I can get the username with a perl script, so I can
display it and have a unique web page according to who is logged in?
Thanks,
Chris Woods
cwwoodsy@yahoo.com
---
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 21 Oct 1999 11:41:49 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: SGML/HTML parsing tool
Message-Id: <t7cnu7.obg.ln@magna.metronet.com>
Randal L. Schwartz (merlyn@stonehenge.com) wrote:
: >>>>> "kent" == kent <kent@darwin.eeb.uconn.edu> writes:
: >>>>> "Randal" == Randal L Schwartz <merlyn@stonehenge.com> writes:
: Randal> For #1, I'm currently building a tool using
: Randal> Parse::RecDecent that takes a DTD to generate a recursive
: kent> <snip>
: Randal> I can now see why SGML/HTML is a dead-end, and XML/XHTML
: Randal> will rock.
I was gonna mention something the first time I saw that, and
since it is quoted here, I'll just throw in my comment now :-)
If the Web is the Final Destination for your document, then
what Randal says there is true.
I expect that is the case for most readers here.
If however, the Web is merely _one_ of the ways you need
your data output, then it is the inverse: XML is a dead-end,
and SGML rocks!
Some of the bits of SGML that got axed to create XML are
exceedingly useful to publishers of large, long-lived,
complex documents.
Like most of my clients, heh, heh. :-)
I keep the "truth copy" of my data in SGML. It is a rather
simple matter to translate it to HTML, XML, etc... whenever
those output formats are required.
(note also that the w3c _could_ have defined HTML as an SGML
application and still disallowed omitted tags and whatnot,
making it easy to parse.
Those features can be configured in the "SGML Declaration".
But they chose not to, probably in the spirit of
"being generous in what you accept", even if that allows
the data to be hard to process. Oh well. <shrug>
)
: Randal> Those optional close-tags are *hard*, and XML
: Randal> has none such.
: kent> Just curious, are you using Parse::RecDescent rather than SGMLS
: kent> because it allows a pure Perl solution, or is there some other
: kent> advantage?
: Partially to increase my knowledge of how P::RD works, partially
: because I want a flexible toolbase that I can build from to add
: pretty-printing, error-recovery, general rewrites, scanning and
: extracting, etc. SGMLS probably doesn't have that.
nsgmls (sgmls is way out of date) is an application built
with a toolkit (in C++).
SP (the toolkit) likely gives visibility to at least some of
those things, but who wants to write C++ instead of Perl?
I hope you are planning to hard-wire it to HTML, rather than
try and make a general-purpose SGML parser, 'cause SGML has
some features that make parsing hard. Sounds like you have
already found out first hand though :-)
Omitted tags are not at the top of the "hard things" to parse
in arbitrary SGML though.
I expect "exceptions", in particular "exclusions", to provide
code-contortions. I think this feature rules out using standard
compiler-compilers like yacc for making general-purpose SGML
parsers. Best to avoid them if you can (they are, of course,
disallowed in XML :-)
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 21 Oct 1999 21:24:38 GMT
From: dsparling <dsparling@my-deja.com>
Subject: Re: stealing the news: how hard can it be?
Message-Id: <7uo0ai$lvj$1@nnrp1.deja.com>
I'm curious of the legal ramifications if I want to do this on a
commercial site...I've written a Perl CGI script to pull weather info
from rainorshine.com that I'd like to use on one of my projects.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 21 Oct 1999 20:19:51 GMT
From: rancorr@hotmail.com
Subject: Re: subroutine
Message-Id: <7unsh3$j71$1@nnrp1.deja.com>
sorry, if i wasn't more clear. here's why i'm trying to do:
$newString = PrepareTextForDB($string);
sub PrepareTextForDB {
my $textToBeConverted = @_;
$_ = $textToBeConverted ;
s/'/''/g;
$textToBeConverted = $_;
return $textToBeConverted;
}
Even when I pass in a valid $string, the result of PrepareTextForDB is
always the number "1". How can I get it to return the actual new
string?
In article <7ulv9n$75a$2@rguxd.viasystems.com>,
lee.lindley@bigfoot.com wrote:
> rancorr@hotmail.com wrote:
> :>how do i get a subroutine to return a string? the result i get from
> :>the subroutine is always a scalar.
>
> Ummm. Is this a trick question?
>
> --
> // Lee.Lindley /// I used to think that being right was everything.
> // @bigfoot.com /// Then I matured into the realization that getting
> //////////////////// along was more important. Except on usenet.
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 21 Oct 1999 20:39:59 GMT
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: subroutine
Message-Id: <7untmv$mqr$1@internal-news.uu.net>
rancorr@hotmail.com wrote:
> sorry, if i wasn't more clear. here's why i'm trying to do:
> $newString = PrepareTextForDB($string);
1 > sub PrepareTextForDB {
2 > my $textToBeConverted = @_;
3 > $_ = $textToBeConverted ;
4 > s/'/''/g;
5 > $textToBeConverted = $_;
6 > return $textToBeConverted;
7 > }
In a scalar context, an array is evaluated to the number of elements
in it. So in line 2, textToBeConverted gets the value 1.
To retrieve the value of the first argument to a subroutine:
my $textToBeConverted = $_[0];
Lines 3-5 are rather cumbersome. You could have done:
$textToBeConverted =~ s/'/''/g;
Erik
------------------------------
Date: 21 Oct 1999 21:14:40 GMT
From: lt lindley <ltl@rgsun5.viasystems.com>
Subject: Re: subroutine
Message-Id: <7unvo0$rgg$1@rguxd.viasystems.com>
rancorr@hotmail.com wrote:
:>sorry, if i wasn't more clear. here's why i'm trying to do:
:>$newString = PrepareTextForDB($string);
:>sub PrepareTextForDB {
:> my $textToBeConverted = @_;
:> $_ = $textToBeConverted ;
:> s/'/''/g;
:> $textToBeConverted = $_;
:> return $textToBeConverted;
:>}
:>Even when I pass in a valid $string, the result of PrepareTextForDB is
:>always the number "1". How can I get it to return the actual new
:>string?
It will help you learn Perl if you learn to use the debugger.
I don't see that advice handed out here often, but it has
been very much help to some of my coworkers and I have found
it to be useful when something isn't working the way I expect.
perl -d your_script_name
b line_number_of_line_where_you_want_it_to_stop
c
x $textToBeConverted
Well what do you know. It is the number 1. Now how did that
get there? Well, you are assigning to that variable the
value of "an array in scalar context." Further reading will
show that this can be useful elsewhere, but not here.
The common idiom is to write that as:
my $textToBeConverted = shift;
# or
my ($textToBeConverted) = @_;
# or if you like
my $textToBeConverted = @_[0];
HTH.
--
// Lee.Lindley /// I used to think that being right was everything.
// @bigfoot.com /// Then I matured into the realization that getting
//////////////////// along was more important. Except on usenet.
------------------------------
Date: Thu, 21 Oct 1999 14:17:46 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: subroutine
Message-Id: <MPG.127922d7a6ff397b98a0f0@nntp.hpl.hp.com>
In article <7unsh3$j71$1@nnrp1.deja.com> on Thu, 21 Oct 1999 20:19:51
GMT, rancorr@hotmail.com <rancorr@hotmail.com> says...
> sorry, if i wasn't more clear. here's why i'm trying to do:
>
> $newString = PrepareTextForDB($string);
>
> sub PrepareTextForDB {
> my $textToBeConverted = @_;
Here you are assigning an array to a scalar. The value assigned is the
size of the array, not the value of its first element.
my ($textToBeConverted) = @_;
my $textToBeConverted = $_[0];
my $textToBeConverted = shift;
> $_ = $textToBeConverted ;
> s/'/''/g;
> $textToBeConverted = $_;
> return $textToBeConverted;
> }
All your flipping around of variables is unnecessary. Read in perlop
about the =~ operator (binding).
my $textToBeConverted = shift;
$textToBeConverted =~ s/'/''/g;
return textToBeConverted;
ObPerlGolf:
sub PrepareTextForDB { (my ($x) = @_) =~ s/'/''/g; $x }
All spaces except the first one are optional.
There is also a function in DBI that does this for you, as well as
surround the value with single-quotes for insertion into an SQL
statement. Look in `perldoc DBI` for $dbh->quote(...).
> Even when I pass in a valid $string, the result of PrepareTextForDB is
> always the number "1". How can I get it to return the actual new
> string?
Even rudimentary debugging skills would have led you to print the value
of either $testToBeConverted or $_ *before* doing the substitution.
Then we might not have had to enjoy this thread.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 21 Oct 1999 14:47:24 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: subroutine
Message-Id: <MPG.127929c54f7ce4bd98a0f2@nntp.hpl.hp.com>
In article <7unvo0$rgg$1@rguxd.viasystems.com> on 21 Oct 1999 21:14:40
GMT, lt lindley <ltl@rgsun5.viasystems.com> says...
...
> It will help you learn Perl if you learn to use the debugger.
> I don't see that advice handed out here often, but it has
> been very much help to some of my coworkers and I have found
> it to be useful when something isn't working the way I expect.
I suggested using 'print' statements. Old tools in old hands?
> my $textToBeConverted = shift;
> # or
> my ($textToBeConverted) = @_;
> # or if you like
> my $textToBeConverted = @_[0];
What did '-w' tell you about that last one?
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 21 Oct 1999 21:31:55 GMT
From: pete@theory2.phys.cwru.edu (Peter J. Kernan)
Subject: Re: Substitution
Message-Id: <slrn80v1ib.g7g.pete@theory2.phys.cwru.edu>
On Wed, 20 Oct 1999 22:49:41 -0700, Larry Rosler <lr@hpl.hp.com> wrote:
.=The browser doesn't have to DWIM anything, especially not the '<p>'s,
.=which would uglify the output irreparably.
agreed. <br>'s would be more sensible. (HTML)
.=
.=Look back at the code you cut out from my post:
.=
.= print "Content-Type: text/plain\n\n";
.=
.=I can think of only one word to comment about this:
.=
.= Gotcha!
*ouch* shanked that one, should have checked in the hole after all.
--
Pete
------------------------------
Date: Thu, 21 Oct 1999 20:20:24 GMT
From: pacman@defiant.cqc.com (Alan Curry)
Subject: Re: Underlying data structure behind blessed reference.
Message-Id: <cAKP3.26260$E_1.1403217@typ11.nn.bcandid.com>
In article <Pine.GSO.4.10.9910211539130.15158-100000@crusoe.crusoe.net>,
Jeff Pinyan <japhy@pobox.com> wrote:
>Content-Type: TEXT/PLAIN; charset=US-ASCII
Shouldn't that be text/pod, so it can be killfiled along with all the other
posts that aren't really text/plain?
>possible, let's employ this knowledge: all Perl references, when used in
>a double quoted context, have, as their last 9 characters, a string
>matching this regex: C</\(0x[a-f0-9]{5}\)\z/>. This is seen in this
>example: C<SCALAR(0xc6250)>.
Where did you get the idea that pointer values always have 5 digits?
perl -le 'print "${\\1}"'
SCALAR(0x80cd684)
--
Alan Curry |Declaration of | _../\. ./\.._ ____. ____.
pacman@cqc.com|bigotries (should| [ | | ] / _> / _>
--------------+save some time): | \__/ \__/ \___: \___:
Linux,vim,trn,GPL,zsh,qmail,^H | "Screw you guys, I'm going home" -- Cartman
------------------------------
Date: Thu, 21 Oct 1999 17:31:31 -0400
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: Underlying data structure behind blessed reference.
Message-Id: <Pine.GSO.4.10.9910211729590.15158-100000@crusoe.crusoe.net>
> Where did you get the idea that pointer values always have 5 digits?
Whoa, it appears my test cases were too few in number. Below is the
corrected regex.
($real) = $obj =~ /([A-Z]+)\(0x[a-f0-9]+\)\z/;
--
MIDN 4/C PINYAN, USNR, NROTCURPI
jeff pinyan japhy@pobox.com
perl stuff japhy+perl@pobox.com
CPAN ID: PINYAN http://www.perl.com/CPAN/authors/id/P/PI/PINYAN/
------------------------------
Date: Thu, 21 Oct 1999 21:13:24 GMT
From: kennedyjd@my-deja.com
Subject: Very New Perl User question
Message-Id: <7unvlh$lgg$1@nnrp1.deja.com>
Hi all,
I have a script for Win NT / Perl:
<%@ Language=PerlScript%>
<%
use diagnostics;
$Host = $ENV{'REMOTE_ADDR'};
$AF_INET = "2";
if ( $Host =~ m#^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$#o ) {
($a,$b,$c,$d)=($1,$2,$3,$4);
$IPN=pack('C4',$a,$b,$c,$d);
($name,$aliases,$addrtype,$length,@addrs)=gethostbyaddr($IPN,$AF_INET);
$name = "Unknown" if (! $name);
}
$Domain = substr($name,-3,3);
%>
<html>
<head>
<title>IP / Hostname</title>
</head>
<body>
<BR>The Host name for <%=$Host%> is <%=$name%>
<BR>The domain is <%=$Domain%>
</body>
</html>
The problem is that if I assign $Host with a IP address, it works, yet
in the current state $Host and $name are blank.
Thoughts?
TIA,
-- Joe
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 21 Oct 1999 20:42:32 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Win98, PWS4, ActivePerl - Help with Paths
Message-Id: <7untro$cdg$1@gellyfish.btinternet.com>
On Wed, 20 Oct 1999 18:25:51 -0600 Tyler M. wrote:
> I know I should be looking harder for the answer, and I am sure this proves
> I am new to Perl.
>
So that it makes false laziness alright ...
>
> Can't open perl script "C:\Inetpub\wwwroot\vote.cgi": No such file or
> directory
> --- End of Error Message ---
>
>
> The cgi-bin files are in C:\Inetpub\wwwroot\cgi-bin\vote.cgi not the
> directory above in the error message.
>
Yes but you are not asking for the file located there - look again at the
error message ...
If you have further problems you might get a better answer in the group:
comp.infosystems.www.servers.ms-windows
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Thu, 21 Oct 1999 17:20:53 -0400
From: Kenneth Bandes <kbandes@home.com>
Subject: Re: Working on an Array of Hashes: "using $_->{ }"
Message-Id: <380F83B5.618BF41E@home.com>
Pfash1 wrote:
> Trying to compare two arrays of hashes. There is confirmation of a match but
> when I try to use the $_->{ } to get string I end up with nothing. See my
> comments in the code below:
> #!perl #-w
ditch that extra #
> open (FH, 'file.db') || die &error_file;
> my @replies;
> {
> local $/ = "---------------------------------\n";
> while (<FH>)
> {
> chomp;
> if ( s/^>\n> To: (.*)\n+>\n> Sender's Name: (.*)\n//)
> {
> push @replies, {mentor => $1, student => $2, replies => $_};
> foreach (@sent_emails) #here is the comparison to the other array.
What's in @sent_emails? Where did it come from?
> {
> if( $_->{from} eq $2) #"$_->{from}" is from the other array.
> {
> print "there is a reply to a student's email\n"; #this tells me that the
> arrays are being compared and there are matches but....
> push (@certain_replies, $_->{replies}); #... why can't I push the
> corresponding strings into this array?
We don't know what @sent_emails contains, but apparently its elements
have a different structure than @replies. Apparently, elements
have a from field, which @replies elements don't have. Are
you sure, conversely, that @sent_emails elements have a
replies field? Try debugging to this point and displaying
the contents (x $_->{replies}). Maybe you're just pushing
undef. Or maybe you really mean this $_ to be for the outer
loop, in which case try a loop variable somewhere, e.g.
while(my $msg = <FH>) etc., and use $msg->{replies}.
> }
> }
> }
> }
> close <FH>;
> }
> print "REPLIES THAT MATCH SENDERS:@certain_replies"; #this shows nothing
Ken Bandes
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 1144
**************************************
