[13019] in Perl-Users-Digest
Perl-Users Digest, Issue: 429 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 9 11:17:30 1999
Date: Mon, 9 Aug 1999 08:10:13 -0700 (PDT)
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, 9 Aug 1999 Volume: 9 Number: 429
Today's topics:
Re: Nicer Way <admin@gatewaysolutions.net>
Re: Nicer Way (Abigail)
Re: Nicer Way (Anno Siegel)
NT Perl script archives <yoss@yossarin.co.uk>
Re: Perl 4/BSD Question: Small Files not being created (I R A Darth Aggie)
Perl in a chroot'ed environment (BoB Miorelli)
Re: Perl in a chroot'ed environment (Mike Bristow)
Perl windows admin question. <ptomsic@pitt.edu>
Re: Perl windows admin question. (Anno Siegel)
Re: Quick Question :) (Abigail)
Re: Quick Question :) (Anno Siegel)
Return Value from "system" call rick_bindview@my-deja.com
Re: Return Value from "system" call (Anno Siegel)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Where to find help other than perldoc and books. (Abigail)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 9 Aug 1999 07:13:12 -0500
From: "Scott Beck" <admin@gatewaysolutions.net>
Subject: Re: Nicer Way
Message-Id: <rqthaalckur71@corp.supernews.com>
Cut-n-past of the code here gives the following error
---------- Perl ----------
syntax error at test.cgi line 61, near "file:"
BEGIN not safe after errors--compilation aborted at test1.cgi line 115.
I replaced
join "" => map {eval join "+" => split file://}
with
join "" => map {eval join "+" => split qw(file://)}
I ran this at the 1 iteration that you have here and
all the output came with the tag
(warning: too few iterations for a reliable count)
So I increased the iterations to 10_000
and here is the output
Benchmark: timing 10000 iterations of Abigail1, Abigail2, Abigail3,
Abigail3a, Abigail4, Abigail4a, Anno, Larry, Scott, Scott_a...
Abigail1: 4 wallclock secs ( 4.27 usr + 0.04 sys = 4.31 CPU)
Abigail2: 2 wallclock secs ( 1.48 usr + 0.01 sys = 1.49 CPU)
Abigail3: 1 wallclock secs ( 1.36 usr + 0.00 sys = 1.36 CPU)
Abigail3a: 1 wallclock secs ( 1.10 usr + 0.02 sys = 1.12 CPU)
Abigail4: 2 wallclock secs ( 1.72 usr + 0.01 sys = 1.73 CPU)
Abigail4a: 1 wallclock secs ( 0.34 usr + 0.01 sys = 0.35 CPU)
(warning: too few iterations for a reliable count)
Anno: 0 wallclock secs ( 0.44 usr + 0.00 sys = 0.44 CPU)
Larry: 2 wallclock secs ( 1.59 usr + 0.03 sys = 1.62 CPU)
Scott: 1 wallclock secs ( 1.67 usr + 0.00 sys = 1.67 CPU)
Scott_a: 0 wallclock secs ( 1.30 usr + 0.02 sys = 1.32 CPU)
--
Scott Beck
admin@gatewaysolutions.net
www.gatewaysolutions.net
Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote in message
news:7oktl6$js8$1@lublin.zrz.tu-berlin.de...
> Abigail <abigail@delanet.com> wrote in comp.lang.perl.misc:
>
> [...]
>
> >Ok, ok, Mr. Benchmark, I'm waiting for a full Benchmark report of all
> >proposed solutions .... ;-)
>
> Well, here it is.
>
> Those solutions that use a translation table have been benchmarked
> twice, once as presented, i.e. building the table on the fly, and
> once with the table generation factored out. The latter ones are
> marked by an a-suffix. This optimization has catapulted one of
> Abigail's solutions from less-than-average performance to the winning
> position. The close second is my own solution, which uses a
> combination of pack and ord instead of a table.
>
> The other solutions form a rather continuous spectrum ranging in time
> consumption between about 70% to 100% of Scott's original proposition.
> It may come as a small surprise, that Scott's original code, while
> certainly not pretty, ranges second in this middle field, again after
> table generation had been delegated to compile time. Oh, and then
> there's Abigail's one-liner. I shall be silent about that.
>
> Here's the complete table ordered by performance. Code and original
> output follow below.
>
> Abigail4a: 1 wallclock secs ( 1.18 usr + 0.00 sys = 1.18 CPU) 25%
> Anno: 2 wallclock secs ( 1.37 usr + 0.00 sys = 1.37 CPU) 29%
> Abigail3a: 4 wallclock secs ( 3.25 usr + 0.00 sys = 3.25 CPU) 69%
> Scott_a: 4 wallclock secs ( 3.70 usr + 0.01 sys = 3.71 CPU) 78%
> Abigail3: 4 wallclock secs ( 3.85 usr + 0.00 sys = 3.85 CPU) 81%
> Abigail2: 5 wallclock secs ( 4.48 usr + 0.00 sys = 4.48 CPU) 95%
> Larry: 5 wallclock secs ( 4.62 usr + 0.00 sys = 4.62 CPU) 87%
> Abigail4: 5 wallclock secs ( 4.73 usr + 0.00 sys = 4.73 CPU) 100%
> Scott: 5 wallclock secs ( 4.74 usr + 0.00 sys = 4.74 CPU) 100%
> Abigail1: 17 wallclock secs (15.83 usr + 0.00 sys = 15.83 CPU) 334%
>
>
> Anno
>
>
> #!/usr/bin/perl -w
> use strict;
>
> use Benchmark;
>
> timethese( 1 << ( shift || 0 ), {
> 'Scott' => "Scott('rwxr-xr-x')",
> 'Scott_a' => "Scott_a('rwxr-xr-x')",
> 'Larry' => "Larry('rwxr-xr-x')",
> 'Abigail1' => "Abigail1('rwxr-xr-x')",
> 'Abigail2' => "Abigail2('rwxr-xr-x')",
> 'Abigail3' => "Abigail3('rwxr-xr-x')",
> 'Abigail3a' => "Abigail3a('rwxr-xr-x')",
> 'Abigail4' => "Abigail4('rwxr-xr-x')",
> 'Abigail4a' => "Abigail4a('rwxr-xr-x')",
> 'Anno' => "Anno('rwxr-xr-x')",
> });
>
> #####################################################################
>
> # This is the original proposition
>
> sub Scott {
> my $chmod = shift;
> my %ch= (r=>4, w=>2, x=>1, '-' =>0);
> # $chmod =~ s/\-/k/g;
> $chmod =~
> s/(.)(.)(.)(.)(.)(.)(.)(.)(.)/$ch{$1}+$ch{$2}+$ch{$3}.
> $ch{$4}+$ch{$5}+$ch{$6 }.$ch{$7}+$ch{$8}+$ch{$9}/e;
> $chmod;
> }
>
> # And here's the original solution without table generation
>
> use vars '%ch';
> BEGIN {
> %ch= (r=>4, w=>2, x=>1, '-' =>0);
> }
> sub Scott_a {
> my $chmod = shift;
> $chmod =~
> s/(.)(.)(.)(.)(.)(.)(.)(.)(.)/$ch{$1}+$ch{$2}+$ch{$3}.
> $ch{$4}+$ch{$5}+$ch{$6 }.$ch{$7}+$ch{$8}+$ch{$9}/e;
> $chmod;
> }
>
> # Larry's immediate improvement
>
> sub Larry {
> my $chmod = shift;
> ($_ = $chmod) =~ tr/rwx-/4210/;
> $chmod = '';
> $chmod .= $1 + $2 + $3 while /(.)(.)(.)/g;
> $chmod;
> }
>
> # Abigail frots it all in one statement (no s/// at all here)
>
> sub Abigail1 {
> my $chmod = shift;
> join "" => map {eval join "+" => split file://}
> grep {length} split /(...)/ => do {$chmod =~ y.rwx-.4210.; $chmod};
> }
>
> # This might as well have been called Larry2, but Larry attributes it
> # to Abigail.
>
> sub Abigail2 {
> my $chmod = shift;
> $chmod =~ tr/rwx-/4210/;
> $chmod =~ s/(.)(.)(.)/$1 + $2 + $3/eg;
> $chmod;
> }
>
> # Using pack and ord:
>
> sub Anno {
> my $chmod = shift;
> $chmod =~ tr/rwx-/1110/;
> $chmod =~ s/(...)/ord pack 'b3', $1/ge;
> $chmod;
> }
>
> # Abigail using the original translation table
>
> sub Abigail3 {
> my $chmod = shift;
> my %ch = (r=>4, w=>2, x=>1, '-'=>0);
> $chmod =~ s/(.)(.)(.)/$ch{$1}+$ch{$2}+$ch{$3}/eg;
> $chmod;
> }
>
> # The same, but the generation of the translation table factored out
>
> sub Abigail3a {
> my $chmod = shift;
> $chmod =~ s/(.)(.)(.)/$ch{$1}+$ch{$2}+$ch{$3}/eg;
> $chmod;
> }
>
> # This one doesn't need the /e modifier. Instead it builds a more
> # comprehensive translation table.
>
> sub Abigail4 {
> my $chmod = shift;
> my %chmod =
> do {my $i; map {$_ => $i ++} qw /--- --x -w- -wx r-- r-x rw- rwx/};
> $chmod =~ s/(...)/$chmod{$1}/g;
> $chmod;
> }
>
> # Abigail4 suffers most from building the translation table each time.
> # Here's a variant that builds it only once.
>
> use vars '%chmod';
> BEGIN {
> %chmod = do {my $i; map {$_ => $i ++} qw /--- --x -w- -wx r-- r-x rw-
rwx/};
> }
> sub Abigail4a {
> my $chmod = shift;
> $chmod =~ s/(...)/$chmod{$1}/g;
> $chmod;
> }
> __END__
>
> Abigail1: 17 wallclock secs (15.83 usr + 0.00 sys = 15.83 CPU)
> Abigail2: 5 wallclock secs ( 4.48 usr + 0.00 sys = 4.48 CPU)
> Abigail3: 4 wallclock secs ( 3.85 usr + 0.00 sys = 3.85 CPU)
> Abigail3a: 4 wallclock secs ( 3.25 usr + 0.00 sys = 3.25 CPU)
> Abigail4: 5 wallclock secs ( 4.73 usr + 0.00 sys = 4.73 CPU)
> Abigail4a: 1 wallclock secs ( 1.18 usr + 0.00 sys = 1.18 CPU)
> Anno: 2 wallclock secs ( 1.37 usr + 0.00 sys = 1.37 CPU)
> Larry: 5 wallclock secs ( 4.62 usr + 0.00 sys = 4.62 CPU)
> Scott: 5 wallclock secs ( 4.74 usr + 0.00 sys = 4.74 CPU)
> Scott_a: 4 wallclock secs ( 3.70 usr + 0.01 sys = 3.71 CPU)
------------------------------
Date: 9 Aug 1999 08:04:28 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Nicer Way
Message-Id: <slrn7qtked.acl.abigail@alexandra.delanet.com>
Scott Beck (admin@gatewaysolutions.net) wrote on MMCLXIX September
MCMXCIII in <URL:news:rqthaalckur71@corp.supernews.com>:
[] Cut-n-past of the code here gives the following error
[] ---------- Perl ----------
[] syntax error at test.cgi line 61, near "file:"
[] BEGIN not safe after errors--compilation aborted at test1.cgi line 115.
[]
[] I replaced
[] join "" => map {eval join "+" => split file://}
[] with
[] join "" => map {eval join "+" => split qw(file://)}
There must be something seriously wrong with your newsreader. In Anno's
posting, there's no "split file://". There must be something wrong with
your understanding of the program as well; how on earth can you think that
"split qw(file://)" makes any sense in this context? It should be "split //",
and that's what's in Anno's posting. Not everything that has two slashes
in a row is a URL, you know.
[] I ran this at the 1 iteration that you have here and
[] all the output came with the tag
[] (warning: too few iterations for a reliable count)
Anno didn't. We don't know how many iterations he did, but it was a
power of two. You seem to have misunderstood the line
1 << (shift || 0)
Abigail
--
perl -MNet::Dict -we '(Net::Dict -> new (server => "dict.org")
-> define ("foldoc", "perl")) [0] -> print'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 9 Aug 1999 13:15:23 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Nicer Way
Message-Id: <7omk9b$l2m$1@lublin.zrz.tu-berlin.de>
Scott Beck <admin@gatewaysolutions.net> wrote in comp.lang.perl.misc:
>Cut-n-past of the code here gives the following error
>---------- Perl ----------
>syntax error at test.cgi line 61, near "file:"
>BEGIN not safe after errors--compilation aborted at test1.cgi line 115.
I have no idea how "file:" got in your text. It is not in the code
I posted.
>I replaced
> join "" => map {eval join "+" => split file://}
>with
> join "" => map {eval join "+" => split qw(file://)}
Did you test the solution after that "correction"? I didn't but
it certainly did not do what it was intended to.
>I ran this at the 1 iteration that you have here and
>all the output came with the tag
>(warning: too few iterations for a reliable count)
Sure. I think I did 4096 iterations, not one.
[more benchmarks snipped]
Anno
------------------------------
Date: Mon, 9 Aug 1999 14:56:04 +0100
From: "Yossarin" <yoss@yossarin.co.uk>
Subject: NT Perl script archives
Message-Id: <O7Br3.2573$Yu4.96560@news2-hme0.mcmail.com>
Hello,
I have recently swapped ovet to an NT host and m provider only supports .pl
files. I have tried a simple MailForm from matts script archive but it
requires a path to a mail program.
I phoned up my host and they said simply because I was asking that question
I was using a Unix script and not an NT script. They said I needed to get
hold of an NT specifiic version of scripts.
This doesn't sound right to me, but I am new at this so if any one knows of
any NT perl script archives I would appreciate it.
Thanks
Yoss
------------------------------
Date: 9 Aug 1999 13:28:23 GMT
From: fl_aggie@thepentagon.com (I R A Darth Aggie)
Subject: Re: Perl 4/BSD Question: Small Files not being created, no error messages either..
Message-Id: <slrn7qtlvp.vjt.fl_aggie@thepentagon.com>
On Sun, 08 Aug 1999 16:06:05 -0700, Mike Bourdaa
<bNoOuSrPdAaMa@earthlink.net>, in <37AE0D5D.FABDDE6B@earthlink.net>
wrote:
+ When I did so, I came from a heavy C background, so this may be part of
+ my problem (Bad, C, bad!) Unfortunately, the ISP that we use does not
+ have Perl 5 installed, so I'm stuck using 4, and the program has been
+ devised using 4.. which has meant a lot of headaches with security
+ issues in the beginning.
Tell 'em there are security issues with that version of perl.
James
------------------------------
Date: 9 Aug 1999 13:47:04 GMT
From: miorelli@pweh.com (BoB Miorelli)
Subject: Perl in a chroot'ed environment
Message-Id: <7omm4o$kdh$1@barbican.eh.pweh.com>
Perl 5.005_02 on Solaris 2.6
I'm running perl in a chroot'ed environment and all works (so far)
except the 'glob' command.
This works in a shell:
perl -e 'glob"*";'
But, when chroot'ed I get:
internal error: glob failed at -e line 1.
What does perl use to perform a glob so that I may place it in
the chroot'ed environment?
Thanks.
--
-->BoB Miorelli, Pratt & Whitney
miorelli@pratt-whitney.com
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
In theory, theory and practice are the same;
in practice they are distinct.
------------------------------
Date: Mon, 09 Aug 1999 14:44:29 GMT
From: mike@fat.dotat.at (Mike Bristow)
Subject: Re: Perl in a chroot'ed environment
Message-Id: <slrn7qtqad.5v7.mike@lindt.fat.dotat.at>
On 9 Aug 1999 13:47:04 GMT, BoB Miorelli <miorelli@pweh.com> wrote:
>What does perl use to perform a glob so that I may place it in
>the chroot'ed environment?
truss -f perl -e 'glob"*";'
[snip]
10813: pipe() = 3 [4]
10813: fork() = 10814
10814: fork() (returning as child ...) = 10813
10814: close(3) = 0
10814: fcntl(4, F_DUP2FD, 0x00000001) = 1
10814: close(4) = 0
10814: execve("/bin/sh", 0xEFFFF3B8, 0xEFFFF95C) argc = 3
Looks like /bin/sh to me, guv. But Read the source to be sure.
--
Mike Bristow, Geek-At-Large. GK/RT0038
one tequila - two tequila - three tequila - FLOOR !!!
------------------------------
Date: Mon, 9 Aug 1999 09:38:43 -0400
From: "Tomsic, Paul" <ptomsic@pitt.edu>
Subject: Perl windows admin question.
Message-Id: <7omljv$d5p$1@usenet01.srv.cis.pitt.edu>
Is there a way to access the Directory Security (permissions) and modify
them using Perl.
I've got about 200 directories that I need to set permissions on and was
looking for a way to access the directory permissions using Perl
Any help greatly appreciated.
Thanks
-Paul
------------------------------
Date: 9 Aug 1999 14:46:57 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Perl windows admin question.
Message-Id: <7ompl1$lc5$1@lublin.zrz.tu-berlin.de>
Tomsic, Paul <ptomsic@pitt.edu> wrote in comp.lang.perl.misc:
>Is there a way to access the Directory Security (permissions) and modify
>them using Perl.
>I've got about 200 directories that I need to set permissions on and was
>looking for a way to access the directory permissions using Perl
>Any help greatly appreciated.
perldoc -f chmod and, probably, perldoc File::Find
Anno
------------------------------
Date: 9 Aug 1999 08:22:42 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Quick Question :)
Message-Id: <slrn7qtlgk.acl.abigail@alexandra.delanet.com>
Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMCLXIX September
MCMXCIII in <URL:news:7omdos$ksm$1@lublin.zrz.tu-berlin.de>:
!!
!! Another thread dear and near to me suggests the required conversions
!! are, for three digit binaries:
!!
!! $num = ord pack 'b3', $bin; $bin = unpack 'b3', chr $num;
While not faster, this should work too, and it doesn't require you
to figure out how many digits you need:
%t = map {$_ => $i ++} qw /000 001 010 011 100 101 110 111/;
$bin = 0 x (3 - length ($bin) % 3) . $bin if length ($bin) % 3;
$bin =~ s/(...)/$t{$1}/g;
$num = oct $bin;
@t = qw /000 001 010 011 100 101 110 111/;
$bin = sprintf "%o" => $num;
$bin =~ s/./$t[$1]/g;
$bin =~ s/^0+//;
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 9 Aug 1999 14:42:47 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Quick Question :)
Message-Id: <7ompd7$lal$1@lublin.zrz.tu-berlin.de>
Abigail <abigail@delanet.com> wrote in comp.lang.perl.misc:
>Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMCLXIX September
>MCMXCIII in <URL:news:7omdos$ksm$1@lublin.zrz.tu-berlin.de>:
>!!
>!! Another thread dear and near to me suggests the required conversions
>!! are, for three digit binaries:
>!!
>!! $num = ord pack 'b3', $bin; $bin = unpack 'b3', chr $num;
>
>While not faster, this should work too, and it doesn't require you
>to figure out how many digits you need:
Well, I guess it can be made adaptable to up to 8 bits.
> %t = map {$_ => $i ++} qw /000 001 010 011 100 101 110 111/;
> $bin = 0 x (3 - length ($bin) % 3) . $bin if length ($bin) % 3;
> $bin =~ s/(...)/$t{$1}/g;
> $num = oct $bin;
>
> @t = qw /000 001 010 011 100 101 110 111/;
> $bin = sprintf "%o" => $num;
> $bin =~ s/./$t[$1]/g;
^^^
$bin =~ s/(.)/$t[$1]/g;
^^^^
> $bin =~ s/^0+//;
Ingenious.
Anno
------------------------------
Date: Mon, 09 Aug 1999 13:06:31 GMT
From: rick_bindview@my-deja.com
Subject: Return Value from "system" call
Message-Id: <7omjog$c08$1@nnrp1.deja.com>
How can I get the value that was returned from the executable I called
using system? All I seem to get is what "wait" is returning 128 not the
number I was looking for. Can anyone help?
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 9 Aug 1999 13:24:11 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Return Value from "system" call
Message-Id: <7omkpr$l4i$1@lublin.zrz.tu-berlin.de>
<rick_bindview@my-deja.com> wrote in comp.lang.perl.misc:
>How can I get the value that was returned from the executable I called
>using system? All I seem to get is what "wait" is returning 128 not the
>number I was looking for. Can anyone help?
See perldoc perlop, in particular the qx and backtick operators.
Anno
------------------------------
Date: 9 Aug 1999 14:10:59 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <7omnhj$ebe$1@info2.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 02 Aug 1999 14:06:44 GMT and ending at
09 Aug 1999 06:41:32 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) 1999 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: 579
Articles: 2239 (991 with cutlined signatures)
Threads: 527
Volume generated: 3968.1 kb
- headers: 1763.7 kb (34,928 lines)
- bodies: 2018.9 kb (63,492 lines)
- original: 1378.7 kb (46,527 lines)
- signatures: 183.3 kb (3,898 lines)
Original Content Rating: 0.683
Averages
========
Posts per poster: 3.9
median: 1 post
mode: 1 post - 336 posters
s: 11.0 posts
Posts per thread: 4.2
median: 3 posts
mode: 2 posts - 118 threads
s: 5.3 posts
Message size: 1814.8 bytes
- header: 806.6 bytes (15.6 lines)
- body: 923.3 bytes (28.4 lines)
- original: 630.5 bytes (20.8 lines)
- signature: 83.8 bytes (1.7 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
130 316.3 (148.5/112.3/104.9) abigail@delanet.com
112 251.6 ( 90.9/146.9/124.1) tchrist@mox.perl.com (Tom Christiansen)
112 205.8 ( 72.7/120.3/ 67.7) lr@hpl.hp.com (Larry Rosler)
76 143.7 ( 62.7/ 75.4/ 46.1) David Cassell <cassell@mail.cor.epa.gov>
63 95.7 ( 41.5/ 54.1/ 29.5) anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
56 91.0 ( 53.4/ 30.3/ 19.9) Tom Phoenix <rootbeer@redcat.com>
51 72.1 ( 35.3/ 36.5/ 33.9) fl_aggie@thepentagon.com
42 66.9 ( 33.8/ 31.5/ 19.5) elephant@squirrelgroup.com (elephant)
41 89.7 ( 35.3/ 38.9/ 16.9) Uri Guttman <uri@sysarch.com>
40 57.8 ( 33.0/ 24.8/ 13.9) bart.lateur@skynet.be (Bart Lateur)
These posters accounted for 32.3% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
316.3 (148.5/112.3/104.9) 130 abigail@delanet.com
251.6 ( 90.9/146.9/124.1) 112 tchrist@mox.perl.com (Tom Christiansen)
205.8 ( 72.7/120.3/ 67.7) 112 lr@hpl.hp.com (Larry Rosler)
143.7 ( 62.7/ 75.4/ 46.1) 76 David Cassell <cassell@mail.cor.epa.gov>
95.7 ( 41.5/ 54.1/ 29.5) 63 anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
91.0 ( 53.4/ 30.3/ 19.9) 56 Tom Phoenix <rootbeer@redcat.com>
89.7 ( 35.3/ 38.9/ 16.9) 41 Uri Guttman <uri@sysarch.com>
72.1 ( 35.3/ 36.5/ 33.9) 51 fl_aggie@thepentagon.com
67.6 ( 27.9/ 32.5/ 22.0) 35 mgjv@comdyn.com.au (Martien Verbruggen)
66.9 ( 33.8/ 31.5/ 19.5) 42 elephant@squirrelgroup.com (elephant)
These posters accounted for 35.3% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 3.2 / 3.2) 5 hads6307@my-deja.com
1.000 ( 4.5 / 4.5) 7 "Scott" <codeman@gol.com>
0.979 ( 3.0 / 3.1) 6 Samay <anonymous@web.remarq.com>
0.934 (104.9 /112.3) 130 abigail@delanet.com
0.927 ( 33.9 / 36.5) 51 fl_aggie@thepentagon.com
0.859 ( 10.6 / 12.3) 11 moseley@best.com (Bill Moseley)
0.845 (124.1 /146.9) 112 tchrist@mox.perl.com (Tom Christiansen)
0.842 ( 3.6 / 4.3) 5 sine2117@my-deja.com
0.824 ( 1.5 / 1.8) 5 mwang@tech.cicg.ml.com (Michael Wang)
0.814 ( 4.3 / 5.3) 5 damian@cs.monash.edu.au (Damian Conway)
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.461 ( 1.2 / 2.6) 5 "rezn8" <saxbourne@yahoo.com>
0.443 ( 5.9 / 13.4) 27 Tom Briles <sariq@texas.net>
0.434 ( 16.9 / 38.9) 41 Uri Guttman <uri@sysarch.com>
0.373 ( 1.1 / 2.8) 9 revjack <revjack@radix.net>
0.344 ( 3.5 / 10.1) 6 "99% Energy" <Spam@IsBadForTheInternet.com>
0.330 ( 3.6 / 11.0) 5 llornkcor@my-deja.com
0.273 ( 1.1 / 3.9) 5 Richard H <rhrh@hotmail.com>
0.271 ( 3.8 / 14.1) 14 "Ben Quick" <newsgroup@bigwig.net>
0.252 ( 1.9 / 7.3) 8 stirling@banet.net
0.200 ( 0.7 / 3.7) 5 Biju Abraham <biju.abraham@ebay.sun.com>
79 posters (13%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
66 Nastiness contrary to the spirit of perl?
47 [offtopic]RE:Quot St and the Jeop Gm
41 Why is it....
33 I guess this is a Misc question: Cgi-bin
28 a time to kill
22 Autovivification?
20 How can I know what modules are installed on server?
20 Problem reading forms with perl
18 Where to find help other than perldoc and books.
17 Working Telnet Script Needed
These threads accounted for 13.9% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
149.9 ( 52.8/ 93.3/ 62.4) 66 Nastiness contrary to the spirit of perl?
88.9 ( 40.8/ 45.0/ 26.7) 47 [offtopic]RE:Quot St and the Jeop Gm
77.6 ( 30.3/ 43.5/ 28.4) 41 Why is it....
59.7 ( 31.2/ 27.3/ 13.1) 33 I guess this is a Misc question: Cgi-bin
58.2 ( 13.0/ 43.5/ 35.9) 16 Why is it.... [REPOST]
55.1 ( 16.1/ 35.4/ 24.5) 18 Where to find help other than perldoc and books.
50.3 ( 4.4/ 45.1/ 44.4) 5 How to uninstall Perl on Unix ?
49.1 ( 24.3/ 21.5/ 16.0) 28 a time to kill
41.2 ( 0.8/ 40.4/ 22.8) 1 SPGroveBuilder Perl Module
41.0 ( 17.1/ 22.4/ 15.6) 20 Problem reading forms with perl
These threads accounted for 16.9% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.985 ( 44.4/ 45.1) 5 How to uninstall Perl on Unix ?
0.973 ( 11.4/ 11.7) 9 Quoting Strategies and the Jeopardy Game
0.868 ( 2.8/ 3.2) 5 arrays in perl
0.867 ( 4.6/ 5.3) 5 sendmail
0.864 ( 4.3/ 5.0) 5 *Yet another* Net::FTP question
0.826 ( 35.9/ 43.5) 16 Why is it.... [REPOST]
0.824 ( 2.1/ 2.6) 5 String
0.824 ( 2.5/ 3.1) 5 IMPORTANT: "19$year"
0.813 ( 2.0/ 2.4) 5 Stopping output
0.812 ( 6.5/ 8.0) 9 Getting Info
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.441 ( 2.7 / 6.1) 8 split array with \n?
0.437 ( 0.8 / 1.8) 6 Warning! The eclipse approaches... {6.8p}
0.435 ( 2.5 / 5.8) 5 Strange STDOUT on script, any ideas?
0.435 ( 1.6 / 3.7) 5 System call in Win NT, AS Build 518
0.430 ( 1.5 / 3.6) 6 Possible to get a HTML file from somewhere and use it as string?
0.412 ( 2.2 / 5.2) 8 how to check if scalar is blank?
0.394 ( 4.0 / 10.2) 5 How to compare two files and get the differences ?
0.394 ( 0.7 / 1.9) 5 modem dialingL HOWTO.
0.313 ( 4.5 / 14.4) 15 Newbie question about $_
0.231 ( 2.5 / 10.7) 8 why are you so harsh to this guy ?
153 threads (29%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
18 comp.lang.perl.modules
13 alt.prophecies.nostradamus
13 alt.prophecies.cayce
10 uk.railway
9 rec.crafts.textiles.marketplace
9 alt.sports.baseball.ny-mets
8 alt.politics.clinton
7 comp.unix.shell
7 alt.perl
6 rec.sport.table-soccer
Top 10 Crossposters
===================
Articles Address
-------- -------
14 "Rob*" <Vinkrob@cable.a2000.nl>
14 "Santa Is My Father" <anthony@creaker.demon.co.uk>
14 msherry71@aol.com (M SHERRY71)
14 sal7@aol.com (Sal7)
14 fran71482@aol.com (Fran71482)
14 jgreen8301@aol.comedian (JGreen8301)
12 "Michael Connell" <mconnell@lineone.net>
8 David Cassell <cassell@mail.cor.epa.gov>
6 lr@hpl.hp.com (Larry Rosler)
6 Jack & Megan <55009@[127.0.0.1]>
------------------------------
Date: 9 Aug 1999 08:12:19 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Where to find help other than perldoc and books.
Message-Id: <slrn7qtkt4.acl.abigail@alexandra.delanet.com>
Bart Lateur (bart.lateur@skynet.be) wrote on MMCLXIX September MCMXCIII
in <URL:news:37b0beef.13449979@news.skynet.be>:
-- Abigail wrote:
--
-- >I very seldomly write programs of the form:
-- >
-- > sub1;
-- > sub2;
-- > sub3;
-- > sub4;
-- > exit;
-- >
-- >What's the point?
-- >
--
-- Because you can easily
--
-- - swap two blocks
-- - repeat blocks, perhaps with different parameters.
-- - test sections of the program independently of each other.
We are talking about a *linear* program. That's the premises. Swapping
two blocks, repeating blocks and testing blocks independently is totally
out of the question.
-- It clearly shows you the layout of the program flow, but you'd better
-- use mainingful names.
Fine. I'd spell out "the_first_sub_with_a_meaningful_name",
"the_second_sub_with_a_meaningful_name",
"yet_another_sub_with_a_meaningful_name" and
"the_very_last_sub_with_a_meaningful_name" next time, as both you and
Uri think you can somehow pluck meaningful names out of thin air.
The five lines above are a frigging *EXAMPLE* of a *NON-EXISTING PROGRAM*.
Care to come up with meaningful names for that?
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
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 V9 Issue 429
*************************************
