[8734] in Perl-Users-Digest
Perl-Users Digest, Issue: 2351 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Apr 17 15:07:32 1998
Date: Fri, 17 Apr 98 12:00:36 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 17 Apr 1998 Volume: 8 Number: 2351
Today's topics:
Re: Array / List question (Abigail)
Re: CLPM CONTENT POLICE (was info on cookies) (I R A Aggie)
Re: CLPM CONTENT POLICE (was info on cookies) <grinch@whoville.com>
compile GD.pm :perlio.h: No such file or directory <vnarahar@on.bell.ca>
Re: Deleting cookies from PERL (brian d foy)
Re: Easy way to count lines in a file <rootbeer@teleport.com>
file upload <jayadev.gopinath@fmr.com>
Re: Fork in perl/NT ? <merlyn@stonehenge.com>
Re: Help me! <david.x.corcoran@boeing.com>
Re: How to get only 2 decimal notation? <zenin@archive.rhps.org>
Re: How to get only 2 decimal notation? (Jim Allenspach)
Re: how to remove blanks? <zenin@archive.rhps.org>
Re: How to run Perl cgi on Nt Server ? (Jonathan Stowe)
Re: IIS 4.0, PW32i316, CGI Programs (Jonathan Stowe)
Re: info on cookies (brian d foy)
Re: LWP::Simple::get/HTACCESS Question <merlyn@stonehenge.com>
Re: Making E-mail with Perl <rootbeer@teleport.com>
matching <ez062634@mailbox.ucdavis.edu>
Re: matching <grinch@whoville.com>
Re: Memory Leak? Embedding into C <ez062634@mailbox.ucdavis.edu>
Re: Multi-tasking/threading <rra@stanford.edu>
Re: ODBC and Perl <kirby.james@btinternet.com>
Re: Pb with LWP <aas@sn.no>
Re: PERL aware code editor <gurun@acc.umu.se>
Re: perl from webpage dont work. perl works local but n <rootbeer@teleport.com>
perl on windows <jayadev.gopinath@fmr.com>
Re: Problem executing without using: Perl foo.pl <dballing@speedchoice.com>
Problems with 'wait' under perl5.004 <francm@jeeves.fi.gs.com>
Re: reading values from multi-select list <rootbeer@teleport.com>
Re: Server Side Include <gurun@acc.umu.se>
Re: Snobby news group <grinch@whoville.com>
Re: Snobby news group (brian d foy)
Re: Snobby news group (Phil Ptkwt Kristin)
Tied filehandle question (Sean McAfee)
Re: understanding Perl<->.html forms? (Jonathan Stowe)
Re: unpacking multiple binary shorts (WORDS) <rootbeer@teleport.com>
Re: What does "Illegal modulus zero" mean? (Andre L.)
Re: What does "Illegal modulus zero" mean? <lr@hpl.hp.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 17 Apr 1998 18:31:44 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Array / List question
Message-Id: <6h876g$7l2$1@client3.news.psi.net>
Kevan Granat (kevan@nol.net) wrote on MDCXC September MCMXCIII in
<URL: news:01bd6a12$c0d82bf0$326d5cc0@kevan>:
++ I'm not sure if this option was posted yet...
++ to modify all elements of an array w/o a loop, the camel book (1st ed,
++ p221)
++ suggests:
++
++ grep($_ *= 2, @Array) ;
++
++ which is quite handy, I think, for s/// operations...
++
++ grep(s/this/that/g, @Array) ;
Eeew. If you want to do that, please use map {}.
But even then. While handy in a one liner typed from the command line,
I would find it too magical to be in code that needs to be maintained.
++ Note that @Array only includes the elements that had a successful
++ substitution, though. Sometimes you have to use:
++
++ grep(s/this/that/g || 1, @Array) ;
Uhm, no. While grep might modify elements of @array, it will not delete
them.
Personally I would write it as:
@array = map {s/this/that/g; $_} @array;
or
foreach (@array) {s/this/that/g}
The latter is probably the most efficient as well.
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET", "http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content)) =~ /(.*\))[-\s]+Additional/s) [0]'
------------------------------
Date: Fri, 17 Apr 1998 13:31:57 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: CLPM CONTENT POLICE (was info on cookies)
Message-Id: <fl_aggie-1704981331570001@aggie.coaps.fsu.edu>
In article <Pine.GSO.3.95.980417103643.19418C-100000@cp.pathfinder.com>,
"Andrew F. Lee" <andrewf@cp.pathfinder.com> wrote:
+ Abigail, I find your one liners to be insipid and a waste. I would ask
+ that you refrain from posting unless you have something useful to say.
I finally understand the title of this subject. Andrew F. Lee is
the chief of the CLPM CONTENT POLICE.
+ By useful I mean, in particular, more than "RTFM" or "That's not Perl". I
+ know that.
And those answers are not useful _how_? Just because _you_ know them doesn't
imply that the person _asking_ knows that, nor does it imply that the
lurkers among us know that.
Actually, given the number of FAQ's asked time and again, I'd have to say
that a significant number don't know that.
+ Now, I will take my own advice and drop this and just ignore your posts.
Yes, you'll be far too busy policing the content of this newsgroup...
James
--
Consulting Minister for Consultants, DNRC
The Bill of Rights is paid in Responsibilities - Jean McGuire
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/CPAN-local/doc/FAQs/cgi/idiots-guide.html>
------------------------------
Date: Fri, 17 Apr 1998 14:24:26 -0400
From: "Grinch" <grinch@whoville.com>
Subject: Re: CLPM CONTENT POLICE (was info on cookies)
Message-Id: <6h85u8$7qv@fridge.shore.net>
I R A Aggie wrote in message ...
>In article <Pine.GSO.3.95.980417103643.19418C-100000@cp.pathfinder.com>,
>"Andrew F. Lee" <andrewf@cp.pathfinder.com> wrote:
>
>+ By useful I mean, in particular, more than "RTFM" or "That's not Perl".
I
>+ know that.
>
>And those answers are not useful _how_?
They typically don't tell the user what RTFM stands for, where TFM can be
found, or offer any guidance as to which newsgroup _would_ be more
appropriate.
>Just because _you_ know them doesn't
>imply that the person _asking_ knows that, nor does it imply that the
>lurkers among us know that.
Please, consider your own statement as it applies to what I said above.
-grinch
--
-----
"Yes, I'm paranoid, but that doesn't mean
no one's out to get me." - me
Sherm Pendley
grinch@whoville.com
http://www.whoville.com
------------------------------
Date: Fri, 17 Apr 1998 14:24:02 -0400
From: Viswanatham Narahari <vnarahar@on.bell.ca>
Subject: compile GD.pm :perlio.h: No such file or directory
Message-Id: <35379E42.2195@on.bell.ca>
Hi,
I am trying to compile GD.pm(GD-1.18) on solaris 2.5.1 with the
following instructions. The error says I do not have perlio.h. Does
perl 5.003
comes with this file or should I go with other version of Perl ?. Any
help will be appreciated.
regards
Viswa
------------------------------
--
a perl Makefile.PL
b make
d make install
--
$ perl Makefile
MakeMaker (v5.34)
Writing Makefile for libgd
Writing Makefile for GD
$
.
$ make
DEFINE=''; export DEFINE INC; \
cd libgd && make -e all
gcc -c -I/usr/local/include -O -DVERSION=\"0.10\"
-DXS_VERSION=\"0.10\" -fpic -I/opt/LWperl/lib/sun4-solaris/5.003/CORE
gdfontg.c
gcc -c -I/usr/local/include -O -DVERSION=\"0.10\"
-DXS_VERSION=\"0.10\" -fpic -I/opt/LWperl/lib/sun4-solaris/5.003/CORE
gdfontmb.c
gcc -c -I/usr/local/include -O -DVERSION=\"0.10\"
-DXS_VERSION=\"0.10\" -fpic -I/opt/LWperl/lib/sun4-solaris/5.003/CORE
gdfontt.c
gcc -c -I/usr/local/include -O -DVERSION=\"0.10\"
-DXS_VERSION=\"0.10\" -fpic -I/opt/LWperl/lib/sun4-solaris/5.003/CORE
gdfontl.c
gcc -c -I/usr/local/include -O -DVERSION=\"0.10\"
-DXS_VERSION=\"0.10\" -fpic -I/opt/LWperl/lib/sun4-solaris/5.003/CORE
gdfonts.c
gcc -c -I/usr/local/include -O -DVERSION=\"0.10\"
-DXS_VERSION=\"0.10\" -fpic -I/opt/LWperl/lib/sun4-solaris/5.003/CORE
libgd.c
rm -rf libgd.a
ar cr libgd.a gdfontg.o gdfontmb.o gdfontt.o gdfontl.o gdfonts.o
libgd.o && : libgd.a
chmod 755 libgd.a
gcc -c -I/usr/local/include -O -DVERSION=\"1.18\"
-DXS_VERSION=\"1.18\" -fpic -I/opt/LWperl/lib/sun4-solaris/5.003/CORE
GD.c
GD.c:21: perlio.h: No such file or directory
*** Error code 1
make: Fatal error: Command failed for target `GD.o'
------------------------------
Date: Fri, 17 Apr 1998 14:00:39 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Deleting cookies from PERL
Message-Id: <comdog-ya02408000R1704981400390001@news.panix.com>
Keywords: from just another new york perl hacker
In article <6h614l$6rb$2@newsreader.digex.net>, mshannon@lds.com posted:
>Short of making the user close the browser, is there anyway to do this
>programatically?
the the cookie references in the CGI Meta FAQ. they give examples
of how to accomplish this.
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers <URL:http://www.pm.org>
------------------------------
Date: Fri, 17 Apr 1998 18:19:55 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Tommy <tkho@technologist.com>
Subject: Re: Easy way to count lines in a file
Message-Id: <Pine.GSO.3.96.980417111746.8799B-100000@user2.teleport.com>
On Thu, 16 Apr 1998, Tommy wrote:
> @Lines= <ACCESS>
> $NumOfLines= $#Lines;
No. Although we all make mistakes, this is wrong in at least two ways. I'm
pretty sure that you didn't check this code, the other postings in this
thread, or the FAQ before you posted it. Please try to do so next time.
Thanks!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 17 Apr 1998 14:32:15 -0400
From: Jayadev Gopinath <jayadev.gopinath@fmr.com>
Subject: file upload
Message-Id: <3537A02F.DACF946@fmr.com>
What are the modules that I need to have to write a file upload utility
on Win NT and where do I get them ??
Thanx
jayadev
------------------------------
Date: Fri, 17 Apr 1998 18:18:29 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
To: emmanuel_astier@yahoo.com
Subject: Re: Fork in perl/NT ?
Message-Id: <8clnt4fh2n.fsf@gadget.cscaper.com>
>>>>> "emmanuel" == emmanuel astier <emmanuel_astier@yahoo.com> writes:
emmanuel> I'm making a HTTP-client in order to test a NT-web-server
emmanuel> with a simulation of 100 hits.
emmanuel> I first made the prog on Unix, using a Fork and signals to
emmanuel> have the request sent at the same time.
emmanuel> But the 100 requests saturate our developpement network, so
emmanuel> I'd like to have the same kind of prog localy, on the NT
emmanuel> server. But I don't know what to do with (1) the fork; (2)
emmanuel> the signals.
emmanuel> How can I do multiprocess/multithread/multi-whatever with Perl on NT ??
I wrote such a driver without the use of signals or fork, using the
new "Parallel" UserAgent that fits into LWP. It's great for stress
testing my CGI scripts. I'd release what I've got, but it's horribly
underdocumented. I'm hacking on it for a potential future
WebTechniques column... so it'll slowly be beaten into shape.
Unfortunately, it's currently just 68 lines of merlyn-dense Perl code
without comments. :-)
But until that gets done, check into LWP::Parallel in the CPAN... it
may be able to do exactly what you wish (without me telling you how :-).
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 136 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Fri, 17 Apr 1998 17:52:53 GMT
From: David Corcoran <david.x.corcoran@boeing.com>
To: Yurik <yurik5@usa.net>
Subject: Re: Help me!
Message-Id: <353796F5.4B6C@boeing.com>
Yurik wrote:
>
> I'm interested in processing data from WEB pages,
> the problem is I'm copletely lost in all these CGI and PERL scripting
> references.
> Can somebody tell me what I need to write a simple CGI or what ever
> script which will take data from 'text field' on the WEB page after I
> press 'submit' button and save the data to the file on the server.
> I'll appriciate any examples.
>
> Thanks,
> Yurik.
> mailto:yurik5@usa.net
These may help:
http://208.16.5.2/~myrkatz/journal/cgitutor/
http://www.genome.wi.mit.edu/ftp/pub/software/WWW/examples
http://www.genome.wi.mit.edu/ftp/pub/software/WWW/cgi_docs.html
------------------------------
Date: 17 Apr 1998 17:40:11 GMT
From: Zenin <zenin@archive.rhps.org>
Subject: Re: How to get only 2 decimal notation?
Message-Id: <892835240.572318@thrush.omix.com>
tony <td@lavalink.com.au> wrote:
>snip<
: Any ideas of what to use if your number has leading zeros?
: perl -e 'print sprintf("%.2f\n", 01.000)'
: 10.00
Bare numbers with leading zeros in perl code as in C
are considered in octal format, thus the "unexpected"
output. This really isn't a problem however, as using a
string version doens't have this problem:
perl -e 'print sprintf("%.2f\n", "01.000")'
1.00
Even if you pick it up from somewhere else, you still need
to stick it in a variable or return it from a function at
which point it is still not a bare number:
perl -e '$foo = "01.000"; print sprintf("%.2f\n", $foo)'
1.00
The only case you run into problems is with an eval()ed string (not
block), but the use of such is a rare case that is easily corrected
for.
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: 17 Apr 1998 13:05:24 -0500
From: jima@MCS.COM (Jim Allenspach)
Subject: Re: How to get only 2 decimal notation?
Message-Id: <6h85l4$3nc@Mars.mcs.net>
td@lavalink.com.au (tony) writes:
>perl -e 'print sprintf("%.2f\n", 00.000)'
>0.00
>perl -e 'print sprintf("%.2f\n", 01.000)'
>10.00
>perl -e 'print sprintf("%.2f\n", 01.999)'
>1999.00
>perl -e 'print sprintf("%.2f\n", 10.999)'
>11.00
Suddenly, a whole new field of obfuscated Perl comes into view.
(Not being sarcastic here; I really am amused by this new (to me) wrinkle
in Perl syntax.)
The first 3 numbers in your examples are being parsed as two
numbers being concatenated together (0 . 0, 1 . 0, and 1 . 999), giving the
strings '00', '10', and '1999' respectively. These strings are then
interpreted as floats by sprintf, and yada yada yada.
How do we know this? A couple quick tests:
% perl -e 'print sprintf("%.2f\n", 01.00.00)'
100.00
% perl -e 'print sprintf("%.2f\n", 03.014)'
312.00
The first case produces the string '100' (didn't know you could write
"01.00.00.00", didja?), and the second case creates a string of "3" catted
with octal 014, which turns out to be decimal 12. (Use this second trick on
your worst enemies, or in code you yourself won't be maintaining, whichever
comes first.)
Anyways, to answer the question posed in the beginning, leading
zeros will probably only be a hassle if you directly type in the numbers
into your script, as tony did above, or if you do assignments like
> $x = 03.014; # gets "312", and can cause headaches
If you're reading in numbers that have leading 0's, the number will be
parsed properly. It's only when you've got the constants typed directly
as numbers (you THINK) into your script that weird things happen.
% perl -e '$x = "03.014"; printf "%.2f\n", $x'
3.01
I'm still trying to figure out if this syntax is a bug, a feature,
or a curse. Considering how my day's been going so far, I'm leaning towards
curse. But as I say, it'll make for some very interesting ObfuscPerl.
jma
--
jima at mcs dot com
Chicago, IL Perl programmers do it
http://www.streams.com/jima/ with one hump.
------------------------------
Date: 17 Apr 1998 17:53:45 GMT
From: Zenin <zenin@archive.rhps.org>
Subject: Re: how to remove blanks?
Message-Id: <892836055.73298@thrush.omix.com>
Sami Sandqvist <samiss@cc.tut.fi> wrote:
>snip<
: Also, this is a FAQ. The easiest way is
: $string =~ s/^\s*(.*?)\s*$/$1/;
: but doing
: $string =~ s/^\s+//;
: $string =~ s/\s+$//;
: is faster.
Or somewhere in between, where we still only have one line of code,
but it's nearly as fast as the two line version:
$string =~ s/(?:^\s+|\s+$)//g;
Benchmark: timing 100000 iterations of FAQ, EASIEST, ZENIN...
EASIEST: 10 secs ( 9.33 usr -0.01 sys = 9.32 cpu)
TWO_PART: 3 secs ( 3.05 usr 0.00 sys = 3.05 cpu)
ZENIN: 4 secs ( 4.90 usr 0.00 sys = 4.90 cpu)
But then, we're talking nanoseconds now (note the 100k iterations).
:-)
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: Thu, 16 Apr 1998 00:45:16 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: How to run Perl cgi on Nt Server ?
Message-Id: <35355440.325046@news.btinternet.com>
On Thu, 16 Apr 1998 13:41:57 +0100, Jvrg Lenz <joerg@gustavsburg.de>
wrote:
>Sean Kerr wrote:
>>
>> Hello
>>
>> I would like to find out how to run Perl cgi scripts on NT servers if
>> someone could help me with this it would be greatly appreciated.
>>
<snip>
>
>You gotta Register it, depending on the used server, in your registry.
>For MS-IIS, start your regedit, lookup
>
<snip accurate response>
This is all very laudable and I'm sure I have been guilty of this
oversight myself before but you missed out the bit about addressing
further questions of this nature to a more appropriate forum such as:
comp.infosystems.www.servers.ms-windows
or the FAQ thereof rather. There is also a reasonable amount of
documentation with IIS (But as I have pointed out before not PWS).
The question could apply equally to using QBasic for CGI as I'm sure
you'll recognise. (Oh yes you *can* do CGI in QBasic - you'll
see;-}).
/J\
Jonathan Stowe
See the MetaFaq at http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm
------------------------------
Date: Thu, 16 Apr 1998 00:45:19 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: IIS 4.0, PW32i316, CGI Programs
Message-Id: <353467dd.7683293@news.btinternet.com>
On Wed, 15 Apr 1998 15:58:59 -0600, mkirsch@didax.com wrote:
>Problem 1:
>
>Perlis.dll does not pass command line arguments correctly via the web. That
>is, invoking the URL
Uh Huh,
>
>http://www.myserver.com/myprogram.pl?Argument1&Argument2...&Argumentn
>
Right
>causes the myprogram.pl to execute, but @ARGV is empty.
>
Ah,
You need to examine the CGI spec. The interface does not work as you
seem to expect it to - however it does do it *correctly* . A clue
would be for me to suggest that these are not really command line
arguments as you might use in some shell. You should have the module
CGI.pm: the documentation and use of this could be an enlightening
experience for you.
>
>
>Problem 2:
>
>The association of .pl with %perldir%\bin\perl.exe %s %s does not work as
>advertised. Perl is invoked, but just sits there without doing anything -- we
>are guessing that no arguments are being passed in via the %s %s.
>
This is not a perl question. But see the answer to Problem 1 above.
You might look at your servers documentation to see what the %s stands
for. A more appropriate forum for the discussion of your servers
configuration is comp.infosystems.www.servers.ms-windows
>
>Does anyone know the solution to either of the above problems (we really want
>to see problem 1 solved, since it is so much more efficient to use perlis.dll
>than perl.exe via the web)?
>
A moot point. perlis is based on an older revision of perl than the
current standard binary release. ISAPI in general has some drawbacks
which may result in the failure of your HTTP server as reported here a
couple of weeks before. For myself I see infact a subjective
decrease of speed with IsapiPerl against using perl.exe.
>
>Thanks for any help in this.
>
No problem
/J\
Jonathan Stowe
See the MetaFaq at http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm
------------------------------
Date: Fri, 17 Apr 1998 14:05:15 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: info on cookies
Message-Id: <comdog-ya02408000R1704981405150001@news.panix.com>
Keywords: from just another new york perl hacker
In article <ltyax5unv6.fsf@asfast.com>, Lloyd Zusman <ljz@asfast.com> posted:
>comdog@computerdog.com (brian d foy) writes:
>> >But there is an elegant, Perl-based solution to it.
>>
>> oh really? which one would that be? you do it the same way in other
>> languages, so it's not Perl specific. perhaps you haven't read the
>> cookie info referenced in the CGI Meta FAQ.
>(1) the use of the Perl "CGI" module and its "cookie()" method.
i got confused when you said "elegant" :) i guess our definitions
differ...
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers <URL:http://www.pm.org>
------------------------------
Date: Fri, 17 Apr 1998 18:21:23 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
To: turnerj@cliffy.lmtas.lmco.com (Jim Turner)
Subject: Re: LWP::Simple::get/HTACCESS Question
Message-Id: <8chg3sfgxu.fsf@gadget.cscaper.com>
>>>>> "Jim" == Jim Turner <turnerj@cliffy.lmtas.lmco.com> writes:
Jim> Has anyone successfully used LWP::Simple::get() or any of the other
Jim> LWP:: module routines to fetch web-pages which require user-authentication?
Jim> Is there a way to pass the required user-name and password information to
Jim> LWP?
LWP::Simple is for *simple* requests. As soon as you want to do
something like POST or do auth or cookies or something, you need to go
the fullblown LWP::UserAgent route. "perldoc lwpcook" is your friend
in this case, and says something like:
ACCESS TO PROTECTED DOCUMENTS
Documents protected by basic authorization can easily be
accessed like this:
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$req = new HTTP::Request GET => 'http://www.sn.no/secret/';
$req->authorization_basic('aas', 'mypassword');
print $ua->request($req)->as_string;
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 136 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Fri, 17 Apr 1998 18:23:11 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Michael Helldin <king_pellinore@hotmial.com>
Subject: Re: Making E-mail with Perl
Message-Id: <Pine.GSO.3.96.980417112157.8799C-100000@user2.teleport.com>
On Fri, 17 Apr 1998, Michael Helld=E9n wrote:
> And I want to move the files after I have sent them to this directory.
> How do I do that?
With rename, generally. Hope this helps!
--=20
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 17 Apr 1998 11:14:06 -0700
From: Michael Nguyen <ez062634@mailbox.ucdavis.edu>
Subject: matching
Message-Id: <Pine.GSO.3.96.980417111216.16551C-100000@dogbert.ucdavis.edu>
is there a way for me to search through an array(file) for a particular
string, word, etc that would dump it out into an array of matches? (Other
than going through the file line by line.. ie foreach )
thanks
------------------------------
Date: Fri, 17 Apr 1998 14:45:30 -0400
From: "Grinch" <grinch@whoville.com>
Subject: Re: matching
Message-Id: <6h875n$98s@fridge.shore.net>
Michael Nguyen wrote in message ...
>is there a way for me to search through an array(file) for a particular
>string, word, etc that would dump it out into an array of matches?
Check out the grep() function.
-grinch
--
-----
"Yes, I'm paranoid, but that doesn't mean
no one's out to get me." - me
Sherm Pendley
grinch@whoville.com
http://www.whoville.com
------------------------------
Date: Fri, 17 Apr 1998 11:04:42 -0700
From: Michael Nguyen <ez062634@mailbox.ucdavis.edu>
To: Ken Fox <fox@vulpes.com>
Subject: Re: Memory Leak? Embedding into C
Message-Id: <Pine.GSO.3.96.980417110217.16551B-100000@dogbert.ucdavis.edu>
On Thu, 16 Apr 1998, Ken Fox wrote:
> It's been a while since I played with this stuff, but you'll need to set
> MULTIPLICITY when you build perl. I can't remember if the resulting
> perl
> is binary compatible with all your existing perl modules either -- be
> careful and read the docs.
>
> > The command interpreters (known as doprocs) do die when they aren't used for
> > a while, and I could set up a single command interpreter to handle perl, and
> > use inter-process communication (message queues and so forth), but I'd rather
> > just call a script from inside the process and keep things simple(r).
>
> I'm not sure why you need to resort to a single process and IPC just to
> share
> an interpreter in a single process. All I suggested is that instead of
> starting
> multiple interpreters in a process, just start one and reuse it. You're
> not
> threading are you? That will cause all sorts of trouble in 5.004. I'd
> start
> one perl interpreter in a single thread and then mutex lock access to
> it.
> Kind of heavy handed, but at least it's safe...
how does one go about sharing one process in win95? I run a server that
runs several scripts and it seems like every time i run the script a new
interpreter is loaded into memory. This will eventually cause network
traffic to stop since the server free memory would be totally converted
into swappable,
thanks
> > I would just think that a Perl_destruct would undo anything a Perl_construct
> > would do, just as a common sense matter. It sounds like Perl has a problem.
>
> Everything has design limitations. ;) You might want to consider that
> creating
> a new interpreter is quite expensive. If you've already done it once in
> your
> process, why do it again? Take a look at mod_perl for an excellent
> example of
> embedding perl. You might be able to get some insight on how to embed
> it more
> effectively within your own application.
>
> BTW, you don't want to use 5.004_65 in a production application. That's
> the
> development track and can be very unstable. At the very least, it's
> going to
> change faster than you can possibly keep track of. ;) Until 5.005 (or a
> new
> production release of 5.004), you'll just have to work around any perl
> bugs.
>
> - Ken
>
>
------------------------------
Date: 17 Apr 1998 11:25:04 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Multi-tasking/threading
Message-Id: <m3ra2wl30f.fsf@windlord.Stanford.EDU>
Zenin <zenin@archive.rhps.org> writes:
> The *only* reasons I'm looking forward to threads in Perl are for
> easier and safer sharing of complex data structures across
> multiple threads of execution when dealing with GUI apps and heavy
> parsing apps that run on SMP boxes. It's not that the threads are
> much or any faster then processes on SMP boxes, but easier sharing
> of complex data structures makes coding a small few of my
> applications easier and cleaner.
*nod* And I'm looking forward to threads for easy implementation of an
event loop using some of the techniques Malcolm has talked about,
hopefully involving the ability to do safe asych signal handling.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: 17 Apr 1998 18:35:28 GMT
From: "Kirby James" <kirby.james@btinternet.com>
Subject: Re: ODBC and Perl
Message-Id: <01bd6a2d$064a5810$3d3b63c3@kanga>
Hi,
I had a similar problem. I has worked out that you have to set up a System
DSN (cos you call the Perl script as IUSER_somebody) and thye DSN must be
available to all users.
I made the mistake of setting a local DSN then a System DSN with the same
name, the system can't cope with this - but it doesn't tell you so.
Put some print statements in your script so you can print out the user name
under which your process is running.
Good Luck
Kirby
===============================================
Gareth Dunlop <dunlopg@bathroom.tibus.net> wrote in article
<892830606.1368@sparc.tibus.net>...
> I am using Perl to talk to an Access database via ODBC on a WinNT
platform. I
> have completed a script which works fine running it through a command
shell, and
> returns my output perfectly.
------------------------------
Date: 17 Apr 1998 20:02:32 +0200
From: Gisle Aas <aas@sn.no>
Subject: Re: Pb with LWP
Message-Id: <m3af9knx6v.fsf@furu.g.aas.no>
emmanuel_astier@yahoo.com writes:
> And in my results, I obtain answers like : 650 sec.
> Am I wrong, or 240 is smaller than 650 ? So why doesn't the request end with a
> timeout ?
The LWP timeout is not a total limit on the time allowed per request.
It is a limit on the time allowed without any observed activity from
the server end.
--
Gisle Aas
------------------------------
Date: Fri, 17 Apr 1998 20:21:46 +0200
From: N i c l a s O l o f s s o n <gurun@acc.umu.se>
Subject: Re: PERL aware code editor
Message-Id: <35379DBA.B83AD3C8@acc.umu.se>
Mattias Eriksson wrote:
> You can use vim 5.0 under win95 also. That way you have the same easy to
> use :) editor in both environments.
Yippie!
Join to bugs into one giant! Excellent solution!!
------------------------------
Date: Fri, 17 Apr 1998 18:32:53 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: IceStaff <acidbolt@yahoo.com>
Subject: Re: perl from webpage dont work. perl works local but not as cgi.
Message-Id: <Pine.GSO.3.96.980417112907.8799D-100000@user2.teleport.com>
On 17 Apr 1998, IceStaff wrote:
> here is some code i took from a webpage that doesent work.
[ code snipped ]
Here's something else that doesn't work.
print "In what way doesn't it work?
> and here is code that works local but not as cgi
[ more code snipped ]
> can someone help me with this problems?
Replace the first code with the second. :-)
When you're having trouble with a CGI program in Perl, you should first
look at the please-don't-be-offended-by-the-name Idiot's Guide to solving
such problems. It's available on CPAN.
http://www.perl.com/CPAN/
http://www.perl.org/CPAN/
http://www.perl.org/CPAN/doc/FAQs/cgi/idiots-guide.html
http://www.perl.org/CPAN/doc/manual/html/pod/
> i want to know how to send to a ip with a certin port some data.
> and resive data.
That's in perlipc. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 17 Apr 1998 14:24:36 -0400
From: Jayadev Gopinath <jayadev.gopinath@fmr.com>
Subject: perl on windows
Message-Id: <35379E64.54E68FB@fmr.com>
I am new to PERL on the windows env although I have used Perl with unix.
I have a cgi script in perl that I want to run when the user POST's a
form.
How can I get the web server(enteprise 3.5.1) to recognise that the
script is a perl script??
Right now, I am creating a batch file which has a single line
perl perl_script.
I am using this as the cgi program.
But, how do I pass the STDIN to the perl_script if I use the above
method??
Any help would be appreciated.
Thnx
jayadev
------------------------------
Date: Fri, 17 Apr 1998 12:17:13 -0500
From: Derek Balling <dballing@speedchoice.com>
Subject: Re: Problem executing without using: Perl foo.pl
Message-Id: <7F0A80C9B1394124.85D807A5D1195B07.AC5C2E9D023A100B@library-proxy.airnews.net>
Jonathan Feinberg wrote:
>
> Stephanie Sante' <ssante@concentric.net> writes:
>
> > We are running perl on Solaris 2.5.1. Although my 1st line in the script
> > is: #!/usr/local/bin/perl5.00 -w
>
> Are you *quite* sure that the file
>
> /usr/local/bin/perl5.00
>
> really exists and is executable?
>
> > However, when I use: perl foo.pl things execute just fine.
>
> What does it say when you type
>
> $ perl -v
Better silly question:
Is the x bit set on the perl script in question?
------------------------------
Date: Fri, 17 Apr 1998 18:37:05 +0100
From: Michael Francis FIR LDN <francm@jeeves.fi.gs.com>
Subject: Problems with 'wait' under perl5.004
Message-Id: <35379340.FDD9615E@gs.com>
I am writing a job control module in perl. This allows me to monitor the
status of a number of processes and to check if they are running for
more that a desired amount of time (to do this an alarm is fired about
every 10 seconds, and the run time for the module is calculated,
processes that are running for too long are killed and the logfiles
emailed.)
The module worked correctly under perl5.001, we have now upgraded to
version 5.004. The symptom is that wait always returns -1 even though
the process has spawned a number of child processes. This only occurs
following a sigalarm . Does anybody know why this is the case? and if
there is any way around this?
Thanks in advance
Mike
------------------------------
Date: Fri, 17 Apr 1998 18:40:32 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Glenn Schworak <Glenn.J.Schworak@state.or.us>
Subject: Re: reading values from multi-select list
Message-Id: <Pine.GSO.3.96.980417113619.8799E-100000@user2.teleport.com>
On Fri, 17 Apr 1998, Glenn Schworak wrote:
> I have used the cgi.pl
Maybe you mean CGI.pm?
> to read in parameters passed from a form for some time now. But just ran
> in to a small problem. I can't figure out how to read a list of results
> when there is a multi-select list on my form.
> $mypage->param('listbox') will hold the entire list of all selected
> items.
> @mylist = $mypage->param('listbox') only copies out the 1st item in the
> list
Really? That second one is in the docs for CGI.pm as having different
behavior. Can you cut your code down to a small example script (say, under
10 lines) which shows this bug?
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 17 Apr 1998 20:43:06 +0200
From: N i c l a s O l o f s s o n <gurun@acc.umu.se>
Subject: Re: Server Side Include
Message-Id: <3537A2BA.9D6FB05B@acc.umu.se>
Jerry wrote:
> Is there any way to write one line in HTML that will run a PERL script
> that just prints part of a web page? I'm not interested in having the
> entire page CGI..
>
> E-Mail me if you have any insite.
>
> Thanx in advance.
If your server is capabel of doing SSI (Apache for eq) just put in the
following (one:) line...
<!--#include file="abigailcouldnotanswerit.html" -->
If you want to read more about SSI go to this article at "Apache
Week"...
http://www.apacheweek.com/features/ssi.html
Cheers,
/Niclas
------------------------------
Date: Fri, 17 Apr 1998 13:47:51 -0400
From: "Grinch" <grinch@whoville.com>
Subject: Re: Snobby news group
Message-Id: <6h83pl$5go@fridge.shore.net>
Database Coder wrote in message <6h82ft$69c$1@news.scruz.net>...
>Why is this such a snobby unhelpful news group.
While I definitely agree that there's a certain amount of "highway snobbery"
going on, this is still an _extremely_ helpful group. You just need to spend
a bit of time digging through all the oysters in order to find the perls...
:-)
-grinch
--
-----
"Yes, I'm paranoid, but that doesn't mean
no one's out to get me." - me
Sherm Pendley
grinch@whoville.com
http://www.whoville.com
------------------------------
Date: Fri, 17 Apr 1998 14:07:25 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Snobby news group
Message-Id: <comdog-ya02408000R1704981407250001@news.panix.com>
Keywords: from just another new york perl hacker
In article <6h82ft$69c$1@news.scruz.net>, "Database Coder" <dbcoder@juno.com> posted:
>Why is this such a snobby unhelpful news group. I have posted in many other
>news groups and always recieved polite and helpful responses. This news
>group is the exception. The amount of time you people spend asking people if
>they read the FAQ or bought a good book on PERL could have been spent
>helping the person.
helping people learn to answer there own questions figures heavily
into the philosophy of a lot of people here.
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers <URL:http://www.pm.org>
------------------------------
Date: Fri, 17 Apr 1998 18:32:15 GMT
From: ptkwt@user1.teleport.com (Phil Ptkwt Kristin)
Subject: Re: Snobby news group
Message-Id: <6h877d$1ko$1@user1.teleport.com>
Keywords: from just another new york perl hacker
In article <comdog-ya02408000R1704981407250001@news.panix.com>,
brian d foy <comdog@computerdog.com> wrote:
>In article <6h82ft$69c$1@news.scruz.net>, "Database Coder" <dbcoder@juno.com> posted:
>
>>Why is this such a snobby unhelpful news group. I have posted in many other
>>news groups and always recieved polite and helpful responses. This news
>>group is the exception. The amount of time you people spend asking people if
>>they read the FAQ or bought a good book on PERL could have been spent
>>helping the person.
I totally disagree with your argument. I've found this to be one of the
most helpful newsgroups. Whenever I've posted questions I get
knowledgeable and PROMPT replies to my queries - Kudos to all the helpful
folks here. Perhaps its the way you pose your questions?
>
>helping people learn to answer there own questions figures heavily
>into the philosophy of a lot of people here.
You know what they say, Give a man a fish and he eats for a day. Teach a
man how to fish and he has food for a lifetime... Or to paraphrase: give a
man an opened oyster and he won't get any peals, teach him how to shuck
his hown oysters and he can find his own pearls. ;-)
pt
------------------------------
Date: Fri, 17 Apr 1998 17:35:50 GMT
From: mcafee@pacman.rs.itd.umich.edu (Sean McAfee)
Subject: Tied filehandle question
Message-Id: <WpMZ.431$p5.2292748@news.itd.umich.edu>
One of my projects at work involves parsing several report files generated
by a legacy application. Naturally, I chose Perl for this task.
For some reason, these files often have null characters as padding instead
of spaces (typically in places where a data field is blank). I originally
addressed this issue by piping the files through /bin/tr before letting my
parsing routines have them, but later I figured this would be an ideal
opportunity to venture into one of the last areas of Perl I haven't
explored yet: "tie".
My package is pretty simple:
package denullify;
# Example of use: tie *FH, 'denullify', \*STDIN;
sub TIEHANDLE {
my ($class, $handle) = @_;
bless \$handle; # safer than blessing the glob ref itself, I think
}
sub READLINE {
my $globref = ${shift;};
my $line = <$globref>;
$line =~ tr/\000/ /;
$line;
}
The first time I tried to use these routines in my main program (after
debugging them in short standalone scripts), I ran into trouble:
open(IN, $file) || die "Can't open $file: $!\n";
tie *XIN, 'denullify', \*IN;
parse(*XIN);
sub parse {
local *IN = shift;
while (<IN>) { ... }
}
This didn't work; I got no input from IN in parse(). The following,
however, *did* work:
open(IN, $file) || die "Can't open $file: $!\n";
tie *XIN, 'denullify', \*IN;
parse(\*XIN);
sub parse {
my $in = shift;
while (<$in>) { ... }
}
My question is, why does the second form work and the first form not work?
My program chugs merrily along using the second form; this is just to
satisfy my curiosity. (Perhaps it's the last fragment of Perl 4 programmer
in my soul refusing to die, but the <$glob> syntax just feels awkward to
me, and I usually don't use it unless necessary.)
--
Sean McAfee | GS d->-- s+++: a25 C++ US+++$ P+++ L++ E- W+ N++ |
| K w--- O? M V-- PS+ PE Y+ PGP?>++ t+() 5++ X+ R+ | mcafee@
| tv+ b++ DI++ D+ G e++>++++ h- r y+>++** | umich.edu
------------------------------
Date: Thu, 16 Apr 1998 00:45:23 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: understanding Perl<->.html forms?
Message-Id: <35347132.10072695@news.btinternet.com>
On Wed, 15 Apr 1998 17:47:45 -0600, Dan Baker <dtbaker_@flash.net>
wrote:
<snip>
>. ... Am I making a rash
>assumtion that I cannot use some html like:
> <form method=POST action="file:/somelocalbin/someprog.pl">
> <input name=firstvar size=20>
> ...whatever, and submit
>
>to pass some data to my perl program?
>
Yes, It instinctively seems at first though as if it should work but
sadly it doesnt. your action has to be something like:
<FORM METHOD="POST" ACTION="http://someserver/somebindir/someprog">
and thus take place through the auspices of an HTTP server *for CGI to
happen at all*. (This is all getting well out of the scope of this
group but I might as well go on.) When you submit a form from a
browser the /directory/file?query part of the URL is sent to the
server (assuming this is not a proxy) This happens in a slightly
different way for GET and POST but the pronciple is the same. The
server then sorts out the program name from the query string executes
the program (in a manner mutually appropriate to server and program)
and then passes the query string to the program via the mechanisms as
described in the CGI specification. The program then interprets the
information thus passed it in some manner of its authors devising and
acts appropriately passing information in a manner prescribed by the
CGI spec back to the server which then passes the page back to the
browser using HTTP.
You might have noticed that not once in the above did I mention Perl
or indeed any programming language at all. The program could be
written in LOGO (well actually I doubt it could be, but you see what I
mean) but the process of communication between browser and program via
the server will remain the same.
You need to get yourself a server, read its documentation, read the
HTTP and CGI specifications and so on to get to the bottom of this -
then you might post to a server or CGI group if you have any matters
that still puzzle you . If you have any problems with your Perl
programs and after dilligent study of the vast and excellent
documentation freely available for this language feel free to ask back
here about them.
/J\
Jonathan Stowe
See the MetaFaq at http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm
------------------------------
Date: Fri, 17 Apr 1998 18:17:35 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Lion <dnac-db@rbgkew.org.uk>
Subject: Re: unpacking multiple binary shorts (WORDS)
Message-Id: <Pine.GSO.3.96.980417110939.8799A-100000@user2.teleport.com>
On Fri, 17 Apr 1998, Lion wrote:
> Newsgroups: comp.lang.perl, comp.lang.perl.misc
comp.lang.perl has been dead since 1995. You shouldn't crosspost to it.
Thanks.
> I'm currently seeking to the beginning of the array, reading 2 bytes at
> a time and then unpacking each WORD to an array element:
> $buffer = hex(unpack("H4", $buffer));
> push (@slurped_data, $buffer);
Instead of doing this two bytes at a time, if you can read 2*$n bytes at a
time, you may be able to use this.
push @slurped_data,
map hex($_),
unpack (("H4"x$n), $buffer);
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 17 Apr 1998 14:35:10 -0500
From: alecler@cam.org (Andre L.)
Subject: Re: What does "Illegal modulus zero" mean?
Message-Id: <alecler-1704981435100001@dialup-623.hip.cam.org>
In article <4y5L2AAHs1N1EwR+@lynagh.demon.co.uk>, Ian Lynagh
<ian@lynagh.demon.co.uk> wrote:
> Can anyone explain the following?
>
> DB<6> p 9862777291 % 4294967296
> Illegal modulus zero at (eval 11) line 2, <IN> chunk 9.
It means you tried to do a modulus zero. In some States and countries,
this is illegal between 9am and 5pm; anyone found guilty of illegal
modulus zero can be slapped with a fine up to $500 or three months in
jail.
My advice: find yourself a good attorney.
A.L.
------------------------------
Date: Fri, 17 Apr 1998 11:34:15 -0700
From: "Larry Rosler" <lr@hpl.hp.com>
Subject: Re: What does "Illegal modulus zero" mean?
Message-Id: <6h87bb$4on@hplntx.hpl.hp.com>
Ian Lynagh wrote in message <4y5L2AAHs1N1EwR+@lynagh.demon.co.uk>...
>
>Can anyone explain the following?
>
> DB<6> p 9862777291 % 4294967296
>Illegal modulus zero at (eval 11) line 2, <IN> chunk 9.
The perl interpreter has converted 4294967296 (which is 2 ** 32) to an
unsigned integer, which is stored in a 32-bit slot, silently truncating it
to 0.
You may have to use the Math::BigInt module if you really need to deal with
numbers of this magnitude.
--
Larry Rosler
Hewlett-Packard Laboratories
lr@hpl.hp.com
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 2351
**************************************
