[11245] in Perl-Users-Digest
Perl-Users Digest, Issue: 4845 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Feb 8 10:07:23 1999
Date: Mon, 8 Feb 99 07:00:24 -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, 8 Feb 1999 Volume: 8 Number: 4845
Today's topics:
Chicago.pm meeting (Jim Allenspach)
Re: Comments in Perl code <tchrist@mox.perl.com>
Free perl debugger? <ron@here.or.there>
Re: Free perl debugger? (I R A Aggie)
Help!! ping? finger? whois? <support@mekagames.com>
how do I get a date in perl? <bamboo@best.com>
Re: How do I use CGI.pm to fetch parameters? <jjarrett@ecpi.com>
Re: Installing a Module: Can't find Perl <jdf@pobox.com>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
new to sockets... please help <mfred@uptodateinc.com>
Re: new to sockets... please help <Tony.Curtis+usenet@vcpc.univie.ac.at>
None ("Julius Ian D. Ponce")
Perl and Java (Mark P.)
Re: Perl vs. ASP for new project (Ken Williams)
Perl Webpage (Enigma)
Re: Perl Webpage (peter)
Re: RegExp to substitue a string <jeb@burkby.com>
Remote Login <pai@cadence.com>
Set Group Id <einar.gudmundsson@realtime.co.uk>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: strict <ron@here.or.there>
Re: strict <jdf@pobox.com>
Re: The order of form fields that recieve by cgi progra (Steve Morris)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 8 Feb 1999 08:42:03 -0600
From: jima@MCS.COM (Jim Allenspach)
Subject: Chicago.pm meeting
Message-Id: <79mt3r$g9s@Venus.mcs.net>
Keywords: chicago
The next meeting of the Chicago chapter of Perl Mongers will be
next Monday, February 15th, at the offices of American Information Systems,
161 N. Clark Street, suite 1350, beginning at 7:30 PM. For more information
on the group or the meeting location, check out the group's Website at
http://chicago.pm.org/ .
jma
------------------------------
Date: 8 Feb 1999 07:50:48 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Comments in Perl code
Message-Id: <36bef9c8@csnews>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Eric Kihn <kihn@mindspring.com> writes:
:As a final thought. Has anyone considered how simple it would be to
:write a script called deploy.pl that simply
:strips all the comments (and even white space if you want) so that the
:"user" version is as fast as can be, but the coder get's his comments?
:Again I realize this only affects compile time but the disk access can
:be a real issue in many user systems. Of course with most of the code
:I've seen stripping two lines won't really make a difference ;).
No, this is *not* a real issue, and it is folly to suggest doing
so. Microoptimizations are stupid, nothing more. What's next?
Single-character variable names and functions? Gee, think how much
faster the compiler would be at hash lookups mapping the symbol table
name to the real bits!
Lunacy. Pure lunacy.
--tom
--
"PC's are backwards ... throw them out! Linux is ok though."
--Rob Pike (on the subject of CR/LF etc)
------------------------------
Date: Sun, 07 Feb 1999 14:01:31 -0800
From: Ron <ron@here.or.there>
Subject: Free perl debugger?
Message-Id: <36BE0D3B.778C23A1@here.or.there>
Is aware of any good free perl compiler/debuggers which are available,
and if so, where I could download a copy?
Thanks
Ron
------------------------------
Date: 8 Feb 1999 12:57:34 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Free perl debugger?
Message-Id: <slrn7btnuo.ar8.fl_aggie@enso.coaps.fsu.edu>
On Sun, 07 Feb 1999 14:01:31 -0800, Ron <ron@here.or.there> wrote:
+ Is aware of any good free perl compiler/debuggers which are available,
+ and if so, where I could download a copy?
perl -d ??
James
------------------------------
Date: 8 Feb 1999 09:37:50 GMT
From: "MekaGames Staff" <support@mekagames.com>
Subject: Help!! ping? finger? whois?
Message-Id: <01be5346$40755500$3f89accf@default>
I'm currently writing a perl script that will get a list of ip addresses
from a text file and write back to the screen the ip addresses which are
currently active (i.e. they are online) First of all, what do I use? (ping?
finger? whois?) Secondly, how do I use it? =)
Thanks for an answer!!
- Kaveh Pahlevan
------------------------------
Date: Mon, 08 Feb 1999 01:45:13 +0000
From: Duc Le <bamboo@best.com>
Subject: how do I get a date in perl?
Message-Id: <36BE41A8.66878025@best.com>
Hi!
I don't know if Perl has any function for date manipulation besides
localtime(). I just want to do a simple task like getting the week date
from any given day of the month. For example, given "02/12/1999", I
would like to know what date of the week this day falls on.
Any helps will be really appreciated. Thanks in advance,
DL.
------------------------------
Date: Mon, 08 Feb 1999 01:37:34 -0500
From: "John T. Jarrett" <jjarrett@ecpi.com>
Subject: Re: How do I use CGI.pm to fetch parameters?
Message-Id: <36BE862D.27745793@ecpi.com>
possibility: your server options are set for no Exec. Solution: use
<!--#include virtual=... per the XSSI docs at
http://www.apache.org/docs/mod/mod_include.html and scroll down to include.
Your right about the group. Where else? XSSI is just kind of out there. I
used the above info plus a few introductions to XSSI at Webmonkey
(http://www.hotwired.com/webmonkey/backend/?tw=backend) to write a
two-level deep self-replicating site that only keeps 2 or 3 files (<2k per
directory) in each named subdirectory. Obviously powerful for a handful of
commands but no place to get help.
John
el_pollo_diablo wrote:
> I dont get any output to the html file at all.
>
> It is in the scope of the group because this is the only group I've got
> sensible answers from!
>
> --
> ---
> Ben
------------------------------
Date: 08 Feb 1999 14:24:46 +0100
From: Jonathan Feinberg <jdf@pobox.com>
To: michael@datahost.com
Subject: Re: Installing a Module: Can't find Perl
Message-Id: <m3n22pdo4h.fsf@joshua.panix.com>
Michael Stearns <michael@datahost.com> writes:
> Unable to find a perl 5 (by these names: perl miniperl perl perl5
^^^^^^
> Any ideas why the installer can't find perl?
The installer can't find perl *5*. You have an older version of
perl.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 8 Feb 1999 14:41:49 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <79mt3d$gt9$2@info.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 01 Feb 1999 14:40:07 GMT and ending at
08 Feb 1999 06:37:34 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" email 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.
Totals
======
Posters: 199 (39.1% of all posters)
Articles: 261 (19.7% of all articles)
Volume generated: 423.4 kb (19.2% of total volume)
- headers: 184.2 kb (3,800 lines)
- bodies: 234.0 kb (7,844 lines)
- original: 179.8 kb (6,277 lines)
- signatures: 4.9 kb (97 lines)
Original Content Rating: 0.768
Averages
========
Posts per poster: 1.3
median: 1 post
mode: 1 post - 161 posters
s: 1.1 posts
Message size: 1661.1 bytes
- header: 722.8 bytes (14.6 lines)
- body: 918.3 bytes (30.1 lines)
- original: 705.2 bytes (24.0 lines)
- signature: 19.1 bytes (0.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
12 20.5 ( 10.3/ 10.1/ 5.7) "el_pollo_diablo" <bencas@bigfoot.com>
7 12.1 ( 5.3/ 4.9/ 2.8) Ed Hitler <revjack@radix.net>
4 4.5 ( 2.2/ 2.1/ 1.4) Xeno Campanoli <xeno@bigger.aa.net>
4 5.9 ( 3.4/ 2.5/ 1.6) "Andy Goodman" <ag1@altavista.net>
3 5.4 ( 2.3/ 3.0/ 1.4) mtettmar@mjtnet.com
3 2.4 ( 1.7/ 0.6/ 0.6) "1h?5EB" <yotakim@hyowon.cc.pusan.ac.kr>
3 3.0 ( 1.9/ 1.2/ 1.2) lamj@softhome.net
3 3.3 ( 2.0/ 1.3/ 0.8) "Bob Van Der Ploeg" <bob@worldparts.com>
3 4.4 ( 2.0/ 2.3/ 1.4) prabhashshrestha@my-dejanews.com
2 3.2 ( 1.3/ 1.9/ 1.8) jwhitesel@wcom.net
These posters accounted for 3.3% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
20.5 ( 10.3/ 10.1/ 5.7) 12 "el_pollo_diablo" <bencas@bigfoot.com>
12.1 ( 5.3/ 4.9/ 2.8) 7 Ed Hitler <revjack@radix.net>
10.2 ( 1.8/ 8.3/ 5.0) 2 Andrew Cutler <andrew.cutler@team.xtra.co.nz>
6.2 ( 1.6/ 4.6/ 2.2) 2 bob.pruett@cox.com
5.9 ( 3.4/ 2.5/ 1.6) 4 "Andy Goodman" <ag1@altavista.net>
5.5 ( 0.8/ 4.7/ 4.5) 1 "Dave Roth" <xrxoxtxhxdx@xrxoxtxhx.xnxextx>
5.4 ( 0.8/ 4.6/ 4.6) 1 Neil Salter <neil@mve.com>
5.4 ( 2.3/ 3.0/ 1.4) 3 mtettmar@mjtnet.com
5.3 ( 1.5/ 3.8/ 2.0) 2 k2k2@my-dejanews.com
5.0 ( 1.0/ 4.0/ 3.7) 2 Richard Law <law-kr@ee.uwa.edu.au>
These posters accounted for 3.7% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.2 / 1.2) 3 lamj@softhome.net
1.000 ( 0.6 / 0.6) 3 "1h?5EB" <yotakim@hyowon.cc.pusan.ac.kr>
0.667 ( 1.4 / 2.1) 4 Xeno Campanoli <xeno@bigger.aa.net>
0.639 ( 1.6 / 2.5) 4 "Andy Goodman" <ag1@altavista.net>
0.616 ( 0.8 / 1.3) 3 "Bob Van Der Ploeg" <bob@worldparts.com>
0.609 ( 1.4 / 2.3) 3 prabhashshrestha@my-dejanews.com
0.582 ( 2.8 / 4.9) 7 Ed Hitler <revjack@radix.net>
0.559 ( 5.7 / 10.1) 12 "el_pollo_diablo" <bencas@bigfoot.com>
0.470 ( 1.4 / 3.0) 3 mtettmar@mjtnet.com
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.2 / 1.2) 3 lamj@softhome.net
1.000 ( 0.6 / 0.6) 3 "1h?5EB" <yotakim@hyowon.cc.pusan.ac.kr>
0.667 ( 1.4 / 2.1) 4 Xeno Campanoli <xeno@bigger.aa.net>
0.639 ( 1.6 / 2.5) 4 "Andy Goodman" <ag1@altavista.net>
0.616 ( 0.8 / 1.3) 3 "Bob Van Der Ploeg" <bob@worldparts.com>
0.609 ( 1.4 / 2.3) 3 prabhashshrestha@my-dejanews.com
0.582 ( 2.8 / 4.9) 7 Ed Hitler <revjack@radix.net>
0.559 ( 5.7 / 10.1) 12 "el_pollo_diablo" <bencas@bigfoot.com>
0.470 ( 1.4 / 3.0) 3 mtettmar@mjtnet.com
9 posters (4%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
9 Green Chicken {Jack} <JACNUNN@infoave.net>
7 rob.nicholson@zetnet.co.uk
7 root@nowhere.uucp (root)
7 wsherrin <wsherrin@eccms1.dearborn.ford.com>
7 Dermot Musgrove <dermot.musgrove@virgin.net>
6 saarg@bigfoot.com (Saar Ginzburski)
6 lezli@lezlisoft.com
3 ursa@ici.net
2 rjirwin@top.cis.syr.edu (Robert J. Irwin)
2 Paul Williams <paul@rainbow.nwnet.co.uk>
------------------------------
Date: Sun, 07 Feb 1999 18:45:27 -0800
From: M Fred <mfred@uptodateinc.com>
Subject: new to sockets... please help
Message-Id: <36BE4FC7.45784652@uptodateinc.com>
I'm trying to create a simple web crawler using Perl sockets. I can
retrieve a single web page at a time without trouble, but I would like
to speed things up by opening and monitoring multiple sockets
simultaneously. Each socket would pull a URL from a list, connect to
that site, retrieve the home page, and move on to the next URL in the
list. Could someone explain briefly how to open and control several
sockets at once, or point me towards a good reference where I can learn
about sockets myself (the perl documentation seems to assume some prior
knowledge of sockets, which I clearly don't possess).
Thank you,
Matt
P.S. If you could throw in something about obeying the Robot Exclusion
Standard, I'd be much obliged. -- thanks
------------------------------
Date: 08 Feb 1999 09:33:36 +0100
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: new to sockets... please help
Message-Id: <833e4hjnvj.fsf@vcpc.univie.ac.at>
Re: new to sockets... please help, M
<mfred@uptodateinc.com> said:
M> I'm trying to create a simple web crawler using
M> Perl sockets. I can retrieve a single web page
$wheel->reinvent() || die "use LWP instead";
perldoc LWP
will be immensely helpful
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien. | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: Mon, 8 Feb 1999 19:18:11 +0800 (HKT)
From: jidp@epic1.epic.net ("Julius Ian D. Ponce")
Subject: None
Message-Id: <Pine.OSF.4.05.9902081916210.12328-100000@epic1.epic.net>
subscribe firewalls "Julius Ian D. Ponce" <jidp@epic.net>
------------------------------
Date: Mon, 08 Feb 1999 14:04:22 GMT
From: mag@imchat.com (Mark P.)
Subject: Perl and Java
Message-Id: <36beee62.474474998@news.ionet.net>
Hi, this is a later posting to my earlier on on nohup.out. Does anyone
know why the nohup part of the command is ignored when run from the
browser? It does run perfectly from telnet, however, the point is to
run it from the browser. Heres the script again.
#!/usr/local/bin/perl5 -w
$command = "nohup /opt/jdk1.1.5/bin/java -classpath
/opt/jdk1.1.5/lib/classes.zip:. rbannerd &";
select(STDOUT); $|++; print STDOUT <<EOF;
Content-type: text/plain
Your process has started.
EOF
@args = ("$command");
exec(@args) == 0 or die "exec @args failed: $?";
exit;
------------------------------
Date: Mon, 08 Feb 1999 06:29:22 GMT
From: tekkin@hotmail.com (Ken Williams)
Subject: Re: Perl vs. ASP for new project
Message-Id: <36be8449.0@news.cgocable.net>
In article <RGuv2.51204$641.41565@news.san.rr.com>, "Sameer Samat" <ssamat@ucsd.edu> wrote:
>modperl. ok, I'll have to look into that. would you, or anyone else
>reading this, happen to know if most ISPs make use of modperl? is it
>expected that and ISP will have modperl up and running on their unix based
>Apache servers? ... or is it something that we may need to install?
>(i know this is probably on a ISP case by case basis, but I think that if
>modperl really does help this much any ISP would be crazy not to already
>have it installed)
I don't think many will have modperl by default. Its more a user demand
thing. Its free, so most will compile it in if ask them too. If you expect
a lot of hits, you'll need something like modperl or php3, cause standard cgi
perl won't cut it and the server will be too slow. Assuming you have to do
some dynamic html for each hit.
------------------------------
Date: Mon, 8 Feb 1999 11:04:08 GMT
From: cmwheat@midway.uchicago.edu (Enigma)
Subject: Perl Webpage
Message-Id: <F6u1Ew.AAE@midway.uchicago.edu>
Hi, I know this is probably a remedial question to the ones I have been
reading on this newsgroup. I have recently started undertaking learning
perl, and I attempted to do basic stuff with it to get to understand the
basics. I have used different browsers, but when I point to the page, it
just diplays the text file, and not what it should. It literally shows:
#!/usr/bin/perl
.....
and I don't know what I am doing wrong. the page in particular is
www.classes.cs.uchicago.edu/~cmwheat/midterm/hellowww.pl
can anyone help? Thanks in advance.
--
--cmwheat
------------------------------
Date: Mon, 08 Feb 1999 12:55:54 GMT
From: pdroogma@netscape.net (peter)
Subject: Re: Perl Webpage
Message-Id: <36bedd3d.13081159@192.168.0.1>
Hello,
I checked it out.
The reason it doesn't work is because of MIME type. Ask the administrator to set them correctly.
Some other remarks
Original script
#!/usr/bin/perl
# hellowww.pl
# A Perl program that draws a Web page.
print "Conent-type: text/html", "\n\n"; # MIME header.
print "<HTML>", "\n";
print "<HEAD>";
print "<TITLE>PERl meets the World Wide Web</TITLE>", "\n";
print "</HEAD>", "\n";
print "<BODY>", "\n";
print "<H1>Hello, World!<H!>", "\n";
print "</Body>", "\n";
print "</HTML>", "\n";
# End hellowww.pl
New version
#!/usr/bin/perl
# hellowww.pl
# A Perl program that draws a Web page.
print "Content-type: text/html", "\n\n"; # MIME header.
print "<HTML>\n";
print "<HEAD>";
print "<TITLE>Perl meets the World Wide Web</TITLE>\n";
print "</HEAD>\n";
print "<BODY>\n";
print "<H1>Hello, World!<H1>\n";
print "</Body>\n";
print "</HTML>\n";
# End hellowww.pl
Even better : use CGI.pm
#!/usr/bin/perl
# hellowww.pl
# A Perl program that draws a Web page.
use CGI;
$form = new CGI;
print $form->header();
print $form->start_html("Perl meets the World Wide Web");
print $form->h1("Hello, World!");
# End hellowww.pl
Hope this helps,
Peter
------------------------------
Date: Mon, 08 Feb 1999 03:11:47 -0500
From: Joe Burpee <jeb@burkby.com>
Subject: Re: RegExp to substitue a string
Message-Id: <36BE9C43.3082FF3D@burkby.com>
How about
s/\bXM_(ZYDS|DASD)\b/BP_LM/g
The \b are for word boundaries. The g means global (not just the first
match).
--
Joe
Vladik wrote:
>
> Hello,
> I am giving up,
> I cannot figure out how to
> substitute a string start starts with XM_
> with BP_LM.
> for example in my files I have XM_ZYDS, or
> XM_DASD
> I need to replace all of thouse with
> just BP_LM.
>
> I undertand that I can read each line,
> then split it into words, then compare
> the first 3 characters of each word with XM_
> and if matches, relplace the whole word with
> BP_LM, and then write the whole line back
> to the file. But all that seems to be
> tedious and not elegant, there got to
> be a way to do it with RegExpressions
> (I am just learning that stuff using
> the excellent 'Mastering Regular Expressions'
> book -- but I cannot seem to find a answer
> there).
>
> Thanks in advance for any tips,
> Vladik
------------------------------
Date: Mon, 08 Feb 1999 14:57:26 +0531
From: "Narasimha G. Pai" <pai@cadence.com>
Subject: Remote Login
Message-Id: <36BEADC1.ACD0F777@cadence.com>
Hi ,
I need some help .
I have a perl script that has to login to a remote machine .
Do some tasks and logout/comeback to the current machine
where the rest of the tasks have to be done .
Any PERL way of doing this ?
--
|======================================================================|
|Kanwarpreet Singh Grewal | email: kanwar@cadence.com |
| Cadence Design Systems (India) Pvt. Ltd.,| Home address: E-217 |
| SDF # B-8, Noida Export Processing Zone, | Ram Vihar |
| Noida, UP - 201305, India | Sector : 30 |
| Tel: +91-11-8562842 | Noida, UP India |
|======================================================================|
------------------------------
Date: Mon, 08 Feb 1999 12:46:25 +0000
From: Einar Gudmundsson <einar.gudmundsson@realtime.co.uk>
Subject: Set Group Id
Message-Id: <36BEDCA1.C8F8C287@realtime.co.uk>
Hi,
I'm trying to get a script to change the group associated with
some files. However the script or rather the chown command reports
that I am not allowed to do this. I'll explain the problem in more
detail: My perl script is running under the userid and groupid of
'etg:etg'. However user 'etg' belongs to the group 'ca'. Thus I
thought that a script run by user 'etg' would allow files created
by 'etg' to be shared by group 'ca'. But when I issue
the following commands nothing happens:
# Change group owner.
my $ca_gid = getgrnam('ca');
chown(-1,$ca_gid, $file) or error("The group of '$file' could not be
changed");
To give some more input here are the file permissions for the diffrnet
files and directories involved.
$file permission:
-rw-rw-r-- 1 etg etg 90 Feb 5 17:30 index.txt
The directory $file lives in:
drwxrwxr-x 8 etg ca 1024 Feb 5 17:30 .
The script that runs the command (notice the setgid bit is set):
-rwsr-sr-- 1 etg ca 2815 Feb 5 17:27 server_cert
The directory where the script lives:
drwxr-xr-x 2 etg ca 1024 Feb 5 17:27 .
So my question is how can I change the group id of a file I own to a
group I
am amember of?
Thanks in advance
Einar
------------------------------
Date: 8 Feb 1999 14:41:48 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <79mt3c$gt9$1@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 01 Feb 1999 14:40:07 GMT and ending at
08 Feb 1999 06:37:34 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" email 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: 509
Articles: 1322 (446 with cutlined signatures)
Threads: 451
Volume generated: 2210.4 kb
- headers: 948.4 kb (19,178 lines)
- bodies: 1185.7 kb (38,235 lines)
- original: 802.3 kb (27,916 lines)
- signatures: 75.0 kb (1,478 lines)
Original Content Rating: 0.677
Averages
========
Posts per poster: 2.6
median: 1 post
mode: 1 post - 338 posters
s: 5.2 posts
Posts per thread: 2.9
median: 2 posts
mode: 1 post - 159 threads
s: 3.3 posts
Message size: 1712.1 bytes
- header: 734.7 bytes (14.5 lines)
- body: 918.4 bytes (28.9 lines)
- original: 621.5 bytes (21.1 lines)
- signature: 58.1 bytes (1.1 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
60 116.3 ( 48.7/ 55.0/ 37.5) mgjv@comdyn.com.au (Martien Verbruggen)
34 45.4 ( 18.3/ 27.1/ 15.0) Eric Bohlman <ebohlman@netcom.com>
33 55.2 ( 20.2/ 31.4/ 18.4) lr@hpl.hp.com (Larry Rosler)
31 57.2 ( 18.3/ 38.9/ 26.1) tadmc@metronet.com (Tad McClellan)
28 58.5 ( 25.7/ 25.5/ 15.3) rjk@linguist.dartmouth.edu (Ronald J Kimball)
27 40.1 ( 15.9/ 24.3/ 14.4) Ala Qumsieh <aqumsieh@matrox.com>
26 36.2 ( 20.9/ 13.4/ 8.1) Jonathan Feinberg <jdf@pobox.com>
23 40.1 ( 17.3/ 18.5/ 17.8) abigail@fnx.com
22 31.2 ( 15.2/ 13.8/ 7.9) James Ludlow <ludlow@us.ibm.com>
20 27.9 ( 16.3/ 11.7/ 7.2) bart.lateur@skynet.be (Bart Lateur)
These posters accounted for 23.0% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
116.3 ( 48.7/ 55.0/ 37.5) 60 mgjv@comdyn.com.au (Martien Verbruggen)
58.5 ( 25.7/ 25.5/ 15.3) 28 rjk@linguist.dartmouth.edu (Ronald J Kimball)
57.2 ( 18.3/ 38.9/ 26.1) 31 tadmc@metronet.com (Tad McClellan)
55.2 ( 20.2/ 31.4/ 18.4) 33 lr@hpl.hp.com (Larry Rosler)
45.4 ( 18.3/ 27.1/ 15.0) 34 Eric Bohlman <ebohlman@netcom.com>
42.0 ( 10.4/ 30.3/ 16.3) 11 sholden@cs.usyd.edu.au
40.1 ( 15.9/ 24.3/ 14.4) 27 Ala Qumsieh <aqumsieh@matrox.com>
40.1 ( 17.3/ 18.5/ 17.8) 23 abigail@fnx.com
36.3 ( 10.0/ 26.3/ 16.4) 15 Steve Palincsar <palincss@his.com>
36.2 ( 20.9/ 13.4/ 8.1) 26 Jonathan Feinberg <jdf@pobox.com>
These posters accounted for 23.9% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.970 ( 5.7 / 5.9) 11 fl_aggie@thepentagon.com (I R A Aggie)
0.960 ( 17.8 / 18.5) 23 abigail@fnx.com
0.932 ( 18.7 / 20.1) 9 Greg Bacon <gbacon@cs.uah.edu>
0.863 ( 4.6 / 5.3) 7 23_skidoo@geocities.com
0.784 ( 2.4 / 3.1) 5 Russ Allbery <rra@stanford.edu>
0.769 ( 3.8 / 4.9) 7 Daniel Grisinger <dgris@moiraine.dimensional.com>
0.762 ( 3.3 / 4.3) 6 aml@world.std.com (Andrew M. Langmead)
0.745 ( 9.6 / 12.9) 14 moseley@best.com (Bill Moseley)
0.729 ( 2.2 / 3.1) 5 "Mike Watkins" <mwatkins@promotion4free.com>
0.727 ( 4.9 / 6.8) 9 "Charles R. Thompson" <design@raincloud-studios.com>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.491 ( 3.3 / 6.7) 11 comdog@computerdog.com (brian d foy)
0.470 ( 2.0 / 4.2) 6 newsposter@cthulhu.demon.nl
0.433 ( 2.5 / 5.7) 6 "Steven T. Henderson" <stevenhenderson@prodigy.net>
0.428 ( 5.8 / 13.6) 19 Uri Guttman <uri@ibnets.com>
0.426 ( 1.8 / 4.3) 7 ilya@math.ohio-state.edu (Ilya Zakharevich)
0.424 ( 3.5 / 8.3) 10 "Allan M. Due" <allan@due.net>
0.418 ( 1.7 / 4.0) 6 ced@bcstec.ca.boeing.com (Charles DeRykus)
0.371 ( 2.7 / 7.1) 10 "myname@mydomain.com" <elst.fels@nospam.ping.be>
0.355 ( 7.2 / 20.3) 11 Andrew Fry <andrewf@beausys.demon.co.uk>
0.300 ( 1.0 / 3.3) 6 Matt Sergeant <matthew.sergeant@eml.ericsson.se>
53 posters (10%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
18 alternative perl NG for newbies?
18 Is perl a freeware?
16 Visual Perl?
16 How do I get local IP Address ?
15 are regular expression rationaly designed ?
15 Comments in Perl code
14 Sending Perl output to 2 diffent html frames
13 testing for scalar/list/array
13 Regex for e-mail addresses?
12 UNIX 'tail' command in Perl??
These threads accounted for 11.3% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
62.6 ( 14.7/ 46.8/ 24.6) 18 alternative perl NG for newbies?
46.0 ( 12.3/ 33.2/ 19.9) 9 Perl Criticism
31.8 ( 12.1/ 18.6/ 13.2) 15 Comments in Perl code
26.8 ( 8.4/ 17.3/ 12.8) 11 Question: Arrays of associative arrays
25.8 ( 11.8/ 13.5/ 8.7) 15 are regular expression rationaly designed ?
25.6 ( 14.1/ 10.4/ 5.7) 18 Is perl a freeware?
25.6 ( 15.4/ 8.6/ 5.3) 16 Visual Perl?
24.9 ( 11.2/ 13.1/ 7.7) 16 How do I get local IP Address ?
21.9 ( 10.9/ 9.4/ 6.3) 13 testing for scalar/list/array
21.8 ( 8.6/ 11.2/ 7.0) 13 Regex for e-mail addresses?
These threads accounted for 14.1% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.900 ( 11.0/ 12.2) 9 Statistics for comp.lang.perl.misc
0.831 ( 5.2/ 6.3) 5 Perl / DBI / HTML
0.824 ( 2.0/ 2.5) 5 cookies pointers
0.811 ( 1.9/ 2.3) 5 Determining time, date, and month with CGI (Newbie Question)
0.799 ( 4.4/ 5.5) 5 Help - Complex Sort and Error Control/Reporting.
0.785 ( 1.9/ 2.4) 5 Help with data structure
0.770 ( 2.8/ 3.6) 6 how to query errno.h info
0.758 ( 5.9/ 7.8) 5 Simple sort required.
0.748 ( 4.5/ 6.0) 6 END blocks for subs?
0.744 ( 12.8/ 17.3) 11 Question: Arrays of associative arrays
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.520 ( 3.8 / 7.3) 5 Perl vs. ASP for new project
0.518 ( 2.9 / 5.6) 6 libwww-perl and use strict
0.512 ( 3.2 / 6.3) 6 any comments on the Ultimate Bulleting Board?
0.503 ( 0.8 / 1.7) 5 sending an attached file with Sendmail?
0.471 ( 3.0 / 6.4) 6 Dynamically Naming Array Variables
0.469 ( 2.2 / 4.7) 5 Newbie question
0.432 ( 0.9 / 2.2) 5 Perl in ASP code
0.423 ( 1.1 / 2.6) 6 Is there an Interactive Debugger for Perl?
0.418 ( 3.8 / 9.0) 10 debug this script please
0.410 ( 1.2 / 2.9) 5 regex lib or Perl linked in?
80 threads (17%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
44 comp.lang.perl.modules
23 comp.lang.perl
5 comp.unix.programmer
5 comp.unix.solaris
5 comp.infosystems.www.servers.unix
4 comp.lang.python
4 alt.perl
4 comp.unix.misc
4 microsoft.public.excel.programming
4 ford.comp.www
Top 10 Crossposters
===================
Articles Address
-------- -------
56 haslawww@friko7.onet.pl (Best Passwords to sex pages )
9 Green Chicken {Jack} <JACNUNN@infoave.net>
7 rob.nicholson@zetnet.co.uk
7 abigail@fnx.com
7 root@nowhere.uucp (root)
7 wsherrin <wsherrin@eccms1.dearborn.ford.com>
7 Dermot Musgrove <dermot.musgrove@virgin.net>
6 saarg@bigfoot.com (Saar Ginzburski)
6 lezli@lezlisoft.com
5 nick@valueclick.com (Nick Tonkin)
------------------------------
Date: Sun, 07 Feb 1999 13:51:09 -0800
From: Ron <ron@here.or.there>
Subject: Re: strict
Message-Id: <36BE0ACD.80F7727A@here.or.there>
When using strict you have to pre-declare all variables before you can
use them, using the "my" keyword.
For example:
use strict;
my $keys;
This way if you inadvertantly use $key later on in the program (instead
of $keys) you get an error message, since it hasn't been defined.
Jonathan Feinberg wrote:
> "myname@mydomain.com" <elst.fels@nospam.ping.be> writes:
>
> > Can anyone tell me what "strict" exactly does ?
>
> perldoc strict
>
> --
> Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
> http://pobox.com/~jdf
------------------------------
Date: 08 Feb 1999 14:43:05 +0100
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: strict
Message-Id: <m3k8xtdn9y.fsf@joshua.panix.com>
Ron <ron@here.or.there> writes:
> Jonathan Feinberg wrote:
>
> > "myname@mydomain.com" <elst.fels@nospam.ping.be> writes:
> >
> > > Can anyone tell me what "strict" exactly does ?
> >
> > perldoc strict
> When using strict you have to pre-declare all variables before you
> can use them, using the "my" keyword.
Your answer is both incomplete and wrong. What was wrong with the
pointer to the documentation, which is both complete and correct?
Ooh, and your address is munged. This thread is evil. Get thee
behind me!
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 8 Feb 1999 14:29:52 GMT
From: morris@rahul.net (Steve Morris)
Subject: Re: The order of form fields that recieve by cgi program
Message-Id: <79msd0$bfs$1@samba.rahul.net>
fanxin@mailcity.com wrote:
> Hi,there:
> does here any experts know how to know the original order of html form
> fields in the submitted html form after these data has been splitted to
> an associated arrary in perl cgi program?
> Thanks
>
> fan
This is probably not what you're looking for, but I name the fields:
afield1,bfield2...... so then when I sort the keys they're in the same
order as on the form. Then I remove the first letter when generating a
report so I display field1,field2.....
HTH
Steve
------------------------------
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 4845
**************************************
