[28893] in Perl-Users-Digest
Perl-Users Digest, Issue: 137 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Feb 14 21:10:36 2007
Date: Wed, 14 Feb 2007 18:09:07 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 14 Feb 2007 Volume: 11 Number: 137
Today's topics:
Re: Become more productive with Vista Speech Recognitio <bik.mido@tiscalinet.it>
manually expire an element in Memoize danielmcbrearty@gmail.com
Re: manually expire an element in Memoize <1usa@llenroc.ude.invalid>
Perl interaction with Expect <ecarlson@vmware.com>
Re: Perl interaction with Expect usenet@DavidFilmer.com
Re: Perl interaction with Expect <ecarlson@vmware.com>
Re: problem CGI <bik.mido@tiscalinet.it>
Re: problem CGI <bik.mido@tiscalinet.it>
Re: problem CGI <bik.mido@tiscalinet.it>
Re: problem CGI usenet@DavidFilmer.com
Regexp for email addresses. <abigail@abigail.be>
Re: waitpid woes on Solaris, Perl 5.8.8 <google@markginsburg.com>
Re: works now ! was: bypass shell - pipe into child pid <rvtol+news@isolution.nl>
Wrong Server Port FeelLikeANut@gmail.com
Re: Wrong Server Port <attn.steven.kuo@gmail.com>
Re: Wrong Server Port <paduille.4060.mumia.w+nospam@earthlink.net>
Re: Wrong Server Port FeelLikeANut@gmail.com
Re: Wrong Server Port <attn.steven.kuo@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 14 Feb 2007 20:32:17 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Become more productive with Vista Speech Recognition.
Message-Id: <2ro6t2ptds1iqnpojjur57vplctpiau5mt@4ax.com>
On Wed, 14 Feb 2007 13:48:17 GMT, zentara <zentara@highstream.net>
wrote:
>After viewing this video, I'm sure you will be running to
>get your copy of Vista. :-)
>
>
>http://www.youtube.com/watch?v=KyLqUf4cdwc
I was faster than you:
news:hco5t2h5k3oflvams9467nv1bb5vpof63e@4ax.com
;-) Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 14 Feb 2007 14:41:37 -0800
From: danielmcbrearty@gmail.com
Subject: manually expire an element in Memoize
Message-Id: <1171492896.952449.207010@p10g2000cwp.googlegroups.com>
hi all
I like and use MJ Dominus' excellent Memoize module to cache some
stuff in my app that hits a db rather hard. It's very simple :
use Memoize;
memoize('my_accessor');
sub my_accessor {
my ($key1, $key2) = @_;
# look up $key1, $key2 in the db and return a scalar
}
and the function is magically cached without the need to do any more.
Now what I'd like is, in another function, to manually invalidate (or
delete) certain cached values at runtime (most likely because I
changed the value in the db).
How can I do this? I looked at the docs and source for
Memoize::Expire, but it's not too clear to me right now. Obviously,
I'd like the simplest possible solution ...
thanks
Daniel
------------------------------
Date: Wed, 14 Feb 2007 23:15:21 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: manually expire an element in Memoize
Message-Id: <Xns98D7B9B61286Fasu1cornelledu@127.0.0.1>
danielmcbrearty@gmail.com wrote in news:1171492896.952449.207010
@p10g2000cwp.googlegroups.com:
> hi all
>
> I like and use MJ Dominus' excellent Memoize module to cache some
> stuff in my app that hits a db rather hard. It's very simple :
Frankly, I think you are using the wrong tool for the job. One of the Cache modules available
on CPAN would be more suited for this type of task.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: 14 Feb 2007 12:54:49 -0800
From: "Eric" <ecarlson@vmware.com>
Subject: Perl interaction with Expect
Message-Id: <1171486489.628794.175640@s48g2000cws.googlegroups.com>
Hello,
I'm not sure if this is a Perl question or an Expect question. But I
will start here.
I have written an Expect script that someone else is executing in
their Perl script. I would like my Expect script to return a string as
a value to this Perl script, not a boolean (i.e. integer).
For example, say my Expect script does something like this:
if (<this>) {
return "SUCCESS";
} else {
return "FAILURE";
}
The Perl script needs to have the value returned as either a "SUCCESS"
or "FAILURE".
I created a short Perl script that executes the Expect script by doing
the following:
my $rtnval = `rem.exp`;
Of course, that's not going to return the value I am looking for; it's
only going to print the output to stdout. And if I try:
my $rtnval = system("rem.exp");
that's only going to tell me if the system call passed or failed (i.e.
an integer), regardless of whether the Expect script deemed a success
or fail.
How can I call an Expect script from a Perl script and return a string
value? Is there some trick to getting an interaction between Perl and
Expect? I suppose I could do some kludge, like read the output into a
file and search the file for the response. But I'd rather avoid that
if possible.
Thanks in advance to all that respond.
Eric
------------------------------
Date: 14 Feb 2007 12:58:04 -0800
From: usenet@DavidFilmer.com
Subject: Re: Perl interaction with Expect
Message-Id: <1171486684.257874.111720@j27g2000cwj.googlegroups.com>
On Feb 14, 12:54 pm, "Eric" <ecarl...@vmware.com> wrote:
> Is there some trick to getting an interaction between Perl and Expect?
It's not really a "trick"...
http://search.cpan.org/~rgiersig/Expect-1.20/Expect.pod
--
The best way to get a good answer is to ask a good question.
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 14 Feb 2007 16:21:24 -0800
From: "Eric" <ecarlson@vmware.com>
Subject: Re: Perl interaction with Expect
Message-Id: <1171498884.089699.86050@k78g2000cwa.googlegroups.com>
Thanks for your response, David. Perhaps I should have clarified in my
posting that the Expect script is already written. So we'd prefer to
not have to rewrite it in Perl using the Expect module. What I am
looking for is a way to use my existing Expect script with minimal
modifications to the Perl script that is executing it.
Having said that, if I am missing something here - such as, the Expect
module can in fact be used for this purpose - please feel free to
point that out.
Thanks.
Eric
------------------------------
Date: Wed, 14 Feb 2007 20:44:15 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: problem CGI
Message-Id: <1jp6t25l5pog167s1dbrahi3k4fnm7rt67@4ax.com>
On Wed, 14 Feb 2007 14:48:34 +0100, "john.swilting"
<john.swilting@wanadoo.fr> wrote:
>I am afraid to find me with much
>my $1 = $cgi->param('1');
Don't! Numbered variables have a special meaning. Try
my $one = $cgi->param('1');
instead.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Wed, 14 Feb 2007 20:44:38 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: problem CGI
Message-Id: <lkp6t214skf06ama6nkm5ve2c3natopamu@4ax.com>
On Wed, 14 Feb 2007 15:22:39 +0100, "john.swilting"
<john.swilting@wanadoo.fr> wrote:
>> I am afraid to find me with much
>> my $1 = $cgi->param('1');
>that will be a gas works
I beg your pardon?!?
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Wed, 14 Feb 2007 20:45:36 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: problem CGI
Message-Id: <dlp6t2p6v3d1d8ch525kris2fihnkfgpor@4ax.com>
On Wed, 14 Feb 2007 13:36:51 +0100, "john.swilting"
<john.swilting@wanadoo.fr> wrote:
>you cannot help me too a little more perldoc cgi me
A little more? No I can't. I can help you a little less: try the
param() function/method.
HTH,
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 14 Feb 2007 12:55:44 -0800
From: usenet@DavidFilmer.com
Subject: Re: problem CGI
Message-Id: <1171486544.061517.271660@l53g2000cwa.googlegroups.com>
On Feb 14, 11:44 am, Michele Dondi <bik.m...@tiscalinet.it> wrote:
> On Wed, 14 Feb 2007 15:22:39 +0100, "john.swilting"
> >that will be a gas works
>
> I beg your pardon?!?
I think the Bablefish French->English translator may have something to
do with these garbled expressions...
------------------------------
Date: 14 Feb 2007 21:55:40 GMT
From: Abigail <abigail@abigail.be>
Subject: Regexp for email addresses.
Message-Id: <slrnet71ah.2rh.abigail@alexandra.abigail.be>
use 5.9.5; # In fact, you need the newest blead.
my $email_address = qr {
(?(DEFINE)
(?<addr_spec> (?&local_part) \@ (?&domain))
(?<local_part> (?&dot_atom) | (?"ed_string))
(?<domain> (?&dot_atom) | (?&domain_literal))
(?<domain_literal> (?&CFWS)? \[ (?: (?&FWS)? (?&dcontent))* (?&FWS)?
\] (?&CFWS)?)
(?<dcontent> (?&dtext) | (?"ed_pair))
(?<dtext> (?&NO_WS_CTL) | [\x21-\x5a\x5e-\x7e])
(?<atext> (?&ALPHA) | (?&DIGIT) | [!#\$%&'*+-/=?^_`{|}~])
(?<atom> (?&CFWS)? (?&atext)+ (?&CFWS)?)
(?<dot_atom> (?&CFWS)? (?&dot_atom_text) (?&CFWS)?)
(?<dot_atom_text> (?&atext)+ (?: \. (?&atext)+)*)
(?<text> [\x01-\x09\x0b\x0c\x0e-\x7f])
(?<quoted_pair> \\ (?&text))
(?<qtext> (?&NO_WS_CTL) | [\x21\x23-\x5b\x5d-\x7e])
(?<qcontent> (?&qtext) | (?"ed_pair))
(?<quoted_string> (?&CFWS)? (?&DQUOTE) (?:(?&FWS)? (?&qcontent))*
(?&FWS)? (?&DQUOTE) (?&CFWS)?)
(?<word> (?&atom) | (?"ed_string))
(?<phrase> (?&word)+)
# Folding white space
(?<FWS> (?: (?&WSP)* (?&CRLF))? (?&WSP)+)
(?<ctext> (?&NO_WS_CTL) | [\x21-\x27\x2a-\x5b\x5d-\x7e])
(?<ccontent> (?&ctext) | (?"ed_pair) | (?&comment))
(?<comment> \( (?: (?&FWS)? (?&ccontent))* (?&FWS)? \) )
(?<CFWS> (?: (?&FWS)? (?&comment))*
(?: (?:(?&FWS)? (?&comment)) | (?&FWS)))
# No whitespace control
(?<NO_WS_CTL> [\x01-\x08\x0b\x0c\x0e-\x1f\x7f])
(?<ALPHA> [A-Za-z])
(?<DIGIT> [0-9])
(?<CRLF> \x0d \x0a)
(?<DQUOTE> ")
(?<WSP> [\x20\x09])
)
(?&addr_spec)
}x;
Abigail
--
perl -wlpe '}{$_=$.}{' file # Count the number of lines.
------------------------------
Date: 14 Feb 2007 16:54:15 -0800
From: "Mark" <google@markginsburg.com>
Subject: Re: waitpid woes on Solaris, Perl 5.8.8
Message-Id: <1171500855.829270.23500@a34g2000cwb.googlegroups.com>
On Feb 13, 11:22 am, "A" <ad_...@yahoo.com> wrote:
> I am getting intermittent unexpected result from waitpid on Solaris 9
>
> sub runIt
> {
> my $oldSigCld = $SIG{CLD};
> local $SIG{CLD} = \&sigChldHandler;
I think you meant sigCLDhandler here.
------------------------------
Date: Wed, 14 Feb 2007 22:10:01 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: works now ! was: bypass shell - pipe into child pid and receive otput
Message-Id: <er01ec.18s.1@news.isolution.nl>
Dave Weaver schreef:
> Dr.Ruud:
>> Mirco Wahab:
>>> my $pdf; do { local $/; $pdf = <$chld_out> };
>>
>> No need for the "do" there,
>>
>> my $pdf; {local $/; $pdf = <$chld_out>};
>>
>> is sufficient.
>
> or:
> my $pdf = do { local $/; <$chld_out> };
See news:eqrg6h.190.1@news.isolution.nl about the extra memory that that
construct uses.
:)
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 14 Feb 2007 11:49:19 -0800
From: FeelLikeANut@gmail.com
Subject: Wrong Server Port
Message-Id: <1171482559.177272.236820@m58g2000cwm.googlegroups.com>
I have a Web server on my comp set to use a port other than 80 for my
own testing purposes. This is making a problem for creating a self-
referencing URL, but I don't understand why. The CGI module works. I
looked at its source, and it seems to retrieve the port number through
$ENV{SERVER_PORT}, but when I access this environment variable in the
main body of my program, it is always incorrectly reporting port 80.
I'm sure someone will ask me why I don't just use the CGI module. It's
because I'm using CGI::Minimal instead, and because accessing this one
environment variable really should not be a big deal.
Can someone help me understand why $ENV{SERVER_PORT} reports
differently in the CGI module and in my main program? Thanks.
------------------------------
Date: 14 Feb 2007 13:12:13 -0800
From: "attn.steven.kuo@gmail.com" <attn.steven.kuo@gmail.com>
Subject: Re: Wrong Server Port
Message-Id: <1171487533.080690.145400@j27g2000cwj.googlegroups.com>
On Feb 14, 11:49 am, FeelLikeA...@gmail.com wrote:
> I have a Web server on my comp set to use a port other than 80 for my
> own testing purposes. This is making a problem for creating a self-
> referencing URL, but I don't understand why. The CGI module works. I
> looked at its source, and it seems to retrieve the port number through
> $ENV{SERVER_PORT}, but when I access this environment variable in the
> main body of my program, it is always incorrectly reporting port 80.
You might be better off asking this question in a group that
deals with web servers because the problem isn't related to Perl.
One way this can happen:
"A long-standing point of confusion for many Apache users
(and often developers) has been the difference between the
Listen and Port directive. In Apache 1.3, the Listen directive
specifies a port on which the server should accept connections,
and the Port directive makes the server think it is listening on
a particular port: so that redirects are generated for this port.
In 2.0, the Port directive has now been removed, and a port may
now be specified in ServerName to achieve the same effect..."[1]
[1] http://www.apacheweek.com/issues/01-10-05
> I'm sure someone will ask me why I don't just use the CGI module. It's
> because I'm using CGI::Minimal instead, and because accessing this one
> environment variable really should not be a big deal.
>
> Can someone help me understand why $ENV{SERVER_PORT} reports
> differently in the CGI module and in my main program? Thanks.
What do $ENV{HTTP_HOST} or $ENV{HTTP_X_FORWARDED_HOST}
contain?
--
Hope this helps,
Steven
------------------------------
Date: Wed, 14 Feb 2007 23:01:25 GMT
From: "Mumia W." <paduille.4060.mumia.w+nospam@earthlink.net>
Subject: Re: Wrong Server Port
Message-Id: <9xMAh.2213$Jl.2189@newsread3.news.pas.earthlink.net>
On 02/14/2007 01:49 PM, FeelLikeANut@gmail.com wrote:
> I have a Web server on my comp set to use a port other than 80 for my
> own testing purposes. This is making a problem for creating a self-
> referencing URL, but I don't understand why. The CGI module works. I
> looked at its source, and it seems to retrieve the port number through
> $ENV{SERVER_PORT}, but when I access this environment variable in the
> main body of my program, it is always incorrectly reporting port 80.
>
> I'm sure someone will ask me why I don't just use the CGI module. It's
> because I'm using CGI::Minimal instead, and because accessing this one
> environment variable really should not be a big deal.
>
> Can someone help me understand why $ENV{SERVER_PORT} reports
> differently in the CGI module and in my main program? Thanks.
>
use strict;
use warnings;
use Data::Dumper;
print "Content-Type: text/plain\n\n";
my $selfuri = "http://$ENV{HTTP_HOST}$ENV{REQUEST_URI}";
print "Self: $selfuri\n";
print '--------------------------------',"\n";
print "Why not look at ALL of the environment variables?\n";
print '--------------------------------',"\n";
print Dumper(\%ENV);
__HTH__
--
Windows Vista and your freedom in conflict:
http://www.securityfocus.com/columnists/420/2
------------------------------
Date: 14 Feb 2007 16:53:36 -0800
From: FeelLikeANut@gmail.com
Subject: Re: Wrong Server Port
Message-Id: <1171500816.791004.59770@a75g2000cwd.googlegroups.com>
On Feb 14, 6:01 pm, "Mumia W." <paduille.4060.mumia.w
+nos...@earthlink.net> wrote:
> On 02/14/2007 01:49 PM, FeelLikeA...@gmail.com wrote:
>
> > I have a Web server on my comp set to use a port other than 80 for my
> > own testing purposes. This is making a problem for creating a self-
> > referencing URL, but I don't understand why. The CGI module works. I
> > looked at its source, and it seems to retrieve the port number through
> > $ENV{SERVER_PORT}, but when I access this environment variable in the
> > main body of my program, it is always incorrectly reporting port 80.
>
> > I'm sure someone will ask me why I don't just use the CGI module. It's
> > because I'm using CGI::Minimal instead, and because accessing this one
> > environment variable really should not be a big deal.
>
> > Can someone help me understand why $ENV{SERVER_PORT} reports
> > differently in the CGI module and in my main program? Thanks.
>
> use strict;
> use warnings;
> use Data::Dumper;
>
> print "Content-Type: text/plain\n\n";
>
> my $selfuri = "http://$ENV{HTTP_HOST}$ENV{REQUEST_URI}";
>
> print "Self: $selfuri\n";
> print '--------------------------------',"\n";
> print "Why not look at ALL of the environment variables?\n";
> print '--------------------------------',"\n";
> print Dumper(\%ENV);
>
> __HTH__
>
> --
> Windows Vista and your freedom in conflict:http://www.securityfocus.com/columnists/420/2
I don't want to use HTTP_HOST or HTTP_X_FORWARDED_HOST or
HTTP_*anything*, because those are set by the browser, not the server,
and I'd much rather not rely on them.
The CGI module uses SERVER_PORT, and the CGI module works. I was
hoping people could help inform me why this is. (The CGI module, btw,
is a whole lot of Perl code. Just because the code targets another
kind of technology does not magically remove all relatedness to Perl.)
------------------------------
Date: 14 Feb 2007 18:04:48 -0800
From: "attn.steven.kuo@gmail.com" <attn.steven.kuo@gmail.com>
Subject: Re: Wrong Server Port
Message-Id: <1171505088.889881.131860@j27g2000cwj.googlegroups.com>
On Feb 14, 4:53 pm, FeelLikeA...@gmail.com wrote:
> On Feb 14, 6:01 pm, "Mumia W." <paduille.4060.mumia.w
(snipped)
> I don't want to use HTTP_HOST or HTTP_X_FORWARDED_HOST or
> HTTP_*anything*, because those are set by the browser, not the server,
> and I'd much rather not rely on them.
>
> The CGI module uses SERVER_PORT, and the CGI module works. I was
> hoping people could help inform me why this is. (The CGI module, btw,
> is a whole lot of Perl code. Just because the code targets another
> kind of technology does not magically remove all relatedness to Perl.)
Take another look at CGI.pm. It does check for HTTP_HOST, etc.
The 'url' method calls the 'http' method and uses
$ENV{HTTP_HOST} under certain conditions. In fact it
seems to prefer HTTP_HOST (if found) over SERVER_PORT:
'url' => <<'END_OF_FUNC',
sub url {
my($self,@p) = self_or_default(@_);
my ($relative,$absolute,$full,$path_info,$query,$base,$rewrite) =
rearrange(['RELATIVE','ABSOLUTE','FULL',['PATH','PATH_INFO'],
['QUERY','QUERY_STRING'],'BASE','REWRITE'],@p);
my $url = '';
$full++ if $base || !($relative || $absolute);
$rewrite++ unless defined $rewrite;
my $path = $self->path_info;
my $script_name = $self->script_name;
my $request_uri = unescape($self->request_uri) || '';
my $query_str = $self->query_string;
my $rewrite_in_use = $request_uri && $request_uri !~ /^
$script_name/; undef $path if $rewrite_in_use && $rewrite; # path
not valid when rewriting active
my $uri = $rewrite && $request_uri ? $request_uri :
$script_name;
if ($full) {
my $protocol = $self->protocol();
$url = "$protocol://";
my $vh = http('x_forwarded_host') || http('host'); # <<<<<<<
LOOK HERE <<<<<<
if ($vh) {
$url .= $vh;
} else {
$url .= server_name();
my $port = $self->server_port;
# ...
'http' => <<'END_OF_FUNC',
sub http {
my ($self,$parameter) = self_or_CGI(@_);
return $ENV{$parameter} if $parameter=~/^HTTP/;
$parameter =~ tr/-/_/;
return $ENV{"HTTP_\U$parameter\E"} if $parameter; # <<<<<< LOOK
HERE <<<<<<<
my(@p);
foreach (keys %ENV) {
push(@p,$_) if /^HTTP/;
}
return @p;
}
END_OF_FUNC
--
Hope this helps,
Steven
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 137
**************************************
