[9161] in Perl-Users-Digest
Perl-Users Digest, Issue: 2779 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 1 14:07:58 1998
Date: Mon, 1 Jun 98 11:00:40 -0700
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, 1 Jun 1998 Volume: 8 Number: 2779
Today's topics:
Re: Best tool? (Chris Nandor)
Re: CGI mail form format problem scott@softbase.com
Re: Checking success of functions (was: Re: list contex (Abigail)
Counter or Pause function in Perl? <rickr@mail.net>
Re: Counter or Pause function in Perl? (Mark-Jason Dominus)
Re: Email address checking (Craig Berry)
Error: Parse Exception(HELP ) sdurrani@cahners.com
Re: GPL documentation == unspeakable evil (Paul D. Smith)
Re: HELP: :Comparing strings <Dave.Cross@gb.swissbank.com>
Re: How to create nonblocking socket in Perl ? <jc@ral1.zko.dec.com>
Re: Internet Relay Chat (Abigail)
Re: Internet Relay Chat (Abigail)
Re: Internet Relay Chat (Chris Nandor)
Re: Net::Telnet problems <jay@rgrs.com>
Re: new to OO Perl <jc@ral1.zko.dec.com>
Re: please help!! <Dave.Cross@gb.swissbank.com>
Re: Random permutations in Perl (Mark-Jason Dominus)
Re: Returning from a signal handler? <jay@rgrs.com>
Re: Returning from a signal handler? <bjs@iti-oh.com>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
StLouis.pm First Meeting (Ben Hockenhull)
Re: Subroutine for erasing everything in a package (Chris Nandor)
TIP : Complex CGI scripts <ujiw@rz.uni-karlsruhe.de>
Re: Why is `undef' a unary op and not a list op? (Abigail)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 01 Jun 1998 16:05:12 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: Re: Best tool?
Message-Id: <pudge-0106981159030001@192.168.0.3>
In article <6kuh1n$j7r$1@blackice.winternet.com>, Dave Kenny
<dk@tundra.winternet.com> wrote:
# For me the biggest danger in Perl is that it's easy to get
# sloppy, especially in "single-use" programs.
For me the biggest danger in English is that it's easy to get
sloppy, especially in casual writing.
Danger is not a bad thing, it is (in this case) a very good thing. This
is an important feature of Perl. I *want* to be able to write sloppily,
in single-use programs and in casual writing (such as quick notetaking).
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: 1 Jun 1998 15:22:10 GMT
From: scott@softbase.com
Subject: Re: CGI mail form format problem
Message-Id: <6kugv2$3gn$3@mainsrv.main.nc.us>
Bobby (bob@simplydigital.com) wrote:
> I have a pretty large form (100 text fields) on a clients site that I am
> using as a mailto order form run by a basic Perl cgi. Everything works
> well except the output in the email message is not sorted in any specific
> way. I need the output sorted alphabeticaly. Can anyone give a Perl newbie
> any hints/help or suggestions?
How exactly are you outputting the stuff?
Most people convert the VAR=VALUE input to a hash. When you iterate
through a hash using keys, you get an array. You can then use
sort to sort that array. You can always use the item as an
index back into the hash.
Sort of like:
for $x (sort keys %whatever) {
print "value $x is $whatever{$x}\n";
}
Scott
--
Look at Softbase Systems' client/server tools, www.softbase.com
Check out the Essential 97 package for Windows 95 www.skwc.com/essent
All my other cool web pages are available from that site too!
My demo tape, artwork, poetry, The Windows 95 Book FAQ, and more.
------------------------------
Date: 1 Jun 1998 16:25:19 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Checking success of functions (was: Re: list context: || vs or)
Message-Id: <6kuklf$t1k$2@client3.news.psi.net>
Chip Salzenberg (chip@mail.atlantic.net) wrote on MDCCXXXII September
MCMXCIII in <URL: news:6kn1ot$1o4$1@cyprus.atlantic.net>:
++ According to tchrist@mox.perl.com (Tom Christiansen):
++
++ >Are you trying to tell us you have a user on
++ >your system whose login name in the passwd file is "0"?
++
++ You should be well aware that many security attacks on UNIX systems
++ involve creation of blank lines in /etc/passwd, which are interpreted
++ by some getpw*() implementations as users named "" with no password
++ and uid zero.
In fact, today I got a CERT warning for an attack that, among other
things, creates a blank line in /etc/passwd.
But then, when you are already compromised, all bets are off.
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET", "http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content)) =~ /(.*\))[-\s]+Addition/s) [0]'
------------------------------
Date: Mon, 1 Jun 1998 10:56:36 -0700
From: "rickr" <rickr@mail.net>
Subject: Counter or Pause function in Perl?
Message-Id: <3572cfa7.0@news1.ibm.net>
Is there a counter or pause function built into Perl? I am currently
achieving the pause effect by using
$count = 1;
while (count < 500000) {
$count ++;
}
It's kind of a pain to have to keep using this. I suppose I could build my
own module, but I thought surely there is something like this already
available, I just dont know what it's called. Also, is there a clr or clear
screen function?
Thanks.
------------------------------
Date: 1 Jun 1998 12:12:35 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Counter or Pause function in Perl?
Message-Id: <6kujtj$bfo$1@monet.op.net>
In article <3572cfa7.0@news1.ibm.net>, rickr <rickr@mail.net> wrote:
>Is there a counter or pause function built into Perl?
It's `sleep'.
------------------------------
Date: 1 Jun 1998 16:57:12 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Email address checking
Message-Id: <6kumh8$pbr$1@marina.cinenet.net>
Ronald J Kimball (rjk@coos.dartmouth.edu) wrote:
: Craig Berry <cberry@cinenet.net> wrote:
:
: > Conversely, the regex /\w+\@\w+\.\w+/ will not match any invalid internet
: > addresses
:
: It won't???
Rats, I thought I'd got away with this...realized your cases below a few
hours after sending the above.
: invalid@address.__
Mea culpa.
: this is not a valid@email.address
Mea culpa.
: a@b.1234567890
Mea maxima culpa.
: See, this is tricky even for people who are aware of all the
: difficulties.
Amen to that. Let this be a warning unto you all! :)
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Mon, 01 Jun 1998 15:50:31 GMT
From: sdurrani@cahners.com
Subject: Error: Parse Exception(HELP )
Message-Id: <6kuik7$4mf$1@nnrp1.dejanews.com>
hi,
I am using perl for windows NT version build 315 and installed win32::odbc
but when I run test.pl I get error parse exception.
anyone know about it?
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 01 Jun 1998 13:09:49 -0400
From: psmith@baynetworks.com (Paul D. Smith)
Subject: Re: GPL documentation == unspeakable evil
Message-Id: <p5ogwd121u.fsf@baynetworks.com>
%% rda@kythera.demon.co.uk (Ray Auchterlounie) writes:
ra> The FSF seem happy to do without with freedom of modification when it
ra> suits them, it does _not_ apply to all the software the FSF has chosen
ra> for the GNU system (something which has got some Linux distributions
ra> in trouble with the authors in the past).
Really? Interesting. Like what?
ra> They do however use code under other licences in their own stuff,
ra> including code under licences believed by many to be incompatible with
ra> the GPL.
Really? Interesting. Like what?
--
-------------------------------------------------------------------------------
Paul D. Smith <psmith@baynetworks.com> Network Management Development
"Please remain calm...I may be mad, but I am a professional." --Mad Scientist
-------------------------------------------------------------------------------
These are my opinions--Bay Networks takes no responsibility for them.
------------------------------
Date: Mon, 1 Jun 1998 15:27:26 GMT
From: David Cross-cmt <Dave.Cross@gb.swissbank.com>
Subject: Re: HELP: :Comparing strings
Message-Id: <eq0lnrh9m75.fsf@gb.swissbank.com>
Johan Priwshy <Centollo@iname.com> writes:
>
> Hi there. I've a little problem comparing strings.
> let's say we have these two variables:
> $str1 = "test";
> $str2 = "test";
>
> and let's say we can compare them within an if statement:
> if ($str1 == $str2) {
> bla bla
> }
>
> I've found THIS DOESN'T work!!
> let's have a look to this piece of code:
> print "$row[0] \n";
> print "$password \n";
> if ($row[0] == $password) {
> print "\n\n the password DO match!!";
> }
>
> and let's see what it outputs:
> > brasil
> > monkey
> > the password DO match!!
>
> What the hell am I doing wrong??
> can you please help me??? Thanks in advance
You're using the wrong comparison operator. '==' is used
for a numerical comparison. Use 'eq' for string comaprison.
hth,
Dave...
--
If I wasn't so busy writing status reports,
my status report might just become a progress report.
Dave.Cross@gb.swissbank.com
------------------------------
Date: Mon, 01 Jun 1998 12:17:38 -0400
From: John Chambers <jc@ral1.zko.dec.com>
Subject: Re: How to create nonblocking socket in Perl ?
Message-Id: <3572D422.2F59BEB@ral1.zko.dec.com>
Jay Rogers wrote:
>
> John Chambers <jc@ral1.zko.dec.com> writes:
> > Sun Qinghe wrote:
> > > I want to modify the sample client program in Programming Perl so that
> > > I can set timeout for connect(). i.e., if the server doesn't respond in
> > > (say) 4 seconds, then I will give up the connection to avoid deadlock.
> > >
> > > Any help would be really appreciated.
> >
> > And it would be helpful if answers would be posted rather than emailed.
> > I've been working on the same problem for ages, and haven't yet found a
> > good solution.
>
> Use the force - read the source! Both Net::Telnet and
> IO::Socket::INET implement a timeout on connect.
Yup; that's where I got the prototype for my code. But when I copy it to
my own routine and tweak the variable names in it to match my variable names,
it doesn't work. The assignments to $SIG{'ALRM'} and calls of alarm($timeout)
seem to succeed (or at least don't produce any error returns), but the alarm
doesn't happen after the timeout interval. Or maybe it does, and when it
does, a SEGV occurs within the eval {} block. I can see from some log files
that the message before the eval appears, but the message after the eval
doesn't, proving that the code has gone into the eval and not come out.
Usually the connect succeeds in a second or two, of course. But sometimes
it doesn't. Sometimes the code sleeps there for hours and hours, despite
the fact that $timeout is 120 and the machine is nearly idle. And sometimes
a SEGV occurs and I have a huge core file.
I've tried it on a number of Unixoid systems, most recently linux and
Digital Unix (OSF1). No luck.
Of course, it's all well and good to incant "Read the Source, Luke", but
this particular bit of code has some real subtleties. In the hands of
someone who vaguely understands what all the pieces are doing (and I'd
guess that includes all of us but a few perl gurus), copying source that
someone claims "works" and tweaking it to fit into a new program is, let's
say, prone to pitfalls. "You must have changed something." Well, yeah;
my variable names were different, for starters. I don't have anything
called ${*$fh}{'io_socket_timeout'}; I just have a single global $timeout
variable. Is this maybe what breaks the eval/alarm mechanism? Do you
really have to set up the timeout variable in a global hash named the same
as your file handle? I suspect not, but who am I to say? And so on ...
> If you use a Win32 machine, no such mechanism exists. You'll have to
> wait for a threaded perl on Win32 machines.
<SHUDDER>
(I hope it's a long, long wait. ;-)
------------------------------
Date: 1 Jun 1998 16:42:34 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Internet Relay Chat
Message-Id: <6kullq$t1k$3@client3.news.psi.net>
Chris Nandor (pudge@pobox.com) wrote on MDCCXXXIV September MCMXCIII in
<URL: news:pudge-3105981137110001@dynamic406.ply.adelphia.net>:
++
++ I see nothing in here that says "this is supposed to run in a browser" (as
++ it seems the responses assumed, and this is not a Web newsgroup anyway),
++ so why not provide the client with ircII, mIRC, ircle, sirc, or one of the
++ other IRC clients out there? Why should a protocol that inherently needs
++ a constant connection (IRC) be done over a protocol that doesn't support
++ it (HTTP)? Why should web browsers be the end-all of Internet
++ communication?
Because of their point-and-drool-everything-in-one-package interface.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F76777$=56;;$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: 1 Jun 1998 16:44:52 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Internet Relay Chat
Message-Id: <6kulq4$t1k$4@client3.news.psi.net>
Chris Nandor (pudge@pobox.com) wrote on MDCCXXXIV September MCMXCIII in
<URL: news:pudge-3105981415260001@dynamic406.ply.adelphia.net>:
++
++ Net::IRC is a good module, but Perl does not run inside the browser. You
++ need to grasp the reality that HTML and HTTP are not suited to this task,
++ and that some other program needs to do it. It just so happens that you
++ can make a program run embedded in a web page, but only Java is really
++ suited to the task at this time.
Well, there's Grail and its ability to run Python.
Abigail
--
perl -pwle '$_ .= reverse'
------------------------------
Date: Mon, 01 Jun 1998 16:53:47 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: Re: Internet Relay Chat
Message-Id: <pudge-0106981248080001@192.168.0.3>
In article <6kulq4$t1k$4@client3.news.psi.net>, abigail@fnx.com wrote:
# Chris Nandor (pudge@pobox.com) wrote on MDCCXXXIV September MCMXCIII in
# <URL: news:pudge-3105981415260001@dynamic406.ply.adelphia.net>:
# ++
# ++ Net::IRC is a good module, but Perl does not run inside the browser. You
# ++ need to grasp the reality that HTML and HTTP are not suited to this task,
# ++ and that some other program needs to do it. It just so happens that you
# ++ can make a program run embedded in a web page, but only Java is really
# ++ suited to the task at this time.
#
#
# Well, there's Grail and its ability to run Python.
Yes, and there is also Win32 IE + PerlScript. There is a Tcl/Tk plugin
for Unix boxes, too, I think. But in general, for most users + most
browsers, there is only Java.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: 01 Jun 1998 13:27:17 -0400
From: Jay Rogers <jay@rgrs.com>
To: jessek@cdsnet.net (Jesse Kempa)
Subject: Re: Net::Telnet problems
Message-Id: <82pvgtnibu.fsf@shell2.shore.net>
jessek@cdsnet.net (Jesse Kempa) writes:
> The problem is in connecting to the remote host, and more
> specifically, logging in. From debugging, I believe the "login: "
> prompt is reached, and the username sent, but after that nothing
> works:
>
> use Net::Telnet ();
> $t = new Net::Telnet (Timeout => 30);
> $t->open('duat.gtefsd.com');
> $t->waitfor('/Enter DUAT access code -or- last name: ?$/i');
> $t->print($FORM{'uname'});
>
> # OK to here
>
> $t->waitfor('Enter your password: ?$/i');
The line above causes your program to die with following error to
stderr:
bad match operator: opening delimiter missing: Enter your password: ?$/i
Fix by adding the opening delimiter for the match operator:
$t->waitfor('/Enter your password: ?$/i');
^
> $t->print($FORM{'uname'});
> $t->waitfor('/ ... press RETURN to continue ?$/i');
> $t->print(\n);
I think you really want:
$t->print();
> @lines = $t->print($wxstr);
Net::Telnet::print() only returns a true/false indicator (i.e. whether
or not it was able to send the string).
--
Jay Rogers
jay@rgrs.com
------------------------------
Date: Mon, 01 Jun 1998 13:03:02 -0400
From: John Chambers <jc@ral1.zko.dec.com>
Subject: Re: new to OO Perl
Message-Id: <3572DEC6.635FE1BB@ral1.zko.dec.com>
Shawn Porter wrote:
>
> Forget it, I decided to just do it the old-fashioned way...
>
> Shawn Porter wrote:
> > I've been writing Perl for a little over a year now, but I'm just now
> > learning how to write my own classes. My first try is working
> > moderately well, but I need some help with it. I'm creating an array of
> > objects but the data (particulary %props) from the first one carries
> > over to the second one and that to the third one, and so on. I think
> > I'm using 'package' correctly. The hash (%props) is being declared
> > local (my %props;) in the class file. I don't know what I'm doing
> > wrong. I'm attaching the code. Any help would be greatly appreciated.
Yah; that's what I usually end up doing. The OO stuff sounded like
a Good Idea when it came out, but in practice it has turned out to
have some practical problems, as exemplified by the responses here.
I typically find that OO code is nearly impossible to debug, mostly
out of my own ignorance, of course, but admitting that doesn't help
speed up the job. And when I've asked about how details work, what
invariably happens is 1) I get a bunch of messages telling me what
a dummy I am for not appreciating the great genius behind it all,
and 2) a long theological-style discussion that mostly serves to
obfuscate things even more. Engrossing perhaps for the converted,
but it doesn't help solve the immediate problem.
It's a real pity, because the OO approach had such promise, and
is being used by a few initiates here and there to great effect.
Maybe some day it'll all become clear to us. In the meantime, if
you want to get something working today rather than a year from
now, you might be better off doing it the old-fashioned way.
On the other hand, I have some modules that might be of benefit to
others, but since you now risk public ridicule if you contribute
non-OO modules, it may be a very long time before I decide to stick
my neck out by posting things that don't have any class. And it
just takes too damned long to OOize a working piece of code. ;-)
------------------------------
Date: Mon, 1 Jun 1998 16:24:40 GMT
From: David Cross-cmt <Dave.Cross@gb.swissbank.com>
Subject: Re: please help!!
Message-Id: <eq0k9719jjr.fsf@gb.swissbank.com>
Melissa Ferrara <melissa@celsvr.stortek.com> writes:
> Hey all. I have a website, and I've created a perl script to run with
> my page. My question is, how do I put my perl script in my
> "usr/local/perl" directory? My UNIX server does have this directory, so
> could someone tell me what command(s) I must enter to put it there.
> Please respond to my email. Thanks.
Any properly configured Unix server won't allow users to put scripts
in /usr/local/perl (which is probably a file, not a directory so you
can't put files in it anyway!)
/usr/local/perl is the Perl interpreter which runs your script. To
make your server know to use this program insert the following line
as the first line in your script:
#!/usr/local/perl -w
Your script itself needs to be somewhere completely different on the
server machine. Exactly where depends on the configuration of the
web server softwsre. Only the system adminsitrator can give you a
definitive answer on this.
hth,
Dave...
--
If I wasn't so busy writing status reports,
my status report might just become a progress report.
Dave.Cross@gb.swissbank.com
------------------------------
Date: 1 Jun 1998 12:15:00 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Random permutations in Perl
Message-Id: <6kuk24$bgg$1@monet.op.net>
Keywords: commendation convertible gripe warty
In article <5q1zt9m8dh.fsf@prometheus.frii.com>,
Nathan Torkington <gnat@frii.com> wrote:
>I'd just like to state for the record that this permutation code has
>sealed mjd's status as "scary brain", with me.
The best way to get a scary brain is to steal one from someone else.
I'm pretty sure I swiped this idea from Donald Knuth.
------------------------------
Date: 01 Jun 1998 13:36:38 -0400
From: Jay Rogers <jay@rgrs.com>
To: "Brian J. Sayatovic" <bjs@iti-oh.com>
Subject: Re: Returning from a signal handler?
Message-Id: <82n2bxnhw9.fsf@shell2.shore.net>
"Brian J. Sayatovic" <bjs@iti-oh.com> writes:
> I'm writing a perl script which runs a batch of programs one at a time.
> If one particular one fails, say, due to a segv, I want it to be handled by
> perl so I can log it, and continue with the next program. I have my signal
> handling set up sort of like this pseudo-code:
You don't need and shouldn't use a signal handler. Just check the
exit status of the "batch program" when it's done - typically by
looking at $?.
Read the man page on your system for wait() to learn how to decipher
the exit status in $?.
--
Jay Rogers
jay@rgrs.com
------------------------------
Date: Mon, 1 Jun 1998 13:43:09 -0400
From: "Brian J. Sayatovic" <bjs@iti-oh.com>
Subject: Re: Returning from a signal handler?
Message-Id: <6kupfn$8iv$1@malgudi.oar.net>
Tom Phoenix wrote in message ...
>On Fri, 29 May 1998, Brian J. Sayatovic wrote:
>
>Now, you know that a segfault doesn't make a signal which perl can catch,
>right? That is, as I understand it, when a segfault happens, the perl
>binary is unable to run further Perl code.
I didn't realize this. I mean, I thought it wouldn't affect perl if a child
of it caused a segfault. I've learned something for the day.
>On the other hand, when the magical $? variable is set to a child
>process's exit status, you can easily tell which signal (if any) caused
>the exit. Maybe that's what you need? Hope this helps!
It seems like it. However, when I run the script under Win32, I'm using the
Win32::Process::Create -- which I (perhaps incorrectly) believe I must use
GetExitCode with. Hopefully, this will work similarly to $?.
Thanks for the help.
>--
>Tom Phoenix Perl Training and Hacking Esperanto
>Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
>
------------------------------
Date: 1 Jun 1998 16:06:40 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <6kujig$nvh$4@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 25 May 1998 15:20:59 GMT and ending at
01 Jun 1998 06:57:24 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" e-mail address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@mox\.perl\.com
Totals
======
Posters: 503
Articles: 1475 (572 with cutlined signatures)
Threads: 377
Volume generated: 2680.1 kb
- headers: 1056.5 kb (20,470 lines)
- bodies: 1519.8 kb (44,344 lines)
- original: 1064.3 kb (33,049 lines)
- signatures: 102.3 kb (1,989 lines)
Original Content Rating: 0.700
Averages
========
Posts per poster: 2.9
median: 1 post
mode: 1 post - 310 posters
s: 6.3 posts
Posts per thread: 3.9
median: 2 posts
mode: 1 post - 108 threads
s: 54.4 posts
Message size: 1860.7 bytes
- header: 733.5 bytes (13.9 lines)
- body: 1055.1 bytes (30.1 lines)
- original: 738.9 bytes (22.4 lines)
- signature: 71.0 bytes (1.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
75 110.5 ( 59.2/ 42.2/ 28.6) Tom Phoenix <rootbeer@teleport.com>
52 120.1 ( 41.5/ 72.7/ 62.0) tchrist@mox.perl.com (Tom Christiansen)
47 89.3 ( 33.6/ 55.7/ 32.6) "Larry Rosler" <lr@hpl.hp.com>
46 82.5 ( 29.3/ 53.1/ 30.5) Gellyfish@btinternet.com
31 70.7 ( 30.4/ 36.1/ 35.8) pudge@pobox.com (Chris Nandor)
30 52.4 ( 22.2/ 22.4/ 12.6) comdog@computerdog.com (brian d foy)
23 38.1 ( 17.0/ 21.1/ 11.8) Ala Qumsieh <aqumsieh@matrox.com>
23 44.5 ( 16.3/ 23.4/ 15.9) mgjv@comdyn.com.au (Martien Verbruggen)
20 23.7 ( 11.0/ 12.7/ 7.2) lindahl@pbm.com (Greg Lindahl)
20 35.8 ( 14.4/ 20.8/ 13.3) Zenin <zenin@bawdycaste.org>
These posters accounted for 24.9% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
120.1 ( 41.5/ 72.7/ 62.0) 52 tchrist@mox.perl.com (Tom Christiansen)
110.5 ( 59.2/ 42.2/ 28.6) 75 Tom Phoenix <rootbeer@teleport.com>
89.3 ( 33.6/ 55.7/ 32.6) 47 "Larry Rosler" <lr@hpl.hp.com>
88.0 ( 0.7/ 87.3/ 87.3) 1 a9430170@fit.unimas.my
82.5 ( 29.3/ 53.1/ 30.5) 46 Gellyfish@btinternet.com
70.7 ( 30.4/ 36.1/ 35.8) 31 pudge@pobox.com (Chris Nandor)
52.4 ( 22.2/ 22.4/ 12.6) 30 comdog@computerdog.com (brian d foy)
44.5 ( 16.3/ 23.4/ 15.9) 23 mgjv@comdyn.com.au (Martien Verbruggen)
38.1 ( 17.0/ 21.1/ 11.8) 23 Ala Qumsieh <aqumsieh@matrox.com>
35.8 ( 14.4/ 20.8/ 13.3) 20 Zenin <zenin@bawdycaste.org>
These posters accounted for 27.3% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 6.2 / 6.2) 6 gabor@vmunix.com (Gabor)
0.992 ( 6.9 / 7.0) 8 fl_aggie@thepentagon.com (I R A Aggie)
0.991 ( 6.2 / 6.3) 5 jari.aalto@poboxes.com
0.990 ( 35.8 / 36.1) 31 pudge@pobox.com (Chris Nandor)
0.895 ( 2.8 / 3.1) 5 gebis@albrecht.ecn.purdue.edu (Michael J Gebis)
0.880 ( 3.8 / 4.3) 5 nvp@shore.net (Nathan V. Patwardhan)
0.873 ( 11.7 / 13.3) 7 Greg Bacon <gbacon@cs.uah.edu>
0.853 ( 62.0 / 72.7) 52 tchrist@mox.perl.com (Tom Christiansen)
0.821 ( 5.5 / 6.7) 8 "Brian J. Sayatovic" <bjs@iti-oh.com>
0.816 ( 3.4 / 4.2) 6 bill@astro.fccj.cc.fl.us
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.453 ( 2.4 / 5.4) 7 ced@bcstec.ca.boeing.com (Charles DeRykus)
0.451 ( 2.3 / 5.1) 5 David Cross-cmt <Dave.Cross@gb.swissbank.com>
0.405 ( 3.6 / 8.9) 11 ilya@math.ohio-state.edu (Ilya Zakharevich)
0.388 ( 3.2 / 8.3) 5 Lloyd Zusman <ljz@asfast.com>
0.384 ( 3.6 / 9.2) 11 David Kastrup <dak@mailhost.neuroinformatik.ruhr-uni-bochum.de>
0.379 ( 2.3 / 6.1) 5 abigail@fnx.com
0.377 ( 6.9 / 18.3) 12 les@MCS.COM (Leslie Mikesell)
0.341 ( 2.0 / 5.8) 7 alecler@cam.org (Andre L.)
0.297 ( 2.7 / 9.0) 6 keithmur@mindspring.com
0.270 ( 0.9 / 3.4) 5 waulok (at)
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
58 Don't Know how to decrypt using PERL
45 Clearly define "free software"
42 list context: || vs or
31 GNU attacks on the open software community
29 Copylefting manuals
26 Statistics for comp.lang.perl.misc
26 GPL documentation == unspeakable evil
26 An unwelcome and undeserved slap
25 Have we got a good free Perl manual?
24 seek advice on simple first program
These threads accounted for 22.5% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
120.9 ( 48.0/ 68.5/ 41.9) 58 Don't Know how to decrypt using PERL
111.4 ( 38.6/ 67.1/ 43.3) 45 Clearly define "free software"
90.2 ( 26.3/ 60.9/ 33.5) 26 GPL documentation == unspeakable evil
89.7 ( 1.4/ 88.3/ 88.0) 2 Need helps from experts ?
87.5 ( 33.4/ 50.6/ 34.6) 42 list context: || vs or
65.7 ( 30.2/ 32.1/ 20.9) 31 GNU attacks on the open software community
62.2 ( 22.5/ 36.9/ 23.8) 29 Copylefting manuals
55.2 ( 18.4/ 34.2/ 28.0) 26 Statistics for comp.lang.perl.misc
47.8 ( 17.7/ 27.9/ 21.2) 25 Have we got a good free Perl manual?
47.4 ( 22.5/ 22.6/ 11.0) 26 An unwelcome and undeserved slap
These threads accounted for 29.0% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.936 ( 21.6/ 23.1) 7 Listening to a modem.....
0.856 ( 3.2/ 3.8) 7 perl monger tshirt???
0.830 ( 5.2/ 6.2) 8 OO - explicit package name required
0.818 ( 28.0/ 34.2) 26 Statistics for comp.lang.perl.misc
0.813 ( 2.8/ 3.4) 5 Converting 31.12.1998 -> 12/31/1998
0.800 ( 3.2/ 3.9) 5 Random permutations in Perl
0.778 ( 4.8/ 6.1) 6 ASP vs CGI
0.764 ( 3.9/ 5.1) 6 Translating first letter of sentence into a capital
0.760 ( 21.2/ 27.9) 25 Have we got a good free Perl manual?
0.758 ( 5.0/ 6.6) 6 how to init three dimentional array using perl
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.487 ( 11.0 / 22.6) 26 An unwelcome and undeserved slap
0.480 ( 1.5 / 3.2) 8 HOWTO : UDP ping ?
0.479 ( 10.4 / 21.7) 24 seek advice on simple first program
0.474 ( 4.7 / 10.0) 5 PC Screen Image File
0.463 ( 2.4 / 5.2) 6 Possible to "skip" a record?
0.454 ( 2.4 / 5.4) 7 Problem reading large files under Win95
0.441 ( 3.1 / 7.0) 6 Why does "each" not go thru entire hash??
0.422 ( 1.3 / 3.2) 5 How to read AND write to a programm?
0.391 ( 2.5 / 6.3) 6 SECURITY - simple perlscript for taking orders
0.387 ( 1.8 / 4.6) 5 system() in NT-Perl
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
208 gnu.misc.discuss
15 comp.lang.perl.modules
10 comp.lang.perl.misc
8 comp.os.linux.misc
7 alt.fan.e-t-b
5 alt.genius.bill-palmer
5 comp.mail.sendmail
4 comp.unix.solaris
3 comp.lang.perl
3 comp.os.linux.setup
Top 10 Crossposters
===================
Articles Address
-------- -------
15 pudge@pobox.com (Chris Nandor)
12 tb@mit.edu (Thomas Bushnell, n/BSG)
11 David Kastrup <dak@mailhost.neuroinformatik.ruhr-uni-bochum.de>
11 lindahl@pbm.com (Greg Lindahl)
10 hex@voicenet.com (Matt Knecht)
9 les@MCS.COM (Leslie Mikesell)
8 Jeremy Hylton <jeremy@cnri.reston.va.us>
8 robert havoc pennington <hp@pobox.com>
7 Barry Margolin <barmar@bbnplanet.com>
7 fantome/@/usa/./net (le Fanttme)
------------------------------
Date: 1 Jun 1998 15:58:25 GMT
From: benh@stlouis.pm.org (Ben Hockenhull)
Subject: StLouis.pm First Meeting
Message-Id: <slrn6n5jq3.obq.benh@stlouis.pm.org>
Finally! After inordinate delay, StLouis.pm, the St. Louis Perl Mongers,
are having their first meeting.
When: Thursday, June 4 at 6:30 pm.
Where: Blueberry Hill, in the University City Loop
All are welcome! Tell your friends, tell your neighbors.
Ben
------------------------------
Date: Mon, 01 Jun 1998 16:00:52 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: Re: Subroutine for erasing everything in a package
Message-Id: <pudge-0106981155130001@192.168.0.3>
In article <6kugrk$e6a$1@picasso.op.net>, mjd@plover.com (Mark-Jason
Dominus) wrote:
# I used to use something like
#
# eval "package $PACKAGE; reset 'A-Za-z'; "
#
# but I like this better.
What is wrong with the reset 'A-Za-z_' version (aside from yours not
having an underscore :)? Or are you just showing off? :-)
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: 1 Jun 1998 17:11:03 GMT
From: Pascal Wolff <ujiw@rz.uni-karlsruhe.de>
Subject: TIP : Complex CGI scripts
Message-Id: <6kunb7$kt4$1@nz12.rz.uni-karlsruhe.de>
While creating a fairly complex CGI-script, which should involve more than
half a dozen different forms, it occured to me that the usual way of
checking which form should be displayed, a la :
if (defined (param('tofrmGoHere'))) {
frmGoHere;
} elsif (defined (param('tofrmgoThere'))) {
frmgoThere;
}
is not very elegant and would sooner or later turn into a debugging
nightmare, since I'm the kind of person who will surely forget to insert
the extra check when I change something on the submit button. So I came up
with the following method, where it is very easy to add extra forms by
simply naming the submit button to the name of the function to call :
#!/usr/local/bin/perl -w
use CGI qw(:standard :html3 -no_debug);
$tofrmGoHere = sub {
print header,start_html,h1('Doing some serious stuff');
print start_form;
print submit(-name=>'tofrmGoThere',-label=>'submit');
print end_form,;
};
$tofrmGoThere = sub {
print header,start_html,h1('There we are');
print start_form;
print submit(-name=>'tofrmMainform',-label=>'submit');
print end_form,;
};
$tofrmMainform = sub {
print header,start_html;
print start_form;
print submit(-name=>'tofrmGoHere',-label=>'Here');
print submit(-name=>'tofrmGoThere',-label=>'There');
print end_form,;
};
MAIN:
{
if (!param()) {
&$tofrmMainform;
} else {
foreach $pp (¶m){
if ($pp =~ /^tofrm.*/) {
&$$pp;
exit;
}
}
}
}
The only drawback I can think of right now is that 'use strict' complains
very heavily.
Any thoughts from the CGI/Perl-gurus ?
-pascal.
------------------------------
Date: 1 Jun 1998 16:22:06 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Why is `undef' a unary op and not a list op?
Message-Id: <6kukfe$t1k$1@client3.news.psi.net>
Mark-Jason Dominus (mjd@plover.com) wrote on MDCCXXXIV September MCMXCIII
in <URL: news:6ksooc$48v$1@picasso.op.net>:
++
++
++ I got a surprise today. I wrote
++
++ undef $x, &x;
++
++ expecting it to undefine the two things.
++
++ Instead, though, it undefined $x and *invoked* &x, as if I had written
++ it like this:
++
++ (undef $x), &x;
++
++ This, by the way, is just what it is documented to do, so the fault is
++ mine; this isn't a complaint.
++
++ My question: Can someone think of a good reason why this is the
++ `right' behavior? I couldn't.
If it would take a list argument, C<undef @array;> would give
the same result as C<map {undef} @array;>, which is different
behaviour from what it is now.
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.
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 2779
**************************************
