[11539] in Perl-Users-Digest
Perl-Users Digest, Issue: 5139 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 15 14:07:32 1999
Date: Mon, 15 Mar 99 11:00:25 -0800
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, 15 Mar 1999 Volume: 8 Number: 5139
Today's topics:
Re: Another woeful flock post (Abigail)
Re: any perl4 hackers want to try their hand at this? <dave@mag-sol.com>
Re: any perl4 hackers want to try their hand at this? (Matthew Bafford)
Re: can LWP handle tables yet? <brandeda@se.bel.alcatel.be>
CGI form that calcs order form totals? (Tim Ware)
CGI.pm file upload mysteries. <jamesht@idt.net>
crypt DES and IDEA compile probs on Solaris 2.7 <jdhunter@nitace.bsd.uchicago.edu>
Re: Datastream API Problem Help! <dimensions@dialaccess.com>
Re: Deleting the rest of the line... <aqumsieh@matrox.com>
Re: does perl discourage obfuscated code? (was Re: Perl <Russell_Schulz@locutus.ofB.ORG>
Re: does perl discourage obfuscated code? (was Re: Perl <Russell_Schulz@locutus.ofB.ORG>
Finding end of line mmartina@my-dejanews.com
How can I send variable to FORM CGI that using method P sakshart@my-dejanews.com
Re: How can I send variable to FORM CGI that using meth <jamesht@idt.net>
Re: Learn the truth - In Dear Recruiter we establish ex (Randal L. Schwartz)
Re: Learn the truth - In Dear Recruiter we establish ex <Rufus_Smith@GuntherIntl.com>
liars vs. non-liars (was Re: does perl discourage obfus <Russell_Schulz@locutus.ofB.ORG>
Multiple Open Filehandles with variables for handles <pfurlong@mtt.ca>
Re: Multiple Open Filehandles with variables for handle <jglascoe@giss.nasa.gov>
need better way to print external file withen perl file <jim@*nospam*network-2001.com>
Re: need better way to print external file withen perl (Sami Rosenblad)
Re: Pentium III Chips Released with IDs - Intel won't b <Stephan.Wilms@cwa.de>
perl and y2k (was Re: The millennium cometh -- eventual <Russell_Schulz@locutus.ofB.ORG>
Re: Perl Keeps reading the A: drive <jeff@vpservices.com>
Re: Perl v C (Bart Lateur)
Re: Segmentation Fault latsharj@my-dejanews.com
Re: Send a space via Net::Telnet? <jay@rgrs.com>
Syntax errors with PerlShop... ("John Bigbooty")
Re: System V shared memory in Perl <jhi@alpha.hut.fi>
The need for speed <davem@nortak.com>
threads and non-blocking sockets <ian.maloney@ubs.com>
Re: UNIQUE variable... <wells@cedarnet.org>
Url validation question (John )
Re: Url validation question <jglascoe@giss.nasa.gov>
Re: Where is Perl 5.004 ? <droby@copyright.com>
Re: Where to start with Perl <jglascoe@giss.nasa.gov>
Re: y2k and 4-digit dates (was Re: foreach and while) (Craig Berry)
Re: y2k and 4-digit dates (was Re: foreach and while) (Craig Berry)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 15 Mar 1999 18:33:47 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Another woeful flock post
Message-Id: <7cjjqb$4dd$1@client2.news.psi.net>
Tad McClellan (tadmc@metronet.com) wrote on MMXXI September MCMXCIII in
<URL:news:lfsfc7.br.ln@magna.metronet.com>:
"" shanx24@my-dejanews.com wrote:
""
"" : use fcntl ':flock';
"" ^
"" ^
"" : syntax error in file last2.cgi at line 2, next 2 tokens "use fcntl"
""
"" : The use of Fcntl is something I picked up from Perl.com site in their FAQ 5,
"" ^
"" ^
""
"" : Could you please tell me whats wrong with the above code?
""
""
"" You didn't type the name correctly...
But typing a name incorrectly isn't a syntax error. If that's the only
error, you would get a message like:
Can't locate fcntl.pm in @INC (@INC contains: ...) at last2.cgi line2
BEGIN failed--compilation aborted at last2.cgi line2
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
------------------------------
Date: Mon, 15 Mar 1999 16:59:48 GMT
From: Dave Cross <dave@mag-sol.com>
Subject: Re: any perl4 hackers want to try their hand at this?
Message-Id: <7cje9t$32e$1@nnrp1.dejanews.com>
In article <36ED1E19.2E7E443D@kidkaboom.frogspace.net>,
Kid Kaboom <kidkaboom@techplus.com> wrote:
> Hi, I'm a beginning perl (v5.004) programmer and I found this totally
> awesome access statistic script. You may be familiar with it. Its Matt
> Kruse's POV Ray access stat one
> <http://mkruse.netexpress.net/www/scripts/access3/> but it it written
> for perl 4.036 and my server doesn't have that version of perl, and my
> sysadmin doesn't want to install perl 4.036. I have also found (I;m a
> win32 user) that when I downloaded perl 4.036 for dos it can't handle 9
> meg files, but perl 5 can, so I would like to port (I believe this is
> teh right word) this script to the latest version of perl.
>
> If anyone here is knowledgeable in perl 4.036 and would like to help me,
> I would be very grateful.
Have you tried running the script under your latest version of Perl? Many
older Perl scripts will run unchanged under newer version of Perl. If you
need pointers as to the sorts of things that might cause problems, look at
perldoc perltrap.
hth,
Dave...
--
Dave Cross
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 15 Mar 1999 17:35:53 GMT
From: dragons@scescape.net (Matthew Bafford)
Subject: Re: any perl4 hackers want to try their hand at this?
Message-Id: <slrn7eqfbj.pd9.dragons@localhost.localdomain>
Mon, 15 Mar 1999 14:51:08 GMT -- Kid Kaboom <kidkaboom@techplus.com>:
-> Hi, I'm a beginning perl (v5.004) programmer and I found this totally
-> awesome access statistic script. You may be familiar with it. Its Matt
-> Kruse's POV Ray access stat one
-> <http://mkruse.netexpress.net/www/scripts/access3/> but it it written
-> for perl 4.036 and my server doesn't have that version of perl, and my
-> sysadmin doesn't want to install perl 4.036. I have also found (I;m a
Congradulations! You have a smart SysAdmin! Perl 4 is full of bugs and
security holes.
-> win32 user) that when I downloaded perl 4.036 for dos it can't handle 9
-> meg files, but perl 5 can, so I would like to port (I believe this is
-> teh right word) this script to the latest version of perl.
-> If anyone here is knowledgeable in perl 4.036 and would like to help me,
-> I would be very grateful.
For the most part, Perl4 scripts should run in Perl5. I haven't actually
ran the program, but a 'perl -c' passes if you change line 67 from:
eval("$" . "$day{$hour}++");
to
eval("\$" . "$day{$hour}++");
or even better:
${$day{$hour}}++;
Good Luck!
-> From Theodore
--Matthew
------------------------------
Date: Mon, 15 Mar 1999 16:42:48 +0100
From: David Van den Brande <brandeda@se.bel.alcatel.be>
Subject: Re: can LWP handle tables yet?
Message-Id: <36ED2A78.D7BEBA7B@se.bel.alcatel.be>
Peter Bismuti wrote:
>
> Can the latest versions of LWP, HTML handle tables yet??
I read an URL with LWP and Parse it with HTML::Parser to get the content
out of the table.
Maybe "my" code can help:
(I also got it from this newsgroup :-)
#!/usr/local/bin/perl5.003 -w
package Treader;
use LWP::Simple;
require HTML::Parser;
@ISA='HTML::Parser';
print "Content-type: text/html\n\n"; # Script tells server what is
comming.
# The server will pass the contents of further
# print statements back tot the browser.
print"<HTML>";
print"<HEAD>";
print"<TITLEBelgacom customer page</TITLE>";
print"</HEAD>";
print"<BODY BGCOLOR=White>";
print "<form method=\"post\"
action=\"http:\/\/hidec.se.bel.alcatel.be\/cgi-bin\/newcustpage.cgi\">";
$url="http://something";
my $table = get($url);
my ($in_table,$in_td,$in_tr,$txtbuf,$colcnt,@columns);
# called for each start tag
sub start {
my ($p,$tag,$attr,$attrseq,$orig)=@_;
if ($tag eq 'table') {
$in_table=1;
} elsif ($tag eq 'tr') {
$colcnt=0;
$in_tr=1;
$txtbuf='';
} elsif ($tag eq 'td') {
$in_td=1;
}
}
# called when text seen
# text may be split up into multiple calls
sub text {
my ($p,$t)=@_;
if ($in_table && $in_tr && $in_td)
{
$txtbuf.=$t;
$txtbuf.="|";
}
}
#called when closing tag seen
sub end {
my ($p,$tag,$orig)=@_;
if ($tag eq 'td') {
$in_td=0;
} elsif ($tag eq 'tr') {
push @list,$txtbuf;
} elsif ($tag eq 'table') {
$in_table=0;
}
}
my $p=new Treader;
$p->parse($table);
$p->eof();
print "Put here some text that will be put on top of the new page:<BR>";
print "<textarea name=\"text\" rows=5 cols=60></textarea>";
print "<P>";
print "<TABLE border>";
for ($l=1;$l<=$#list;$l++)
{
@splitted=split(/\|/,$list[$l]);
$col=$#splitted;
for ($i=0;$i<4;$i++)
{
print "<TD><FONT size=2>$splitted[$i]</FONT></TD>";
}
print "</TR>";
}
print "</TABLE>";
print "<INPUT TYPE=\"submit\" VALUE=\"Submit\">";
print "<INPUT TYPE=\"reset\" VALUE=\"Clear\">";
print "</FORM>";
print "</BODY>";
print "</HTML>";
--
V David Van den Brande, Trainee at
----------------- Alcatel Switching VE27
| A L C A T E L | Fr. Wellesplein 1 - 2018 Antwerp - Belgium
----------------- mailto:David.Van_den_Brande@alcatel.be
------------------------------
Date: 15 Mar 1999 09:43:36 -0800
From: redbug@best.com (Tim Ware)
Subject: CGI form that calcs order form totals?
Message-Id: <7cjgs8$pa7$1@shell3.ba.best.com>
Hello,
Does anyone know of a script that will handle the simple math of an online
order form? The form is located at:
www.metronomeballroom.com/registration2.html
Please copy response to: tim@hyperarts.com
Thanks.
Tim Ware
--
===============<<<<< h y p e r a r t s . c o m >>>>>===============
Tim Ware ::: tel 510.530.2847 ::: fax 510.530.1466
------------------------------
Date: Mon, 15 Mar 1999 13:21:18 -0500
From: James Tolley <jamesht@idt.net>
Subject: CGI.pm file upload mysteries.
Message-Id: <36ED4F9E.EA3058C9@idt.net>
Hello all,
I'm having a bit of trouble using CGI.pm to upload files. Here's the
environment:
CGI.pm VERSION:
2.36 (as q/:standard/;)
SERVER_SOFTWARE:
Apache/1.3.1 (Unix) FrontPage/3.0.4.2
The version of perl and the os:
5.004_04 built for i686-linux
When I try to submit the form without putting anything in the file
field, everything runs fine, including the calls to param. When I try to
upload a file, the call to param kills the script with no warning and no
explanation.
What could be causing this?
By the way, I have uploaded files on other servers using a very similar
script, so I don't think I'm missing anything TOO obvious.
One other thing I've noticed is that it's impossible to 'use strict'
when you're uploading files. I'm guessing that this is due to the
filehandle passed back by CGI. Is there a way around this?
Thank you,
James Tolley
------------------------------
Date: Mon, 15 Mar 1999 18:50:59 GMT
From: John Hunter <jdhunter@nitace.bsd.uchicago.edu>
Subject: crypt DES and IDEA compile probs on Solaris 2.7
Message-Id: <1rr9qqtwmk.fsf@cace.bsd.uchicago.edu>
I have the CPAN modules Crypt-DES and Crypt-IDEA. Both fail during
make. I made some recommended changes to des.h that a user of an
earlier version of solaris suggested (modified file below) which
allowed DES to 'make' but it fails two tests on 'make test'. It also
runs abnormally slowly. I have not been able to make Crypt-IDEA. Has
anyone successfully installed either of these packages on a solaris
2.7 machine and if so could you pass on the required changes?
Thanks,
JDH
Modified des.h
#ifdef sun
#include <sys/int_types.h>
typedef uint8_t u_int8_t;
typedef uint32_t u_int32_t;
#else
#include <machine/types.h>
#endif
typedef u_int8_t des_user_key[8];
typedef u_int32_t des_cblock[2];
typedef u_int32_t des_ks[32];
void des_crypt(des_cblock in, des_cblock out, des_ks key, int encrypt);
void des_expand_key(des_user_key userKey, des_ks key);
------------------------------
Date: Mon, 15 Mar 1999 11:48:28 -0600
From: "Dimensions" <dimensions@dialaccess.com>
Subject: Re: Datastream API Problem Help!
Message-Id: <jJbH2.3113$Bd3.56138@newsfeed.slurp.net>
Thanks for your feedback.
Unfortunately, I do not have rights to install perl libraries on the server
that is hosting my site, only access to my CGI-BIN.
Any other suggestion?
Randal L. Schwartz wrote in message ...
>>>>>> "Dimensions" == Dimensions <dimensions@dialaccess.com> writes:
>
>Dimensions> I am using a script to get shipping costs from UPS
>Dimensions> directly into my script. But, I am not getting any data
>Dimensions> back.
>
>Dimensions> I checked links to web site, strings, etc It all
>Dimensions> works. I just cant get the data back into the
>Dimensions> variable: $resultlist
>
>Dimensions> It must be something about communication, and I am not too
>Dimensions> good at that yet!
>
>Dimensions> Please anyone, help!
>
>The best help I can give you is not to reinvent the wheel, either
>for fetching a web page, or specifically for getting the UPS data.
>
>The module Business::UPS in the CPAN does everything you want and
>more. Save your cleverness for the *hard* parts of your code. :)
>
> NAME
> Business::UPS - A UPS Interface Module
>
> SYNOPSIS
> use Business::UPS;
>
> my ($shipping,$ups_zone,$error) = getUPS(qw/GNDCOM 23606 23607 50/);
> $error and die "ERROR: $error\n";
> print "Shipping is \$$shipping\n";
> print "UPS Zone is $ups_zone\n";
>
> %track = UPStrack("z10192ixj29j39");
> $track{error} and die "ERROR: $track{error};
>
> # 'Delivered' or 'In-transit'
> print "This package is $track{Current Status}\n";
>
> DESCRIPTION
> A way of sending four arguments to a module to get
> shipping charges that can be used in, say, a CGI.
>
>print "Just another Perl hacker,"
>--
>Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
>Keywords: Perl training, UNIX[tm] consulting, video production, skiing,
flying
>Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger
merlyn@teleport.com)
>Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
>Quote: "I'm telling you, if I could have five lines in my .sig, I
would!" -- me
------------------------------
Date: Mon, 15 Mar 1999 18:26:22 GMT
From: @l@ <aqumsieh@matrox.com>
Subject: Re: Deleting the rest of the line...
Message-Id: <7cjjbu$89g$1@nnrp1.dejanews.com>
In article <7cdahm$ukj$1@reader1.reader.news.ozemail.net>,
"David Falconer" <webmaster@guestcities.com> wrote:
> In a text file I have, I want to delete all characters after a certain
> occurance of a word.
>
> So each time it comes across the word TRUCK it deletes all characters after
> that for the rest of the line.
Here's a one-liner:
perl -pi.bak -e 's/(TRUCK).*/$1/' my_text_file
--Ala
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 15 Mar 1999 12:28:48 -0500
From: Russell Schulz <Russell_Schulz@locutus.ofB.ORG>
Subject: Re: does perl discourage obfuscated code? (was Re: Perl evangelism)
Message-Id: <19990315.122848.1M2.rnr.w164w@locutus.ofB.ORG>
Mark <admin@asarian-host.org> writes:
> Although Perl does not in and by itself discourage or encourge
> anything, the means it provides to express yourself, like any
> language, largely determines whether we regard the things we want to
> do as obfuscate or lucid.
yes; at a more literal level, Perl does nothing; I was referring to the
encouragement and discouragement, indirectly, from the maintainers of Perl.
> Perl is extremely powerful, it can pack a multitude of operations into
> a single line. Now, you can look at this from the "terse and legible"
> scale, and conclude that Perl promotes obfuscate coding.
it doesn't matter so much if it's on a single line, of course. but yes.
> But by the same measure, seen from the "useless to powerful" scale,
> you can just as easily state that Perl promotes powerful coding.
and I have done.
> My point being still, that you cannot look at one very dense line of
> code and call it obfuscate just because your mind is being dazzled by
> the amount of things that happen in this one line: one is the result
> of the other.
I disagree; I don't believe something has to be short to be powerful,
or that something longer is inherently less powerful.
it's just less dense.
--
Russell_Schulz@locutus.ofB.ORG Shad 86c
------------------------------
Date: Mon, 15 Mar 1999 12:12:39 -0500
From: Russell Schulz <Russell_Schulz@locutus.ofB.ORG>
Subject: Re: does perl discourage obfuscated code? (was Re: Perl evangelism)
Message-Id: <19990315.121239.7v3.rnr.w164w@locutus.ofB.ORG>
Jerome O'Neil <jeromeo@atrieva.com> writes:
> Perl allows one to write *more* readable code.
I already said I agreed to this. why did you feel I didn't agree?
> Unreadable code is a function of undisciplined programmers. Perl has
> nothing to do with it, other than to say "Of the code generated by any
> given programmer P, of discipline D, Perl's readability R will usually
> be higher."
you state this as fact, with nothing to back it up.
obviously, I disagree with this: that Perl code's readability will be
higher than other code in general (usually).
why? partly because Perl relies heavily on $\$punctuation[@_] to convey
meaning that other languages would leave to text. partly because Perl
is powerful in ways that are concise; I have sat down with a big regex
and emulated a finite state machine in my head (and on paper) to attempt
enlightenment about what some 40-char non-/x (a non-obfuscating yet
still new feature) regex is trying to do. or is actually doing, when it
doesn't do what the comments say it is trying to do. (haven't you?)
partly because Perl is trying to DWIM on things, and it hides the fact
that $_ is not available at a particular place in a loop, or that
`while (0)' is the same as `while (1)', or that sin / 3 vs. print / 3
example Randal loves to supply when talking about syntax-highlighting
editors. partly because I've worked with Perl code that is unintentionally
obfuscated, from people I know who don't write hard-to-read code in
other languages.
how many obfuscated Just Another Lisp Hacker sigs have you seen? even with
lisp, the discipline might only need to be `line up your parentheses'.
> Russell> I believe it. Perl encourages hard-to-read code. that's
> Russell> just the way it is, and if you don't apply a strong
> Russell> discipline when writing Perl, you're going to be the proud
> Russell> owner of a ton of [write]-only code.
>
> s/Perl/Any Language You Care To Mention/;
I disagree; I find that it does NOT take a lot of discipline to keep
your average Pascal program from turning write-only. I find that it
takes more discipline to avoid it with FORTRAN. and I find that it
takes a LOT more to avoid it with APL. (personally, I think C is
between Pascal and FORTRAN, in that you _can_ make it obfuscated, but
it usually takes some effort to get it really bad.)
>> your claim is now that for some tasks, Perl code
>> is MORE readable than any other possible code.
>
> Now you're just plain old puttin' words in my mouth.
>
> Perl allows one to write *more* readable code.
changing `*more*' to `MORE' is putting words in your mouth?!
--
Russell_Schulz@locutus.ofB.ORG Shad 86c
------------------------------
Date: Mon, 15 Mar 1999 18:22:40 GMT
From: mmartina@my-dejanews.com
Subject: Finding end of line
Message-Id: <7cjj51$84a$1@nnrp1.dejanews.com>
I an trying to scan characters in one at a time using getc(). This is working
but I an unable to determine when I hit the end of line character. I am
running perl5 on a HP Unix machine. Any suggestions.
Thanks!
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 15 Mar 1999 17:40:18 GMT
From: sakshart@my-dejanews.com
Subject: How can I send variable to FORM CGI that using method POST
Message-Id: <7cjgm1$5fp$1@nnrp1.dejanews.com>
I want to write perl to send Information to Webpage that using FORM cgi (it
use method post) How can I do..... Please help me...........
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 15 Mar 1999 13:29:30 -0500
From: James Tolley <jamesht@idt.net>
To: sakshart@my-dejanews.com
Subject: Re: How can I send variable to FORM CGI that using method POST
Message-Id: <36ED518A.113C776@idt.net>
sakshart@my-dejanews.com wrote:
> I want to write perl to send Information to Webpage that using FORM cgi (it
> use method post) How can I do..... Please help me...........
you can use the HTTP::Request module:
use HTTP::Request;
use LWP::UserAgent;
$method = 'POST';
$action = "http://site/script.cgi";
$content = "name=value&this=that";
# undef is for the headers.
$html =
LWP::UserAgent->new()->request(HTTP::Request->new($method,$action,undef,$content))->as_string();
You need to url-escape the content, but the content-length is submitted for
you.
To url-escape the content (as I learned earlier today - Thank you Eric
Bohlman!), use the URI::Escape module:
use URI::Escape;
$escaped_string = uri_escape($string);
hth,
James
------------------------------
Date: 15 Mar 1999 08:03:04 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Learn the truth - In Dear Recruiter we establish exactly what a recruiter does.
Message-Id: <m1pv6apwp3.fsf@halfdome.holdit.com>
>>>>> "Bill" == Bill Boulton <bill_boulton@junk.winshop.com.au> writes:
Bill> Who died and made you God? Pull your head in!
Perhaps you should read the operating manual that comes with Usenet
then... news.announce.newusers. Job postings are verboten in groups
without ".jobs." in the name (in general, with very few exceptions).
Usenet is a cooperative anarchy... if you get out of line, the
collective takes care of itself. :)
Just another former usenet news admin (and a usenet user since 1980),
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Mon, 15 Mar 1999 13:38:49 -0500
From: "Rufus V. Smith" <Rufus_Smith@GuntherIntl.com>
Subject: Re: Learn the truth - In Dear Recruiter we establish exactly what a recruiter does.
Message-Id: <7cjk79$std$1@nnrp03.primenet.com>
>>
>>I will except opinions from all QUALIFIED COMPUTER CONSULTANTS.
>Everyone else
>>will be ignored.
>>
A consultant is a person who:
a) calls himself,
or
b) is called by someone else,
a consultant.
There really are no other "qualifications".
------------------------------
Date: Mon, 15 Mar 1999 12:09:17 -0500
From: Russell Schulz <Russell_Schulz@locutus.ofB.ORG>
Subject: liars vs. non-liars (was Re: does perl discourage obfuscated code?...)
Message-Id: <19990315.120917.7d9.rnr.w164w_-_@locutus.ofB.ORG>
merlyn@stonehenge.com (Randal L. Schwartz) writes:
> More particularly, I don't call people "liars".
I asked Randal about this in mail, and his reply was that although he
said I was lying (and yes, you can see that in Deja News), he doesn't
think in doing so he called me a liar, which he defined in his mail to
be a brand new (to me anyway) meaning of the word which didn't include
saying I was lying.
well, I'm glad _that_ is cleared up. :-|
--
Russell_Schulz@locutus.ofB.ORG Shad 86c
------------------------------
Date: Mon, 15 Mar 1999 13:54:26 -0400
From: Patrick Furlong <pfurlong@mtt.ca>
Subject: Multiple Open Filehandles with variables for handles
Message-Id: <36ED4952.86CEE953@mtt.ca>
Hi there.
I've searched the FAQ (particularly perlfaq5) for the answer to this,
but have found the answer vague.
My situation is:
I'm trying to process a large logfile. I need to separate it out into
separate files, based on the value of a field. i.e. field1="A",
therefore this entry needs to be written to file "A".
My question is:
How can I have many open filehandles (like in an array), where the name
of the file is a variable? The length of the logfile makes constantly
OPENing a file for each line prohibitive. The number of files I need to
open is variable.
What I have:
Looping...
{
if ( ! $file{$indicator})
{
open(FH, ">/tmp/$indicator") || die "Couldn't open $indicator file:
$!\n";
$file{$indicator}=*FH;
}
print $file{$indicator} $variable . "\n";
}
Can anyone offer suggestions?
Thanks muchly,
Patrick Furlong
------------------------------
Date: Mon, 15 Mar 1999 13:25:55 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: pfurlong@mtt.ca
Subject: Re: Multiple Open Filehandles with variables for handles
Message-Id: <36ED50B3.C86A642@giss.nasa.gov>
[courtesy copy of post sent to cited author]
Patrick Furlong wrote:
>
> My question is:
>
> How can I have many open filehandles (like in an array), where the name
> of the file is a variable? The length of the logfile makes constantly
> OPENing a file for each line prohibitive. The number of files I need to
> open is variable.
see perlfaq5: "[...] How do I make an array of filehandles?"
> Looping...
> if ( ! $file{$indicator})
> {
> open(FH, ">/tmp/$indicator") || die "Couldn't open $indicator file:
> $!\n";
> $file{$indicator}=*FH;
> }
> print $file{$indicator} $variable . "\n";
Allow me to regurgitate the cited FAQ for you ;^)
use Symbol;
my %files = ();
# [...] looping [...]
unless (exists $file{$indicator}) {
my $fh = gensym();
open $fh, "> /tmp/$indicator" or die "foozball: $!";
$file{$indicator} = $fh;
}
print $file{$indicator} $variable . "\n";
Jay Glascoe
--
"Just say 'Poit!'."
--Pinky
------------------------------
Date: Mon, 15 Mar 1999 10:29:14 -0600
From: "Jim" <jim@*nospam*network-2001.com>
Subject: need better way to print external file withen perl file
Message-Id: <7cjcgq$etc$1@news3.infoave.net>
I need a better way to print an external file within a perl file please.
here's what I have now:
$blah="ttt" ;
print "Content-type: text/html\n\n" ;
print eval `cat "usr/path/of/file/nameoffile.txt"` ;
that will output all the text withen the file "nameoffile.txt" and
replace's all
$blah's with ttt --- it works great, except the nameoftextfile.txt has
to be treated
as perl (putting \ in front of all @ signs and quotations). also the
file has to have
" at the beginning and " at the end. Is there a better way to do this
similar to this:
print <<__END__ ;
contents of text file recognized like they are here
__END__
Thanks very much for any help
--
Jim
if replying to email, please reply to syt{at}email{dot}com
------------------------------
Date: Mon, 15 Mar 1999 19:12:36 +0200
From: blade@leela.janton.fi (Sami Rosenblad)
Subject: Re: need better way to print external file withen perl file
Message-Id: <blade-1503991912360001@durandal.janton.fi>
In article <7cjcgq$etc$1@news3.infoave.net>, "Jim"
<jim@*nospam*network-2001.com> wrote:
> I need a better way to print an external file within a perl file please.
>
> here's what I have now:
>
> $blah="ttt" ;
> print "Content-type: text/html\n\n" ;
> print eval `cat "usr/path/of/file/nameoffile.txt"` ;
>
> that will output all the text withen the file "nameoffile.txt" and
> replace's all
> $blah's with ttt --- it works great, except the nameoftextfile.txt has
> to be treated
> as perl (putting \ in front of all @ signs and quotations). also the
> file has to have
> " at the beginning and " at the end. Is there a better way to do this
> similar to this:
>
> print <<__END__ ;
> contents of text file recognized like they are here
> __END__
I don't understand the use of eval() here... try this for size:
#!/usr/bin/perl -w # always use -w !
$blah = "ttt";
print "Content-type: text/html\n\n";
open FILE, "testfile" or die "$!"; # always check if open succeeded
while (<FILE>) {
s/\$blah\b/$blah/ge; # \b prevents $blahschemy from matching
print;
}
close FILE;
--
blade@leela.janton.fi
------------------------------
Date: Mon, 15 Mar 1999 18:01:06 +0100
From: Stephan Wilms <Stephan.Wilms@cwa.de>
To: Intel no one <amdchips@rbetter.com>
Subject: Re: Pentium III Chips Released with IDs - Intel won't budge
Message-Id: <36ED3CD2.2E5BE85F@cwa.de>
[posted & mailed]
Intel no one schrieb:
>
> Pentium III chip with the individual serial number that can
> track your web surfing and buying habits can now have the ID number
> turned on and off by software.
Please desist from posting this nonsense to comp.lang.c
It is off topic for this newsgroup.
Stephan
(initiator of the campaign against grumpiness in c.l.c)
(-: A brandnew excellent FAQ version has been released !!! :-)
(-: Get it: http://www.eskimo.com/~scs/C-faq/versions.html :-)
------------------------------
Date: Mon, 15 Mar 1999 12:34:59 -0500
From: Russell Schulz <Russell_Schulz@locutus.ofB.ORG>
Subject: perl and y2k (was Re: The millennium cometh -- eventually)
Message-Id: <19990315.123459.1O1.rnr.w164w_-_@locutus.ofB.ORG>
mgjv@comdyn.com.au (Martien Verbruggen) quotes me and writes:
>> this is why I disagree with the FAQ's insistence that `perl has as much
>> or as little of a y2k problem as a pencil does'.
>
> Nonsense.
you quote my statement, you delete the supporting text, and say `nonsense'.
> perl has no y2k problem.
I already heard you disagree without backing it up.
> Perl has no y2k problem.
I already heard you disagree without backing it up.
> As explained countless times before: The y2k problem is a programming
> problem here, wetware. Not perl or Perl.
I already heard you disagree without backing it up.
> because it is as easy to use them
> correctly as it is to use them wrongly.
and that has been pointed out to be incorrect; it is easier to use them
wrongly, with the year-1900.
if memory serves, it was MJD who pointed out the basic things you would
do with a year, and to handle them correctly was at least as long (and
in at least one case longer) than to handle them incorrectly, given the
problematic representation (year-1900).
again: this is why I disagree with the FAQ. I have never seen a pencil
that would surprise a user (who, shockingly, hadn't memorized its manual)
by writing 100 when referring to 2000.
but I think this has been gone over enough times; I know it's a problem
inhereted from C; I know some people think every user should memorize the
manual for every function they use; I know some people think there is no
problem with writing `100' for a 2-digit year in 9 months. and I know
there are people who think `tough noogies'.
so I've set followups. I don't particularly want people to mail me their
private repetitions of the above lines of `reasoning', but it's less drain
on the network if I keep them from posting it again and again here.
--
Russell_Schulz@locutus.ofB.ORG Shad 86c
------------------------------
Date: Mon, 15 Mar 1999 09:11:48 -0800
From: Jeff Zucker <jeff@vpservices.com>
To: gthia@rocketmail.com
Subject: Re: Perl Keeps reading the A: drive
Message-Id: <36ED3F54.FD176749@vpservices.com>
[posted and mailed]
gthia@rocketmail.com wrote:
>
> After creating a perl program and run it in
> Win95 (using Perl for Win32 Build 316), my
> floppy drive keeps spinning
There's a glitch in the interaction between McAfee virus checker and
activeState Perl that causes the A: drive to spin. Try disabling McAfee
and see if the problem goes away. If you aren't running McAfee, then
that probably isn't what is causing your problem :-).
--
Jeff
------------------------------
Date: Mon, 15 Mar 1999 15:58:54 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Perl v C
Message-Id: <36ee2d95.330978@news.skynet.be>
Clinton Gormley wrote:
>What I'm getting to is this : In developing applications, does the speed
>limitation imposed on Perl because of the need to translate result in an
>eventual switch to rewriting everything in C when the application becomes
>too complex?
Depends. Number crunching etc. will be quite a bit slower in Perl. For
everything sufficiently high level: text crunching, pattern matching,
file access, databases... there should really not be that much of a
difference.
Starting up might be faster in C. If that's a concern, try looking at
mod_perl and related subjects.
HTH,
Bart.
------------------------------
Date: Mon, 15 Mar 1999 15:51:16 GMT
From: latsharj@my-dejanews.com
Subject: Re: Segmentation Fault
Message-Id: <7cja9e$va1$1@nnrp1.dejanews.com>
In article <MPG.1155e8fabac20a339896db@206.184.139.132>,
moseley@best.com (Bill Moseley) wrote:
> I have 'Segmentation Fault' entered in my log file on a line by itself.
> Anyone know what I'm being told?
You are attempting to access memory that does not belong to you.
Regards,
Dick
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 15 Mar 1999 13:35:02 -0500
From: Jay Rogers <jay@rgrs.com>
Subject: Re: Send a space via Net::Telnet?
Message-Id: <8290cyzjmx.fsf@shell2.shore.net>
Keith Woodworth <kwoody@citytel.net> writes:
> using pmwho for our portmasters here (its a C program) and decided to
> write some perl to see if I could do it in perl but with a twist. I
> want to be able to use it for our Cisco NAS's as well...what I wrote works
> for the most part but I have one small prob.
>
> The PM3's when you do a "sho session" to see who's online and the output
> goes to scroll offscreen it gives a "Hit Enter for More".
Your program will be a lot simpler if you don't have to recognize
and respond to paging commands to get info from the remote side.
Why not just issue the PM3 command to turn-off paging?
For the benefit of the user you can always run a pager on the
local side under control of the user.
> Easy enough just
> send a \n to continue. But the cisco you send a \n and you get the next
> line only. You have to hit the spacebar to finish the scroll and see the
> rest of the who output.
>
> Using Net::Telnet what char can I use to send a spacebar hit (for
> lack of a better term?)
Take a look at the section "What To Know Before Using" in the
Net::Telnet documentation.
The output record separator for print() and cmd() is set to
"\n" by default, so that you don't have to append all your
commands with a newline. See output_record_separator() to
change the behavior.
--
Jay Rogers
jay@rgrs.com
------------------------------
Date: Mon, 15 Mar 1999 09:35:28 PST
From: mr_bigbooty@hotmail.com ("John Bigbooty")
Subject: Syntax errors with PerlShop...
Message-Id: <19990315173530.15968.qmail@hotmail.com>
Dear esteemed and knowledgeable Perl gurus,
I'm new to the Perl/cgi world and have a working knowledge of the
language. I'm trying to configure PerlShop to run on a server using
Free BSD. When it compiles, it finds a lamentable amount of syntax
errors.
Line 128 in the script is as follows:
if (lc $use_cookies ne 'yes')
and when run in the shell it produces this error:
syntax error in file Perlshop.cgi at line 128, next 2 tokens "lc
$use_cookies "
Execution of Perlshop.cgi aborted due to compilation errors.
This is just the tip of the iceberg. Just to see what happened when
these commands (lines 128 & 129) were taken out of the script, I deleted
them and tried to run it again. The result:
syntax error in file Perlshop.cgi at line 195, next 2 tokens "chr("
syntax error in file Perlshop.cgi at line 272, next token "["
syntax error in file Perlshop.cgi at line 325, next token "["
syntax error in file Perlshop.cgi at line 340, next token "["
syntax error in file Perlshop.cgi at line 362, next 2 tokens "uc substr"
Execution of Perlshop.cgi aborted due to compilation errors.
These program lines are as follows:
195: $delim = chr(1);
272: ['US', 2.75],
325: [$catalog_country, 'UPS Ground', 0, 2, '+', 5.00],
340: [1, 3, 0.00],
362: if ( (uc substr($action,0,5) eq 'ENTER') ||
Thus, I am at a complete loss as to what the problem is. The server
supports perl 5.00404, so it is not a version problem. I only open the
script in PFE, so Wordpad is not goofing it up. From my understanding,
there are no syntax errors in these lines.
Any help, comments, or even sympathy would be ever so greatly
appreciated.
Get Your Private, Free Email at http://www.hotmail.com
------------------------------
Date: 15 Mar 1999 19:14:36 +0200
From: Jarkko Hietaniemi <jhi@alpha.hut.fi>
Subject: Re: System V shared memory in Perl
Message-Id: <oeeyaky65fn.fsf@alpha.hut.fi>
> Judging from the lack of posts and example code on the subject in the
> newsgroups and web pages (I found one example, but it seemed to do all
> the functions in one process--there is no example of a "client/server"
> situation using system V functions). Is there an expert Perl hacker
I assume that you have looked at
perldoc perlipc
--
$jhi++; # http://www.iki.fi/jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
------------------------------
Date: Mon, 15 Mar 1999 11:04:04 -0500
From: "Dave McIntyre" <davem@nortak.com>
Subject: The need for speed
Message-Id: <7cjb4k$ake$1@demon.uunet.ca>
Does operating in binary mode significantly slow
down Perl? I have a 600 MB file filled with various
COBOL control chars. from which I must build an index file.
The algorithm I've written is reasonably complex (for me)
using six hashes of arrays which all must be sorted.
It works, but it took 34 hours! M'gmt is not impressed.
So I'm looking for ways to speed this up. Gone thru the
efficiency tips in the Camel, but the big problem, I think,
is operating in binmode. Some specific questions:
What are the file size limitations when doing:
@records =<FILE>; (I'm using while (<FILE>)
but wondering if I should switch).
Are B-Trees significantly faster than hashes when building it,
doing lookups and sorting?
And if you're feeling generous:
I need a regex to convert all crtl chars to ASCII (so I don't need
binmode) and then back to the original. Tried if (/\x1A/) {s/$1/x1A/;}
which will then need to be converted back somehow. (unpack?).
Any and all advice or direction appreciated.
Dave McIntyre
------------------------------
Date: Mon, 15 Mar 1999 18:22:25 +0100
From: Ian Maloney <ian.maloney@ubs.com>
Subject: threads and non-blocking sockets
Message-Id: <36ED41D0.626D429A@ubs.com>
This demo code starts 6 threads, each trying to connect to a port using
a non-blocking socket.
If I 'protect' the socket code with a semaphore it runs forever. If I do
not 'protect' the code
it abends within a few seconds, like this:
signal fault in critical section
signal number: 11, signal code: 1, fault address:
0x65742030, pc: 0xef6888fc, sp: 0xee940878
ABORT: core dump
Segmentation Fault(coredump)
or maybe like this ...
Bus Error(coredump)
The question(s) are:
should socket code without the non-blocking option be MT safe?
should making the socket non-blocking make it non - MT safe?
is this a bug?
The OS is Solaris 5.5.1
The perl version is 'version 5.005_56 built for sun4-solaris-thread'
I know about maint/devel releases and that threads are beta etc!, but I
am interested
to know whether I should just go ahead and protect all socket code.
Regards
Ian
#!/usr/bin/perl -w
use Thread;
# use Thread::Signal;
use Thread::Semaphore;
use Cwd;
use Errno;
use IO::Socket;
use IO::File;
use Fcntl;
my $sktCode = Thread::Semaphore->new();
Thread->new(\&connect,'192.168.33.22','8080');
Thread->new(\&connect,'192.168.85.22','8080');
Thread->new(\&connect,'172.29.67.195','8080');
Thread->new(\&connect,'172.27.100.6','8080');
# .... let's start them twice !
Thread->new(\&connect,'192.168.33.22','8080');
Thread->new(\&connect,'192.168.85.22','8080');
Thread->new(\&connect,'172.29.67.195','8080');
Thread->new(\&connect,'172.27.100.6','8080');
sleep(3);
sub connect {
my $tid = Thread->self->tid();
my ($addr,$port) = @_;
for (;;) {
# $sktCode->down;
my $skt = IO::File->new();
socket($skt,PF_INET,SOCK_STREAM,getprotobyname('tcp'))
or die("(tid=$tid) socket create error [$!]");
setsockopt($skt,SOL_SOCKET,SO_REUSEADDR,pack('i',1)) or
die("(tid=$tid) socket set option error [$!]");
fcntl($skt,F_SETFL,O_NONBLOCK) or die("(tid=$tid) socket
set non-blocking error[$!]");
my $sin = sockaddr_in($port,inet_aton($addr));
connect($skt,$sin);
if ( $!{EINPROGRESS} ) {
for (1..2) {
$^W = 0;
my $opt =
unpack('i',getsockopt($skt,SOL_SOCKET,SO_ERROR));
$status = (defined($opt) and $opt == 0)
? 1 : 0;
last if $status;
sleep(1);
}
}
close($skt);
# $sktCode->up;
my $stattxt = $status ? 'UP' : 'DOWN';
warn("(tid=$tid) $addr is $stattxt");
sleep(1);
}
}
------------------------------
Date: Mon, 15 Mar 1999 16:25:18 +0000
From: Steve Wells <wells@cedarnet.org>
To: James Tolley <jamesht@idt.net>
Subject: Re: UNIQUE variable...
Message-Id: <36ED346E.8314E168@cedarnet.org>
James Tolley wrote:
> I've thought the better of it and wondered if these solutions will work. It
> think there might conceivably be some overlap due to the fact that the final
> octet of the ip address AND $$ vary in length. I'll bet that in fact it's
> possible, and just go ahead and make it a non-issue:
> $unique = ($ENV{HTTP_X_FORWARDED_FOR} ?
> $ENV{HTTP_X_FORWARDED_FOR} :
> $ENV{REMOTE_ADDR}).'-'.time.'-'.$$;
> By putting the hyphens between the variables, we make sure that the ip and $$
> never confuse things.
> Of course, if you were REALLY concerned, you could slap a rand on the end of
> that as well. I think that would definitely do it.
I think beat this one to death! ;-)
Thanks for your help James,
STEVE
--
-----------
Stephen D. Wells
http://www.iren.net/wellss/
------------------------------
Date: Mon, 15 Mar 1999 16:30:12 GMT
From: kjc@nospam.co.uk (John )
Subject: Url validation question
Message-Id: <36ed2cd8.26861545@news.freeserve.net>
Is it possible when validating
an url to get the validated result into
a scalar.
Example:
----------------------------------------------------------
get ($url) error returns $vaild='no'
get ($url) success returns $vaild='yes'
-----------------------------------------------------------
John
------------------------------
Date: Mon, 15 Mar 1999 12:53:05 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: John@melon17.freeserve.co.uk
Subject: Re: Url validation question
Message-Id: <36ED4901.E2D985D7@giss.nasa.gov>
[courtesy copy of post sent to John]
On Mon, 15 Mar 1999 16:30:12, John wrote:
>
> Is it possible when validating
> an url to get the validated result into
> a scalar.
yeah,
On Thu, 11 Mar 1999 15:24:56, "Randal L. Schwartz" wrote:
>
> use LWP::Simple;
> $is_good = defined get "http://www.perl.com";
Jay Glascoe
--
"Just say 'Poit!'."
--Pinky
------------------------------
Date: Mon, 15 Mar 1999 17:51:36 GMT
From: Don Roby <droby@copyright.com>
Subject: Re: Where is Perl 5.004 ?
Message-Id: <7cjhb2$6c2$1@nnrp1.dejanews.com>
In article <36ED24A2.69BEC792@dachs.de>,
engelbrecht@t-online.de (Jens Engelbrecht) wrote:
> Hello,
> I'm running Perl (v5.003_07) under win98. My Problem is to use the modul
> LWP::UserAgent. The modul requires version 5.004. I've tried to get the
> latest version of Perl under www.activestate.com but I couldnt find it
> there.
> Where can I get Version 5.004?
>
www.activestate.com does have the latest version. It's a bit past 5.004
though.
ActivePerl build 509 is Perl v5.005_02, and is probably the most appropriate
version to use right now.
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 15 Mar 1999 13:06:13 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: Tom Kralidis <tom.kralidis@ccrsDotnrcandOtgc.ca>
Subject: Re: Where to start with Perl
Message-Id: <36ED4C15.8A8846F3@giss.nasa.gov>
[courtesy copy of post sent to cited author]
Tom Kralidis wrote:
>
> At the risk of getting smart-alec replies, does anyone have any good
> starting points for someone wanting to learn Perl. I have a good handle
> of UNIX (awk, grep, sed), some C/C++ and have heard nothing but good
> things about Perl. I would like to enhance my data manipulation
> capabilities and productivity among other things.
print << 'IMHO';
I think you'll find _Programming_Perl_ an invaluable reference.
Since you have programming experience, you'll probably be able
to learn Perl (or a good subset of it anyway) from that book alone
(well, the FAQs and online docs help too).
For *real world* Perl examples, I highly recommend the _Perl_Cookbook_.
If ya got the money, buy both books. You won't be disappointed.
IMHO
> Thanks in advance,
>
> ..Tom
hth,
Jay Glascoe
--
"The number of UNIX installations has grown to 10, with more expected."
--_The UNIX Programmer's Manual_, Second Edition, June, 1972.
------------------------------
Date: Mon, 15 Mar 1999 18:01:59 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: y2k and 4-digit dates (was Re: foreach and while)
Message-Id: <rWbH2.3122$Bd3.56059@newsfeed.slurp.net>
Abigail (abigail@fnx.com) wrote:
: IIRC, the first documented case of a Y2K problem in a computer program
: was on Jan 1, 1970, when a financial application dealing with 30 year
: bonds went haywire.
To commemorate this milestone in computing history, this date was then
enshrined as the Unix time_t base. :)
--
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| "It's not an optical illusion; it just looks like one."
------------------------------
Date: Mon, 15 Mar 1999 18:08:35 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: y2k and 4-digit dates (was Re: foreach and while)
Message-Id: <D0cH2.3133$Bd3.56059@newsfeed.slurp.net>
Tobias Brox (tobias@td.org.uit.no) wrote:
: Staffan Liljas <staffan@ngb.se> writes:
:
: > I usually output "February 2nd, 2000", which people tend to understand.
:
: What's wrong with scalar(localtime)?
Sometimes it's too much; you just want the date, not the full date and
time and day name and mother's maiden name and preferred pizza toppings
list you get with scalar localtime.
Also, I've never liked the ordering of scalar localtime's output:
Mon Mar 15 10:05:37 1999
I find the hop from date to time of day and back up to year unsightly.
For the same choice of items to display,
Mon Mar 15 1999 10:05:37
is what I would prefer.
--
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| "It's not an optical illusion; it just looks like one."
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 5139
**************************************
