[17658] in Perl-Users-Digest
Perl-Users Digest, Issue: 5078 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 11 00:05:50 2000
Date: Sun, 10 Dec 2000 21:05:11 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <976511110-v9-i5078@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 10 Dec 2000 Volume: 9 Number: 5078
Today's topics:
%ENV does not contain some variables? <krahnj@acm.org>
Re: %ENV does not contain some variables? <tinamue@zedat.fu-berlin.de>
Re: %ENV does not contain some variables? (Sam Holden)
Re: %ENV does not contain some variables? <krahnj@acm.org>
Re: %ENV does not contain some variables? <tony_curtis32@yahoo.com>
Re: %ENV does not contain some variables? (Logan Shaw)
Re: %ENV does not contain some variables? <brondsem@my-deja.com>
Re: %ENV does not contain some variables? (Sam Holden)
Re: %ENV does not contain some variables? <peter.sundstrom@eds.com>
Re: Adding a Bcc recipient? (Martien Verbruggen)
Re: combining regexps into one <brondsem@my-deja.com>
Re: combining regexps into one (Garry Williams)
Re: cookie expire <bkennedy99@home.com>
Deleting Tab Stops <daniel42@web.de>
Re: Deleting Tab Stops <bwalton@rochester.rr.com>
Re: Deleting Tab Stops <aks_music@hotmail.com>
Re: detecting overflow (Garry Williams)
Re: downloading perl (Eric Bohlman)
Re: FAQ 4.63: How can I store a multidimensional arra (Eric Bohlman)
Getting the name of the calling function <alanroche@my-deja.com>
Re: Getting the name of the calling function <tinamue@zedat.fu-berlin.de>
Re: How do I capture output from a print command andrewl@tnl.com.au
Re: How do I capture output from a print command (Logan Shaw)
HTTP_RANGE <me@privacy.net>
Installing modules on a web server <g.soper@soundhouse.co.uk>
Re: IO::Socket::INET help, please. ynotssor@my-deja.com
Re: MakeMaker question <randy@theory.uwinnipeg.ca>
Re: Modules & OOP beyond Sriram's "Advanced Perl Progra (Chris Fedde)
Re: need help with split <jmourney@hotmail.com>
net:: <enigmabomb@home.gotohellspammers.ihopeyourotinghellyouspamminggarbage.com>
Performance optimization of DBI::CSV upuautiii@my-deja.com
Re: Performance optimization of DBI::CSV <res06xbi@gte.net>
perl_parse() freezes or core dump huang0503@my-deja.com
Re: Please help with a simple problem <tinamue@zedat.fu-berlin.de>
Re: Please help with a simple problem <aks_music@hotmail.com>
Problem building Msql-Mysql-modules1.2215 (JoeBonans)
syntax help with MIME::Base64 mdm_internet_tools@my-deja.com
Re: Use PERL or Java? Which is faster? <kenny@kennypearce.net>
Re: who know that Unicode -> Ascii convert... in perl C (Eric Bohlman)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 11 Dec 2000 01:00:55 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: %ENV does not contain some variables?
Message-Id: <3A3427B9.BC74D75D@acm.org>
First off, I searched through the FAQs and perldoc. Here it is in a
nutshell:
$ echo "Columns = $COLUMNS Lines = $LINES "
Columns = 130 Lines = 43
$ perl -e 'print "Columns = $ENV{COLUMNS} Lines = $ENV{LINES} \n";'
Columns = Lines =
Why aren't these variables showing up in %ENV?
John
------------------------------
Date: 11 Dec 2000 01:26:25 GMT
From: Tina Mueller <tinamue@zedat.fu-berlin.de>
Subject: Re: %ENV does not contain some variables?
Message-Id: <911ag1$2i1e6$5@fu-berlin.de>
hi,
John W. Krahn <krahnj@acm.org> wrote:
> First off, I searched through the FAQs and perldoc. Here it is in a
> nutshell:
> $ echo "Columns = $COLUMNS Lines = $LINES "
> Columns = 130 Lines = 43
> $ perl -e 'print "Columns = $ENV{COLUMNS} Lines = $ENV{LINES} \n";'
> Columns = Lines =
which shell are you using?
in bash, type
export COLUMNS
export LINES
before.
HTH,
tina
--
http://tinita.de \ enter__| |__the___ _ _ ___
tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
search & add comments \ \ _,_\ __/\ __/_| /__/ perception
please don't email unless offtopic or followup is set. thanx
------------------------------
Date: 11 Dec 2000 01:50:07 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: %ENV does not contain some variables?
Message-Id: <slrn938cme.5oc.sholden@pgrad.cs.usyd.edu.au>
On Mon, 11 Dec 2000 01:00:55 GMT, John W. Krahn <krahnj@acm.org> wrote:
>First off, I searched through the FAQs and perldoc. Here it is in a
>nutshell:
>
>$ echo "Columns = $COLUMNS Lines = $LINES "
>Columns = 130 Lines = 43
>$ perl -e 'print "Columns = $ENV{COLUMNS} Lines = $ENV{LINES} \n";'
>Columns = Lines =
>
>Why aren't these variables showing up in %ENV?
You haven't exported them in the shell.
export COLUMNS
or whatever the equivalent command is in the shell that you use.
--
Sam Holden
------------------------------
Date: Mon, 11 Dec 2000 01:58:16 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: %ENV does not contain some variables?
Message-Id: <3A343520.74301BC1@acm.org>
Tina Mueller wrote:
>
> hi,
> John W. Krahn <krahnj@acm.org> wrote:
> > First off, I searched through the FAQs and perldoc. Here it is in a
> > nutshell:
>
> > $ echo "Columns = $COLUMNS Lines = $LINES "
> > Columns = 130 Lines = 43
> > $ perl -e 'print "Columns = $ENV{COLUMNS} Lines = $ENV{LINES} \n";'
> > Columns = Lines =
>
> which shell are you using?
bash
> in bash, type
> export COLUMNS
> export LINES
> before.
Thanks, that worked, but why doesn't it work without exporting them?
John
------------------------------
Date: 10 Dec 2000 20:01:41 -0600
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: %ENV does not contain some variables?
Message-Id: <87elzfemwq.fsf@limey.hpcc.uh.edu>
>> On Mon, 11 Dec 2000 01:58:16 GMT,
>> "John W. Krahn" <krahnj@acm.org> said:
>> in bash, type export COLUMNS export LINES before.
> Thanks, that worked, but why doesn't it work without
> exporting them?
If you don't export them into the environment, they are
(merely) variable settings within the shell process. It
is the environment which is handed down to child
processes.
hth
t
--
Eih bennek, eih blavek.
------------------------------
Date: 10 Dec 2000 20:38:38 -0600
From: logan@cs.utexas.edu (Logan Shaw)
Subject: Re: %ENV does not contain some variables?
Message-Id: <911ene$3hj$1@boomer.cs.utexas.edu>
In article <3A3427B9.BC74D75D@acm.org>, John W. Krahn <krahnj@acm.org> wrote:
>First off, I searched through the FAQs and perldoc. Here it is in a
>nutshell:
>
>$ echo "Columns = $COLUMNS Lines = $LINES "
>Columns = 130 Lines = 43
>$ perl -e 'print "Columns = $ENV{COLUMNS} Lines = $ENV{LINES} \n";'
>Columns = Lines =
>
>Why aren't these variables showing up in %ENV?
It doesn't matter if you want your script to be portable, because
they're not standard:
$ echo $COLUMNS
$ echo $0
-ksh
$ uname -sr
SunOS 5.8
$
- Logan
------------------------------
Date: Mon, 11 Dec 2000 03:01:41 GMT
From: Dave Brondsema <brondsem@my-deja.com>
Subject: Re: %ENV does not contain some variables?
Message-Id: <911g2j$cqf$1@nnrp1.deja.com>
In article <3A3427B9.BC74D75D@acm.org>,
"John W. Krahn" <krahnj@acm.org> wrote:
> First off, I searched through the FAQs and perldoc. Here it is in a
> nutshell:
>
> $ echo "Columns = $COLUMNS Lines = $LINES "
> Columns = 130 Lines = 43
> $ perl -e 'print "Columns = $ENV{COLUMNS} Lines = $ENV{LINES} \n";'
> Columns = Lines =
>
> Why aren't these variables showing up in %ENV?
>
> John
>
I don't know if this is related, but as CGI program, the following
doesn't print all environment variables:
foreach $key (sort(keys %ENV)) {
print "$key = $ENV{$key}<br>\n";
}
In particular, the following must be printed seperately because they
aren't printed in the above loop:
print "<hr>SCRIPT_NAME: $ENV{SCRIPT_NAME}<br>\n";
print "DOCUMENT_ROOT: $ENV{DOCUMENT_ROOT}<br>\n";
print "HTTP_COOKIE: $ENV{HTTP_COOKIE}<br>\n";
print "HTTP_HOST: $ENV{HTTP_HOST}<br>\n";
print "HTTP_REFERER: $ENV{HTTP_REFERER}<br>\n";
print "HTTP_USER_AGENT: $ENV{HTTP_USER_AGENT}<br>\n";
print "QUERY_STRING: $ENV{QUERY_STRING}<br>\n";
print "REMOTE_ADDR: $ENV{REMOTE_ADDR}<br>\n";
print "REMOTE_HOST: $ENV{REMOTE_HOST}<br>\n";
print "REMOTE_PORT: $ENV{REMOTE_PORT}<br>\n";
print "REMOTE_USER: $ENV{REMOTE_USER}<br>\n";
print "REQUEST_METHOD: $ENV{REQUEST_METHOD}<br>\n";
print "SERVER_ADMIN: $ENV{SERVER_ADMIN}<br>\n";
print "SERVER_NAME: $ENV{SERVER_NAME}<br>\n";
print "SERVER_PORT: $ENV{SERVER_PORT}<br>\n";
print "SERVER_SOFTWARE: $ENV{SERVER_SOFTWARE}<br>\n";
Why doesn't the loop print *ALL* the hash keys and values?
Thanks,
--
Dave Brondsema
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 11 Dec 2000 03:22:08 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: %ENV does not contain some variables?
Message-Id: <slrn938i30.6b5.sholden@pgrad.cs.usyd.edu.au>
On Mon, 11 Dec 2000 03:01:41 GMT, Dave Brondsema <brondsem@my-deja.com> wrote:
>
>I don't know if this is related, but as CGI program, the following
>doesn't print all environment variables:
>
>foreach $key (sort(keys %ENV)) {
> print "$key = $ENV{$key}<br>\n";
>}
>
>In particular, the following must be printed seperately because they
>aren't printed in the above loop:
>
>print "<hr>SCRIPT_NAME: $ENV{SCRIPT_NAME}<br>\n";
<snip a whole bunch
>print "SERVER_SOFTWARE: $ENV{SERVER_SOFTWARE}<br>\n";
>
>Why doesn't the loop print *ALL* the hash keys and values?
It does. I just tried it.
if $ENV{SCRIPT_NAME} contains something, then keys %ENV will return
'SCRIPT_NAME' somewhere in the list.
If it doesn't your perl install is broken beyond all belief.
It's more likely you've done something wrong in the loop or used
the wrong variable somewhere...
--
Sam Holden
------------------------------
Date: Mon, 11 Dec 2000 15:25:52 +1300
From: "Peter Sundstrom" <peter.sundstrom@eds.com>
Subject: Re: %ENV does not contain some variables?
Message-Id: <911dvh$5ar$1@hermes.nz.eds.com>
John W. Krahn <krahnj@acm.org> wrote in message
news:3A343520.74301BC1@acm.org...
> Tina Mueller wrote:
> >
> > hi,
> > John W. Krahn <krahnj@acm.org> wrote:
> > > First off, I searched through the FAQs and perldoc. Here it is in a
> > > nutshell:
> >
> > > $ echo "Columns = $COLUMNS Lines = $LINES "
> > > Columns = 130 Lines = 43
> > > $ perl -e 'print "Columns = $ENV{COLUMNS} Lines = $ENV{LINES} \n";'
> > > Columns = Lines =
> >
> > which shell are you using?
>
> bash
>
> > in bash, type
> > export COLUMNS
> > export LINES
> > before.
>
> Thanks, that worked, but why doesn't it work without exporting them?
man export
------------------------------
Date: Mon, 11 Dec 2000 01:24:57 GMT
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Adding a Bcc recipient?
Message-Id: <slrn938b68.nr.mgjv@verbruggen.comdyn.com.au>
On Wed, 6 Dec 2000 21:56:08 -0700,
Michael Cook <mikecook@cigarpool.com> wrote:
>
> "Tony Curtis" <tony_curtis32@yahoo.com> wrote in message
> news:87bsuoq22j.fsf@limey.hpcc.uh.edu...
>> >> On Wed, 6 Dec 2000 21:01:40 -0700,
>> >> "Michael Cook" <mikecook@cigarpool.com> said:
>>
>> >print MAIL "To\:$address\n";
>>
>> Why is the ":" backslashed? A space after the ":" would
>> be nice too.
>
> doesn't hurt, helps me readability - no space necessary - $address is
> formatted
It does hurt. And it _diminishes_ readability. Unnecessary quoting,
backslashing and punctuation are misleading, to say the least. They
suggest that there is something special going on, while there simply
isn't.
Too much crud in code makes it unreadable. People keep wondering what
is going on. Just don't do it.
>> >print MAIL "Subject\:$regdata{'Subject'}\n";
>> >print MAIL <<EOM;
>> >$regdata{'Body'}
>> >EOM
If you're going to use a here-doc anyway, why not put all of it in
there?
>> You have not terminated the headers with a blank line.
>> You have also not closed the pipe and checked the status.
>> Passing -oi to sendmail would be a good idea as you don't
>> know if the data in the body contains a line with just
>> ".".
>
> » again my vars are preformatted and checked for illegal chars & this is
> obviously just a snippet - I am a stickler for closing & checking, not to
> worry...
You should also teach this practice to others. When you post here,
many people will read your post. Try to make the code contained in it
correct, and as complete as possible. Otherwise you'll just be
teaching others bad habits.
Your post contained many bad things. Whether or not you would fix
these in your production code is beside the point. You presented code,
so you should not be surprised when others criticise it, especially if
you know (and you claim you do) that it contains potential nasty
surprises for the less experienced cut-and-paster.
Martien
--
Martien Verbruggen |
Interactive Media Division | If it isn't broken, it doesn't have
Commercial Dynamics Pty. Ltd. | enough features yet.
NSW, Australia |
------------------------------
Date: Mon, 11 Dec 2000 03:07:12 GMT
From: Dave Brondsema <brondsem@my-deja.com>
Subject: Re: combining regexps into one
Message-Id: <911gcu$cur$1@nnrp1.deja.com>
In article <90rei3$23n$1@nnrp1.deja.com>,
eggrock@my-deja.com wrote:
> In article <90rbv9$vs7$1@nnrp1.deja.com>,
> Dave Brondsema <brondsem@my-deja.com> wrote:
> >
> >
> > In a loop to find links from a webpage, I have:
> > if ($source =~ /href="(.*?)"/gi)
> >
> > I would like to expand on this to find more links.
> > $source =~ /href=(.*?)>/gi
> > $source =~ /href='(.*?)'/gi
> > $source =~ /href=(.*?)[\s]/gi
> >
> > Can I combine these 4 regexps into one?
>
> while(/href=['|"]?(+)/gi) {
> $addy = $1;
> }
>
> There's probably a better way to match the actual hyperlink than
> [a-z_0-9\-\.:\/\#]
is ^^^^^^^^^^^^^^^^ what (+) means? I guess I'm confused about what
the (+) means. I understand the rest (considering the correction
concerning the |).
Thanks.
>
> You could play around with $' as well, I don't know if it's more
> efficient than a while loop with /g..
>
> That'll grab all instances on a
>
> Happy hacking,
> eggrock
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
--
Dave Brondsema
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 11 Dec 2000 04:15:23 GMT
From: garry@zweb.zvolve.net (Garry Williams)
Subject: Re: combining regexps into one
Message-Id: <vxYY5.448$uF3.32664@eagle.america.net>
On Mon, 11 Dec 2000 03:07:12 GMT, Dave Brondsema <brondsem@my-deja.com> wrote:
>In article <90rei3$23n$1@nnrp1.deja.com>,
> eggrock@my-deja.com wrote:
>> In article <90rbv9$vs7$1@nnrp1.deja.com>,
>> Dave Brondsema <brondsem@my-deja.com> wrote:
>>...
>> while(/href=['|"]?(+)/gi) {
>> $addy = $1;
>> }
>>
>> There's probably a better way to match the actual hyperlink than
>> [a-z_0-9\-\.:\/\#]
>is ^^^^^^^^^^^^^^^^ what (+) means? I guess I'm confused about what
>the (+) means.
It's meaningless. Try compiling it and find out how meaningless it
is. (I believe a follow-up to the article you quote mentioned this
already.)
Also `.' and `#' are *not* special in a regular expression character
class. They should not be quoted in a character class. It only
serves to confuse. (And you can avoid quoting the hyphen (-), if it
appears first or last in the character class string. You can also
avoid quoting the slash (/) by choosing a different match quoting
character like m!/!.)
--
Garry Williams
------------------------------
Date: Mon, 11 Dec 2000 04:54:27 GMT
From: "Ben Kennedy" <bkennedy99@home.com>
Subject: Re: cookie expire
Message-Id: <76ZY5.188534$td5.26895422@news1.rdc2.pa.home.com>
"AvA" <a.v.a@home.nl> wrote in message news:3A324AAA.2BB76F93@home.nl...
> does anyone know how i can set the cookie expire date to 4 hours after
> its created?
>
> i tried : expires=(time + 14400) , but that doesnt work.
You can set "-expires" to "+4h" - see the documentation on the CGI module
(perldoc CGI)
--Ben Kennedy
------------------------------
Date: Mon, 11 Dec 2000 01:38:55 +0100
From: Daniel Loose <daniel42@web.de>
Subject: Deleting Tab Stops
Message-Id: <3A34221E.1E8223F4@web.de>
Hi,
how can I remove TabStops from a String (which was read from a file)?
Thank you very much!!!
Daniel
------------------------------
Date: Mon, 11 Dec 2000 01:38:10 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: Deleting Tab Stops
Message-Id: <3A34312A.7E464063@rochester.rr.com>
Daniel Loose wrote:
...
> how can I remove TabStops from a String (which was read from a file)?
...
> Daniel
perldoc -q tabs
--
Bob Walton
------------------------------
Date: Mon, 11 Dec 2000 03:50:37 GMT
From: =?iso-8859-1?Q?=D0=2DVolta?= <aks_music@hotmail.com>
Subject: Re: Deleting Tab Stops
Message-Id: <3A344C24.E7A9C074@hotmail.com>
Hi Daniel:
make a scalar of the string.
substitute any tabs with nothing (in my case I chose a blank space)
ex:
here's some working example code
#!/usr/bin/perl -w
# Ð-Volta PCP'd
my $tabbed_string = "Mr Foo Mann Chu at your service";
print "Tabbed string is: $tabbed_string\n";
$tabbed_string =~ s/\t/ /g; # substitute all tabs for a blank space
print "Has now been untabbed: $tabbed_string\n";
The proper response for the code should be:
Tabbed string is: Mr Foo Mann Chu at your service
Has now been untabbed: Mr Foo Mann Chu at your service
Daniel Loose wrote:
> Hi,
>
> how can I remove TabStops from a String (which was read from a file)?
>
> Thank you very much!!!
>
> Daniel
------------------------------
Date: Mon, 11 Dec 2000 04:21:28 GMT
From: garry@zweb.zvolve.net (Garry Williams)
Subject: Re: detecting overflow
Message-Id: <cDYY5.450$uF3.32664@eagle.america.net>
On 10 Dec 2000 16:18:31 +0100, Frodo Baggins <thehobbit@altern.org> wrote:
> I'm trying to write a Perl module to do arithmetic on arbitrary precision
>integers.
>... Any idea?
See the Math::BigInt manual page. See the source, if you still want to
do what you're doing.
--
Garry Williams
------------------------------
Date: 11 Dec 2000 03:43:22 GMT
From: ebohlman@omsdev.com (Eric Bohlman)
Subject: Re: downloading perl
Message-Id: <911igq$gfv$2@bob.news.rcn.net>
rajeshpm <rajeshpm@emirates.net.ae> wrote:
> Thanks, i tried it. But now i have another problem.
> I downloaded activeperl, that is, Apa522e.exe
> Now when i double click on it, it gives a message that the file
> is not compiled for this version of Windows.
> Maybe i am having windows 98, thats why.
No, the problem is that you download the version that was compiled for
Windows NT on Dec Alpha machines rather than for Intel machines. You need
to go back to ActiveState and get the right version.
------------------------------
Date: 11 Dec 2000 03:46:09 GMT
From: ebohlman@omsdev.com (Eric Bohlman)
Subject: Re: FAQ 4.63: How can I store a multidimensional array in a DBM file?
Message-Id: <911im1$gfv$3@bob.news.rcn.net>
PerlFAQ Server <faq@denver.pm.org> wrote:
> How can I store a multidimensional array in a DBM file?
> Either stringify the structure yourself (no fun), or else get the MLDBM
> (which uses Data::Dumper) module from CPAN and layer it on top of either
> DB_File or GDBM_File.
This should be updated to mention that MLDBM can also use Storable or
FreezeThaw for serialization.
------------------------------
Date: Mon, 11 Dec 2000 01:00:44 GMT
From: Roche <alanroche@my-deja.com>
Subject: Getting the name of the calling function
Message-Id: <9118vp$7lr$1@nnrp1.deja.com>
Hi,
I'm writing a debug/trace function for myself and am quite new to perl.
I remember seeing some means of grabbing the function name of the caling
function. - It was something along the lines of the __LINE__ or __FILE__
variables.
Also, any other suggestions for writing diagnostics code would be
appreciated.
Thanks in advance,
Alan.
______
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 11 Dec 2000 01:23:19 GMT
From: Tina Mueller <tinamue@zedat.fu-berlin.de>
Subject: Re: Getting the name of the calling function
Message-Id: <911aa7$2i1e6$4@fu-berlin.de>
hi,
Roche <alanroche@my-deja.com> wrote:
> I'm writing a debug/trace function for myself and am quite new to perl.
> I remember seeing some means of grabbing the function name of the caling
> function. - It was something along the lines of the __LINE__ or __FILE__
> variables.
perldoc -f caller
HTH,
tina
--
http://tinita.de \ enter__| |__the___ _ _ ___
tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
search & add comments \ \ _,_\ __/\ __/_| /__/ perception
please don't email unless offtopic or followup is set. thanx
------------------------------
Date: Mon, 11 Dec 2000 01:46:58 GMT
From: andrewl@tnl.com.au
Subject: Re: How do I capture output from a print command
Message-Id: <911bmh$9gr$1@nnrp1.deja.com>
In article <slrn930a51.v7v.tadmc@magna.metronet.com>,
tadmc@metronet.com (Tad McClellan) wrote:
I can not believe perl4 can not do this ? amazing !!!???
Andrew
> huem@my-deja.com <huem@my-deja.com> wrote:
>
> >I use perl4.
>
> Then you are on your own.
>
> --
> Tad McClellan SGML consulting
> tadmc@metronet.com Perl programming
> Fort Worth, Texas
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 10 Dec 2000 20:41:48 -0600
From: logan@cs.utexas.edu (Logan Shaw)
Subject: Re: How do I capture output from a print command
Message-Id: <911etc$3ik$1@boomer.cs.utexas.edu>
>> huem@my-deja.com <huem@my-deja.com> wrote:
>> >I use perl4.
>In article <slrn930a51.v7v.tadmc@magna.metronet.com>,
> tadmc@metronet.com (Tad McClellan) wrote:
>> Then you are on your own.
In article <911bmh$9gr$1@nnrp1.deja.com>, <andrewl@tnl.com.au> wrote:
>I can not believe perl4 can not do this ? amazing !!!???
"You are on your own" doesn't mean "perl can't do it". It means "you
are on your own", as in perl 4 is really out of date, and nobody is
interested in helping people with it.
- Logan
------------------------------
Date: Mon, 11 Dec 2000 01:07:13 GMT
From: "EM" <me@privacy.net>
Subject: HTTP_RANGE
Message-Id: <5NVY5.8410$Nw6.27940@news.iol.ie>
$ENV{'HTTP_RANGE'} contains the Range header supplied by the client
It it used by reuming programs such as getright to tell the server what
bytes it wants
I use a cgi to output files to the browser from the hard disk after
performing some authentication
but the file cannot be resumed because getright thinks the server doesnt
support resume
My question is what http header do i sent to tell it that the script can
support resume?
---------
Eric
------------------------------
Date: Sun, 10 Dec 2000 23:22:48 +0000 (GMT)
From: Geoff Soper <g.soper@soundhouse.co.uk>
Subject: Installing modules on a web server
Message-Id: <4a2aefc62eg.soper@soundhouse.co.uk>
I need to use a module that isn't included in the standard installation
(Image::Size) and the script will run on a remote server. I only have FTP
access so is there anyway I can achieve this myself or is it a job for the
server's administrator?
Thanks
--
Geoff Soper
g.soper@soundhouse.co.uk
Take a look at the Soundhouse page http://www.soundhouse.co.uk/
------------------------------
Date: Mon, 11 Dec 2000 01:42:23 GMT
From: ynotssor@my-deja.com
Subject: Re: IO::Socket::INET help, please.
Message-Id: <911bdu$9db$1@nnrp1.deja.com>
In article <x7y9xojf89.fsf@home.sysarch.com>,
Uri Guttman <uri@sysarch.com> wrote:
...
> it would be better to build up you string in variable so you can print
> it twice and not worry about editing 2 copies.
...
> single quotes don't interpolate so that won't work. always check the
> results of socket connections.
...
> method calls require parens around their arguments. this is not the
> same as the earlier print which doesn't need parens.
>
> comp.lang.perl.modules removed as this is a syntax problem.
...
Thanks for your input. Here are the modifications I've made, as well as
the modules in use (is IO::Connect necessary?):
$cgi_lib = '/home/httpd/cgi-bin/cgi-lib.pl';
require $cgi_lib;
use Net::FTP;
use IO::Socket::INET;
...
# Schedule a cron job for vacation message removal.
sub schedule_cron {
$remotecommand =
"$user\n$pass\necho /usr/dt/bin/dtmail -v stop | at -m -t
$year$month$day$endtime\nexit\n";
open(TMPFILE, ">/tmp/cronfile") || &html_abort("Cannot open
temp.cronfile");
print TMPFILE "$server:23\n$remotecommand";
$socket = IO::Socket::INET->new("$server:23");
print TMPFILE "After \$socket, \$socket->error() = ",
$socket->error(), " and \$! = $!.\n";
$socket->print("$remotecommand");
$socket->close;
close(TMPFILE);
}
TMPFILE has as its last line:
After $socket, $socket->error() = 0 and $! = Illegal seek.
It appears to be an I/O problem of some sort? In the $server log I have
an entry that corresponds to the telnet attempt:
Dec 10 16:53:58 sun26 telnetd[11176]: ttloop: peer died: Bad file
number
Telnet connections can occur via command line exactly as $remotecommand
is structured, and the at command functions as expected from the command
line.
The Net::FTP is working nicely, placing the necessary .forward and
.vacation* files in the users' $HOME. It is only the IO::Socket::INET
portion which will end the email vacation message via cron that is a
problem now.
Again, thanks.
- tony
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sun, 10 Dec 2000 20:06:08 -0600
From: "Randy Kobes" <randy@theory.uwinnipeg.ca>
Subject: Re: MakeMaker question
Message-Id: <911d4e$11t$1@canopus.cc.umanitoba.ca>
"starfire" <starfire@zipcon.net> wrote in message
news:976407744.372367@news.zipcon.net...
> I am preparing a module for CPAN release. There is a subdirectory tree
> that should be copied recursively to /usr/local/etc when "make install"
> is typed. I assume that I should write a perl script that does the
> copy, but I don't see anything in the ExtUtils::MakeMaker man page that
> lets me indicate that this script should be run during "make install".
> The PL_FILES attribute looks promising, but I don't think this does
> what I need.
>
> How can I do this?
If it's a general set of files, what you could do is create
a separate target for the series of commands you want
to carry out, and then add this target to 'make install'. For
example, in Makefile.PL, the following
sub MY::install {
my $self = shift;
my $string = $self->MM::install;
my $add = 'my_install';
$string =~ s/(pure_install\s+)(.*)/$1 $add $2/;
return $string;
}
will add a target 'my_install' which will be carried out
in the install phase. This target can be defined in
the following sub in Makefile.PL:
sub MY::top_targets {
my $self = shift;
my $string = $self->MM::top_targets;
$string .= <<'EOF';
my_install:
do whatever here
EOF
return $string;
}
(note that tabs and spaces may not appear correctly
in some newsreaders).
best regards,
randy kobes
------------------------------
Date: Mon, 11 Dec 2000 03:43:10 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: Modules & OOP beyond Sriram's "Advanced Perl Programming"
Message-Id: <i3YY5.120$B9.180111872@news.frii.net>
In article <910pmq$s4h$1@nnrp1.deja.com>,
Brendon Caligari <bcaligari@my-deja.com> wrote:
>
>
>Now I've been a few months doing Perl and have moved most
>c/awk/sed/shell stuff to perl scripts, where I admit that many a
>tedious sysadmin job have been automated, leaving me ample free time to
>procrastinate while the job still gets done.
>
>I would appreciate any kind recommendations to texts that cover
>Modules / OOP in more depth than O'Reilly's (fantastic) Advanced Perl
>Programming yet more 'readable' than the perl Docs / Programming Perl.
>
>Brendon
Get Conways Perl OOP book, ISBN 1884777791. It's quite good.
--
This space intentionally left blank
------------------------------
Date: Mon, 11 Dec 2000 03:51:13 GMT
From: Joe <jmourney@hotmail.com>
Subject: Re: need help with split
Message-Id: <911ivg$f0c$1@nnrp1.deja.com>
thank you for those who gave me helpful responses.
after summarizing all your responses, here's what i
came up with:
($id,$callnum,$copies,$lang,$title)=split(/\s+/,$record,5);
and this would handle the records i gave as example.
i run the script with -w, use strict, and scope all vars with my.
but when the script processes records which are missing one
or more fields, the split function assigns undef or null to
the corresponding variables. as you know, it generates some
warning messages when i try to use these variables.
my question is: should i be concerned with the warning messages?
if so, what must be done? other than that, the code works okay.
to explain what i mean, try the above code with the following
record:
MVCD05 1,2 SPA Residencia San Juan de La Penitencia
thank's again in advance.
-joe
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 11 Dec 2000 00:06:02 GMT
From: "EnIgMaBoM" <enigmabomb@home.gotohellspammers.ihopeyourotinghellyouspamminggarbage.com>
Subject: net::
Message-Id: <KTUY5.32108$w35.5789693@news1.rdc1.nj.home.com>
will net::: do backwards translation from a domain to an IP addy?
Joshua
------------------------------
Date: Mon, 11 Dec 2000 04:44:48 GMT
From: upuautiii@my-deja.com
Subject: Performance optimization of DBI::CSV
Message-Id: <911m40$h3v$1@nnrp1.deja.com>
Is there a way to make DBI::CSV add new records in a table(flat file) at
the top of the file instead of bottom?
This would be nice if I have a big table(file), and I want to optimally
find, say, the latest action a user took on the site. By placing the
most recent entries at the top, the statement can simply look for the
first occurence, and return. Is this possible?
thanks.
Upuautiii.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 11 Dec 2000 05:00:30 GMT
From: "res06xbi" <res06xbi@gte.net>
Subject: Re: Performance optimization of DBI::CSV
Message-Id: <ObZY5.2319$zm6.352113@paloalto-snr1.gtei.net>
It will be more fruitful for you to post this at:
dbi-user@isc.org
<upuautiii@my-deja.com> wrote in message news:911m40$h3v$1@nnrp1.deja.com...
> Is there a way to make DBI::CSV add new records in a table(flat file) at
> the top of the file instead of bottom?
> This would be nice if I have a big table(file), and I want to optimally
> find, say, the latest action a user took on the site. By placing the
> most recent entries at the top, the statement can simply look for the
> first occurence, and return. Is this possible?
>
> thanks.
> Upuautiii.
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
------------------------------
Date: Sun, 10 Dec 2000 23:01:25 GMT
From: huang0503@my-deja.com
Subject: perl_parse() freezes or core dump
Message-Id: <911203$2c2$1@nnrp1.deja.com>
Hi,
I was following perlembed manpage to learn embeded perl in C,
everything went well. Then I tried to intergrate those code into a new
environment setup, please see following setup
VITRIA (a pure java application) <-> C++/C object <-> perl scripts
The way Vitria talks with C++ object is using CORBA calls, the ORB is
developed by Vitria itself. Without embeded perl calls (thus no perl
scripts), this works fine. Only after I add those embeded perl calls,
whole thing will work once or twice, then either freeze or core dump, I
put some trace code in my C++/C code, and see the code will stop at the
step "perl_parse()". My initial reaction is clean the memory as much as
possible, but this did not help.
I am running out the idea what went wrong now? Can anyone give me some
ideas? I tried used CORBA::string_alloc and CORBA::string_free to make
space avaliable, still same symptom.
If nothing will work, I think I will go back to use Java native
interface to make it work, I don't have much experenice with JNI, will
there anything I should be aware of?
TIA,
Wei Huang
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 11 Dec 2000 00:21:33 GMT
From: Tina Mueller <tinamue@zedat.fu-berlin.de>
Subject: Re: Please help with a simple problem
Message-Id: <9116mc$2i1e6$1@fu-berlin.de>
hi,
please do not quote the full posting, but only what you
are commenting on.
Edd <edd@texscene.com> wrote:
> First of all thank you for various tips which I will use in the future. You
> are right, I wasn't specific about the "problem". The problem is that
> nothing is written to the "web1.html" file. I mnually created this file
> beforehand with a simple line of; <HTML>new web</HTML>. After I run the
> perl code in question, this file remains exactly the same. It doesn't get
> amended.
> Regarding the question of the correct path, I think I use the right path
> because when the perl code finishes running, You can access the file
> "web1.html" with the hyperlink created by the code. If the path was wrong,
> the hyperlink wouldn't work either. Am I right?
nope. the hyperlink "/web1.html" points to
$DOCUMENT_ROOT/web1.html on the server.
open "/web1.html" tries to open /web1.html.
you don't have this html-file in the root
directory on your filessystem, do you?
well, as Jeff already mentioned, by using CGI::Carp
you would get the error in your open()-
statement on your browser. the webserver-process
doesn't have permissions to write files in "/".
if you already created the file before it even can't change
the permissions of the file. why creating the file before
if open ">file" does this for you?
HTH,
tina
--
http://tinita.de \ enter__| |__the___ _ _ ___
tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
search & add comments \ \ _,_\ __/\ __/_| /__/ perception
please don't email unless offtopic or followup is set. thanx
------------------------------
Date: Mon, 11 Dec 2000 02:53:53 GMT
From: =?iso-8859-1?Q?=D0=2DVolta?= <aks_music@hotmail.com>
Subject: Re: Please help with a simple problem
Message-Id: <3A343ED7.2C6A5F5A@hotmail.com>
Hey Edd:
Again, what html document you end up accessing from your link?
The one you created that only should read: new web, or do you end up accessing
the web page your script creates?
The way you coded, the file web1.html will be automatically created if it
doesn't exist.
created per the [>]: open(LOG, ">web1.html") || print "could not open
web1.html $!";
The web page your code creates will be created in the directory this script is
ran from.
((As general cgi security and perl coding issues go, you shouldn't have write
permissions to files in the dir where your cgi files reside))
The link in the page it creates will link to a file called web1.html in the
root directory - perhaps you own the domain it points to and you placed your
manually created web1.html file that reads: new web, in the root dir for
www.domain.com/web1.html. That would explain why the file remains the same
after you run the code. Check your directory you ran your perl script from and
see if theres a file called web1.html there.
Learn how to properly set your html tags. Your code prints:
print LOG "<HTML><HEAD><TITLE>Hello Visitor</HEAD></TITLE><BODY>";
print LOG "</BODY></HTML>";
which is:
<html>
<head>
<title>Hello Visitor</head>
</title>
<body></body>
</html>
and is wrong. You should have </title> after the word Visitor, NOT </head>
when you say "amended" I think you mean "appended"?
To append to a file you have to use [>>] or [+>>]
you use [>] which will not append the file.
Set the dir path where you want web1.html to be created and reside
ex: $dir_path = "/your_home/path/web";
define the html url in a variable to point to the path for the link
ex: $dir_html = "http://www.yourdomain.com";
Currently your file attribute checks return out of proper html tags also.
Adjust your script to reflect proper html compliancy.
You don't really have to have an html document writable and executable.
You can remove your attribute checks - perl will return it's own error messge
if it can't create the file for you
here's an example of the updated code:
#!/usr/bin/perl -w
# Ð-Volta PCP'd
$debug = 1; # 0=off 1=on
$dir_path = "/home/usr/web"; # the file web1.html will be created inside this
directory
$html_path = "http://www.yourdomain.net/~home_dir"; # this should be the html
accessible location per the $dir_path/web1.html file
print "Content-type: text/html\n\n";
# create the file web1.html in the dir $dir_path
open(LOG, ">$dir_path/web1.html") || print "could not open web1.html: $!";
print LOG "<HTML><HEAD><TITLE>Hello Visitor</title></head><BODY>";
print LOG "hola</BODY></HTML>";
close(LOG);
print qq~
<html>
<head>
<title>Check File and Create Link</title>
</head>
<body>~;
# check the -e -r atributes of web1.html if $debug is on
if ($debug) { # if $debug is on (1) - then print out the following
if (-e "$dir_path/web1.html") {
print "web1.html exists<br>";
if (-r "$dir_path/web1.html") {
print "web1.html can be read";
}
else { print "web1.html cannot be read"; }
}
else { print "web1.html does not exist in this directory: $dir_path"; }
}
print qq~
<p>To see the welcome page, click on the link below.
<br>
Link to:<a href="$html_path/web1.html">$html_path/web1.html</a></p>
</BODY>
</HTML>~;
Edd wrote:
> I am trying to write to a file 'web1.html' from a web page. I use the
> code below which just doesn't work. I am new at perl programming, and I am
> at a loss about what I am doing wrong. I have changed the permissions of
> the file I am writing to, both by telneting to the Unix server and in this
> program. In fact I check the file attributes at the bottom of the page and
> they verify.
>
> If somebody helps I'll be grateful immensely!
>
> Edd
>
> -------------------THE PERL CODE --------------------
> #!/usr/bin/perl
>
> print "Content-type: text/html\n\n";
> # Below I set the permissions
> if (-e "web1.html") {
> chmod(0766, "web1.html");
> print "<P>the permissions changed";
> } else {
> print "<P>the permissions.....,";
> }
>
> # Below I write to web1.html
> open(LOG, ">web1.html") || print "could not open web1.html $!";
> print LOG "<HTML><HEAD><TITLE>Hello Visitor</HEAD></TITLE><BODY>";
> print LOG "</BODY></HTML>";
> close(LOG);
>
> # Below I check to see if the atributes of web1.html is OK
> if (-e "web1.html") {
> print "<p>web1.html exists";
> } else {
> print "<p>it doesn't exist";
> }
> if (-r "web1.html") {
> print "<p>it can be read\n";
> } else {
> print "<p>it can't be read";
> }
> if (-x "web1.html") {
> print "<p>it can be executed\n";
> } else {
> print "<p>it can't be executed";
> }
> if (-w "web1.html") {
> print "<p>it can be written to\n";
> } else {
> print "<p>it can't be written to";
> }
> if (-d "web1.html") {
> print "<p>it is a dir\n";
> } else {
> print "<p>it is not a dir";
> }
>
> #Below I write to the Browser to create a link to the page 'web1.html'
> print "<HTML><BODY>";
> print "<p>to see web page click on the link below";
> print "<p><a href=\"/web1.html\">LINK TO WEB1</a></p>";
> print "</BODY></HTML>";
------------------------------
Date: 11 Dec 2000 03:25:23 GMT
From: joebonans@aol.com (JoeBonans)
Subject: Problem building Msql-Mysql-modules1.2215
Message-Id: <20001210222523.18139.00010188@ng-fi1.aol.com>
On my redhat 6.2 system, I've built perl 5.6 from scratch & also built( &
installed ) DBI-1.13, & Data-ShowTable-3.3.
I've got the latest gamma of MySQL running, and I'd like to build & install the
MySQL DBD. So I run Makefile.PL & it tells me:
Note (probably harmless): No library found for -lgz
It then builds the makefile anyway. Thinking that it's really harmless, I try
to make it, & I get an error from ld, telling me that it can't find -lz. I'm at
a loss. Anyone have any ideas?
I'm using egcs-2.91.66 & ld 2.9.5.
I've gotta' admit that I'm new to LINUX. I'm a windows guy trying to switch
over & I'm not too familiar with the development environment. (This is actually
part of how I'm trying to teach myself :). Is -lgz a library I have to install?
Should I update my compiler for this?
Anyway, thanks in advance for your help.
Joe B.
New York City
------------------------------
Date: Mon, 11 Dec 2000 00:55:39 GMT
From: mdm_internet_tools@my-deja.com
Subject: syntax help with MIME::Base64
Message-Id: <9118m9$7ar$1@nnrp1.deja.com>
I want to take a multi-part mixed email message
containing an attachment, coded in Base64, grab the
attachment and turn it into a binary.
I am using procmail to call a simple Perl program
(copied from another source) that seems to grab the
attachment ok. Now I simply need to decode the
base64 part, but am running into syntax problems
due to my limited understanding.
How do I get the call to decode_base64 slipped into
the following ?
#!/usr/bin/perl -Tw
use strict;
use MIME::Parser;
use MIME::Base64;
my $p = new MIME::Parser;
my $e = $p->read(\*STDIN) or die "$0:
couldn't parse MIME stream";
recurse($e);
$e->print(\*STDOUT) or die "$0:
couldn't spew MIME stream";
sub recurse {
my($ent) = @_;
my(@parts);
return unless $ent->is_multipart; #
Just in case
@parts = $ent->parts;
if ($ent->mime_type ne "multipart/alternative")
{ # simply recurse
foreach (@parts) {
next unless $_->is_multipart;
recurse($_);
}
} else { # replace
with the first subpart
$ent->parts($parts[0]);
$ent->make_singlepart;
}
}
__END__
exit;
Thanks.
mark david mcCreary
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sun, 10 Dec 2000 18:06:02 -0800
From: Kenny Pearce <kenny@kennypearce.net>
Subject: Re: Use PERL or Java? Which is faster?
Message-Id: <3A34368A.CFA076C3@kennypearce.net>
Henry_Barta wrote:
> In comp.lang.java.help Kenny Pearce <kenny@kennypearce.net> wrote:
> [...]
> > 5. Perl is my "native" language (the first one I learned to program with) and
> > I am therefore biased toward it.
>
> Programmer productivity is always important. (To me, anyway.)
> As a C/C++ programmer who has been using Perl almost exclusively
> for over a year, I find Perl *incredibly* productive. I'm
> converting a Perl app from Perl/Tk to Java/AWT. The app also
> uses a database, which I'm converting from mSQL to MySQL. While
> the interface to Tk seems to be about the same 'level' as the
> interface to Tk, the language features in Perl (loose typing,
> ready access to hashes, easy string manipulation) make Tk easier
> to use. I find JDBC vs. DBD::DBI to be similar. Both are a
> *real* pleasure to use compared to ctlib, but again Perl wins
> out in ease of use because of the language.
>
> I'd have to say that the main advantage that Java has is that
> it should be more portable to Windows, given that it would not
> require installation of Perl and modules for Tk, DBI, DBD:MySQL
> and so on.
>
> I might also give Java an advantage for providing a GUI builder
> if I could get Forte to run on a machine with *only* 128 MB of
> RAM ;).
>
> Of course, consider that the main reason I'm porting this to Java is
> to gain some Java experience. I'm much further along on the curve
> WRT Perl and C/C++ than Java.
>
> > Note that none of these factors are specific to servlets, as I have never
> > used them. Also, I have never interacted with a database application
> > programmatically. I have found it easier to use plain text files, and no one
> > has ever given me any feature of database applications which appeals to me. I
> > therefore know nothing about database connectivity in Java or Perl.
>
> > All these things said, I personally would choose Perl over Java for any
> > application which did not require a GUI.
>
> And for me, perhaps some with a GUI too...
>
> --
> Hank Barta White Oak Software Inc.
> hbarta@enteract.com Predictable Systems by Design.(tm)
> Beautiful Sunny Winfield, Illinois
actually, I just recently read the article at Perl.com on gtk+ programming in
Perl. I didn't know until I read it that you could make GUIs in perl! now that I
know this, I'm not sure I'll use Java for anything other than web applets.
Learning Java, however, I thought was a great intro to OOP (of course I won't know
if this is true until I try to learn another heavily OO language like C++). Java
applets do, however, provide great functionality to web-design and I'm sure that
even if I never write any applications in java, I'll use applets quite a bit.
------------------------------
Date: 11 Dec 2000 03:40:18 GMT
From: ebohlman@omsdev.com (Eric Bohlman)
Subject: Re: who know that Unicode -> Ascii convert... in perl CGI
Message-Id: <911ib2$gfv$1@bob.news.rcn.net>
Charle Shin <yabarahi@robotics.sejong.ac.kr> wrote:
> first thank for seeing my writting..
> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=euc-kr">
> I have some problem because upper one line code.
> my web CGI will get utf-8 code from other web client...
> so I want that my CGI code can covert unicode to Ascii code ..
> who know this figure that can solved this problem... plz .. I have no
> time...
> my boss will kill me.. !!
> if capable.. I want some example sourece code ...
> thank .. every one .. good bye..
If you *really* mean "ASCII," namely the Unicode characters with code
points between 0 and 127, then in UTF-8 they're mapped into the bytes
("octets") 0..127 and you can read UTF-8 as if it were plain ASCII. If by
"ASCII" you actually mean some other character set, then there's no way to
answer your question unless you tell us what character set you mean.
------------------------------
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 5078
**************************************
