[29115] in Perl-Users-Digest
Perl-Users Digest, Issue: 359 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Apr 19 18:10:01 2007
Date: Thu, 19 Apr 2007 15:09:17 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 19 Apr 2007 Volume: 11 Number: 359
Today's topics:
Re: Any Help? Stuck trying to create cgi perl program <bik.mido@tiscalinet.it>
Re: Any Help? Stuck trying to create cgi perl program <bik.mido@tiscalinet.it>
Re: die problem? <bik.mido@tiscalinet.it>
Re: Lexical reference to an anonymous recursive subrout <bik.mido@tiscalinet.it>
Re: Lexical reference to an anonymous recursive subrout (aka ? the Platypus)
Re: Lexical reference to an anonymous recursive subrout <wahab-mail@gmx.de>
Re: Lexical reference to an anonymous recursive subrout <bik.mido@tiscalinet.it>
Re: Lexical reference to an anonymous recursive subrout <lorian@fsavigny.de>
Re: Lexical reference to an anonymous recursive subrout <nobull67@gmail.com>
Re: Lexical reference to an anonymous recursive subrout <uri@stemsystems.com>
Re: looking for some size optimization <nospam-abuse@ilyaz.org>
Re: Server For Rent? Where? <kkeller-usenet@wombat.san-francisco.ca.us>
Re: Server For Rent? Where? <bik.mido@tiscalinet.it>
Re: Server For Rent? Where? <bik.mido@tiscalinet.it>
Re: Server For Rent? Where? <nikos1337@gmail.com>
Re: Server For Rent? Where? <nikos1337@gmail.com>
Re: Server For Rent? Where? <bik.mido@tiscalinet.it>
Re: shorter question ref. simple code <jgibson@mail.arc.nasa.gov>
Re: shorter question ref. simple code <bik.mido@tiscalinet.it>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 19 Apr 2007 21:17:45 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Any Help? Stuck trying to create cgi perl program
Message-Id: <n1gf23h1g3g6c2k832m4t728j59s6ap831@4ax.com>
On 19 Apr 2007 08:48:43 -0700, shadkeene@hotmail.com wrote:
>Joe, I think I understand what you're doing and I've tried to apply it
>to my program, but I'm getting error messages stating "@fields,
>@output, %param, @fields, @output" require explicit package name.
>I'll show you what I wrote:
Just declare them.
>@fields = qw(AE, EG, amTAF, pmTAF) ###where the textbox1, etc are
make that
my @fields = ...
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, 19 Apr 2007 21:18:21 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Any Help? Stuck trying to create cgi perl program
Message-Id: <13gf23hlviihkg8jdodhgl119519t850qa@4ax.com>
On 19 Apr 2007 09:21:40 -0700, shadkeene@hotmail.com wrote:
>@fields =3D qw(AE, EG, amTAF, pmTAF, etc) in the code. That error went
>away but still have the %param error. Is the "my" enough to declare
>the array @fields? Thanks,
Yes, but you also need to have
my %param;
somewhere.
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, 19 Apr 2007 21:30:21 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: die problem?
Message-Id: <2ngf23pr9ki97s1hoih53d4edtvc83svum@4ax.com>
On 19 Apr 2007 09:47:20 -0700, g4173c@motorola.com wrote:
>The system call has a typo for the command. I thought that it should
>have stopped there, however I get this:
You guessed wrong. Unlike other commands, system() returns the Perl
fals value 0 on success. Hence you can't do error checking with || die
when dealing with it.
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, 19 Apr 2007 21:39:42 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Lexical reference to an anonymous recursive subroutine: impossible?
Message-Id: <4ugf231soc51fpqfb1vruhao112mgbo5u1@4ax.com>
On 19 Apr 2007 10:07:15 -0700, florian <lorian@fsavigny.de> wrote:
>Subject: Lexical reference to an anonymous recursive subroutine: impossible?
No, possible.
my $fib = do {
my $rec;
$rec = sub {
my $n=shift;
return +($n % 2 ? 1 : -1)*$rec->(-$n) if $n < 0;
return $n if $n < 2;
$rec->($n-1)+$rec->($n-2);
}
};
Sorry, I'm too tired ATM to read the rest of your post.
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: Thu, 19 Apr 2007 20:21:56 GMT
From: "David Formosa (aka ? the Platypus)" <dformosa@usyd.edu.au>
Subject: Re: Lexical reference to an anonymous recursive subroutine: impossible?
Message-Id: <slrnf2fkdv.o5h.dformosa@localhost.localdomain>
On 19 Apr 2007 10:07:15 -0700, florian <lorian@fsavigny.de> wrote:
[...]
> but this (the line numbers are not part of the code):
>
> 1 $times = 0;
> 2
> 3 {
> 4
> 5 my $code_ref = sub {
> 6 $times++;
> 7 print "Hello, there!\n";
> 8 $code_ref->() until ($times == 3);
> 9 };
> 10
> 11 $code_ref->();
> 12
> 13 }
>
> prints
>
> > Hello, there!
> > Undefined subroutine &main:: called at script line 8.
>
> Thus, the anonymous subroutine referenced to in $code_ref is called
> exactly once (from line 11), but apparently it cannot be found when
> called from within itself (at line 8).
The way my works in this situation is rather irratating. The problem
is that my declares that $code_ref after the end of my statement. So
$code_ref isn't in scope on the RHS of the assignment.
What you wish to do is
{
my $times = 0;
my $code_ref;
$code_ref = sub {
$times++;
print "Hello, there!\n";
$code_ref->() unless ($times < 4);
}
}
------------------------------
Date: Thu, 19 Apr 2007 22:41:54 +0200
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: Lexical reference to an anonymous recursive subroutine: impossible?
Message-Id: <f08lrb$k2s$1@mlucom4.urz.uni-halle.de>
florian wrote:
> - I am programming a library function (in a module) that has a helper
> function. Ideally, this helper function should be visible only to the
> library function which uses it. Knowing that it is possible to say
> ...
> ...
> 5 my $code_ref = sub {
> 6 $times++;
> 7 print "Hello, there!\n";
> 8 $code_ref->() until ($times == 3);
> 9 };
> 10
> 11 $code_ref->();
> ...
> > Hello, there!
> > Undefined subroutine &main:: called at script line 8.
>
> Is there anybody who can, and would care to, explain the reasons for
> this?
There have already been several correct solutions
posted, I'll only make a small addendum.
Depending on what you exactly trying to do,
you could drop the external variables and work
on the stack in your inner sub:
{
my $code_ref;
$code_ref = sub {
warn "@_\n";
push @_,-1+pop@_ and $_[1] and &$code_ref
};
$code_ref->('Hello, there!', 3);
}
This would recursively invoke the sub
and modify stack values directly, so
it can't be interfered with from outside.
Regards
M.
------------------------------
Date: Thu, 19 Apr 2007 23:32:50 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Lexical reference to an anonymous recursive subroutine: impossible?
Message-Id: <jtnf23tat93lm3gmfasrhbt3mehssfr18t@4ax.com>
On Thu, 19 Apr 2007 22:41:54 +0200, Mirco Wahab <wahab-mail@gmx.de>
wrote:
>This would recursively invoke the sub
>and modify stack values directly, so
>it can't be interfered with from outside.
Wouldn't it be the case of magic-goto() then? (CAVEAT: I'm terribly
tired -and halfdrunk- and I didn't check if this is applicable to the
current situation.)
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: 19 Apr 2007 14:49:23 -0700
From: florian <lorian@fsavigny.de>
Subject: Re: Lexical reference to an anonymous recursive subroutine: impossible?
Message-Id: <1177019363.826592.98450@q75g2000hsh.googlegroups.com>
On Apr 19, 10:21 pm, "David Formosa (aka ? the Platypus)"
<dform...@usyd.edu.au> wrote:
> The way my works in this situation is rather irratating. The problem
> is that my declares that $code_ref after the end of my statement. So
> $code_ref isn't in scope on the RHS of the assignment.
Oh indeed ... thanks very much for this simple explanation. Now I even
spotted the according sentence in the documentation for 'my' (Camel
Book):
A private variable is not visible until the statement /after/ its
declaration.
(i.e. not within the same statement.) I just marked that sentence in
yellow (because it is much more important than a lot of other stuff
explained there). In a sense, I have learned, a statement such as
my $var = $var + 1;
(I know - who would want to do such a thing?) must be read right side
first, something which is actually familiar, as this is the case with
all assignments, come to think of it. In
$var = $var + 1; # clumsy, generic alternative to $var++;
the expression $var + 1 is evaluated _first_, and _then_ the result is
assigned to $var.
Thanks very much!
Florian
------------------------------
Date: 19 Apr 2007 15:04:04 -0700
From: Brian McCauley <nobull67@gmail.com>
Subject: Re: Lexical reference to an anonymous recursive subroutine: impossible?
Message-Id: <1177020244.111194.163460@y80g2000hsf.googlegroups.com>
On Apr 19, 9:08 pm, Uri Guttman <u...@stemsystems.com> wrote:
> >>>>> "BM" == Brian McCauley <nobul...@gmail.com> writes:
>
> BM> my $times = 0;
> BM> {
>
> BM> my $code_ref;
> BM> $code_ref = sub {
> BM> $times++;
> BM> print "Hello, there!\n";
> BM> $code_ref->() until ($times == 3);
> BM> };
>
> BM> $code_ref->();
> BM> undef $code_ref;
> BM> }
>
> BM> Note the final undef. This is because you've created a circular
> BM> reference. Without the explicit undef, when the execution pointer
> BM> passes the point where the variable $code_ref goes out of scope the
> BM> closure will not get garbage collected.
>
> that code ref should be garbage collected even without the undef as it
> leaves scope. nothing outside that block refers to it so it has only one
> ref count which goes to 0 upon block exit. should be very simple to test
> for this by also blessing it and creating a DESTROY method to print that
> it was destroyed.
Please see the previous thread (2nd one referenced in my post) where
you asserted exactly the same thing. You were wrong then (and you
admitted it). You're wrong again.
------------------------------
Date: Thu, 19 Apr 2007 16:08:20 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Lexical reference to an anonymous recursive subroutine: impossible?
Message-Id: <x7ejmgqg97.fsf@mail.sysarch.com>
>>>>> "BM" == Brian McCauley <nobull67@gmail.com> writes:
BM> my $times = 0;
BM> {
BM> my $code_ref;
BM> $code_ref = sub {
BM> $times++;
BM> print "Hello, there!\n";
BM> $code_ref->() until ($times == 3);
BM> };
BM> $code_ref->();
BM> undef $code_ref;
BM> }
BM> Note the final undef. This is because you've created a circular
BM> reference. Without the explicit undef, when the execution pointer
BM> passes the point where the variable $code_ref goes out of scope the
BM> closure will not get garbage collected.
that code ref should be garbage collected even without the undef as it
leaves scope. nothing outside that block refers to it so it has only one
ref count which goes to 0 upon block exit. should be very simple to test
for this by also blessing it and creating a DESTROY method to print that
it was destroyed.
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: Thu, 19 Apr 2007 20:30:49 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: looking for some size optimization
Message-Id: <f08jhp$qmc$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Marc Espie
<espie@nerim.net>], who wrote in article <f04q9v$2a3p$1@biggoron.nerim.net>:
> If you do not see how to optimize things further, no hardship...
You still do not follow... We see tens of ways; but without knowing
(exactly) what you do, and (approximately) how to data looks like, we
cannot choose between those which have a chance to work, and those
which won't.
Hope this helps,
Ilya
------------------------------
Date: Thu, 19 Apr 2007 11:17:52 -0700
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: Server For Rent? Where?
Message-Id: <gbokf4x458.ln2@goaway.wombat.san-francisco.ca.us>
On 2007-04-19, skieros <nikos1337@gmail.com> wrote:
>
> Couldnt care less....and i dotn have an online spelling checker, the
> typos are due to speed iam writing...
If you took that time to think about what you're writing, perhaps you'd
realize that this is *still* not an appropriate place for your question.
At this point, I think that even if people did have a recommendation,
they wouldn't tell you, to avoid inflicting a customer like you on a
decent web host.
--keith
--
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://www.therockgarden.ca/aolsfaq.txt
see X- headers for PGP signature information
------------------------------
Date: Thu, 19 Apr 2007 21:20:50 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Server For Rent? Where?
Message-Id: <b6gf23lvlpu1s686buf0gkk2bdtd48pjr9@4ax.com>
On Thu, 19 Apr 2007 14:37:19 GMT, "Jürgen Exner"
<jurgenex@hotmail.com> wrote:
> THIS USENET NEWSGROUP IS FOR DISCUSSING THE Perl PROGRAMMING LANGUAGE.
>
>This group has nothing to do with CGI and it has nothing to do with web
s/nothing/very little/g;
>servers and it certainly has nothing to do with aquiring whatever server it
>is you are looking for, no matter if for rent or for free.
s/nothing/$&/g; # Oh, well!
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, 19 Apr 2007 21:22:22 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Server For Rent? Where?
Message-Id: <79gf231phf39vtl9tfcfu02sg26fo085fj@4ax.com>
On 19 Apr 2007 09:10:14 -0700, skieros <nikos1337@gmail.com> wrote:
>Couldnt care less....and i dotn have an online spelling checker, the
>typos are due to speed iam writing...
Wriet more slowly tehn! Respect the people you're talking to. Or else
how do you expect them to respect you?
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: 19 Apr 2007 13:29:19 -0700
From: skieros <nikos1337@gmail.com>
Subject: Re: Server For Rent? Where?
Message-Id: <1177014559.632135.251260@y80g2000hsf.googlegroups.com>
On Apr 19, 10:20 pm, Michele Dondi <bik.m...@tiscalinet.it> wrote:
> On Thu, 19 Apr 2007 14:37:19 GMT, "J=FCrgen Exner"
>
> <jurge...@hotmail.com> wrote:
> > THIS USENET NEWSGROUP IS FOR DISCUSSING THE Perl PROGRAMMING LANGUAG=
E=2E
>
> >This group has nothing to do with CGI and it has nothing to do with web
>
> s/nothing/very little/g;
>
> >servers and it certainly has nothing to do with aquiring whatever server=
it
> >is you are looking for, no matter if for rent or for free.
>
> s/nothing/$&/g; # Oh, well!
I understaned the first substitute operator but not the 2nd.
------------------------------
Date: 19 Apr 2007 13:32:32 -0700
From: skieros <nikos1337@gmail.com>
Subject: Re: Server For Rent? Where?
Message-Id: <1177014752.394906.203540@b58g2000hsg.googlegroups.com>
On Apr 19, 10:22 pm, Michele Dondi <bik.m...@tiscalinet.it> wrote:
> Wriet more slowly tehn! Respect the people you're talking to. Or else
> how do you expect them to respect you?
Looool, Michael ok! Its very funny to see tht you deliberately posted
they way i do!
I wasn't feel un-respected though from your typos but it was quite
funny instead! But ok, ill try typing slower at least here :-)
------------------------------
Date: Thu, 19 Apr 2007 23:27:34 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Server For Rent? Where?
Message-Id: <4lnf23p5jjvfhn1ovdjvq7d5f08bi9d8vm@4ax.com>
On 19 Apr 2007 13:29:19 -0700, skieros <nikos1337@gmail.com> wrote:
>> >is you are looking for, no matter if for rent or for free.
>>
>> s/nothing/$&/g; # Oh, well!
>
>I understaned the first substitute operator but not the 2nd.
"Leave it as it is". See
perldoc perlvar
(But don't use $& if possible.)
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, 19 Apr 2007 12:21:54 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: shorter question ref. simple code
Message-Id: <190420071221541542%jgibson@mail.arc.nasa.gov>
In article <1176998778.620268.201760@y5g2000hsa.googlegroups.com>,
<shadkeene@hotmail.com> wrote:
[133 lines of irrelevant text snipped]
Please trim the quoted content of your posts to only what is relevant.
Thanks.
> On Apr 19, 8:52 am, shadke...@hotmail.com wrote:
> A shorter question ref. the code...I know what was missing...I
> declared the @fields with "my" and declared a my @output as well to
> eliminate some of the errors...however, I'm still receiving an error
> for the global symbol "%param" requiring explicit package. Wondering
> why since %param isn't in the code. Thanks again for any help...
> Shad
>
%param may not appear explicitly in your code, but the hash may appear
implicitly as an element such as $param{$key}. Declare %param with 'my
%param;' within the scope where it is used.
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Thu, 19 Apr 2007 21:27:44 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: shorter question ref. simple code
Message-Id: <idgf23hmaoc8a8uco0brvvau8ot4v4sd7k@4ax.com>
On 19 Apr 2007 09:06:18 -0700, shadkeene@hotmail.com wrote:
>Subject: shorter question ref. simple code
140 lines is short for you? Certainly shorter than something else. But
how long is something else?
>A shorter question ref. the code...I know what was missing...I
>declared the @fields with "my" and declared a my @output as well to
>eliminate some of the errors...however, I'm still receiving an error
>for the global symbol "%param" requiring explicit package. Wondering
As I wrote in my other post, just declare %params as well.
>why since %param isn't in the code. Thanks again for any help...
If the program complains, then it *is* in the code. IIRC from your
other post you have $param{something}. That means accessing a
particular element of the %param hash, which is supposed to exist.
BTW: at this point I recommend you to do what should have been
somewhat obvious from the beginning, that is: prepare a minimal but
complete example exhibiting the problem you have. Then people will
give actual comments of that. Otherwise we're mostly discussing about
guesses and noware.
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 359
**************************************
