[30854] in Perl-Users-Digest
Perl-Users Digest, Issue: 2099 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jan 5 21:09:42 2009
Date: Mon, 5 Jan 2009 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 Mon, 5 Jan 2009 Volume: 11 Number: 2099
Today's topics:
-1 ** 0 == -1 ??? <socyl@987jk.com.invalid>
Re: -1 ** 0 == -1 ??? <socyl@987jk.com.invalid>
Re: -1 ** 0 == -1 ??? (Tim McDaniel)
Autoflush and new/read-line not working as expected/doc <jimktrains@gmail.com>
Favorite object-oriented modules? (Tim McDaniel)
Re: Favorite object-oriented modules? <tim@burlyhost.com>
Re: Favorite object-oriented modules? <rkb@i.frys.com>
Re: Favorite object-oriented modules? (Tim McDaniel)
Re: Favorite object-oriented modules? <tim@burlyhost.com>
Re: mail address validation <hjp-usenet2@hjp.at>
Re: mail address validation <syscjm@sumire.gwu.edu>
Re: Script to insert data to a web page? <cjohnso9@amfam.com>
Re: Script to insert data to a web page? <glex_no-spam@qwest-spam-no.invalid>
Why my Strawberry Perl act strangely under MSYS? <WaterLin1999@gmail.com>
Re: Why my Strawberry Perl act strangely under MSYS? <bart.lateur@pandora.be>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 5 Jan 2009 22:58:44 +0000 (UTC)
From: kj <socyl@987jk.com.invalid>
Subject: -1 ** 0 == -1 ???
Message-Id: <gju3b4$dfb$1@reader1.panix.com>
I can't think of even the faintest justification for this:
% perl -le 'print( -1 ** 0 )'
-1
Absolutely horrible! Perl just showed itself wholly unsuitable
for any programming that involves numerical computation...
Still in shock...
Kynn
--
NOTE: In my address everything before the first period is backwards;
and the last period, and everything after it, should be discarded.
------------------------------
Date: Mon, 5 Jan 2009 23:00:15 +0000 (UTC)
From: kj <socyl@987jk.com.invalid>
Subject: Re: -1 ** 0 == -1 ???
Message-Id: <gju3dv$sjf$1@reader1.panix.com>
OK, egg on my face. I see.
Sorry,
G.
In <gju3b4$dfb$1@reader1.panix.com> kj <socyl@987jk.com.invalid> writes:
>I can't think of even the faintest justification for this:
>% perl -le 'print( -1 ** 0 )'
>-1
>Absolutely horrible! Perl just showed itself wholly unsuitable
>for any programming that involves numerical computation...
>Still in shock...
>Kynn
>--
>NOTE: In my address everything before the first period is backwards;
>and the last period, and everything after it, should be discarded.
--
NOTE: In my address everything before the first period is backwards;
and the last period, and everything after it, should be discarded.
------------------------------
Date: Mon, 5 Jan 2009 23:45:07 +0000 (UTC)
From: tmcd@panix.com (Tim McDaniel)
Subject: Re: -1 ** 0 == -1 ???
Message-Id: <gju623$8n3$1@reader1.panix.com>
In article <gju3dv$sjf$1@reader1.panix.com>,
kj <socyl@987jk.com.invalid> wrote:
>In <gju3b4$dfb$1@reader1.panix.com> kj <socyl@987jk.com.invalid> writes:
>
>>I can't think of even the faintest justification for this:
>>
>>% perl -le 'print( -1 ** 0 )'
>>-1
>>
>>Absolutely horrible! Perl just showed itself wholly unsuitable
>>for any programming that involves numerical computation...
>>
>>Still in shock...
>
>OK, egg on my face. I see.
If you see, it's best to explain it so that other people can see.
I did a "man perlop", and the table is
Perl operators have the following associativity and precedence,
listed from highest precedence to lowest. Operators borrowed
from C keep the same precedence relationship with each other,
even where C's precedence is slightly screwy. (This makes
learning Perl easier for C folks.) With very few exceptions,
these all operate on scalar values only, not array values.
left terms and list operators (leftward)
left ->
nonassoc ++ --
right **
right ! ~ \ and unary + and -
left =~ !~
left * / % x
left + - .
left << >>
nonassoc named unary operators
nonassoc < > <= >= lt gt le ge
nonassoc == != <=> eq ne cmp
left &
left | ^
left &&
left ||
nonassoc .. ...
right ?:
right = += -= *= etc.
left , =>
nonassoc list operators (rightward)
right not
left and
left or xor
So what I think you see is that unary "-" has lower precedence than
"**", so
-1 ** 0
is equivalent to
-(1 ** 0)
Right?
--
Tim McDaniel, tmcd@panix.com
------------------------------
Date: Mon, 5 Jan 2009 13:16:10 -0800 (PST)
From: jk <jimktrains@gmail.com>
Subject: Autoflush and new/read-line not working as expected/documented?
Message-Id: <5ae5323a-006a-4a03-a3cc-59866ac50d17@t39g2000prh.googlegroups.com>
Hello, I am trying to write a client-server program. Without going
into details, I'm simply reading the terminal on the server and
sending the contents to the client. I'm having an issue where neither
the client nor server are autoflushing their sockets by default, and
the client won't readlines from the server, they come as a big chunk
only after the server fails.
I have the same issue on Mac OS 10.5 (perl: 5.8.8) and Ubuntu (kernel
2.6.27) (perl: 5.10.0)
Here is some base code:
tserver.pl:
#! /usr/bin/perl -w
use strict;
use Socket;
use IO::Handle;
my $port = shift || 7890;
socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die
"socket: $!";
setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1) or die "setsock: $!";
bind(SERVER, sockaddr_in($port, INADDR_ANY)) or die "bind: $!";
listen(SERVER, SOMAXCONN) or die "listen: $!";
print "SERVER started on port $port\n";
while(not accept(CLIENT, SERVER)){}
if(fork()){
CLIENT->autoflush(1);
print CLIENT "Who is this?\n";
my $line = <CLIENT>;
print $line;
my ($rpid, $rid, $rhost) = split(/:/, $line, 3);
print CLIENT "Hello, $rid\n";
} else {
while(<> ne "quit"){}
}
wait();
close CLIENT;
tclient.pl:
#! /usr/bin/perl -w
use strict;
use Socket;
use FileHandle;
my $host = shift || 'localhost';
my $port = shift || 7890;
socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die
"socket: $!";
connect(SOCKET, sockaddr_in($port, inet_aton($host)) ) or die
"connect: $!";
SOCKET->autoflush(1);
print SOCKET "JIM:TEST:".`hostname`."\n";
print SOCKET "WHOOO\n";
print <SOCKET>;
close SOCKET or die "close: $!"
If the first autoflush is removed (in the server) no text appears on
the client if the server is killed. If the autodlush in the client is
removed, no text appears on the server. Ok, so that's not what the
docs say (sockets should autoflush, right?) but I'm sure this is a
weird, well know exception, I can live with that, but I'd like to know
what the exception is.
The other problem is that the print <SOCKET> in the client prints both
lines, and blocks until the connection is lost. The $line = <CLIENT>
line in the server correctly returns the first line sent from the
client, immediately and solely. Why doesn't the client correctly read
lines from the server, and instead block until the connection is lost.
Thanks so much for any help. I've been banging my head against my
desk for a few days looking at docs and forums. I'm sorry if this is
just some small thing I'm not seeing.
Thanks,
Jim
------------------------------
Date: Mon, 5 Jan 2009 16:44:46 +0000 (UTC)
From: tmcd@panix.com (Tim McDaniel)
Subject: Favorite object-oriented modules?
Message-Id: <gjtddu$h6d$1@reader1.panix.com>
I asked about Moose and got comments that it's slow. Is anyone
willing to talk about other favorite modules for Object-Oriented
Programming in Perl?
"Favorite" is, of course, subjective.
Personally, I am inclined to prefer modules that handle more things
correctly, safe coding in general. For example, I like inside-out
coding, because I like catching typos as early as possible. Also, I
don't like to code destructors or any other housekeeping code, because
of the effort and the possibility of getting something subtly wrong.
--
Tim McDaniel, tmcd@panix.com
------------------------------
Date: Mon, 05 Jan 2009 09:19:33 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: Favorite object-oriented modules?
Message-Id: <Gir8l.38398$716.28251@newsfe13.iad>
Tim McDaniel wrote:
> I asked about Moose and got comments that it's slow. Is anyone
> willing to talk about other favorite modules for Object-Oriented
> Programming in Perl?
>
> "Favorite" is, of course, subjective.
>
> Personally, I am inclined to prefer modules that handle more things
> correctly, safe coding in general. For example, I like inside-out
> coding, because I like catching typos as early as possible. Also, I
> don't like to code destructors or any other housekeeping code, because
> of the effort and the possibility of getting something subtly wrong.
>
I can't imagine anyone liking a specific module more or less, just
because it's OO. I also think most would agree that a well coded, well
thought out, mature, stable and secure module is best, regardless of
being OO or not. Overall, I don't care, if it's well coded and can
save time and fit into a project and I can use it (and trust it).
What I dislike, however, is when people use OO just for the sake of OO,
when it doesn't provide any advantage. Of course, those are usually
the same type of people that will create a project with 100 custom
modules, each doing one specific (and very similar) task, where it
makes it a huge hassle to take over a project when that person
ultimately doesn't work out and you have to go through 20 files just to
be able to fully understand what one single function is doing. Then
again, I've yet to see any Perl module in CPAN where someone went crazy
about it to that degree, so I'm speaking from the perspective of
developing with other people that do go crazy and not CPAN modules.
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Mon, 5 Jan 2009 09:53:39 -0800 (PST)
From: Ron Bergin <rkb@i.frys.com>
Subject: Re: Favorite object-oriented modules?
Message-Id: <163d1102-bca1-4ee0-a4e9-abd8898a00c1@g39g2000pri.googlegroups.com>
On Jan 5, 9:19=A0am, Tim Greer <t...@burlyhost.com> wrote:
snip
>
> What I dislike, however, is when people use OO just for the sake of OO,
> when it doesn't provide any advantage. =A0Of course, those are usually
> the same type of people that will create a project with 100 custom
> modules, each doing one specific (and very similar) task, where it
> makes it a huge hassle to take over a project when that person
> ultimately doesn't work out and you have to go through 20 files just to
> be able to fully understand what one single function is doing. =A0Then
> again, I've yet to see any Perl module in CPAN where someone went crazy
> about it to that degree, so I'm speaking from the perspective of
> developing with other people that do go crazy and not CPAN modules.
> --
That's a common problem I've seen from Perl programmers that learned
that "style" from the language formally known as "Personal Home
Page". :o)
------------------------------
Date: Mon, 5 Jan 2009 17:58:36 +0000 (UTC)
From: tmcd@panix.com (Tim McDaniel)
Subject: Re: Favorite object-oriented modules?
Message-Id: <gjthoc$bra$1@reader1.panix.com>
In article <Gir8l.38398$716.28251@newsfe13.iad>,
Tim Greer <tim@burlyhost.com> wrote:
>Tim McDaniel wrote:
>> I asked about Moose and got comments that it's slow. Is anyone
>> willing to talk about other favorite modules for Object-Oriented
>> Programming in Perl?
>
>I can't imagine anyone liking a specific module more or less, just
>because it's OO. I also think most would agree that a well coded,
>well thought out, mature, stable and secure module is best,
>regardless of being OO or not.
I suppose I was unclear. I am asking about modules that can be used
to implement object-oriented programming: Moose, Class::InsideOut,
Object::InsideOut, Class::Spiffy, whatever.
--
Tim McDaniel, tmcd@panix.com
------------------------------
Date: Mon, 05 Jan 2009 10:18:10 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: Favorite object-oriented modules?
Message-Id: <C9s8l.72768$H11.15867@newsfe09.iad>
Tim McDaniel wrote:
> In article <Gir8l.38398$716.28251@newsfe13.iad>,
> Tim Greer <tim@burlyhost.com> wrote:
>>Tim McDaniel wrote:
>>> I asked about Moose and got comments that it's slow. Is anyone
>>> willing to talk about other favorite modules for Object-Oriented
>>> Programming in Perl?
>>
>>I can't imagine anyone liking a specific module more or less, just
>>because it's OO. I also think most would agree that a well coded,
>>well thought out, mature, stable and secure module is best,
>>regardless of being OO or not.
>
> I suppose I was unclear. I am asking about modules that can be used
> to implement object-oriented programming: Moose, Class::InsideOut,
> Object::InsideOut, Class::Spiffy, whatever.
>
Oh, sorry I misunderstood. Got ya.
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Mon, 5 Jan 2009 10:49:01 +0100
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: mail address validation
Message-Id: <slrngm3lsf.isp.hjp-usenet2@hrunkner.hjp.at>
On 2009-01-05 06:53, ~greg <g_m@remove-comcast.net> wrote:
> Peter J. Holzer wrote >...
>> I would suggest using Mail::Address for this task. You don't have to
>> "validate" email addresses for this (and you probably shouldn't - some
>> posters use invalid addresses on purpose, and an address which was valid
>> a few years ago might be invalid now), and Mail::Address should handle
>> the parsing, and return the "friendly name", local part and domain name.
>>
>> hp
> ~~~~~~~~~~~~~~~~~~~
>
> Thanks.
>
> Ok.
>
> So now I've played with Mail::Address awhile, and it may be just fine
> for what I want. But there are definite problems with it.
>
>
> I had considered using Mail::Address before, and the
> Mail:: modules generally for re-doing the archive I mentioned.
> But I decided against it for a number of reasons.
>
> One great advantage of perl is, of course, its modules.
> But there are times when trying to pick the right module,
> and then trying to understand exactly what it does and how to use it
> from its documentation becomes such an overwhelming task in itself,
> that it far outweighing the original task. Which in this case was simply
> parsing a line!
Unfortunately, a line which contains an email address in RFC 822
format is a rather complex thing to parse. RFC 1036 is much simpler, but
it might still be a bit tricky.
> I was first alterted to Mail::Address problems by its own documentation.
> Which I quote from: ...
>
> Mail::Address extracts and manipulates email addresses from a message header.
> It cannot be used to extract addresses from some random text.
> You can use this module to create RFC822 compliant fields.
> Although Mail::Address is a very popular subject for books, and is used in many applications,
> it does a very poor job on the more complex message fields.
However, the complex forms are not allowed in News messages, so you
should be fine there.
> Unfortunately, like many of the mail modules, it tries really hard to be helpful.
>
> my ($addr) = Mail::Address->parse('"eBay, Inc." <support@ebay.com>');
> print $addr->name # Inc. eBay
>
> ~~~~
>
> In other words Mail::Address actually converts "eBay, Inc" to "Inc. eBay".
> (Just to be "helpful"!)
Oops. I didn't know that. That may be a showstopper. I guess I'll have
to review some of my code to check if this is a problem (but AFAIR I've
only used Mail::Address to extract the email address, not the name).
hp
------------------------------
Date: Mon, 05 Jan 2009 07:56:49 -0600
From: Chris Mattern <syscjm@sumire.gwu.edu>
Subject: Re: mail address validation
Message-Id: <slrngm44d1.mmk.syscjm@sumire.gwu.edu>
On 2009-01-05, Petr Vileta "fidokomik" <stoupa@practisoft.cz> wrote:
> decribe problem in details.
> I have a web form where visitor must type his/her mail address. For me is not
> important if typed mail address is working but if is formally right. It is
> because many visitors don't know to type anything without typos :-)
> Examples of invalid mails typed by users:
> some;user@example.com - semicolon instead of dot
> some@user@example.com - two at signs
> some.user@example - without TLD part (com, net, org ...)
By RFC, this is a perfectly valid email address. Theoretically, "example"
could be a TLD. This is why the validation package okays it (and is
completely correct in doing so). If you start trying to qualify what
TLDs exists, then you are no longer determining if an email is
syntactically/formally correct but whether or not it can be delivered to.
> user@example,com - comma instead of dot
> and many many more :-)
> For this reason I want to check mail before I store it to database and if needed
> then allert an user and ask to retype mail again.
Use the validation package. It's correct; you are incorrectly
classifying addresses as invalid.
--
Christopher Mattern
NOTICE
Thank you for noticing this new notice
Your noticing it has been noted
And will be reported to the authorities
------------------------------
Date: Mon, 5 Jan 2009 11:46:38 -0800 (PST)
From: Chad <cjohnso9@amfam.com>
Subject: Re: Script to insert data to a web page?
Message-Id: <f75b7e6c-aa26-455f-9ea0-6ed3d2466c96@i20g2000prf.googlegroups.com>
On Jan 2, 8:01=A0pm, News123 <news...@free.fr> wrote:
> Chad wrote:
> > On Jan 2, 2:51 pm, News123 <news...@free.fr> wrote:
> >> Chad wrote:
> >>> On Jan 2, 1:52 pm, Tim Greer <t...@burlyhost.com> wrote:
> >>>> Chad wrote:
> >>>>> Hi there,
> >>>>> I am a Perl novice and am looking for a simple script to access a w=
eb
> >>>>> page, enter some data, and examine the response.
> >>>>> Does anyone have anything like this?
> >> Hi,
>
> >> This can be anything from quite trivial to quite annoying, depending o=
n
> >> the web server and the amount of Cookies, Javascript, Flash Plugins,
> >> Java Applets being sued by your page.
>
> >> You should probably look at following modules
> >> - LWP::UserAgent # to access the page, enter the data and post/get it
> >> - WWW::Mechanize # sub class of LWP::UserAgent, probably simpler,
> >> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0# but I never used ut
>
> . . .
>
> > Thanks again. I have been trying that but the documentation isn't the
> > best. I am looking for a little better working example to play with.
>
> As mentioned before web pages can be very different.
> This means in other words, that nobody can really help you if you don't
> give us more information.
>
> Where do you fail exactly?
> - Fetching =A0the url?
> - sending the post / get request with the valeus you filled in?
> - analyzing the result ?
>
> It might be useful if you show what you have already written (or tried
> to write) so far and if you gave a concrete example.
> ( url to fetch, values to fill in, etc.)
>
> bye
>
> N- Hide quoted text -
>
> - Show quoted text -
I can get the script to work going against sometrhing like google. My
problem is assessing an internal company web page. I have security to
it through IE so I don't know what's wrong. Here is the code:
#!c:\\perl\\bin
use strict;
use LWP;
use LWP::UserAgent;
use WWW::Mechanize;
use HTTP::Cookies;
my $url =3D "http://compassapps.amfam.com/isdoc/tab_function.asp?
CALLING_ASP=3DObjects&DOM_ID=3D48&FUNCTION_ID=3D6572";
my $username =3D "<my userid>";
my $password =3D "<my password>";
my $searchstring =3D "Perl xml";
my $outfile =3D "out.htm";
my $mech =3D WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($url,$username, $password);
$mech->form_name('vForm');
$mech->field(txtSearchString =3D> $searchstring);
$mech->field(login =3D> $username);
$mech->field(passwd =3D> $password);
##$mech->field(my $query =3D> "$searchstring");
$mech->click();
my $output_page =3D $mech->content();
open(OUTFILE, ">$outfile");
print OUTFILE "$output_page";
close(OUTFILE);
------------------------------
Date: Mon, 05 Jan 2009 14:49:11 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Script to insert data to a web page?
Message-Id: <49627247$0$33219$815e3792@news.qwest.net>
Chad wrote:
[...]
> I can get the script to work going against sometrhing like google. My
> problem is assessing an internal company web page. I have security to
> it through IE so I don't know what's wrong. Here is the code:
>
> #!c:\\perl\\bin
> use strict;
> use LWP;
> use LWP::UserAgent;
> use WWW::Mechanize;
> use HTTP::Cookies;
>
>
> my $url = "http://compassapps.amfam.com/isdoc/tab_function.asp?
> CALLING_ASP=Objects&DOM_ID=48&FUNCTION_ID=6572";
> my $username = "<my userid>";
> my $password = "<my password>";
>
> my $searchstring = "Perl xml";
> my $outfile = "out.htm";
> my $mech = WWW::Mechanize->new();
> $mech->cookie_jar(HTTP::Cookies->new());
> $mech->get($url,$username, $password);
> $mech->form_name('vForm');
> $mech->field(txtSearchString => $searchstring);
> $mech->field(login => $username);
> $mech->field(passwd => $password);
> ##$mech->field(my $query => "$searchstring");
> $mech->click();
> my $output_page = $mech->content();
> open(OUTFILE, ">$outfile");
> print OUTFILE "$output_page";
> close(OUTFILE);
Do some error checking!
We have no idea nor can anyone guess how your internal page works.
Is the get() successful?
Is there a form named 'vForm'?
Does it have a input fields for login, passwd, and txtSearchString?
etc.
I'd start with the get(). Check the content() or success(),
to ensure that's correct. I'm pretty sure you'll need to
read up on how to do Basic authentication, using WWW::Mechanize.
------------------------------
Date: Mon, 5 Jan 2009 00:52:15 -0800 (PST)
From: Water Lin <WaterLin1999@gmail.com>
Subject: Why my Strawberry Perl act strangely under MSYS?
Message-Id: <29271ca8-251b-402a-b652-f7c98a208c20@x16g2000prn.googlegroups.com>
I use MSYS to use Strawberry Perl under Windows XP. But I found an
interesting thing under MSYS.
For there is a script test.pl, the content is:
-------------------------------------------------------------
print "The steps you can do by this auto-tool:\n";
$want_test = <STDIN>;
-------------------------------------------------------------
If I run this script in Windows cmd or Cygwin, it will print the text
"The steps you can do by this auto-tool:".
But when I try to run this script under MSYS, the console show
something like this:
-------------------------------------------------------------
$ perl test.pl
a
The steps you can do by this auto-tool:
-------------------------------------------------------------
After run comand "perl test.pl", the console ask me to input
immediately. After I input "a", the text is printed.
It is very strange. The script did right things but just asked me to
input something first!
Who has any idea about this?
------------------------------
Date: Mon, 05 Jan 2009 17:12:31 +0100
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Why my Strawberry Perl act strangely under MSYS?
Message-Id: <k9c4m49qbafutpe8aojttbi41qcruhh86l@4ax.com>
Water Lin wrote:
>For there is a script test.pl, the content is:
>-------------------------------------------------------------
>print "The steps you can do by this auto-tool:\n";
>
>$want_test = <STDIN>;
>-------------------------------------------------------------
>
>If I run this script in Windows cmd or Cygwin, it will print the text
>"The steps you can do by this auto-tool:".
>
>But when I try to run this script under MSYS, the console show
>something like this:
>-------------------------------------------------------------
>$ perl test.pl
>a
>The steps you can do by this auto-tool:
>-------------------------------------------------------------
>
>After run comand "perl test.pl", the console ask me to input
>immediately. After I input "a", the text is printed.
>
>It is very strange. The script did right things but just asked me to
>input something first!
>
>Who has any idea about this?
Google for "suffering from buffering".
Likely adding this to the top of your script will fix it:
$| = 1;
--
Bart.
------------------------------
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 2099
***************************************
