[28874] in Perl-Users-Digest
Perl-Users Digest, Issue: 118 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Feb 9 23:16:24 2007
Date: Fri, 9 Feb 2007 20:15:45 -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 Fri, 9 Feb 2007 Volume: 11 Number: 118
Today's topics:
perl subroutine worlman385@yahoo.com
Re: perl subroutine <spamtrap@dot-app.org>
Re: perl subroutine <wahab-mail@gmx.de>
Re: perl subroutine <john@castleamber.com>
Re: perl subroutine <john@castleamber.com>
Re: perl subroutine <uri@stemsystems.com>
Re: perl subroutine <john@castleamber.com>
Re: perl subroutine <spamtrap@dot-app.org>
Re: perl subroutine <bik.mido@tiscalinet.it>
Re: perl subroutine <bik.mido@tiscalinet.it>
Re: perl subroutine <uri@stemsystems.com>
Re: perl subroutine anno4000@radom.zrz.tu-berlin.de
Re: perl subroutine <bik.mido@tiscalinet.it>
Re: perl subroutine <bik.mido@tiscalinet.it>
perl variables allocated in shared memory - feasible/po <reply2listplease@example.com>
Re: perl variables allocated in shared memory - feasibl xhoster@gmail.com
PerlScript + ASP on IIS question <moshe.hajaj@gmail.com>
Re: Permutation with a twist ?? <rvtol+news@isolution.nl>
please explain to me, it is too complex <robertchen117@gmail.com>
Re: please explain to me, it is too complex <jurgenex@hotmail.com>
Re: please explain to me, it is too complex <bik.mido@tiscalinet.it>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 07 Feb 2007 15:48:26 -0800
From: worlman385@yahoo.com
Subject: perl subroutine
Message-Id: <t5pks2dperp2jgabvgpg1b183dq520lftd@4ax.com>
what are the difference of below 2 factorial function?
the 1st return 0;
the 2nd return factorial result;
what 's the problem of 1st one?
sub factorial
{
$number = $_[0];
if ( $number == 0 ) {
1;
}
else {
$number * factorial( $number - 1 );
}
}
sub factorial
{
if ($_[0] == 0) {
1;
}
else {
$_[0] * factorial($_[0]-1);
}
}
------------------------------
Date: Wed, 07 Feb 2007 19:00:57 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: perl subroutine
Message-Id: <m2bqk5zfeu.fsf@Sherm-Pendleys-Computer.local>
worlman385@yahoo.com writes:
> what are the difference of below 2 factorial function?
>
> the 1st return 0;
> the 2nd return factorial result;
>
> what 's the problem of 1st one?
The problem is the same with both - you're relying on an implicit return
of the last expression evaluated. That *happens* to work in the second,
but that's fragile and not recommended; even adding something completely
unrelated to the value you want to return (setting the value of a package
variable, for instance) could affect the value your sub returns.
Another problem is that you're not using 'strict', or properly declaring
your lexical variable $number.
You should use an explicit return() instead:
> sub factorial
> {
> $number = $_[0];
my $number = $_[0];
# Or, more commonly, to allow you to easily add arguments:
# my ($number) = @_;
> if ( $number == 0 ) {
return 1;
> }
> else {
> $number * factorial( $number - 1 );
> }
return $number;
> }
>
> sub factorial
> {
> if ($_[0] == 0) {
return 1;
> }
> else {
return $_[0] * factorial($_[0]-1);
> }
> }
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Thu, 08 Feb 2007 00:49:23 +0100
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: perl subroutine
Message-Id: <eqdqba$kdf$1@mlucom4.urz.uni-halle.de>
worlman385@yahoo.com wrote:
> what are the difference of below 2 factorial function?
>
> the 1st return 0;
> the 2nd return factorial result;
>
> what 's the problem of 1st one?
>
> sub factorial
> {
> $number = $_[0];
>
> if ( $number == 0 ) {
> 1;
> }
> else {
> $number * factorial( $number - 1 );
> }
> }
The problem is the 'global' variable $number,
which has no definition within the actual stack
frame, so all accesses to $number refer to the
same variable (which gets overwritten by 0
in the deepest recursion).
Just use
my $number = $_[0];
and thats it.
BTW, next time use the usual prolog
and don't do 'cool' implicicte returns
if more then one return point.
use strict;
use warnings;
sub factorial {
my $number = $_[0];
return 1 if $number == 0;
return $number * factorial( $number - 1 );
}
Regards
M.
------------------------------
Date: 8 Feb 2007 00:17:48 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: perl subroutine
Message-Id: <Xns98D0BA1F534B9castleamber@130.133.1.4>
Sherm Pendley <spamtrap@dot-app.org> wrote:
> worlman385@yahoo.com writes:
> # Or, more commonly, to allow you to easily add arguments:
> # my ($number) = @_;
Or if you're sure it's 1 (or for other reasons):
my $number = shift;
>> if ( $number == 0 ) {
> return 1;
>> }
No need for IMO else, because the if returns. I probably would have
written:
$number or return 1;
>> else {
>> $number * factorial( $number - 1 );
>> }
> return $number;
Doesn't work. :-D
else {
return $number * factorial( $number - 1 );
}
or just (without the else):
return $number * factorial( $number - 1 );
--
John
Google Earth and a vacuum cleaner
http://johnbokma.com/mexit/2005/09/15/
------------------------------
Date: 8 Feb 2007 01:09:22 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: perl subroutine
Message-Id: <Xns98D0C2DE28548castleamber@130.133.1.4>
Mirco Wahab <wahab-mail@gmx.de> wrote:
> sub factorial {
> my $number = $_[0];
> return 1 if $number == 0;
> return $number * factorial( $number - 1 );
> }
or:
sub factorial {
my $number = $_[0];
return $number == 0
? 1
: $number * factorial( $number - 1 )
;
}
--
John
Hypnotize: the track list
http://johnbokma.com/mexit/2005/09/20/
------------------------------
Date: Wed, 07 Feb 2007 20:11:31 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: perl subroutine
Message-Id: <x7ired5u7w.fsf@mail.sysarch.com>
>>>>> "JB" == John Bokma <john@castleamber.com> writes:
JB> Sherm Pendley <spamtrap@dot-app.org> wrote:
>>> if ( $number == 0 ) {
>> return 1;
>>> }
JB> No need for IMO else, because the if returns. I probably would have
JB> written:
JB> $number or return 1;
JB> else {
JB> return $number * factorial( $number - 1 );
JB> }
JB> or just (without the else):
JB> return $number * factorial( $number - 1 );
you are pushing a concept i have used for years and are now calling,
eschew else! :)
i hate seeing flow control in if blocks and then useles else blocks
which should be main level code. and if you use statement modifiers (or
or as you show) it makes things even cleaner. 10k lines of stem have
about 25 elses.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 8 Feb 2007 01:35:17 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: perl subroutine
Message-Id: <Xns98D0C7431B8DBcastleamber@130.133.1.4>
Uri Guttman <uri@stemsystems.com> wrote:
> you are pushing a concept i have used for years and are now calling,
> eschew else! :)
:-D. I rarely use else, I prefer to exit early. I doubt I even have 25
elses in code that consist of 10k lines.
--
John
Disabling the tabs in Messenger
http://johnbokma.com/messenger/disabling-tabs-msn.html
------------------------------
Date: Wed, 07 Feb 2007 21:09:28 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: perl subroutine
Message-Id: <m2y7n9xuw7.fsf@Sherm-Pendleys-Computer.local>
John Bokma <john@castleamber.com> writes:
> Sherm Pendley <spamtrap@dot-app.org> wrote:
>
>>> else {
>>> $number * factorial( $number - 1 );
>>> }
>> return $number;
>
> Doesn't work. :-D
D'oh! Missed that typo in the original - I was thinking *=, not *.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Thu, 08 Feb 2007 17:33:50 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: perl subroutine
Message-Id: <i3kms2pvshk65ita1b8pug3k1n5pp7d9lp@4ax.com>
On Thu, 08 Feb 2007 00:49:23 +0100, Mirco Wahab <wahab-mail@gmx.de>
wrote:
>BTW, next time use the usual prolog
>and don't do 'cool' implicicte returns
>if more then one return point.
>
> use strict;
> use warnings;
>
> sub factorial {
> my $number = $_[0];
> return 1 if $number == 0;
> return $number * factorial( $number - 1 );
> }
Yeah, I like and use the implicit return all the time, but never ever
with an if...else structure like that. Actually I wouldn't have even
thought it to work. Appearently the return value is the last
expression evaluated. Come to think of it: that's the documented way
for things to happen. Whatever, it's just *too* implicit.
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: Thu, 08 Feb 2007 17:46:37 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: perl subroutine
Message-Id: <mtkms21b8cjfj4bld00melr6ai9l187e9s@4ax.com>
On Wed, 07 Feb 2007 20:11:31 -0500, Uri Guttman <uri@stemsystems.com>
wrote:
> JB> or just (without the else):
>
> JB> return $number * factorial( $number - 1 );
>
>you are pushing a concept i have used for years and are now calling,
>eschew else! :)
Given he who wrote the eschew else here, it's certainly just a typo!
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: Thu, 08 Feb 2007 13:00:43 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: perl subroutine
Message-Id: <x7d54k4jhw.fsf@mail.sysarch.com>
>>>>> "MD" == Michele Dondi <bik.mido@tiscalinet.it> writes:
MD> On Thu, 08 Feb 2007 00:49:23 +0100, Mirco Wahab <wahab-mail@gmx.de>
MD> wrote:
>> BTW, next time use the usual prolog
>> and don't do 'cool' implicicte returns
>> if more then one return point.
>>
>> use strict;
>> use warnings;
>>
>> sub factorial {
>> my $number = $_[0];
>> return 1 if $number == 0;
>> return $number * factorial( $number - 1 );
>> }
MD> Yeah, I like and use the implicit return all the time, but never ever
MD> with an if...else structure like that. Actually I wouldn't have even
MD> thought it to work. Appearently the return value is the last
MD> expression evaluated. Come to think of it: that's the documented way
MD> for things to happen. Whatever, it's just *too* implicit.
well we disagree on that one too. :) i strongly support using return
calls in almost all cases. there are some places (like a dispatch table
of short subs and or some very short regular subs) where i might do an
implicit return. but never as the result of an if/else. might as well
use ?: there which is what it is for.
i have more reasons to use return statements but i am not in the mood to
write them up. i am sure i have flamed about it before so google for it
if you want. :)
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 8 Feb 2007 19:07:49 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: perl subroutine
Message-Id: <531ao5F1qk54iU1@mid.dfncis.de>
Michele Dondi <bik.mido@tiscalinet.it> wrote in comp.lang.perl.misc:
> On Thu, 08 Feb 2007 00:49:23 +0100, Mirco Wahab <wahab-mail@gmx.de>
> wrote:
>
> >BTW, next time use the usual prolog
> >and don't do 'cool' implicicte returns
> >if more then one return point.
> >
> > use strict;
> > use warnings;
> >
> > sub factorial {
> > my $number = $_[0];
> > return 1 if $number == 0;
> > return $number * factorial( $number - 1 );
> > }
>
> Yeah, I like and use the implicit return all the time, but never ever
> with an if...else structure like that. Actually I wouldn't have even
> thought it to work. Appearently the return value is the last
> expression evaluated. Come to think of it: that's the documented way
> for things to happen. Whatever, it's just *too* implicit.
I don't even think it *should* work. An if statement doesn't have
a value and nowhere else is it treated as if it had one.
my $y = if ( $x ) { 1 } else { 2 };
and
func( if ( $x ) { 1 ) else { 2 });
are syntax errors. So is an explicit return of an if-statement.
Only the implicit return coaxes a value out of an if-statement
that it otherwise doesn't have.
As sub whose last statement is a loop (while or for) returns empty,
not the value of the last statement executed in the loop. "if" should
behave likewise.
Anno
------------------------------
Date: Thu, 08 Feb 2007 23:35:35 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: perl subroutine
Message-Id: <u89ns2ttm2glfo8eldmo64lp1f2qddvc9c@4ax.com>
On Thu, 08 Feb 2007 13:00:43 -0500, Uri Guttman <uri@stemsystems.com>
wrote:
> MD> Yeah, I like and use the implicit return all the time, but never ever
^^^^^^^^^^
^^^^^^^^^^
> MD> with an if...else structure like that. Actually I wouldn't have even
> MD> thought it to work. Appearently the return value is the last
> MD> expression evaluated. Come to think of it: that's the documented way
> MD> for things to happen. Whatever, it's just *too* implicit.
>
>well we disagree on that one too. :) i strongly support using return
>calls in almost all cases. there are some places (like a dispatch table
>of short subs and or some very short regular subs) where i might do an
>implicit return. but never as the result of an if/else. might as well
^^^^^
^^^^^
Read better: we *do* disagree. But not that much!
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: Thu, 08 Feb 2007 23:36:44 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: perl subroutine
Message-Id: <le9ns2de3j4coin4c7ffv786ocip8hos14@4ax.com>
On 8 Feb 2007 19:07:49 GMT, anno4000@radom.zrz.tu-berlin.de wrote:
>I don't even think it *should* work. An if statement doesn't have
>a value and nowhere else is it treated as if it had one.
[snip]
>As sub whose last statement is a loop (while or for) returns empty,
>not the value of the last statement executed in the loop. "if" should
>behave likewise.
Totally agreeing here!
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: Sat, 3 Feb 2007 22:48:17 +1100
From: "Chris" <reply2listplease@example.com>
Subject: perl variables allocated in shared memory - feasible/possible/done already?
Message-Id: <45c4767f$0$6098$5a62ac22@per-qv1-newsreader-01.iinet.net.au>
Hi All,
I'd like to run several processes on a single machine, and have the
first one create a perl variable which gets stored in shared memory,
then the rest to be able to read and write to this same shared
variable.
I have not seen any modules that do this - which I put down to the
likelihood that this is probably an "internals" kind of problem,
possibly needing me to mess with perl source?
Does anyone reading this have knowledge or experience with the
mechanism perl uses to allocate storage for variables, and if so - do
you know if it would be feasible to implement, and if so, whether it
would need me to edit the perl source, or if it might be doable via xs
or some other "conventional" way?
Extreme performance is my goal, so solutions requiring anything slow
will not be appropriate.
Selected scalars, lists, and hashes will all need to be stored.
I code in Linux, but can also do Windows or Mac if needs be, and yes -
I know the shared memory facilities between these are immensely
different :-(
I'm greatful for any/all hints/tips! If for some reason you can't reply to
the group, reply to pobox.com with christopher@ on the front.
------------------------------
Date: 03 Feb 2007 18:12:16 GMT
From: xhoster@gmail.com
Subject: Re: perl variables allocated in shared memory - feasible/possible/done already?
Message-Id: <20070203131234.692$ai@newsreader.com>
"Chris" <reply2listplease@example.com> wrote:
> Hi All,
>
> I'd like to run several processes on a single machine, and have the
> first one create a perl variable which gets stored in shared memory,
> then the rest to be able to read and write to this same shared
> variable.
>
> I have not seen any modules that do this - which I put down to the
> likelihood that this is probably an "internals" kind of problem,
> possibly needing me to mess with perl source?
IPC::Shareable
IPC::ShareLite
IPC::SharedCache
>
> Does anyone reading this have knowledge or experience with the
> mechanism perl uses to allocate storage for variables, and if so - do
> you know if it would be feasible to implement, and if so, whether it
> would need me to edit the perl source, or if it might be doable via xs
> or some other "conventional" way?
>
> Extreme performance is my goal, so solutions requiring anything slow
> will not be appropriate.
Um, Perl itself is requires something slow--the whole overhead of the perl
run time and its umpteen levels of indirection. If extreme performance
is your goal, program in C.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 7 Feb 2007 01:07:16 -0800
From: "Moshe Hajaj" <moshe.hajaj@gmail.com>
Subject: PerlScript + ASP on IIS question
Message-Id: <1170839236.741210.112510@a34g2000cwb.googlegroups.com>
I have a PerlScript integrated into ASP (not aspx..) code, I have two
problems:
1 - How do I send the value of the option selected from the drop-down
list box (with select tag), using onchange event?
2 - How do I make the list box contain a dynamically created array (an
input from another command, or SQL query)?
thanks,
moshe
------------------------------
Date: Sat, 3 Feb 2007 11:14:12 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Permutation with a twist ??
Message-Id: <eq1qsn.1dg.1@news.isolution.nl>
marora@gmail.com schreef:
> I am looking for an algorithm to do as follows:
>
> my @array = qw (A B C); # This array may have several parameters, for
> ex. A B C D
>
> I will like to generate following (not sure if this will be called
> permutation):
>
> <NULL>
> C
> B
> A
> B C
> A C
> A B
> A B C
Partial solution:
perl -wle 'printf "%0*b\n", 0+@ARGV, $_ for 0..2**@ARGV-1' a b c d
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 8 Feb 2007 19:16:38 -0800
From: "robertchen117@gmail.com" <robertchen117@gmail.com>
Subject: please explain to me, it is too complex
Message-Id: <1170990998.915817.179100@j27g2000cwj.googlegroups.com>
Why the following is excuting the setup_env.sh, I am confused, grep?
grep is finding something?
grep (do { chop; s/^([^=]+)=(.*)$/$ENV{$1}=$2/e},`. /etc/software/
setup_env.sh; env`);
------------------------------
Date: Fri, 09 Feb 2007 03:56:47 GMT
From: "Jščrgen Exner" <jurgenex@hotmail.com>
Subject: Re: please explain to me, it is too complex
Message-Id: <3iSyh.6898$FM3.6768@trndny06>
robertchen117@gmail.com wrote:
> Why the following is excuting the setup_env.sh, I am confused, grep?
> grep is finding something?
>
> grep (do { chop; s/^([^=]+)=(.*)$/$ENV{$1}=$2/e},`. /etc/software/
> setup_env.sh; env`);
Newline and white space is usually not a scarce resource. Use it liberally
to improve readability:
grep (do { chop; s/^([^=]+)=(.*)$/$ENV{$1}=$2/e
},
`. /etc/software/setup_env.sh; env`
);
So, in other words the second argument of grep is the qx command, here
written as backticks. Of course this command is executed, how else would
grep() be able to filter the list for those items indicated by the first
argument. What did you expect to happen?
jue
------------------------------
Date: Fri, 09 Feb 2007 15:41:56 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: please explain to me, it is too complex
Message-Id: <0o1ps2hce0dmi99bn4qpvr75v1rr6upa01@4ax.com>
On 8 Feb 2007 19:16:38 -0800, "robertchen117@gmail.com"
<robertchen117@gmail.com> wrote:
>Why the following is excuting the setup_env.sh, I am confused, grep?
>grep is finding something?
>
>grep (do { chop; s/^([^=]+)=(.*)$/$ENV{$1}=$2/e},`. /etc/software/
>setup_env.sh; env`);
Because you're asking it to, by means of backticks. grep() is not
doing much there. In fact you're throwing its return value away. Also
I'm fond of the EXPR form of grep() (and map()), but I would really
use the BLOCK one rather than do do() acrobatics to stick with it at
all costs. Last, chop() would better be a chomp() as usual.
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: 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 118
**************************************
