[18727] in Perl-Users-Digest
Perl-Users Digest, Issue: 895 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 14 11:06:49 2001
Date: Mon, 14 May 2001 08:05:06 -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: <989852706-v10-i895@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 14 May 2001 Volume: 10 Number: 895
Today's topics:
Re: [OT] Software Engineering at 14 (was: Re: Beginner' <reply-via@my-web-site.com>
Re: Delete on NET::FTP no@spam.com
Re: Delete on NET::FTP no@spam.com
Re: getting creation time/date of a file (Randal L. Schwartz)
Re: HELP: loading a hash of anon subs from file... (Anno Siegel)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
ODBC for AIX 4.2 b1wingo@aol.com
Probably a simple question... <Ask@For-It.Com>
Re: Probably a simple question... <joe+usenet@sunstarsys.com>
Re: sorting (Dave Bailey)
Re: sorting (Dave Bailey)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Taint (Tad McClellan)
Re: Taint (Gwyn Judd)
Re: Taint <joe+usenet@sunstarsys.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 14 May 2001 16:41:56 +0200
From: "Biep @ http://www.biep.org/" <reply-via@my-web-site.com>
Subject: Re: [OT] Software Engineering at 14 (was: Re: Beginner's Language?)
Message-Id: <9doqnm$j6rp4$1@ID-63952.news.dfncis.de>
The main point is not to forbid anybody to do something, but to forbid them
to stay into a corner and never look beyond, I think.
--
Biep
Reply via http://www.biep.org
"Herman Rubin" <hrubin@odds.stat.purdue.edu> wrote in message
news:9dokod$2d46@odds.stat.purdue.edu...
> In article <wrPL6.26841$482.125255@newsfeeds.bigpond.com>,
> Gregory Toomey <gtoomey@usa.net> wrote:
> >"Biep @ http://www.biep.org/" <reply-via@my-web-site.com> wrote in
message
> >news:9do8ad$imtpa$1@ID-63952.news.dfncis.de...
> >> "FM" <danfm@dartmouth.edu> wrote in message
> >> news:9dk70r$4gv$1@merrimack.Dartmouth.EDU...
>
>
> ...............
>
> >Mrs Smith took her son Johnny to the music teacher.
>
> >"My son Johnny is 14 and has been studying muic for 5 years. Do you
think he
> >is old enough to write a piano concerto", said Mrs Smith.
> >"Well, that's a very young age to write such a complex work", said the
music
> >teacher.
> >"But Mozart wrote an opera at ago 10", said Mrs Smth.
> >"Ah!! But he didn't have to ask", said the music teacher.
>
> He didn't have to ask, BUT he had already been greatly
> encouraged. If there were those who would argue that he
> was too young, they had at least been kept from interfering.
>
> An "educational system" which even HINTS that someone
> can be "too young" for such accomplishments is an abomination.
>
>
>
> --
> This address is for information only. I do not claim that these views
> are those of the Statistics Department or of Purdue University.
> Herman Rubin, Dept. of Statistics, Purdue Univ., West Lafayette
IN47907-1399
> hrubin@stat.purdue.edu Phone: (765)494-6054 FAX: (765)494-0558
------------------------------
Date: 11 May 2001 10:44:06 GMT
From: no@spam.com
Subject: Re: Delete on NET::FTP
Message-Id: <9dgfpm$69a$1@news.netmar.com>
Eric Bohlman (ebohlman@omsdev.com):
> This is probably your problem; if you arrive here, the regex in your
> previous if statement *must* have failed (since if it succeeded, you'd
> have next'd out), and therefore $1 won't be set to the last letter of the
> *current* filename; it will be set to the last letter of the last filename
> that "shouldn't have been touched."
> You should never, I mean *never*, use the $n variables in a context where
> you don't know if the last regex match with capturing parens succeeded.
Thanks, I can't believe I frogot that. My code now reads...
if($filename!~/^\w{8}\.(\w)$/) # Something we shouldn't touch?
{
&write_log("| [$filename] doesn't match, leaving on FTP
site.",0);
next;
}
if($filename!~/[PE]$/) # Something we know is useless?
{
[etc...]
But the other problems still remain!
It's perl5 (5.0 patchlevel 5 subversion 3).
I'm also logging in through a proxy server... Check Point FireWall-1, but
apart
from a few more details in the USER and PASS strings while logging in
everything should be the same.
Any other ideas are greatly appreciated.
Cheers,
Dan.
----- Posted via NewsOne.Net: Free (anonymous) Usenet News via the Web -----
http://newsone.net/ -- Free reading and anonymous posting to 60,000+ groups
NewsOne.Net prohibits users from posting spam. If this or other posts
made through NewsOne.Net violate posting guidelines, email abuse@newsone.net
------------------------------
Date: 11 May 2001 11:45:31 GMT
From: no@spam.com
Subject: Re: Delete on NET::FTP
Message-Id: <9dgjcr$7tp$1@news.netmar.com>
Having said all that, I've discovered the problem, I forgot to close the
port
to NLST after reading all the data. But it's still timing out after 300
seconds
even though I'm doing things like deleting files, any help for that one is
welcome.
Cheers.
----- Posted via NewsOne.Net: Free (anonymous) Usenet News via the Web -----
http://newsone.net/ -- Free reading and anonymous posting to 60,000+ groups
NewsOne.Net prohibits users from posting spam. If this or other posts
made through NewsOne.Net violate posting guidelines, email abuse@newsone.net
------------------------------
Date: 14 May 2001 06:33:46 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: getting creation time/date of a file
Message-Id: <m1ae4gxdfp.fsf@halfdome.holdit.com>
>>>>> "Andre" == Andre Bonhote <andre.bonhote@linux.ch> writes:
Andre> i'd like to get the creation time and date of a file or directory.
On Unix, you can't. The Unix creators argued (rightfully, I think)
that "creation" time for a file is meaningless. So, they recorded
only the "data-change" time (mtime), "data-access" time (atime), and
the "data-or-meta-change" time (ctime).
What's the question to which you've answered "well, I need to know the
file's creation time. how do I get that?"? Because that's the
question you'll need to answer a different way.
print "Just another Perl hacker,";
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 14 May 2001 13:27:34 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: HELP: loading a hash of anon subs from file...
Message-Id: <9domg6$1tk$4@mamenchi.zrz.TU-Berlin.DE>
According to James freeman <jfreeman@tassie.net.au>:
> Bruno Boettcher wrote:
>
> > hello!
> >
> > i am in the progress of writing an irc bot in perl, since it has to
> > answer to a lot of triggers, i put the triggers into a hash with
> > references to anon subroutines, like this:
> >
> > 'PART' => sub
> > {
> > my $sLine = shift;
> > $sLine =~ s/:(.*)$/$1/;
> > ... and some more code ....
> > },
> >
> > 'JOIN' => sub
> > {
> > ... even more code ...
> > }
> >
> > and then in the event loop i make :
> > if ($reactions->{$commandtag})
> > {
> > &{$reactions->{$commandtag}}( $sLine, $sGtmp );
> > }
> >
> > now this works fine, but now i thought, that it would be nice to have
> > those triggers outside of the main file. That way i would be able to
> > modify the behaviour of the bot without needing to restart it, only
> > issue a reload command ...
> >
> > so i put all the lines of the hash into a ':' separated file. Loaded
> > that file into the hash, but when i try to use the subs, i get the
> > following error: Can't use string ("sub { SendServer( 'PRIVMSG '.$se")
> > as a subroutine ref while "strict refs" in use at ./zebot.pl line 398,
> > <GEN1> line 34.
>
> Although the entire message is difficult to decipher in the context of the code
> you have posted the basic problem is the "strict refs" part. Under strict you
> may only use hard references. You are trying to access the sub via a symbolic
> ref, thus the error. You might try either of the following:
>
> no strict;
> no strict 'refs';
No, that isn't the problem, and releasing ref strictures won't help.
He is trying to use the *code* of the (anonymous) sub as a subref,
or rather, Perl does as a desperate measure when it doesn't find
a hard coderef. A symref can only reference named subs and would have
to be a string that contains the name.
[snip]
Anno
PS: Your sig is probably interesting, but for a sig it's just a
bit large. Four lines are the norm.
------------------------------
Date: Mon, 14 May 2001 14:51:30 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <tfvs7irmn9n758@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 07 May 2001 15:59:52 GMT and ending at
14 May 2001 14:01:41 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) 2001 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 129 (40.8% of all posters)
Articles: 196 (17.4% of all articles)
Volume generated: 309.8 kb (15.2% of total volume)
- headers: 156.2 kb (3,125 lines)
- bodies: 148.7 kb (4,910 lines)
- original: 102.4 kb (3,610 lines)
- signatures: 4.7 kb (95 lines)
Original Content Rating: 0.689
Averages
========
Posts per poster: 1.5
median: 1 post
mode: 1 post - 98 posters
s: 1.5 posts
Message size: 1618.7 bytes
- header: 816.1 bytes (15.9 lines)
- body: 777.1 bytes (25.1 lines)
- original: 535.1 bytes (18.4 lines)
- signature: 24.4 bytes (0.5 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
9 14.1 ( 7.3/ 6.8/ 3.7) "Dave" <djm@spamfree.mcoe.k12.ca.us>
7 17.0 ( 7.2/ 9.2/ 6.6) Ilmari Karonen <usenet11455@itz.pp.sci.fi>
6 7.7 ( 5.0/ 2.7/ 1.3) "Jürgen Exner" <jurgenex@hotmail.com>
5 5.6 ( 4.0/ 1.6/ 0.6) "Zlach" <zlach@yahoo.com>
5 10.6 ( 4.9/ 5.1/ 0.7) "Richard Stands" <rstands@hotmail.com>
5 8.1 ( 4.0/ 4.2/ 2.1) R.S. <rastacey@roadrunner.nf.net>
4 7.2 ( 3.1/ 4.1/ 1.4) "nutcracker" <nutcracker@no-spam.org>
4 5.2 ( 2.9/ 1.9/ 0.7) .sig-news
3 5.3 ( 2.7/ 2.7/ 0.7) Vishwanath Sen <vsen@interrainc.com>
3 5.8 ( 2.0/ 3.8/ 3.0) Zoltan Kandi <kz15@MailAndNews.com>
These posters accounted for 4.5% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
17.0 ( 7.2/ 9.2/ 6.6) 7 Ilmari Karonen <usenet11455@itz.pp.sci.fi>
14.1 ( 7.3/ 6.8/ 3.7) 9 "Dave" <djm@spamfree.mcoe.k12.ca.us>
10.6 ( 4.9/ 5.1/ 0.7) 5 "Richard Stands" <rstands@hotmail.com>
8.1 ( 4.0/ 4.2/ 2.1) 5 R.S. <rastacey@roadrunner.nf.net>
7.7 ( 5.0/ 2.7/ 1.3) 6 "Jürgen Exner" <jurgenex@hotmail.com>
7.2 ( 3.1/ 4.1/ 1.4) 4 "nutcracker" <nutcracker@no-spam.org>
6.9 ( 2.9/ 4.0/ 3.4) 3 Brent Stroh <bmstroh@cavtel.net>
6.6 ( 3.9/ 2.7/ 2.3) 3 "Biep @ http://www.biep.org/" <reply-via@my-web-site.com>
6.6 ( 1.0/ 5.3/ 4.2) 2 Kenneth Knight <krk@speakeasy.org>
6.0 ( 2.0/ 4.0/ 1.1) 2 amnuts@talker.com
These posters accounted for 4.4% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.858 ( 3.4 / 4.0) 3 Brent Stroh <bmstroh@cavtel.net>
0.855 ( 1.2 / 1.4) 3 194.203.215.187
0.835 ( 2.3 / 2.7) 3 "Biep @ http://www.biep.org/" <reply-via@my-web-site.com>
0.779 ( 3.0 / 3.8) 3 Zoltan Kandi <kz15@MailAndNews.com>
0.716 ( 6.6 / 9.2) 7 Ilmari Karonen <usenet11455@itz.pp.sci.fi>
0.542 ( 3.7 / 6.8) 9 "Dave" <djm@spamfree.mcoe.k12.ca.us>
0.503 ( 2.1 / 4.2) 5 R.S. <rastacey@roadrunner.nf.net>
0.472 ( 1.3 / 2.7) 6 "Jürgen Exner" <jurgenex@hotmail.com>
0.416 ( 0.6 / 1.6) 5 "Zlach" <zlach@yahoo.com>
0.406 ( 0.5 / 1.2) 3 root <root@root.com>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.542 ( 3.7 / 6.8) 9 "Dave" <djm@spamfree.mcoe.k12.ca.us>
0.503 ( 2.1 / 4.2) 5 R.S. <rastacey@roadrunner.nf.net>
0.472 ( 1.3 / 2.7) 6 "Jürgen Exner" <jurgenex@hotmail.com>
0.416 ( 0.6 / 1.6) 5 "Zlach" <zlach@yahoo.com>
0.406 ( 0.5 / 1.2) 3 root <root@root.com>
0.384 ( 0.7 / 1.9) 4 .sig-news
0.342 ( 1.4 / 4.1) 4 "nutcracker" <nutcracker@no-spam.org>
0.319 ( 0.7 / 2.1) 3 "gdp" <giles.pepper@brunel.ac.uk>
0.274 ( 0.7 / 2.7) 3 Vishwanath Sen <vsen@interrainc.com>
0.137 ( 0.7 / 5.1) 5 "Richard Stands" <rstands@hotmail.com>
15 posters (11%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
22 alt.perl
21 alt.comp.perlcgi.freelance
14 comp.lang.perl
13 comp.lang.perl.modules
9 alt.perl.sockets
9 pl.comp.lang.perl
8 comp.infosystems.www.authoring.html
7 microsoft.public.htmlhelp
7 comp.lang.javscript
7 alt.html
Top 10 Crossposters
===================
Articles Address
-------- -------
21 "Biep @ http://www.biep.org/" <reply-via@my-web-site.com>
7 Andrew Cooke <andrew@andrewcooke.free-online.co.uk>
7 =?iso-8859-1?Q?Torbj=F6rn?= Lager <lager@ling.gu.se>
5 jlcooke <jlcooke@engsoc.carleton.ca>
4 myriad@RemoveThis.club-internet.fr
4 "grasshopper" <grasshopper99[no-spam]@hotmail.com>
4 fairlite@fairlite.com
4 "Prévost Christophe" <hayden@club-internet.fr>
4 "--==[bMan]==--" <bman@bolek.com>
4 Andrew Clover <andrew@white.oaktree.co.uk>
------------------------------
Date: 11 May 2001 15:01:34 GMT
From: b1wingo@aol.com
Subject: ODBC for AIX 4.2
Message-Id: <9dguse$h0h$1@news.netmar.com>
Was wondering if someone could help me out here. I am able to get
the DBD:ODBC (28) to compile fine with GCC on AIX 4.2. When I go
and run "make test" I get the following errors.
PERL_DL_NONLAZY=1 /bin/perl -Iblib/arch -Iblib/lib -I/usr/local/lib/perl
5/5.6.0/aix -I/usr/local/lib/perl5/5.6.0 -e 'use Test::Harness qw(&runtests
$ver
bose); $verbose=0; runtests @ARGV;' t/*.t
t/01base............install_driver(ODBC) failed: Can't load
'blib/arch/auto/DBD/
ODBC/ODBC.so' for module DBD::ODBC: dlopen: blib/arch/auto/DBD/ODBC/ODBC.so:
bad
exec format in /usr/lib/libdl.acan't load library libdl.a at
/usr/local/lib/per
l5/5.6.0/aix/DynaLoader.pm line 200.
at (eval 1) line 3
Compilation failed in require at (eval 1) line 3.
Perhaps a required shared library or dll isn't installed where expected
at t/01base.t line 14
I am running perl 5.6.0
----- Posted via NewsOne.Net: Free (anonymous) Usenet News via the Web -----
http://newsone.net/ -- Free reading and anonymous posting to 60,000+ groups
NewsOne.Net prohibits users from posting spam. If this or other posts
made through NewsOne.Net violate posting guidelines, email abuse@newsone.net
------------------------------
Date: Mon, 14 May 2001 14:59:30 +0100
From: "Robb Meade" <Ask@For-It.Com>
Subject: Probably a simple question...
Message-Id: <9doo8u$pae$1@newsg4.svr.pol.co.uk>
Hi all,
I have little to no knowledge of Perl, but I have managed, with a little
help from this NG a few weeks back to get together just a little bit of code
for a mailing list system...
My only problem I have now is trying to build up a link within the code...
This is the line I have... :
my $link="www.kingswoodweb.net/boomshankers/mailing-sub.asp" & "?" & "name="
& $name & "&" & "surname=" & $surname & "&" & "email=" & $to;
so, when I put that in the main body of the email when it arrives in my
inbox it should read something like :
www.kingswoodweb.net/boomshankers/mailing-sub.asp?name=Robb&surname=Meade&em
ail=webmaster@kingswoodweb.net
Unfortunately - it isnt working...
Everything else is - but the $link is just blank in my emails?
Does the something & something & something not work in Perl as it does in
ASP??
Any help appreciated...
--
Robb Meade
Kingswood Web Services
www.kingswoodweb.net
------------------------------
Date: 14 May 2001 10:31:11 -0400
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: Probably a simple question...
Message-Id: <m3ae4g2ea8.fsf@mumonkan.sunstarsys.com>
"Robb Meade" <Ask@For-It.Com> writes:
[...]
> This is the line I have... :
>
> my $link="www.kingswoodweb.net/boomshankers/mailing-sub.asp" & "?" & "name="
> & $name & "&" & "surname=" & $surname & "&" & "email=" & $to;
[...]
> Unfortunately - it isnt working...
[...]
> Any help appreciated...
.
Joe Schaefer
--
Quintessential Williams: whiteboard dot-com interfaces
------------------------------
Date: 14 May 2001 13:28:30 GMT
From: dave@sydney.daveb.net (Dave Bailey)
Subject: Re: sorting
Message-Id: <slrn9fvd43.n5n.dave@sydney.daveb.net>
On Mon, 14 May 2001 01:17:20 -0700, Peter White
<hpya78@postoffice.pacbell.net> wrote:
>Hello:
>How to computes the standard deviation for the middle 60% of the scores?
>
>FILE:
>Peter 60 80 62
>Tom 99 50 36
>Mary 50 75 20
>
>#!/user/bin/perl -w
>
>$stddev=StandardDevation("fn.txt");
>
>sub StandDeviation
If you post code, you should cut and paste it to avoid typos, like so:
#!/usr/bin/perl -w
use strict;
die "I need a filename" unless @ARGV;
print stddev(middle(0.6,scores(lines($ARGV[0])))),"\n";
sub scores {my @s;map{push(@s,grep/^\d+$/,split/\s+/)}@_;sort{$a<=>$b}@s}
sub lines {split"\n",slurp(shift)}
sub slurp {local$/;open F,shift or return undef;my $f=<F>;close F;$f}
sub stddev {($#_)?rstd(@_):0}
sub rstd {my($s,$q)=(mean(@_),0);map{my $d=$s-$_;$q+=$d*$d}@_;sqrt($q/$#_)}
sub mean {sum(@_)/(1+$#_)}
sub sum {my $s;map{$s+=$_}@_;$s}
sub middle {my($f,@a)=@_;my $l=int($f*(1+$#a));splice(@a,$l/2,$l)}
__END__
--
Dave Bailey
davidb54@yahoo.com
------------------------------
Date: 14 May 2001 14:05:08 GMT
From: dave@sydney.daveb.net (Dave Bailey)
Subject: Re: sorting
Message-Id: <slrn9fvf8q.nff.dave@sydney.daveb.net>
On 14 May 2001 13:28:30 GMT, Dave Bailey <dave@sydney.daveb.net> wrote:
>On Mon, 14 May 2001 01:17:20 -0700, Peter White
><hpya78@postoffice.pacbell.net> wrote:
>>Hello:
>>How to computes the standard deviation for the middle 60% of the scores?
[...]
>#!/usr/bin/perl -w
>
>use strict;
>
>die "I need a filename" unless @ARGV;
>print stddev(middle(0.6,scores(lines($ARGV[0])))),"\n";
>
>sub scores {my @s;map{push(@s,grep/^\d+$/,split/\s+/)}@_;sort{$a<=>$b}@s}
>sub lines {split"\n",slurp(shift)}
>sub slurp {local$/;open F,shift or return undef;my $f=<F>;close F;$f}
>sub stddev {($#_)?rstd(@_):0}
>sub rstd {my($s,$q)=(mean(@_),0);map{my $d=$s-$_;$q+=$d*$d}@_;sqrt($q/$#_)}
>sub mean {sum(@_)/(1+$#_)}
>sub sum {my $s;map{$s+=$_}@_;$s}
>sub middle {my($f,@a)=@_;my $l=int($f*(1+$#a));splice(@a,$l/2,$l)}
Oops, I made a mistake. The line above should read:
sub middle {my($f,@a)=@_;my $l=1+int((1-$f)*(1+$#a));splice(@a,$l>>1,$#_-$l)}
--
Dave Bailey
davidb54@yahoo.com
------------------------------
Date: Mon, 14 May 2001 14:51:20 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <tfvs784i7i4j51@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 07 May 2001 15:59:52 GMT and ending at
14 May 2001 14:01:41 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) 2001 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
faq\@(?:.*\.)?denver\.pm\.org
Totals
======
Posters: 316
Articles: 1127 (474 with cutlined signatures)
Threads: 254
Volume generated: 2044.0 kb
- headers: 942.4 kb (18,076 lines)
- bodies: 1036.5 kb (34,130 lines)
- original: 646.8 kb (23,515 lines)
- signatures: 64.0 kb (1,526 lines)
Original Content Rating: 0.624
Averages
========
Posts per poster: 3.6
median: 1.0 post
mode: 1 post - 177 posters
s: 6.7 posts
Posts per thread: 4.4
median: 3.0 posts
mode: 1 post - 69 threads
s: 6.7 posts
Message size: 1857.2 bytes
- header: 856.2 bytes (16.0 lines)
- body: 941.8 bytes (30.3 lines)
- original: 587.7 bytes (20.9 lines)
- signature: 58.1 bytes (1.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
49 124.5 ( 43.9/ 78.7/ 56.7) "Godzilla!" <godzilla@stomp.stomp.tokyo>
43 80.4 ( 33.9/ 46.4/ 20.6) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
39 65.6 ( 30.5/ 32.1/ 18.5) nobull@mail.com
37 56.5 ( 33.9/ 22.3/ 11.2) Bart Lateur <bart.lateur@skynet.be>
29 41.4 ( 17.1/ 20.2/ 11.9) Craig Berry <cberry@cinenet.net>
26 61.8 ( 25.5/ 32.0/ 26.9) abigail@foad.org
25 53.5 ( 23.4/ 29.4/ 19.4) Ren Maddox <ren@tivoli.com>
25 45.2 ( 22.9/ 18.0/ 12.4) "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.li>
24 38.9 ( 24.6/ 14.2/ 5.9) "Todd Smith" <todd@designsouth.net>
20 35.2 ( 18.1/ 13.6/ 5.3) eins@durchnull.de
These posters accounted for 28.1% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
124.5 ( 43.9/ 78.7/ 56.7) 49 "Godzilla!" <godzilla@stomp.stomp.tokyo>
80.4 ( 33.9/ 46.4/ 20.6) 43 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
65.6 ( 30.5/ 32.1/ 18.5) 39 nobull@mail.com
61.8 ( 25.5/ 32.0/ 26.9) 26 abigail@foad.org
56.5 ( 33.9/ 22.3/ 11.2) 37 Bart Lateur <bart.lateur@skynet.be>
53.5 ( 23.4/ 29.4/ 19.4) 25 Ren Maddox <ren@tivoli.com>
47.1 ( 13.0/ 32.5/ 24.4) 12 tadmc@augustmail.com
45.2 ( 22.9/ 18.0/ 12.4) 25 "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.li>
41.4 ( 17.1/ 20.2/ 11.9) 29 Craig Berry <cberry@cinenet.net>
38.9 ( 24.6/ 14.2/ 5.9) 24 "Todd Smith" <todd@designsouth.net>
These posters accounted for 30.1% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.952 ( 4.9 / 5.1) 7 xris <xris@dont.send.spam>
0.947 ( 5.7 / 6.0) 7 Marshall Dudley <mdudley@execonn.com>
0.843 ( 26.9 / 32.0) 26 abigail@foad.org
0.772 ( 10.9 / 14.2) 16 "Alan J. Flavell" <flavell@mail.cern.ch>
0.753 ( 6.9 / 9.2) 12 Mark Jason Dominus <mjd@plover.com>
0.748 ( 24.4 / 32.5) 12 tadmc@augustmail.com
0.730 ( 4.2 / 5.7) 6 David H. Adler <dha@panix2.panix.com>
0.720 ( 56.7 / 78.7) 49 "Godzilla!" <godzilla@stomp.stomp.tokyo>
0.716 ( 6.6 / 9.2) 7 Ilmari Karonen <usenet11455@itz.pp.sci.fi>
0.700 ( 10.8 / 15.5) 18 "Dodger" <dodger@necrosoft.net>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.423 ( 2.5 / 5.8) 8 "Mario Rizzuti" <diab.lito@usa.net>
0.416 ( 0.6 / 1.6) 5 "Zlach" <zlach@yahoo.com>
0.416 ( 5.9 / 14.2) 24 "Todd Smith" <todd@designsouth.net>
0.402 ( 1.5 / 3.8) 7 "flash" <bop@mypad.com>
0.395 ( 1.3 / 3.3) 5 Gwyn Judd <tjla@guvfybir.qlaqaf.bet>
0.392 ( 5.3 / 13.6) 20 eins@durchnull.de
0.389 ( 5.1 / 13.2) 12 Benjamin Goldberg <goldbb2@earthlink.net>
0.331 ( 5.7 / 17.3) 8 Andras Malatinszky <andras@mortgagestats.com>
0.305 ( 2.3 / 7.7) 9 "John W. Krahn" <krahnj@acm.org>
0.137 ( 0.7 / 5.1) 5 "Richard Stands" <rstands@hotmail.com>
55 posters (17%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
48 Local Time
37 if ($x in @a) equivalent in perl?
36 Sort String
27 weird error on @array syntax
25 1 billion seconds bug
23 Javascript or Perl ?
21 Taint
19 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.1 $)
16 CGI=HASH(0x176ef80) Help Please!
15 Cabal Guidelines for comp.lang.perl.misc ($Revision: 1.1 $)
These threads accounted for 23.7% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
94.3 ( 52.3/ 39.3/ 25.5) 48 Local Time
82.4 ( 33.2/ 46.7/ 29.6) 37 if ($x in @a) equivalent in perl?
72.5 ( 17.4/ 53.8/ 32.8) 19 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.1 $)
54.3 ( 28.8/ 21.1/ 10.7) 36 Sort String
49.2 ( 21.5/ 25.6/ 16.0) 27 weird error on @array syntax
40.6 ( 20.8/ 17.7/ 8.8) 25 1 billion seconds bug
35.3 ( 18.3/ 14.8/ 9.5) 23 Javascript or Perl ?
35.2 ( 14.9/ 19.4/ 11.5) 15 Cabal Guidelines for comp.lang.perl.misc ($Revision: 1.1 $)
33.6 ( 9.0/ 24.0/ 17.3) 10 Base 6 sieve.
33.3 ( 18.9/ 13.5/ 7.8) 21 Taint
These threads accounted for 26.0% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.908 ( 4.9/ 5.4) 7 Forcing default filename
0.831 ( 3.4/ 4.1) 6 criteria for bulit-in functions
0.829 ( 5.1/ 6.2) 5 Req. for help: need biometric guniea pigs
0.773 ( 1.5/ 1.9) 6 Seeking a PERL Tutorial
0.756 ( 7.0/ 9.2) 8 regex for html links
0.750 ( 9.6/ 12.8) 11 Prices for work?
0.746 ( 1.7/ 2.2) 6 how can I insert into a open file
0.738 ( 4.1/ 5.5) 6 forking and variable references
0.736 ( 5.2/ 7.0) 10 AND-connected search
0.734 ( 4.0/ 5.5) 7 random numbers
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.482 ( 5.6 / 11.6) 16 CGI=HASH(0x176ef80) Help Please!
0.476 ( 1.3 / 2.7) 6 how to set binary mode when uploading a file
0.475 ( 2.6 / 5.6) 7 Write to file
0.447 ( 1.5 / 3.4) 5 basic TRUE / FALSE
0.441 ( 2.5 / 5.7) 10 difference of arrays ??
0.436 ( 2.3 / 5.2) 6 Reading from empty file handle OR from a pipe
0.410 ( 1.7 / 4.3) 6 R: Price for work?
0.395 ( 2.3 / 5.9) 6 problem with perlapp (PDK 2.1)
0.375 ( 1.6 / 4.2) 6 Good editor for perl Use Scite !
0.352 ( 0.9 / 2.7) 5 Search ...
73 threads (28%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
22 alt.perl
21 alt.comp.perlcgi.freelance
14 comp.lang.perl
13 comp.lang.perl.modules
9 alt.perl.sockets
9 pl.comp.lang.perl
8 comp.infosystems.www.authoring.html
7 microsoft.public.htmlhelp
7 comp.lang.javscript
7 alt.html
Top 10 Crossposters
===================
Articles Address
-------- -------
21 "Biep @ http://www.biep.org/" <reply-via@my-web-site.com>
19 Marshall Dudley <mdudley@execonn.com>
14 "Super-Simon" <simon@super-simon.com>
7 =?iso-8859-1?Q?Torbj=F6rn?= Lager <lager@ling.gu.se>
7 Andrew Cooke <andrew@andrewcooke.free-online.co.uk>
6 "Dodger" <dodger@necrosoft.net>
6 "PaAnWa" <paanwa@hotmail.com>
5 jlcooke <jlcooke@engsoc.carleton.ca>
4 "--==[bMan]==--" <bman@bolek.com>
4 fairlite@fairlite.com
------------------------------
Date: Mon, 14 May 2001 08:22:26 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Taint
Message-Id: <slrn9fvjg2.fne.tadmc@tadmc26.august.net>
Uri Guttman <uri@sysarch.com> wrote:
>>>>>> "D" == Dodger <dodger@necrosoft.net> writes:
>
> D> "Uri Guttman" <uri@sysarch.com> wrote in message
> D> news:x7pudd9i61.fsf@home.sysarch.com...
>
> >> <the sound of dodger hitting killfiles all over the world>
>
> D> Perfect. And for everyone who responded likewise, I'll do the same for you
> D> all.
Sign me up please!
> D> It's best we don't communicate, or even know one another exist,
Your face will look funny with the nose cut off.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 14 May 2001 13:18:00 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Taint
Message-Id: <slrn9fvmna.2gt.tjla@thislove.dyndns.org>
"Mein Lufkissenfahrzeug ist voller Aale"
said Dodger (dodger@necrosoft.net) in
<80QL6.2257$F46.546455@news1.rdc2.pa.home.com>:
>However, if you copy $ENV{PATH} to a variable $oldpath after cleaning it,
>then delete $ENV{PATH} to avoid specific PATH problems, then call system
>"/bin/echo '$oldpath'" it will print what is (no longer) the script's PATH
>environment variable.
[gwyn@thislove:~]$ perl -wT
$oldpath = $ENV{PATH};
delete $ENV{PATH};
system "/bin/echo '$oldpath'";
Insecure $ENV{ENV} while running with -T switch at - line 4.
I think you need to rethink your strategy. Maybe you don't really need
Taint mode for whatever it is you do. Maybe you should do your
Taint-needed stuff in one process and the "safe" stuff in another. Maybe
you should grow up a little and not feel so hard done by when people
point out errors in your programs. It happens around here. A lot. To
everyone. You either be adult about it, learn from it and don't make
that mistake again, or you start to look like a fool and a troll, both
of which you are doing right now.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
Technological progress has merely provided us with more efficient means
for going backwards.
-- Aldous Huxley
------------------------------
Date: 14 May 2001 10:03:26 -0400
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: Taint
Message-Id: <m3elts2fkh.fsf@mumonkan.sunstarsys.com>
"Dodger" <dodger@necrosoft.net> writes:
> "brian d foy" <comdog@panix.com> wrote in message
> news:comdog-43D99A.15333313052001@news.panix.com...
> > In article <QzAL6.135$F46.31439@news1.rdc2.pa.home.com>, "Dodger"
> > <dodger@necrosoft.net> wrote:
> > > Yes, it does. It's not necessarily secure, but it won't raise taint
> errors.
> >
> > oh really?
> >
> > brian[1]$ cat taint
> > #!/usr/bin/perl -Tw
> >
> > $ENV{PATH} =~ s/^(.*)$/$1/;
> >
> > system 'echo $PATH';
> >
> > __END__
> >
> > brian[2]$ ./taint
> > Insecure $ENV{PATH} while running with -T switch at ./taint line 5.
>
> Just because the path contains an inherently insecure item, doesn't make the
> code any less viable. The string found in $ENV{PATH} is not tainted.
Nonsense.
% perl -MDevel::Peek -wTe '$ENV{ENV}=~s/^(.*)$/$1/; Dump($ENV{ENV})'
SV = PVMG(0x8159578) at 0x815af0c
REFCNT = 1
FLAGS = (GMG,SMG,RMG,pPOK)
IV = 0
NV = 0
PV = 0x815f370 "/home/joe/.bashrc"\0
CUR = 17
LEN = 18
MAGIC = 0x815f388
MG_VIRTUAL = &PL_vtbl_mglob
MG_TYPE = 'g'
MG_LEN = -1
MAGIC = 0x815c7f8
MG_VIRTUAL = &PL_vtbl_envelem
MG_TYPE = 'e'
MG_LEN = 3
MG_PTR = 0x815c818 "ENV"
MAGIC = 0x815c7d8
MG_VIRTUAL = &PL_vtbl_taint
MG_TYPE = 't'
MG_LEN = 1
This indicates that $ENV{ENV}="/home/joe/.bashrc", and it remains
a tainted variable (MG_VITRUAL = &PL_vtbl_taint) after passing through
your substitution.
> What that equates to, however (for instance, containing something
> interpolated by the shell, like '.' or '~') may still keep PATH from
> being secure.
No it does not. You cannot alter a string's taintedness via s///.
Period.
> However, if you copy $ENV{PATH} to a variable $oldpath after cleaning it,
> then delete $ENV{PATH} to avoid specific PATH problems, then call system
> "/bin/echo '$oldpath'" it will print what is (no longer) the script's PATH
> environment variable.
Again you are at odds with reality:
% perl -wTe '$ENV{PATH}=~s/^(.*)$/$1/; $_=$ENV{PATH};
undef %ENV; `/bin/echo $_`'
Insecure dependency in `` while running with -T switch at -e line 2.
>
> Now, as far as 'being at odds with' documented behaviour goes, here goes:
>
> perldoc perlsec ...
>
> "...But testing for taintedness gets you only so far. Sometimes you have
> just to clear your data's taintedness. The only way to bypass the tainting
> mechanism is by referencing subpatterns from a regular expression match.
> Perl presumes that if you reference a substring using $1, $2, etc., that you
> knew what you were doing when you wrote the pattern..."
>
There is absolutely no mention of using s/// to detaint a variable, and
there is no example in perlsec that uses s/// for this. The examples
point to the fact that $1... are *always* (sans perl bugs) untainted
variable, and the only way to remove a variable's taintedness is to *set*
it equal to an untainted variable:
sub blindly_untaint ($) { $_[0] =~ /^(.*)$/s or die; $_[0] = $1 }
> It goes on to point out that blindly untainting data is a good idea, and I
> did not conflict with that -- my example was specifically to untaint data
> when you didn't need Taint mode anymore.
ITYM "blindly untainting data is *not* a good idea"; nevertheless your
"example" does nothing of the kind.
> Now, which part of that paragraph doesn't anyone understand?
>
> > > Do not ever flame me again.
> >
> > considered yourself flamed again. if you post untested code and
> > insist on being at odds with documented behaviour, you will get
> > flamed.
>
> Oh, but here's what's really good -- do you see me saying anywhere IN THIS
> THREAD that the code I posted was untested? Guess why there's no such
> disclaimer...
>
> Because it's not untested.
>
> BZZT. Thank you for playing.
I think it is time to post your test code and output. If your perl
behaves as you say it does, it is surely broken.
Joe Schaefer
--
Quintessential Williams: benchmark visionary action-items
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.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 V10 Issue 895
**************************************
