[25782] in Perl-Users-Digest
Perl-Users Digest, Issue: 8021 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Apr 27 18:05:33 2005
Date: Wed, 27 Apr 2005 15:05:08 -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 Wed, 27 Apr 2005 Volume: 10 Number: 8021
Today's topics:
all but one backspace <mdetomaso@bak.rr.com>
Re: all but one backspace <sbryce@scottbryce.com>
Client does not support authentication protocol request <hackeras@gmail.com>
Re: Client does not support authentication protocol req <mark.clementsREMOVETHIS@wanadoo.fr>
Re: Client does not support authentication protocol req <hackeras@gmail.com>
Re: Client does not support authentication protocol req <mark.clementsREMOVETHIS@wanadoo.fr>
converting games.pl(cgi.pm) => games.pl (html::template <hackeras@gmail.com>
Re: converting games.pl(cgi.pm) => games.pl (html::temp <mark.clementsREMOVETHIS@wanadoo.fr>
Re: converting games.pl(cgi.pm) => games.pl (html::temp <hackeras@gmail.com>
Re: converting games.pl(cgi.pm) => games.pl (html::temp <mark.clementsREMOVETHIS@wanadoo.fr>
Re: one-time and one-line programs <abigail@abigail.nl>
Re: Question about "warn" <noreply@gunnar.cc>
Re: Question about "warn" <glex_nospam@qwest.invalid>
Re: Question about "warn" <news@chaos-net.de>
Re ANN: A new scripting language Tao 0.9.0 beta release (Fu Limin)
Re ANN: A new scripting language Tao 0.9.0 beta release (Fu Limin)
Re: regex ip address exclusion <abigail@abigail.nl>
sending icmp packets with raw::ip <aolblowz@yahoo.com>
Re: Speeding up glob? <pilsl@goldfisch.at>
Re: Speeding up glob? xhoster@gmail.com
Thanks. Indigo Perl is best Perl - PHP - My SQL All in <max@xxxxxxx.xxx>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 27 Apr 2005 21:31:54 GMT
From: "Michael De Tomaso" <mdetomaso@bak.rr.com>
Subject: all but one backspace
Message-Id: <exTbe.22$Au1.4@tornado.socal.rr.com>
I have been trying Numeric and String Literals & Escape Sequences
Escape Description
Sequences or Character Test Code
---------- ------------- ----------------
\a Alarm\bell perl -wle "print qq(\a);" ... ring that bell
!!!
\b Backspace
#!perl -w
print "test\n";
print "t\best\n";
print "t\be\bst\n";
print "t\be\bs\bt\n";
print "t\be\bs\bt\b\n";
D:\study\perl\WIP>perl test.plx
test
est
st
t
t
Q: Why didn't the last "t" in test get pacman'ed ???
http://www.oldsoftware.com/images/PACMANIA.GIF
- thanks & take care M.D.
<aka>
_ _
| |_ ___ _ __ ___ __ _ | |_ ___ ___
| __| / _ \ | '_ ` _ \ / _` | | __| / _ \ / _ \
| |_ | (_) | | | | | | | | (_| | | |_ | (_) | | __/
\__| \___/ |_| |_| |_| \__,_| \__| \___/ \___|
------------------------------
Date: Wed, 27 Apr 2005 15:56:39 -0600
From: Scott Bryce <sbryce@scottbryce.com>
Subject: Re: all but one backspace
Message-Id: <-aKdnQ21VrQJl-3fRVn-vQ@comcast.com>
Michael De Tomaso wrote:
> #!perl -w
> print "test\n";
> print "t\best\n";
> print "t\be\bst\n";
> print "t\be\bs\bt\n";
> print "t\be\bs\bt\b\n";
>
> D:\study\perl\WIP>perl test.plx
> test
> est
> st
> t
> t
>
> Q: Why didn't the last "t" in test get pacman'ed ???
You repositioned the cursor, but didn't print anything to replace the
't'. I would assume that the backspace is non-destructive.
------------------------------
Date: Wed, 27 Apr 2005 22:02:09 +0300
From: Nikos <hackeras@gmail.com>
Subject: Client does not support authentication protocol requested by server;
Message-Id: <d4onjf$4ae$1@nic.grnet.gr>
I get this when from my perl script i try to connect to my database from
within my index.pl script;
Software error:
Client does not support authentication protocol requested by server;
consider upgrading MySQL client at D:\www\cgi-bin\index.pl line 16.
For help, please send mail to the webmaster (admin@lan), giving this
error message and the time and date of the error.
Iam using Perl v5.8 an i downloaded DBD::mysql from cpan.
must i download a new DBD::mysql?
Iam on XP and i have downloaded mysql5.msi
------------------------------
Date: Wed, 27 Apr 2005 22:08:24 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: Client does not support authentication protocol requested by server;
Message-Id: <426ff13c$0$11687$8fcfb975@news.wanadoo.fr>
Nikos wrote:
> I get this when from my perl script i try to connect to my database from
> within my index.pl script;
>
> Software error:
>
> Client does not support authentication protocol requested by server;
> consider upgrading MySQL client at D:\www\cgi-bin\index.pl line 16.
>
> For help, please send mail to the webmaster (admin@lan), giving this
> error message and the time and date of the error.
>
> Iam using Perl v5.8 an i downloaded DBD::mysql from cpan.
>
> must i download a new DBD::mysql?
>
> Iam on XP and i have downloaded mysql5.msi
Do you *ever* try google for your questions, or is this newsgroup your
first port of call? Do you expect everyone else to read the
documentation for you?
Sigh.
Mark
------------------------------
Date: Wed, 27 Apr 2005 23:17:04 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: Client does not support authentication protocol requested by server;
Message-Id: <d4orvt$7uf$2@nic.grnet.gr>
Mark Clements wrote:
> Do you *ever* try google for your questions, or is this newsgroup your
> first port of call? Do you expect everyone else to read the
> documentation for you?
I did try somethign that i found on google but it did not correct the
problem.
Also some other stuff i found i didnt understand them, so i though it
was a good idea to ask here for a more detailed explanation.
------------------------------
Date: Wed, 27 Apr 2005 22:38:31 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: Client does not support authentication protocol requested by server;
Message-Id: <426ff84c$0$25031$8fcfb975@news.wanadoo.fr>
Nikos wrote:
> Mark Clements wrote:
>
>> Do you *ever* try google for your questions, or is this newsgroup your
>> first port of call? Do you expect everyone else to read the
>> documentation for you?
>
>
> I did try somethign that i found on google but it did not correct the
> problem.
>
> Also some other stuff i found i didnt understand them, so i though it
> was a good idea to ask here for a more detailed explanation.
Well Nikos, this is the thing. What did you try? What happened when you
tried? hat didn't you understand? What connect string are you using? How
is the server configured? What is the version of MySQL installed on the
client? What is the version of MySQL installed on the server? W I know
you won't answer any of these questions (you never do), so I'm just
posting this for my own amusement. You need to learn to ask yourself
these questions. This forum is *not* a substitute for thinking by
yourself, reading by yourself, or learning by yourself, but you still
haven't realised that, despite everything that everyone has said....
Mark
------------------------------
Date: Wed, 27 Apr 2005 23:31:08 +0300
From: Nikos <hackeras@gmail.com>
Subject: converting games.pl(cgi.pm) => games.pl (html::template)
Message-Id: <d4osq9$921$1@nic.grnet.gr>
my $sth = $dbh->prepare( "SELECT * FROM games" );
$sth->execute();
Hello, iam tryign to convert another script to htm;::template but iam
having some problems:
Here is the template:
<html>
<head>
<title>Games</title>
<link rel="stylesheet" type="text/css"
href="../data/tmpl/style.css" />
</head>
<body>
<h2>Από εδώ μπορείς να κατεβάσεις ωραία απλά παιχνίδια που έχω
επιλέξει!</h2>
<h2>Μπορείς να επικοινωνήσεις μαζί μου στο hackeras@gmail.com</h2>
<table>
<TMPL_LOOP NAME=games>
<TR>
<td><TMPL_VAR NAME=gamename></td>
<td><TMPL_VAR NAME=gamedesc></td>
<td><TMPL_VAR NAME=gamecount></td>
</TR>
</TMPL_LOOP>
</table>
<h2>Είσαι ο <TMPL_VAR NAME=gamecount>ος που κατεβάζει το <TMPL_VAR
NAME=gamename>!</h2>
<h2>Ελπίζω να σου αρέσει και να σου φανεί χρήσιμο!</h2>
<div id=links>
<a href="index.pl"><img src="../data/images/back.gif" /></a>
</div>
<script language='Javascript'>location.href='/data/games/<TMPL_VAR
NAME=gamename>.rar'</script>
</body>
</html>
And here is the games.pl part that i dotn know how to convert entirely,
please help me out:
my $tmpl = HTML::Template->new(filename=>'../data/tmpl/games.tmpl');
$tmpl->param( games=>$sth->fetchall_arrayref({}) );
print header, $tmpl->output;
if ( !param() ) { print p( a( {href=>'index.pl'}, img
{src=>'../data/images/back.gif'} )); }
if ( param() )
{
$dbh->do( "UPDATE games SET gamecount = gamecount + 1 WHERE
gamename='$game'" );
$sth = $dbh->prepare( "SELECT $game FROM games" );
$sth->execute();
$row = $sth->fetchrow_hashref;
$dbh->do( "UPDATE guestlog SET script='$game' WHERE host='$host'" )
or die $dbh->errstr;
print p( a( {href=>'index.pl'}, img
{src=>'../data/images/back.gif'} ));
print "<script
language='Javascript'>location.href='/data/games/$game.rar'</script>";
}
What am i doing wrong?
------------------------------
Date: Wed, 27 Apr 2005 22:43:45 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: converting games.pl(cgi.pm) => games.pl (html::template)
Message-Id: <426ff985$0$25031$8fcfb975@news.wanadoo.fr>
Nikos wrote:
> my $sth = $dbh->prepare( "SELECT * FROM games" );
> $sth->execute();
>
> Hello, iam tryign to convert another script to htm;::template but iam
> having some problems:
> Here is the template:
>
<snip usual tale of woe>
So what you are saying is: despite all the help you were given with a
pretty much identical problem over quite a long period of time, by a
number of very patient posters (I've lost all patience, as you can tell)
you have learnt nothing and want to be spoon-fed the entire development
process *again*?
------------------------------
Date: Wed, 27 Apr 2005 23:54:11 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: converting games.pl(cgi.pm) => games.pl (html::template)
Message-Id: <d4ou5h$a6o$1@nic.grnet.gr>
Mark Clements wrote:
> Nikos wrote:
>
>> my $sth = $dbh->prepare( "SELECT * FROM games" );
>> $sth->execute();
>>
>> Hello, iam tryign to convert another script to htm;::template but iam
>> having some problems:
>> Here is the template:
>>
> <snip usual tale of woe>
> So what you are saying is: despite all the help you were given with a
> pretty much identical problem over quite a long period of time, by a
> number of very patient posters (I've lost all patience, as you can tell)
> you have learnt nothing and want to be spoon-fed the entire development
> process *again*?
You have right to feel that way you are feeling but unfortunately i am
again stuck.
At that time yes i would like a little spoonfeeding but the template its
done(i guess its correct since now i have problem with MySQL too and i
cant test it), the only help i need is with the snippet of games.pl
I understand if you dont want to help, so please ignore my posts if you
like, but i hope you dont.
Maybe someone else dont mind helping me a bit more.
------------------------------
Date: Wed, 27 Apr 2005 23:49:33 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: converting games.pl(cgi.pm) => games.pl (html::template)
Message-Id: <427008f2$0$25031$8fcfb975@news.wanadoo.fr>
Nikos wrote:
>
>
> You have right to feel that way you are feeling but unfortunately i am
> again stuck.
>
> At that time yes i would like a little spoonfeeding but the template its
> done(i guess its correct since now i have problem with MySQL too and i
> cant test it), the only help i need is with the snippet of games.pl
>
> I understand if you dont want to help, so please ignore my posts if you
> like, but i hope you dont.
>
> Maybe someone else dont mind helping me a bit more.
You just *don't* get it, do you?
Here is what happens with your postings, time after time:
1. you post a load of badly checked code and say (almost literally)
"this doesn't work - what's wrong".
2. somebody posts pointing out problems with your code (of which there
are normally many), and with the question itself, and gives you pointers
as to how the question could be better-framed and better partitioned,
and suggests that you really could do more work for yourself, suggesting
numerous ways in which you could diagnose your problems *yourself* (ie
by *not* expecting everyone else to do you work for you).
3. you tweak one small bit of your code (like as not this causes as many
problems as it solves), failing to answer any of the requests for
clarification raised by the previous poster, failing to address any of
the improvements in your approach that have been suggested, and by the
looks of things failing to understand *anything*.
4. goto 1. repeat ad (moltam) nauseam.
The only variation from this pattern is when you decide to start a new
thread just for the sheer hell of it.
Amusingly, you wonder why people lose patience with you.
Mark
------------------------------
Date: 27 Apr 2005 21:23:48 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: one-time and one-line programs
Message-Id: <slrnd700n3.t5e.abigail@alexandra.abigail.nl>
Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMMMCCLVII
September MCMXCIII in <URL:news:d4o4hm$q1v$1@mamenchi.zrz.TU-Berlin.DE>:
,, Abigail <abigail@abigail.nl> wrote in comp.lang.perl.misc:
,,
,, > perl -pe '}{*_=*.}{' file # wc -l
,,
,, Nice. Why {*_=*.} and not {$_=$.}? Just obfuscation?
The $-key already gets worn out a lot....
Abigail
--
perl -swleprint -- -_='Just another Perl Hacker'
------------------------------
Date: Wed, 27 Apr 2005 22:05:54 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Question about "warn"
Message-Id: <3da9nbF6ri4klU1@individual.net>
Martin Kissner wrote:
> Why do I get these warnings also when the command before "or warn ..."
> was successfuly executed?
<snip>
> use HTML::Template;
<snip>
> $template->param(TITLE => $title) or warn ("param failed\n");
Does the HTML::Template POD say that the param() method always returns a
true value at success and a false value at failure? If not, that way to
check for success is not correct.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Wed, 27 Apr 2005 15:08:47 -0500
From: "J. Gleixner" <glex_nospam@qwest.invalid>
Subject: Re: Question about "warn"
Message-Id: <kjSbe.1970$d93.823@news.uswest.net>
Martin Kissner wrote:
> Why do I get these warnings also when the command before "or warn ..."
> was successfuly executed?
> ##### here comes the questionable line ######
> $template->param(TITLE => $title) or warn ("param failed\n");
Look at what param() returns.
Seems like you might also want to read about how "or" works, and in what
case(s) would the warn be called.
------------------------------
Date: Wed, 27 Apr 2005 23:55:18 +0200
From: Martin Kissner <news@chaos-net.de>
Subject: Re: Question about "warn"
Message-Id: <slrnd702i6.25t.news@maki.homeunix.net>
Gunnar Hjalmarsson wrote :
> Martin Kissner wrote:
>
>> $template->param(TITLE => $title) or warn ("param failed\n");
>
> Does the HTML::Template POD say that the param() method always returns a
> true value at success and a false value at failure? If not, that way to
> check for success is not correct.
Thanks for that hint. I was not conscious of this, although, of course,
it makes sense.
Thanks also to J. Gleixner.
Best regards
Martin
--
perl -e '$S=[[73,116,114,115,31,96],[108,109,114,102,99,112],
[29,77,98,111,105,29],[100,93,95,103,97,110]];
for(0..3){for$s(0..5){print(chr($S->[$_]->[$s]+$_+1))}}'
------------------------------
Date: 27 Apr 2005 11:05:20 -0700
From: fu.limin.tao@gmail.com (Fu Limin)
Subject: Re ANN: A new scripting language Tao 0.9.0 beta released!
Message-Id: <b35444fb.0504271005.6151df6b@posting.google.com>
Christopher Browne (cbbrowne@ca.afilias.info) wrote:
> From what I can see, most of the interesting features of Icon are left
> out, such as generators, continuations, directed goal search, and
> such.
> If your language leaves out all of the sorts of features that would
> represent the reasons why one might continue to use a scripting
> language as "obscure" as Icon, why would you imagine that it would be
> of any interest to Icon users?
There is generator in Tao, but I didn't intend it to be main feature
of this language, so I didn't pay much attention in the implementation
of it and didn't mention it in the announcement.
SO FAR the main features I intended to have in Tao are about text
processing, numeric computation and extensiblity, multi-threading
will come next, then the others will come into my consideration.
So it is and will be quite different from Icon. If Icon users only like
to use Icon kind language, I admit it's a mistake to post an announcement
in Icon group.
------------------------------
Date: 27 Apr 2005 11:31:56 -0700
From: fu.limin.tao@gmail.com (Fu Limin)
Subject: Re ANN: A new scripting language Tao 0.9.0 beta released!
Message-Id: <b35444fb.0504271031.4256bad7@posting.google.com>
brianr@liffe.com (brianr@liffe.com) wrote:
> Perhaps a name that isn't already being used might reduce confusion
> (or should that be Confucius) ?
> See http://www.cs.wustl.edu/~schmidt/TAO.html
I saw TAO a number of time on internet, and saw it was always spelled as TAO
instead of Tao, so I didn't pay much attention. I also asked my friend about this
when I chose the name, he said, don't mind, they are two different things in two
different fields.
Anyway, now it's not convenient to change name(it has been changed once),
in the place where Confucius may come, people can always call this one as
Tao scripting language, and that one TAO something.
------------------------------
Date: 27 Apr 2005 21:55:07 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: regex ip address exclusion
Message-Id: <slrnd702hq.fq.abigail@alexandra.abigail.nl>
gooofoofs (fsjfjs@nospma.net) wrote on MMMMCCLVII September MCMXCIII in
<URL:news:d4n22c$bkt$1@news-01.bur.connect.com.au>:
<> Im currently using the script below to find lines with valid IP addresses.
<> Now whats the best way to exclude any IP address in the 10.0.0.0 range.
<>
<>
<> #!/usr/bin/perl -w
<> open(FILE, "logfile.log");
<>
<> foreach $string (<FILE>){
<>
<>
<> if($string =~ /(\d+)(\.\d+){3}/){
<> print $string }
use Regexp::Common;
/(?<!\d)(?!10)$RE{net}{IPv4}(?!\d)/
Abigail
--
use lib sub {($\) = split /\./ => pop; print $"};
eval "use Just" || eval "use another" || eval "use Perl" || eval "use Hacker";
------------------------------
Date: Wed, 27 Apr 2005 17:53:17 -0400
From: lucas <aolblowz@yahoo.com>
Subject: sending icmp packets with raw::ip
Message-Id: <sY2dncs76ftRlO3fRVn-tw@rogers.com>
okay, i'm having trouble mimiking proper icmp packets, so here with hping2 i
send a proper packet:
hping2 -1 -C 11 -K 0 nexuss -c 1
and from tcpdump:
17:36:47.213148 IP (tos 0x0, ttl 64, id 15954, offset 0, flags [none],
length: 56) 192.168.0.2 > 192.168.0.1: icmp 36: time exceeded in-transit
and my perl code to do the same:
my $a = new Net::RawIP ({icmp =>{}});
$a->set({
ip => { saddr => $saddr, daddr => $daddr, protocol => 1, tos => 0,
id => $$},
icmp => {type => $type, code => $code, id => $$, sequence => $seq}
});
$a->send(1,1);
taken from tcpdump:
17:42:13.741040 IP (tos 0x0, ttl 64, id 8408, offset 0, flags [DF], length:
28) 192.168.0.2 > 192.168.0.1: [|icmp]
i figure that tcpdump isn't recognizing it becuase i missed an option in the
packet somewhere. can anybody help me with this?
thx,
--
lucas
-------------------------
Perl Coder since 2001
shift || die;
-------------------------
------------------------------
Date: Wed, 27 Apr 2005 21:12:24 +0200
From: peter pilsl <pilsl@goldfisch.at>
Subject: Re: Speeding up glob?
Message-Id: <426fe48e$0$3247$79720d31@newsreader.inode.at>
Big and Blue wrote:
>
> Which is a cause of your problem. And it will cause you problems
> every time you try to access any of the files too.
>
> If you had 21000 documents you wouldn't throw them all into one
> drawer and expect to find one quickly. You'd arrange them by some
> category and put each category into a separate drawer. File system
> have directory hierarchy for just such an arrangement. If you use the
> facility you will find your code runs much faster.
21000 files in one folder ist not a big deal for modern filesystems.
Like I wrote in my posting:
creating 21k files is about 1second on my old server. getting the stat
of each and unlink it, is about 2seconds.
best,
peter
--
http://www.goldfisch.at/know_list
------------------------------
Date: 27 Apr 2005 20:37:59 GMT
From: xhoster@gmail.com
Subject: Re: Speeding up glob?
Message-Id: <20050427163759.383$58@newsreader.com>
Big and Blue <No_4@dsl.pipex.com> wrote:
> > Jim wrote:
> >.....
> >> There are several thousand files (~21K) in this directory
>
> Which is a cause of your problem.
Actually, that wasn't the cause of his problems.
>
> If you had 21000 documents you wouldn't throw them all into one
> drawer and expect to find one quickly.
Lots of things are done on computers differently than they are done
by hand.
> You'd arrange them by some
> category and put each category into a separate drawer.
Assuming that there are different categories to arrange them into.
Maybe the name of the file is the optimal level of categorization
that exists. In which case I would break them into different drawers only
for the artificial reason that drawers only have a certain physical
capacity.
> File system have
> directory hierarchy for just such an arrangement.
Good file systems will let you use the natural arrangement rather
than an artificial one. And if that means 20,000 files in a directory,
so be it. On a good file system, it makes a neglibible difference. Even
on a bad file system, I suspect it makes far, far less difference than the
double globbing issue does.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Wed, 27 Apr 2005 23:12:08 +0200
From: "max" <max@xxxxxxx.xxx>
Subject: Thanks. Indigo Perl is best Perl - PHP - My SQL All in one solution.
Message-Id: <d4ov75$7oi$1@ss405.t-com.hr>
Thanks. Indigo Perl is best Perl - PHP - My SQL All in one solution.
"Gunnar Hjalmarsson" <noreply@gunnar.cc> wrote in message
news:3d9fjrF6p56etU1@individual.net...
> max wrote:
> > a.. How to upload some file on web server (FTP?) with single Perl
script.
>
> A convenient way is by using the CPAN module CGI::UploadEasy.
>
> http://search.cpan.org/perldoc?CGI%3A%3AUploadEasy
>
> > b.. Where I can found Perl FAQ in PDF, or Zip file?
>
> Don't know about PDF or zip, but you find an overview of available
> online docs at http://www.perl.org/docs.html
>
> Assuming you are on a Windows box, I recommend that you install the
> bundle at http://www.indigostar.com/indigoperl.htm
>
> That gives you Perl with Apache and PHP, and you get the whole Perl docs
> (incl. the FAQ) conveniently available as HTML pages.
>
> --
> Gunnar Hjalmarsson
> Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
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 8021
***************************************
