[28598] in Perl-Users-Digest
Perl-Users Digest, Issue: 9962 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 13 18:05:56 2006
Date: Mon, 13 Nov 2006 15:05: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 Mon, 13 Nov 2006 Volume: 10 Number: 9962
Today's topics:
Re: "Did not find leading dereferencer" - new findings <hjp-usenet2@hjp.at>
Re: Algorithm with HoA looping <hpbenton@scripps.edu>
Re: Algorithm with HoA looping usenet@DavidFilmer.com
can i treat a subroutine call as an array? <spam.meplease@ntlworld.com>
Re: can i treat a subroutine call as an array? <bik.mido@tiscalinet.it>
Re: can i treat a subroutine call as an array? <mritty@gmail.com>
Re: can i treat a subroutine call as an array? xhoster@gmail.com
Re: can i treat a subroutine call as an array? <spam.meplease@ntlworld.com>
Re: can i treat a subroutine call as an array? xhoster@gmail.com
Re: can i treat a subroutine call as an array? <sbryce@scottbryce.com>
Error Handling in Net::SSH::Perl <keithw99@gmail.com>
Re: Error Handling in Net::SSH::Perl <mritty@gmail.com>
Re: Error Handling in Net::SSH::Perl usenet@DavidFilmer.com
Re: Error Handling in Net::SSH::Perl <keithw99@gmail.com>
Re: How to reference memory address returned from Win32 <u8526505@gmail.com>
how to show the number of the correct asnwer <angel_dsgs@yahoo.com>
Re: how to show the number of the correct asnwer <bik.mido@tiscalinet.it>
Re: Loop over regexp groups <rvtol+news@isolution.nl>
Re: perldoc of study <bik.mido@tiscalinet.it>
Re: perldoc of study anno4000@radom.zrz.tu-berlin.de
Re: perldoc of study xhoster@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 13 Nov 2006 21:19:10 +0100
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: "Did not find leading dereferencer" - new findings to an old puzzle
Message-Id: <slrnelhkpu.iel.hjp-usenet2@yoyo.hjp.at>
On 2006-11-13 12:37, Ronny <ro.naldfi.scher@gmail.com> wrote:
> Peter J. Holzer schrieb:
>> > The use Switch was in the code only for historic reason, and I have
>> > removed it. I don't know of course if *this* was sufficient to make
>> > the error go away: After all, the removal of the statement made the
>> > code a little bit smaller, so the problem might simply have
>> > disappeared for *this* reason (removing a comment line instead of the
>> > use Switch would have had the same effect).
>>
>> Possible, but unlikely. Unless you use another module which uses
>> Text::Balanced, you aren't calling Text::Balanced any more and hence
>> can't get any error messages from it any more.
>
> Well, you are free to get a copy of my code to see what I'm using.
> Aside from the Switch, I'm using:
>
> use Carp qw(croak cluck confess);
> use File::Temp qw(mktemp);
> use File::Basename;
>
> I have no idea whether these modules use Text::Balanced, but note that
> even
> when I do a "use Switch", I never actually *write* a switch statement.
That's irrelevant. The Switch module can't know whether you use a switch
statement or not not before it has parsed your code.
> Then I have the impression that the error message "comes from the
> Switch module and goes away when I remove it". I think this does not
> describe the situation.
Yes it does. Without the Switch module you get a different error
message. At least that was the way you described it. Did you ever get
this error message without the Switch module?
> If you can explain this behaviour just by the fact that I have a "use
> Switch" at the beginning, without ever using a switch, I am curious to
> know how you do it...
I already did (and (I think) Michele did, too), but I'll try again:
Switch is a source-filter: It parses the file it is "use"d in, replacing
switch and case constructs with Perl code. In an ideal world, it would
understand exactly the same grammar as perl, plus the two (or more)
productions it wants to add to the language. But Perl is a notoriously
complex language to parse, so Switch takes a few shortcuts. This
prevents a few valid Perl constructs and it also causes weird error
messages. A few of these wierd errors are noted in the manual.
>> I don't think it has anything to do with the size. The problem was
>> probably that the Switch module needs to parse the source code and that
>> uses a different grammar than perl (which is unavoidable, as the purpose
>> of Switch is to change the grammar). So changing a character which
>> shouldn't make a difference in Perl does make a difference in
>> Perl+Switch.
>
> I've had a look at Switch.pm .... this module doesn't even have a BEGIN
> section.
It uses Filter::Util::Call.
Now I don't pretend to understand how Filter::Util::Call works, but that
is the source filter base class, so I feel confident in stating that
Switch is source filter, too.
> In addition, I would like to point out that I had the same error
> message a few months ago in a different context.
Yes, I've remember the thread. You were directed towards Text::Balanced
by somebody at the time, but you ignored that advice.
hp
--
_ | Peter J. Holzer | > Wieso sollte man etwas erfinden was nicht
|_|_) | Sysadmin WSR | > ist?
| | | hjp@hjp.at | Was sonst wäre der Sinn des Erfindens?
__/ | http://www.hjp.at/ | -- P. Einstein u. V. Gringmuth in desd
------------------------------
Date: 13 Nov 2006 11:33:24 -0800
From: "PB0711" <hpbenton@scripps.edu>
Subject: Re: Algorithm with HoA looping
Message-Id: <1163446404.779478.199860@e3g2000cwe.googlegroups.com>
> Suppose your hash is
>
> %HoA = ( a => [1, 2, 3]
> , b => [4, 5, 6]
> , c => [7, 8, 9]
> ) ;
>
> then should a query limited by "a,c,b" return 6+24+15= 45?
>
>
> The table can then just hold
>
> a,6
> b,15
> c,24
>
> and you can leave the summing to the database, something like
>
> SELECT SUM(sum_array) AS tot FROM table WHERE key IN "a,c,b"
Sorry I haven't made any code yet, but I should have done a better job
at explaining it. So what I have are 20 things each of these 20 things
have data attached to itself.So
A => location, size, a text image
B => location, size, text image
C => ....
and so on.
So I wan to take every possible combination. So I would have AB, BA,
AC, CA, CB, BC. Then I would the arrays and alter them so they are
added together. So I will have 20^2.
I think I need some kind of recursive function, yes?
Cheers again,
------------------------------
Date: 13 Nov 2006 13:47:08 -0800
From: usenet@DavidFilmer.com
Subject: Re: Algorithm with HoA looping
Message-Id: <1163454428.410666.53480@k70g2000cwa.googlegroups.com>
PB0711 wrote:
> So I wan to take every possible combination. So I would have AB, BA,
> AC, CA, CB, BC. Then I would the arrays and alter them so they are
> added together.
What do you get when you "add" locations together? Give us an example
of what your input data looks like, and what you want your output data
to look like.
For example, your input data might look like:
( a => [ qw{ Seattle 6 image1.jpg } ],
b => [ qw{ Portland 3 image2.jpg } ],
c => [ qw{ Atlanta 4 image3.jpg } ],
);
and you want your output data to look like:
(ab => [ [ qw{ Seattle Portland } ],
[ 6, 3 ],
[ qw{ image1.jpg image2.jpg } ],
],
ac => [ [ qw{ Seattle Atlanta } ],
[ 6, 4 ],
[ qw{ image1.jpg image3.jpg } ],
],
);
--
The best way to get a good answer is to ask a good question.
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 13 Nov 2006 11:52:04 -0800
From: "doolittle" <spam.meplease@ntlworld.com>
Subject: can i treat a subroutine call as an array?
Message-Id: <1163447524.057105.276140@e3g2000cwe.googlegroups.com>
Hi,
The 4th line of the following code fragment is a syntax error.
my @size = getvalue('SZ');
print $size[0]."\n"; #OK
print @{$sgf->SZ}[0]."\n"; #OK
print getvalue('SZ')[0]."\n"; #sysntax error
sub getvalue {
my $propertyname = shift;
return @{$sgf->$propertyname}
}
Can i re-phrase the 4th line in some clever way, or am i stuck with the
methods on lines 1 or 2?
Dan
------------------------------
Date: Mon, 13 Nov 2006 21:01:29 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: can i treat a subroutine call as an array?
Message-Id: <sijhl2hnujqv8j75ggtp2i77ccqrinricr@4ax.com>
On 13 Nov 2006 11:52:04 -0800, "doolittle"
<spam.meplease@ntlworld.com> wrote:
>print getvalue('SZ')[0]."\n"; #sysntax error
print +(getvalue('SZ'))[0]."\n";
print +(getvalue 'SZ')[0]."\n"; # if predeclared
BTW, you can also
y;.;,;;
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: 13 Nov 2006 12:10:19 -0800
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: can i treat a subroutine call as an array?
Message-Id: <1163448619.220115.299370@k70g2000cwa.googlegroups.com>
doolittle wrote:
> The 4th line of the following code fragment is a syntax error.
>
> my @size = getvalue('SZ');
> print $size[0]."\n"; #OK
> print @{$sgf->SZ}[0]."\n"; #OK
> print getvalue('SZ')[0]."\n"; #sysntax error
>
> sub getvalue {
> my $propertyname = shift;
> return @{$sgf->$propertyname}
> }
>
> Can i re-phrase the 4th line in some clever way, or am i stuck with the
> methods on lines 1 or 2?
print ((getvalue('SZ'))[0] . "\n");
Paul Lalli
------------------------------
Date: 13 Nov 2006 20:12:04 GMT
From: xhoster@gmail.com
Subject: Re: can i treat a subroutine call as an array?
Message-Id: <20061113151433.562$Wq@newsreader.com>
"doolittle" <spam.meplease@ntlworld.com> wrote:
> Hi,
>
> The 4th line of the following code fragment is a syntax error.
>
> my @size = getvalue('SZ');
> print $size[0]."\n"; #OK
> print @{$sgf->SZ}[0]."\n"; #OK
> print getvalue('SZ')[0]."\n"; #sysntax error
>
> sub getvalue {
> my $propertyname = shift;
> return @{$sgf->$propertyname}
> }
>
> Can i re-phrase the 4th line in some clever way, or am i stuck with the
> methods on lines 1 or 2?
In addition to Michele's answer to prettisize #1, you could also
prettisize #2:
print $sgf->SZ->[0], "\n";
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 13 Nov 2006 12:18:51 -0800
From: "doolittle" <spam.meplease@ntlworld.com>
Subject: Re: can i treat a subroutine call as an array?
Message-Id: <1163449131.723966.201340@h48g2000cwc.googlegroups.com>
Michele Dondi wrote:
>
> print +(getvalue('SZ'))[0]."\n";
> print +(getvalue 'SZ')[0]."\n"; # if predeclared
>
> BTW, you can also
>
> y;.;,;;
>
Thanks for that.
Sorry to be a pest but why does the +(..) work?
just point me to the relevant docs, (i couldn't find anything under
additive operators)
> y;.;,;;
is this a way of saying i could replace . with , if i wanted?
dan
------------------------------
Date: 13 Nov 2006 20:28:02 GMT
From: xhoster@gmail.com
Subject: Re: can i treat a subroutine call as an array?
Message-Id: <20061113153031.076$Vk@newsreader.com>
"doolittle" <spam.meplease@ntlworld.com> wrote:
> Michele Dondi wrote:
> >
> > print +(getvalue('SZ'))[0]."\n";
> > print +(getvalue 'SZ')[0]."\n"; # if predeclared
> >
> > BTW, you can also
> >
> > y;.;,;;
> >
>
> Thanks for that.
>
> Sorry to be a pest but why does the +(..) work?
It forces the paranthesis to not be "consumed" by the print
function being interpreted as a function
>
> just point me to the relevant docs, (i couldn't find anything under
> additive operators)
Look in perldoc perldiag for something like:
print (...) interpreted as function
(And of course, follow the references you provides)
> > y;.;,;;
>
> is this a way of saying i could replace . with , if i wanted?
Yep. If you don't know why it is a Perl geekish way of saying that then:
perldoc -f y
y/// The transliteration operator. Same as "tr///".
See perlop.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Mon, 13 Nov 2006 13:34:08 -0700
From: Scott Bryce <sbryce@scottbryce.com>
Subject: Re: can i treat a subroutine call as an array?
Message-Id: <sIednWGJyrYgS8XYnZ2dnUVZ_h6dnZ2d@comcast.com>
doolittle wrote:
> Sorry to be a pest but why does the +(..) work?
> just point me to the relevant docs, (i couldn't find anything under
> additive operators)
Look under print.
http://perldoc.perl.org/functions/print.html
The + is one way to get around the "If it looks like a function, it is a
function" rule.
------------------------------
Date: 13 Nov 2006 12:58:13 -0800
From: "Keith" <keithw99@gmail.com>
Subject: Error Handling in Net::SSH::Perl
Message-Id: <1163451493.169028.173560@m7g2000cwm.googlegroups.com>
Hi, I'm a bit naive with both Perl and SSH, but I'm trying to write a
script that checks a bunch of Cisco devices to verify that it can log
into them via SSH. I installed Net::SSH::Perl, and it is working well.
However, the source code of Net::SSH::Perl makes several calls to die()
or croak() when it has any problems connecting such as not being able
to reach the host, bad password, etc. Some of the functions that do
this are _connect and _setup_connection. I don't want the program to
die when these things happen though; I just want my script to know that
it was unsuccessful (so it can log this into a database, for example)
and continue to run.
I've written my own versions of _connect and _setup_connection to
handle this; I just have the functions return -1 instead of croaking,
but my code is getting really ugly. Does anyone have any suggestions
on how to handle this? I'd appreciate the help.
------------------------------
Date: 13 Nov 2006 13:02:29 -0800
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Error Handling in Net::SSH::Perl
Message-Id: <1163451749.592923.18730@b28g2000cwb.googlegroups.com>
Keith wrote:
> Hi, I'm a bit naive with both Perl and SSH, but I'm trying to write a
> script that checks a bunch of Cisco devices to verify that it can log
> into them via SSH. I installed Net::SSH::Perl, and it is working well.
>
> However, the source code of Net::SSH::Perl makes several calls to die()
> or croak() when it has any problems connecting such as not being able
> to reach the host, bad password, etc. Some of the functions that do
> this are _connect and _setup_connection. I don't want the program to
> die when these things happen though; I just want my script to know that
> it was unsuccessful (so it can log this into a database, for example)
> and continue to run.
>
> I've written my own versions of _connect and _setup_connection to
> handle this; I just have the functions return -1 instead of croaking,
> but my code is getting really ugly. Does anyone have any suggestions
> on how to handle this? I'd appreciate the help.
Exception handling in Perl is most basically handled by eval(). Just
wrap your call to functions that may day in an eval{} block. If the
functions called die() or croak(), your program will continue like
normal, but $@ will be set to the error message that would have been
printed to STDERR.
my $ssh;
eval {
$ssh = Net::SSH::Perl->connect( ... );
};
if ($@) {
warn "Connect failed: $@\n";
}
Paul Lalli
------------------------------
Date: 13 Nov 2006 13:06:30 -0800
From: usenet@DavidFilmer.com
Subject: Re: Error Handling in Net::SSH::Perl
Message-Id: <1163451990.560242.311450@h54g2000cwb.googlegroups.com>
Keith wrote:
> I don't want the program to
> die when these things happen though; I just want my script to know that
> it was unsuccessful (so it can log this into a database, for example)
> and continue to run.
Then wrap your call in an eval
perldoc -f eval
--
The best way to get a good answer is to ask a good question.
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 13 Nov 2006 13:18:15 -0800
From: "Keith" <keithw99@gmail.com>
Subject: Re: Error Handling in Net::SSH::Perl
Message-Id: <1163452694.947999.254430@m7g2000cwm.googlegroups.com>
Awesome -- exactly what I was looking for. Thanks everyone!
usenet@DavidFilmer.com wrote:
> Keith wrote:
> > I don't want the program to
> > die when these things happen though; I just want my script to know that
> > it was unsuccessful (so it can log this into a database, for example)
> > and continue to run.
>
> Then wrap your call in an eval
>
> perldoc -f eval
>
>
> --
> The best way to get a good answer is to ask a good question.
> David Filmer (http://DavidFilmer.com)
------------------------------
Date: 13 Nov 2006 14:00:51 -0800
From: "cyl" <u8526505@gmail.com>
Subject: Re: How to reference memory address returned from Win32::API call
Message-Id: <1163455250.788644.138770@e3g2000cwe.googlegroups.com>
cyl =BCg=B9D=A1G
> my $lpServiceName =3D " "x128;
> my $lpDisplayName =3D " "x128;
> my $lpServices =3D pack('C128C128I7', $lpServiceName,
> $lpDisplayName,0,0,0,0,0,0,0);
>
I found it's unnecessary to make it that complicated. Simply use
my $lpServices =3D pack('C283',' 'x283);
and it works.
> my @x =3D unpack('ppI7' x $NumOfServices,$lpServices);
the unpack part is the key
------------------------------
Date: 13 Nov 2006 14:05:17 -0800
From: "angel" <angel_dsgs@yahoo.com>
Subject: how to show the number of the correct asnwer
Message-Id: <1163455516.993324.52100@i42g2000cwa.googlegroups.com>
hello i am a perl beginner and i need help. i dont know and have no
idea on how to make a program for this,
the program should ask a user 5 questions. it should read the answers
and shows the number of answers that were right.
example:
Please enter =A3 two times: =A3=A3
Correct!
Please enter $ four times: ***
Wrong!
*****
You got 4 correct answers.
I have already written a program for the 5 questions:
e=2Eg.
print ("Please enter =A3 two times: ");
$pound =3D <STDIN>;
$correct =3D "Correct!";
if ($pound !~m/=A3=A3/)
{
print("Wrong!\n");
}
else
{
print("$correct\n");
}
print("Please enter \$ four times: ");
$dollar =3D <STDIN>;
if($dollar !~m/^(\${4})$/)
(
print("Wrong!\n");
}
else
{
print("$correct\n");
}
my problem is i dont know on how it will read the answers and shows the
number of answers that were right. i would really appreciate any help.
thanks!
------------------------------
Date: Mon, 13 Nov 2006 23:39:06 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: how to show the number of the correct asnwer
Message-Id: <hsshl25h12tflbdqh8t73gdv8e00p3hha9@4ax.com>
On 13 Nov 2006 14:05:17 -0800, "angel" <angel_dsgs@yahoo.com> wrote:
>the program should ask a user 5 questions. it should read the answers
>and shows the number of answers that were right.
Hint:
my @qs=(['question1' => 'solution1'],
['question2' => 'solution2']);
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: Mon, 13 Nov 2006 17:07:31 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Loop over regexp groups
Message-Id: <eja8ui.13s.1@news.isolution.nl>
anno4000@radom.zrz.tu-berlin.de schreef:
> Very easy. Assuming the regex (with captures) in $re, and the string
> to match in $_ (untested):
>
> my @groups = m/$re/;
>
> A regex in list context returns all its captures.
I think he meant to have only one (multi-format) capture in $re, so I am
missing the g-modifier.
$ perl -wle'
$_ = "a b c";
@_ = /([a-z])/;
print "@_"
'
a
$ perl -wle'
$_ = "a b c";
@_ = /([a-z])/g;
print "@_"
'
a b c
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Mon, 13 Nov 2006 17:38:51 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: perldoc of study
Message-Id: <rq7hl2pc0l7dsum994qbn9r966j5maher1@4ax.com>
On Mon, 13 Nov 2006 15:54:54 +0100, "Ferry Bolhar"
<bol@adv.magwien.gv.at> wrote:
>in the docs of the study function, I've found this:
I didn't know study(). Thank you. I'm reading the docs ASAP too.
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: 13 Nov 2006 16:49:41 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: perldoc of study
Message-Id: <4rrm15Fsk8ieU1@mid.dfncis.de>
Ferry Bolhar <bol@adv.magwien.gv.at> wrote in comp.lang.perl.misc:
> Hi @ all,
>
> in the docs of the study function, I've found this:
>
> "From each search string, the rarest character is
> selected, based on some static frequency tables constructed
> from some C programs and English text."
>
> However, when looking at the sources (pp_study in pp.c),
> it seems the only thing to find the "rarest character is this:
>
> for (ch = 256; ch; --ch)
> *sfirst++ = -1;
> sfirst -= 256;
>
> while (--pos >= 0) {
> ch = s[pos];
> if (sfirst[ch] >= 0)
> snext[pos] = sfirst[ch] - pos;
> else
> snext[pos] = -pos;
> sfirst[ch] = pos;
> }
That doesn't look like character counting code to me. I believe the
tables sfirst and snext allow to visit all occurrences of a specific
character in the string.
Anno
------------------------------
Date: 13 Nov 2006 16:51:54 GMT
From: xhoster@gmail.com
Subject: Re: perldoc of study
Message-Id: <20061113115421.491$pe@newsreader.com>
"Ferry Bolhar" <bol@adv.magwien.gv.at> wrote:
> Hi @ all,
>
> in the docs of the study function, I've found this:
>
> "From each search string, the rarest character is
> selected, based on some static frequency tables constructed
> from some C programs and English text."
Note it says the *search* string, not the *searched* string.
>
> However, when looking at the sources (pp_study in pp.c),
> it seems the only thing to find the "rarest character is this:
You are reading the wrong code. study makes a linked list of the
characters in the string to be searched. The frequency table comes
into play when that linked list is being used, not when it is being
created.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
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 V10 Issue 9962
***************************************
