[16946] in Perl-Users-Digest
Perl-Users Digest, Issue: 4358 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 18 11:10:29 2000
Date: Mon, 18 Sep 2000 08:10:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <969289810-v9-i4358@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 18 Sep 2000 Volume: 9 Number: 4358
Today's topics:
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Substring Golf? <pdcawley@bofh.org.uk>
Re: Teaching Perl (Csaba Raduly)
Re: Teaching Perl <sigvald.refsum@siemens.no>
Re: Using range operator (Logan Shaw)
Re: Using range operator <godzilla@stomp.stomp.tokyo>
Re: which the best scripting language? <lucisferre@email.com>
Re: which the best scripting language? <lucisferre@email.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 18 Sep 2000 14:39:17 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <ssca8lluh3t81@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 11 Sep 2000 15:39:06 GMT and ending at
18 Sep 2000 15:05:03 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) 2000 Greg Bacon.
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\@(?:.*\.)?perl\.com
Totals
======
Posters: 530
Articles: 1744 (834 with cutlined signatures)
Threads: 437
Volume generated: 3077.4 kb
- headers: 1404.7 kb (27,693 lines)
- bodies: 1548.8 kb (50,884 lines)
- original: 985.1 kb (35,165 lines)
- signatures: 122.2 kb (2,952 lines)
Original Content Rating: 0.636
Averages
========
Posts per poster: 3.3
median: 1.0 post
mode: 1 post - 282 posters
s: 7.0 posts
Posts per thread: 4.0
median: 3 posts
mode: 1 post - 124 threads
s: 5.2 posts
Message size: 1806.9 bytes
- header: 824.8 bytes (15.9 lines)
- body: 909.4 bytes (29.2 lines)
- original: 578.4 bytes (20.2 lines)
- signature: 71.8 bytes (1.7 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
69 124.6 ( 50.2/ 61.2/ 55.2) abigail@foad.org
64 121.0 ( 52.4/ 65.9/ 32.3) jason <elephant@squirrelgroup.com>
52 82.1 ( 41.4/ 32.9/ 15.8) Gwyn Judd <tjla@guvfybir.qlaqaf.bet>
43 75.9 ( 28.9/ 42.1/ 22.4) Larry Rosler <lr@hpl.hp.com>
43 84.0 ( 36.0/ 46.9/ 26.4) Ren Maddox <ren.maddox@tivoli.com>
36 82.9 ( 32.4/ 43.5/ 29.2) "Godzilla!" <godzilla@stomp.stomp.tokyo>
33 66.5 ( 34.7/ 22.7/ 13.6) japhy@pobox.com
28 55.6 ( 22.5/ 29.6/ 5.7) Anders Lund <anders@wall.alweb.dk>
25 32.6 ( 18.2/ 12.6/ 7.4) nobull@mail.com
23 42.7 ( 23.4/ 16.1/ 6.9) brian d foy <brian@smithrenaud.com>
These posters accounted for 23.9% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
124.6 ( 50.2/ 61.2/ 55.2) 69 abigail@foad.org
121.0 ( 52.4/ 65.9/ 32.3) 64 jason <elephant@squirrelgroup.com>
84.0 ( 36.0/ 46.9/ 26.4) 43 Ren Maddox <ren.maddox@tivoli.com>
82.9 ( 32.4/ 43.5/ 29.2) 36 "Godzilla!" <godzilla@stomp.stomp.tokyo>
82.1 ( 41.4/ 32.9/ 15.8) 52 Gwyn Judd <tjla@guvfybir.qlaqaf.bet>
75.9 ( 28.9/ 42.1/ 22.4) 43 Larry Rosler <lr@hpl.hp.com>
66.5 ( 34.7/ 22.7/ 13.6) 33 japhy@pobox.com
55.6 ( 22.5/ 29.6/ 5.7) 28 Anders Lund <anders@wall.alweb.dk>
46.2 ( 8.8/ 37.4/ 34.0) 13 Tom Christiansen <tchrist@perl.com>
42.7 ( 23.4/ 16.1/ 6.9) 23 brian d foy <brian@smithrenaud.com>
These posters accounted for 25.4% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 16.8 / 16.8) 9 David Steuber <nospam@david-steuber.com>
0.982 ( 5.1 / 5.2) 6 andrew-johnson@home.com
0.910 ( 34.0 / 37.4) 13 Tom Christiansen <tchrist@perl.com>
0.907 ( 8.6 / 9.5) 15 rathmore@tierceron.com
0.901 ( 55.2 / 61.2) 69 abigail@foad.org
0.817 ( 17.4 / 21.2) 23 Mark-Jason Dominus <mjd@plover.com>
0.809 ( 2.4 / 3.0) 7 Thom Harp <thomharp@flash.net>
0.765 ( 14.1 / 18.4) 9 mgjv@tradingpost.com.au
0.764 ( 7.2 / 9.4) 6 mgjv@comdyn.com.au
0.750 ( 7.1 / 9.4) 16 "Alan J. Flavell" <flavell@mail.cern.ch>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.410 ( 3.5 / 8.5) 14 "Philip Garrett" <philipg@atl.mediaone.net>
0.390 ( 2.8 / 7.1) 6 Kevin Metcalf <notkmetcalf@notlighthousemarketingnot.com>
0.383 ( 4.2 / 10.9) 15 Bob Walton <bwalton@rochester.rr.com>
0.363 ( 3.5 / 9.6) 7 Dave O'Brien <david.obrien@ssmb.com.au>
0.344 ( 2.0 / 5.9) 8 "Andrew N. McGuire " <anmcguire@ce.mediaone.net>
0.278 ( 3.6 / 12.9) 12 Randy <randy_734@my-deja.com>
0.273 ( 1.4 / 5.1) 8 "James M. Luongo" <jluongonospam@draper.com>
0.254 ( 0.9 / 3.5) 5 "Liang Cheng" <Cheng3@email.msn.com>
0.235 ( 1.0 / 4.2) 5 ubl@schaffhausen.de
0.192 ( 5.7 / 29.6) 28 Anders Lund <anders@wall.alweb.dk>
68 posters (12%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
57 Qualifications for new Perl programmer?????
35 Shortest code for Fibonacci?
31 Using range operator
29 min function
23 Finding maximum length
21 help in writing a card game
20 Where Doesn't this work?
20 sprintf() rounding problem
19 Req.: The perfect Perl Editor?
16 print and CGI scripts
These threads accounted for 15.5% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
141.9 ( 60.8/ 76.0/ 51.6) 57 Qualifications for new Perl programmer?????
71.9 ( 27.8/ 39.4/ 23.1) 31 Using range operator
59.8 ( 32.3/ 23.0/ 13.7) 35 Shortest code for Fibonacci?
44.5 ( 20.9/ 22.3/ 12.6) 20 sprintf() rounding problem
42.6 ( 24.4/ 15.2/ 7.4) 29 min function
40.9 ( 18.2/ 19.7/ 14.1) 21 help in writing a card game
40.8 ( 19.4/ 19.3/ 9.5) 23 Finding maximum length
37.9 ( 6.3/ 31.3/ 28.7) 8 Is there a file rename function?
36.8 ( 16.6/ 16.9/ 8.8) 20 Where Doesn't this work?
31.6 ( 10.7/ 19.5/ 12.9) 14 Character Class in Regex - Despecify What?
These threads accounted for 17.8% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.932 ( 3.2/ 3.5) 5 problem with hashes
0.917 ( 28.7/ 31.3) 8 Is there a file rename function?
0.884 ( 3.3/ 3.7) 5 Possible to generate html frames from perl ???
0.879 ( 3.8/ 4.3) 5 Reply to Abi's sheep
0.860 ( 6.2/ 7.2) 6 Quality of rand()
0.832 ( 3.8/ 4.6) 6 Holy moly! Substitution on 10-kb scalar takes over *one second*!
0.829 ( 4.1/ 4.9) 6 @variable_list
0.821 ( 2.4/ 2.9) 6 format @<<<
0.820 ( 4.2/ 5.2) 6 @variable_list2
0.815 ( 4.2/ 5.1) 6 Can not read arrays from <STDIN>
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.400 ( 2.0 / 5.0) 7 File name with space in Net::FTP put
0.395 ( 2.0 / 5.0) 5 how to remove unprintable chars with Perl script
0.394 ( 3.0 / 7.7) 8 Test Your Perl Skills
0.372 ( 5.3 / 14.3) 7 I really need help !!!!
0.369 ( 4.1 / 11.1) 10 DBI/MySQL Question for the WISE
0.366 ( 4.0 / 10.8) 11 how to match the hole string by first word? (need help)
0.363 ( 2.6 / 7.1) 7 String compression
0.361 ( 3.7 / 10.4) 11 can i run a cgi script within javascript tag?
0.335 ( 1.9 / 5.7) 6 5.6.0 shebang under NT (was Re: how to match the hole string by first word? (need help))
0.276 ( 3.0 / 10.8) 9 Copying Files
128 threads (29%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
36 comp.lang.perl
28 alt.perl
15 comp.lang.perl.modules
11 comp.lang.javascript
6 comp.lang.tcl
5 comp.lang.awk
5 comp.lang.python
5 comp.lang.perl.tk
5 comp.lang.java
4 comp.programming
Top 10 Crossposters
===================
Articles Address
-------- -------
9 peter <peterp100@hotmail.com>
8 Cameron Laird <claird@starbase.neosoft.com>
6 Tim Hammerquist <tim@degree.ath.cx>
5 "javafaq.nu \(alex\)" <nospam@hotmail.com>
5 John English <je@bton.ac.uk>
5 Roy Terry <royterry@earthlink.net>
5 "Moshe Eshel" <moshe@u4all.com>
5 Logan Shaw <logan@cs.utexas.edu>
5 *frankie*@centurytel.net
5 sholden@BellAtlantic.net
------------------------------
Date: 18 Sep 2000 14:46:48 +0100
From: Piers Cawley <pdcawley@bofh.org.uk>
Subject: Re: Substring Golf?
Message-Id: <m1hf7dhkxj.fsf@rt158.private.realtime.co.uk>
"Wyzelli" <wyzelli@yahoo.com> writes:
> I am looking for a neater/shorter way of achieving the following:
>
>
>
> my $num = shift;
> $num =~ s/ //g;
>
> my $numa = substr $num,0,4;
> my $numb = substr $num,4,4;
> my $numc = substr $num,8,4;
> my $numd = substr $num,12,4;
>
> Any ideas? One liners?
my($num=shift)=~y/ //d;($numa,$numb,$numc,$numd)=split/(.{4})/,$num
It's quite short, and reasonably neat...
--
Piers
------------------------------
Date: 14 Sep 2000 13:41:45 GMT
From: real.email@signature.this.is.invalid (Csaba Raduly)
Subject: Re: Teaching Perl
Message-Id: <8FAF96E0Cquuxi@194.203.134.135>
A million monkeys weren't enough! It took spragg@cs.ucdavis.edu (Adam
Trace Spragg) on 14 Sep 2000 to produce
<8pp5bk$83o$1@mark.ucdavis.edu>:
>Tim <SPAM+indigo@dimensional.com> wrote:
>: For people who have do this sort of thing before, any general
>: advice?
>
>I haven't done this sort of thing, but I still have some general
>advice. Knowing Perl will not automatically make you a good
>teacher. Teaching is a skill in and of itself, regardless of the
>subject matter.
>
[snip]
So true. My father (teaching, among other things, computers at a Chemistry-
Biology-Geograpy University) has this saying about degrees of knowledge about a
subject:
1) You have a foggy half-a-clue
2) You have a clear vision
3) You can coherently speak about it
4) You can explain it to somebody else, and able to bring him/her to level 1.
Good luck.
--
Csaba Raduly, Software Developer (OS/2), Sophos Anti-Virus
mailto:csaba.raduly@sophos.com http://www.sophos.com/
US Support +1 888 SOPHOS 9 UK Support +44 1235 559933
Life is complex, with real and imaginary parts.
------------------------------
Date: Mon, 18 Sep 2000 15:54:13 +0200
From: Sigvald Refsum <sigvald.refsum@siemens.no>
Subject: Re: Teaching Perl
Message-Id: <39C61E85.4BE3269C@siemens.no>
Adam Trace Spragg wrote:
snip:
> I decided to describe Perl (and general) programming to my girlfriend recently
> (who is a recent math major graduate). I described variables and values, and
> that went well. If a=5 and b=6, then c=a+b would result in c being 11. It
> was when I said that you could do "c=c+1" that she sort of flipped out. In
> a math sense, "c=c+1" rarely ever makes sense. :) Also, if c is reassigned
> c+1, then when would the cycle stop? Etc, etc.
>
Start with the small point of what exactly "c" is on the left hand side of the
"equal sign" compared to what "c" is on the rigth hand side.
My simplification for non-programmers is "container" on the left hand side
and whats in the container at the right hand side.
Don't start with pointer at this point :).
Sigvald
------------------------------
Date: 18 Sep 2000 08:32:37 -0500
From: logan@cs.utexas.edu (Logan Shaw)
Subject: Re: Using range operator
Message-Id: <8q55hl$s7r$1@provolone.cs.utexas.edu>
In article <39C5597A.5AD3FA84@stomp.stomp.tokyo>,
Godzilla! <godzilla@stomp.stomp.tokyo> wrote:
>This is a simple numerical range check with
>three input arguments represented by $number,
>which represents a number to compare to a range
>and, $begin_range and $end_range, which sets
>an inclusive numerical range.
:
:
>$number = 5;
>$begin_range = 0;
>$end_range = 10;
>
>for ($iterate = $begin_range; $iterate <= $end_range; $iterate++)
> {
> if ($iterate == $number)
> { print "$number is within a range of $begin_range to $end_range,
>inclusive."; last; }
> elsif ($iterate == $end_range)
> { print "$number is not within a range of $begin_range to $end_range,
>inclusive."; }
> }
What if we have "$number = 5.1;" instead? :-)
- Logan
------------------------------
Date: Mon, 18 Sep 2000 07:50:28 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Using range operator
Message-Id: <39C62BB4.8EDB16ED@stomp.stomp.tokyo>
Logan Shaw wrote:
> Godzilla wrote:
> >This is a simple numerical range check with
> >three input arguments represented by $number,
> >which represents a number to compare to a range
> >and, $begin_range and $end_range, which sets
> >an inclusive numerical range.
> >$number = 5;
> >$begin_range = 0;
> >$end_range = 10;
> What if we have "$number = 5.1;" instead? :-)
What do you mean "we" Ofni Lakna?
What if The Christmas Grinch seduces
Mrs. Claus and they run off to Jamaica?
What if Santa Claus becomes tristful and
stops making toys for Christmas?
What if one of Santa's elves goes schizoid
and secretly makes corks for toy cork pop
guns using nitroglycerin laced C-4 plastic
explosive embedded with thumb tacks?
WHAT IF! WHAT IF! WHAT IF! WHAT IF!
$number = 5.1;
$number =~ s/\.//g;
Range, 50 to 60
jeeesshh... you Perl 5 Cargo Cultist
Obsessive Techno-Geeksters have zero
imagination. No wonder none of you
write programs. Anything beyond your
one line weenie code and WHAT IF!, most
likely causes your brains to explode.
Godzilla!
--
Dr. Kiralynne Schilitubi ¦ Cooling Fan Specialist
UofD: University of Duh! ¦ ENIAC Hard Wiring Pro
BumScrew, South of Egypt ¦ HTML Programming Class
------------------------------
Date: Mon, 18 Sep 2000 19:32:30 +0700
From: "Lucisferre" <lucisferre@email.com>
Subject: Re: which the best scripting language?
Message-Id: <39c6dc13.0@news.cbn.net.id>
> > best scripting language?
>
> I use both and am really a beginner in both but I have found both to be
dead
> easy to learn. Perl I learned first and was impressed with it's speed in
> comparison to bourne shell which I had used up until then for all
scripting
> tasks in the interest of standardising). I now make scripting in Perl a
> priority mainly because of the speed and the lack of a problem if a script
> is a daemon - I find sh eventually fails to fork if left runnning too long
> but that may be a platform bug rather than a bug with sh itself.
first thanks for the respond, i'm completely newbie in perl. Because now I'm
learning in security field, I think is good to learn one of major scripting
language to support my field, but in your opinion is perl really worth for
that? or I just have to stay with standard platform shell scripting?
Thanks
rgd. lf
------------------------------
Date: Mon, 18 Sep 2000 19:37:21 +0700
From: "Lucisferre" <lucisferre@email.com>
Subject: Re: which the best scripting language?
Message-Id: <39c6dc40.0@news.cbn.net.id>
Jon Bell <jtbell@presby.edu> wrote in message news:G11Crw.F4C@presby.edu...
> In article <39c4847e.0@news.cbn.net.id>,
> Lucisferre <lucisferre@email.com> wrote:
> >You think which is the best scripting language?
>
> Best for what?
for supporting network security, you think what is the advantage ?
Thanks
rgd. lf
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 4358
**************************************
