[9667] in Perl-Users-Digest
Perl-Users Digest, Issue: 3264 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 27 12:16:41 1998
Date: Mon, 27 Jul 98 09:02:46 -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, 27 Jul 1998 Volume: 8 Number: 3264
Today's topics:
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Submit only Once (Abigail)
Re: Submit only Once <nguyend7@egr.msu.edu>
Re: Submit only Once (Malcolm Hoar)
Re: Submit only Once <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: subs in separate files? <jdporter@min.net>
Re: Tcl is better than Perl <jdporter@min.net>
Re: Using the hash (lloyd)
Re: Win32 Perl and Perl doc (Jim Weisgram)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 27 Jul 1998 14:12:10 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <6pi1rq$30n$6@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 20 Jul 1998 14:07:45 GMT and ending at
27 Jul 1998 06:54:18 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: 560
Articles: 1600 (608 with cutlined signatures)
Threads: 462
Volume generated: 2644.9 kb
- headers: 1078.3 kb (22,031 lines)
- bodies: 1446.4 kb (45,607 lines)
- original: 963.7 kb (32,588 lines)
- signatures: 118.6 kb (2,419 lines)
Original Content Rating: 0.666
Averages
========
Posts per poster: 2.9
median: 1.0 post
mode: 1 post - 350 posters
s: 6.2 posts
Posts per thread: 3.5
median: 2.0 posts
mode: 1 post - 142 threads
s: 3.9 posts
Message size: 1692.7 bytes
- header: 690.1 bytes (13.8 lines)
- body: 925.7 bytes (28.5 lines)
- original: 616.7 bytes (20.4 lines)
- signature: 75.9 bytes (1.5 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
72 128.2 ( 45.5/ 75.5/ 40.0) lr@hpl.hp.com (Larry Rosler)
66 95.0 ( 48.0/ 46.2/ 26.0) jdporter@min.net
37 64.0 ( 21.2/ 42.8/ 29.1) tadmc@flash.net (Tad McClellan)
36 56.5 ( 26.9/ 20.4/ 9.7) rjk@coos.dartmouth.edu (Ronald J Kimball)
35 58.4 ( 26.7/ 26.1/ 13.2) abigail@fnx.com
35 61.4 ( 22.7/ 38.7/ 25.5) cberry@cinenet.net (Craig Berry)
28 33.5 ( 16.5/ 16.9/ 8.8) mjtg@cus.cam.ac.uk (M.J.T. Guy)
28 56.4 ( 24.5/ 31.8/ 17.7) root.noharvest.\@not_even\here.com
27 42.4 ( 19.0/ 19.5/ 13.0) "F.Quednau" <quednauf@nortel.co.uk>
26 50.7 ( 13.6/ 33.3/ 25.9) Greg Bacon <gbacon@cs.uah.edu>
These posters accounted for 24.4% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
128.2 ( 45.5/ 75.5/ 40.0) 72 lr@hpl.hp.com (Larry Rosler)
95.0 ( 48.0/ 46.2/ 26.0) 66 jdporter@min.net
64.0 ( 21.2/ 42.8/ 29.1) 37 tadmc@flash.net (Tad McClellan)
61.4 ( 22.7/ 38.7/ 25.5) 35 cberry@cinenet.net (Craig Berry)
58.4 ( 26.7/ 26.1/ 13.2) 35 abigail@fnx.com
56.5 ( 26.9/ 20.4/ 9.7) 36 rjk@coos.dartmouth.edu (Ronald J Kimball)
56.4 ( 24.5/ 31.8/ 17.7) 28 root.noharvest.\@not_even\here.com
50.7 ( 13.6/ 33.3/ 25.9) 26 Greg Bacon <gbacon@cs.uah.edu>
45.1 ( 16.9/ 22.7/ 13.9) 26 mgjv@comdyn.com.au (Martien Verbruggen)
42.4 ( 19.0/ 19.5/ 13.0) 27 "F.Quednau" <quednauf@nortel.co.uk>
These posters accounted for 24.9% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.8 / 1.8) 5 Kamran Iranpour <kamrani@ifi.uio.no>
1.000 ( 4.1 / 4.1) 6 Mark Hickey <Mark.Hickey@veritas.com>
0.952 ( 4.9 / 5.2) 9 fl_aggie@thepentagon.com (I R A Aggie)
0.913 ( 11.9 / 13.0) 9 schnibitz@my-dejanews.com
0.912 ( 2.4 / 2.7) 6 darrensw@pacbell.net
0.799 ( 3.2 / 4.0) 5 bart.mediamind@tornado.be (Bart Lateur)
0.793 ( 3.6 / 4.5) 5 "Adam Atkinson" <ghira@mistral.co.uk>
0.783 ( 11.5 / 14.7) 18 mjd@op.net (Mark-Jason Dominus)
0.778 ( 25.9 / 33.3) 26 Greg Bacon <gbacon@cs.uah.edu>
0.774 ( 7.9 / 10.3) 9 scott@softbase.com
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.447 ( 2.9 / 6.4) 10 Randal Schwartz <merlyn@stonehenge.com>
0.438 ( 3.4 / 7.8) 9 "file" <file@job.to>
0.427 ( 1.7 / 4.0) 7 kpreid@ibm.net (Kevin Reid)
0.426 ( 3.3 / 7.8) 8 "Matthew O. Persico" <mpersico@erols.com>
0.388 ( 1.5 / 3.9) 5 hirano@Xenon.Stanford.EDU (Kelly Hirano)
0.385 ( 2.0 / 5.2) 5 Jan Krynicky <JKRY3025@comenius.ms.mff.cuni.cz>
0.379 ( 3.0 / 7.8) 10 Rick Delaney <rick.delaney@shaw.wave.ca>
0.365 ( 1.9 / 5.3) 6 Matt Pryor <matt@whiterabbit.co.uk>
0.347 ( 7.0 / 20.1) 9 "Firestarter" <majestik_12@hotmail.com>
0.276 ( 1.8 / 6.6) 5 ac1@fspc.netsys.itg.telecom.com.au (nobody)
66 posters (11%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
37 Perl Beautifier Home Page
31 Recent Secret Government Experiments Killing People!!!
20 What's wrong?
19 parsing question
16 Bug in regex quantifiers?
16 Date Question...
14 Dynamically creating graph images
14 delete while iterating over array
14 Tcl is better than Perl
14 Deutsche Boerse sucht 100 neue Mitarbeiter im IT-Bereich
These threads accounted for 12.2% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
78.7 ( 31.4/ 41.0/ 25.7) 37 Perl Beautifier Home Page
73.8 ( 26.0/ 47.8/ 19.3) 31 Recent Secret Government Experiments Killing People!!!
37.5 ( 14.9/ 22.4/ 14.3) 14 Deutsche Boerse sucht 100 neue Mitarbeiter im IT-Bereich
33.3 ( 13.2/ 19.0/ 12.1) 19 parsing question
32.3 ( 7.9/ 24.0/ 15.8) 10 *** FAQ: ANSWERS TO YOUR QUESTIONS! READ FIRST! Posted Twice Weekly ***
30.5 ( 1.3/ 28.9/ 28.9) 2 PLEASE HELP: Simple ascii to binary script
26.9 ( 12.8/ 12.5/ 7.5) 20 What's wrong?
26.2 ( 8.8/ 16.8/ 9.5) 13 Y2K problem in PERL with localtime()
25.8 ( 10.8/ 14.1/ 8.2) 16 Date Question...
25.7 ( 8.4/ 16.9/ 9.5) 13 specific character/position in string
These threads accounted for 14.8% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.977 ( 4.4/ 4.5) 5 Overriding builtin functions
0.920 ( 9.2/ 10.0) 5 (mutil level assoc arrays and dynamically created array names via eval)
0.903 ( 2.3/ 2.6) 5 A little enervous trouble
0.849 ( 4.3/ 5.1) 5 GET & PUT from commandline
0.844 ( 7.9/ 9.3) 6 Debugging Perl 5.x
0.842 ( 2.2/ 2.6) 5 Flat-File Database
0.836 ( 4.4/ 5.2) 8 More on Perl Conference 2.0
0.826 ( 3.4/ 4.1) 8 Best perl book for web programming
0.803 ( 5.2/ 6.4) 6 need help: open file for write
0.776 ( 4.4/ 5.7) 6 Code showing apparent "Perl While Bug"
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.483 ( 3.1 / 6.4) 7 GIF Line-Breaks in Perl
0.471 ( 1.6 / 3.3) 5 Need help with POST
0.455 ( 3.9 / 8.6) 10 modifying a text file
0.433 ( 2.2 / 5.0) 8 chomp or other command to eliminate LF and or CR from lines
0.430 ( 1.0 / 2.4) 5 Reversing time
0.408 ( 2.8 / 6.8) 7 Last Name First...
0.403 ( 19.3 / 47.8) 31 Recent Secret Government Experiments Killing People!!!
0.401 ( 1.0 / 2.4) 5 What is awk better at than perl? (Larry quote)
0.394 ( 1.7 / 4.2) 8 STUMPED!!! (perl trivia)
0.272 ( 2.4 / 8.9) 5 dumb questions Re: Problem with DBD::Oracle
104 threads (22%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
30 alt.ph.uk
30 alt.2600.hackerz
29 es.comp.hackers
26 comp.lang.perl.modules
19 comp.programming
15 de.comp.lang.perl
15 comp.infosystems.www.authoring.html
14 de.markt.arbeit.d
14 at.anzeigen.arbeitsmarkt
14 de.comm.isdn.computer
Top 10 Crossposters
===================
Articles Address
-------- -------
72 detlef@jojo.escape.de (Detlef Bosau)
31 root.noharvest.\@not_even\here.com
27 "Firestarter" <majestik_12@hotmail.com>
18 stolze@paxp01.mipool.uni-jena.de (Knut Stolze)
12 Nobody <somewhere@over.the.rainbow>
9 gabor@vmunix.com (Gabor)
9 jean-luc@picard.franken.de (=?iso-8859-1?Q?Thomas_K=F6hler?=)
9 Dirk Bergemann <bergemann@carguard.de>
9 "The Lion King" <AVLEENSINGHVIG@nospammy.msn.com>
9 delta@gmx.de
------------------------------
Date: 27 Jul 1998 14:50:51 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Submit only Once
Message-Id: <6pi44b$sa1$1@client3.news.psi.net>
Sam Irion (persoft@concentric.net) wrote on MDCCXCI September MCMXCIII in
<URL: news:6phuj7$qo3@examiner.concentric.net>:
++ Can anyone give me any advice or direction on how to prevent the user from
++ using the browser's back button to go back to a form and repost it?
You can't. And that has nothing to do with Perl.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
------------------------------
Date: 27 Jul 1998 15:18:43 GMT
From: Dan Nguyen <nguyend7@egr.msu.edu>
Subject: Re: Submit only Once
Message-Id: <6pi5oj$e2p$2@msunews.cl.msu.edu>
Sam Irion <persoft@concentric.net> wrote:
: Can anyone give me any advice or direction on how to prevent the user from
: using the browser's back button to go back to a form and repost it?
The only thing that I can think about doing is not excepting posts
from IPs which just had posted. But you'll run into other problems.
-dan
--
Dan Nguyen | There is only one happiness in
nguyend7@msu.edu | life, to love and be loved.
http://www.cse.msu.edu/~nguyend7 | -George Sand
------------------------------
Date: Mon, 27 Jul 1998 15:24:08 GMT
From: malch@malch.com (Malcolm Hoar)
Subject: Re: Submit only Once
Message-Id: <6pi62h$knh$1@nntp1.ba.best.com>
In article <6pi44b$sa1$1@client3.news.psi.net>, abigail@fnx.com wrote:
>Sam Irion (persoft@concentric.net) wrote on MDCCXCI September MCMXCIII in
><URL: news:6phuj7$qo3@examiner.concentric.net>:
>++ Can anyone give me any advice or direction on how to prevent the user from
>++ using the browser's back button to go back to a form and repost it?
>
>You can't. And that has nothing to do with Perl.
There are several things you can do. None of which has anything
to do with Perl really :-)
For example, have the form processing script prevent more
than "x" submissions from the same IP address in "y" seconds.
Not totally foolproof but it will prevent a good deal of "spew".
--
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Malcolm Hoar "The more I practice, the luckier I get". |
| malch@malch.com Gary Player. |
| http://www.malch.com/ Shpx gur PQN. |
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: 27 Jul 1998 16:48:13 +0200
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Submit only Once
Message-Id: <7xsojn73ki.fsf@fidelio.vcpc.univie.ac.at>
Re: Submit only Once, Sam <persoft@concentric.net> said:
Sam> Can anyone give me any advice or direction on how to
Sam> prevent the user from using the browser's back button
Sam> to go back to a form and repost it?
Cut their hands off.
Sam> I have a perl script that send out a couple of emails
Sam> after a large form is posted. The form has a lot of
Sam> required fields. My thoughts are that if I can prevent
Sam> the user from backing up and posting the same data
Sam> again (by offering a new reset form), those that are
Sam> inclined to back up and submit dozens of times won't
Sam> feel like it is worth the effort.
What you want to do with browsers is not possible.
Rethinking the problem is the only solution here.
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, AT | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | personal email:
Stupid! Stupid!" ~ Eros, Plan9 fOS. | tony_curtis32@hotmail.com
------------------------------
Date: Mon, 27 Jul 1998 14:21:09 GMT
From: John Porter <jdporter@min.net>
Subject: Re: subs in separate files?
Message-Id: <35BC8E4D.C78@min.net>
Quinn,M wrote:
>
> How do I get "use" and/or
> "require" to search the CURRENT DIRECTORY for the
> subroutine.
use lib ('.');
Check out the 'lib' pragmatic module:
% perldoc lib
also in the Camel on page 457.
--
John Porter
------------------------------
Date: Mon, 27 Jul 1998 13:55:55 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Tcl is better than Perl
Message-Id: <35BC8863.281@min.net>
Tom Christiansen wrote:
>
> claird@Starbase.NeoSoft.COM (Cameron Laird) writes:
> :Actually, writing a very simple client-server pair
> :is one of the tasks where Tcl happens to be a lot
> :friendlier to beginners than Perl.
>
> Really? Gosh, this seems easy to me:
>
> use IO::Socket;
> $remote = IO::Socket::INET->new("localhost:13")
> || die "cannot connect to daytime port at localhost";
> while ( <$remote> ) { print }
>
> Is there an easier way to do this?
Not if your intention is to write only one half of the
"very simple client-server pair".
--
John Porter
------------------------------
Date: 27 Jul 1998 15:23:22 GMT
From: lloyd007@best.com (lloyd)
Subject: Re: Using the hash
Message-Id: <lloyd007-2707980838180001@lloyd007.vip.best.com>
In article <6pf78f$ai1$1@pegasus.csx.cam.ac.uk>, mjtg@cus.cam.ac.uk
(M.J.T. Guy) wrote:
> lloyd <lloyd007@best.com> wrote:
> >
> >"qw" may clash with future reserved word at password.cgi line 3syntax
> >error in file password.cgi at line 3, next 2 tokens "qw("
> >password.cgi had compilation errors.
>
> I smell a dead camel! What is the output from "perl -v"?
>
>
> Mike Guy
Thanks for your help mike....
when I run perl -v this is what I get:
_________________________
shell7: {12} perl -v
This is perl, version 4.0
$RCSfile: perl.c,v $$Revision: 1.7.2.2 $$Date: 1998/03/12 19:27:47 $
Patch level: 36
Copyright (c) 1989, 1990, 1991, Larry Wall
Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 4.0 source kit.
shell7: {13}
___________________________
Apparently the server is running perl version 4
lloyd
------------------------------
Date: Mon, 27 Jul 1998 15:38:08 GMT
From: jweisgram@hotmail.com (Jim Weisgram)
Subject: Re: Win32 Perl and Perl doc
Message-Id: <35be9e54.169131129@news.teleport.com>
"tdean" <tdean@gte.net> wrote:
>does perl doc work on the activestate version of Perl? If not is there an
>equivalent that will work?
I don't have the precise URL, but I found a .pdf (Adobe Acrobat) version by
going to www.perl.com and following the links to Win32. It's kind of slow since
the .pdf files are quite large, but I don't think its generally much slower than
running perldoc.
--
All opinions expressed are mine and not my employers (but they ought to be)
Jim Weisgram
Oregon Department of Transportation
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3264
**************************************
