[24813] in Perl-Users-Digest
Perl-Users Digest, Issue: 6966 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 6 11:06:17 2004
Date: Mon, 6 Sep 2004 08:05:05 -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, 6 Sep 2004 Volume: 10 Number: 6966
Today's topics:
Re: Burned using the .. operator <Joe.Smith@inwap.com>
Re: Desparate, tired programmer -- bug in perl5.6.1/apa <Joe.Smith@inwap.com>
Re: Dynamic hash names (Anno Siegel)
Re: Dynamic hash names (Anno Siegel)
Re: Handling and recursing subdirectories (Kloudnyne)
Re: net::ftp errors <Joe.Smith@inwap.com>
Object Oriented Perl : Query <thens@NOSPAMti.com>
Re: Object Oriented Perl : Query (Anno Siegel)
POD and =encoding ... <Paul.Gaborit@invalid.invalid>
redirect incoming data to port 21 with perl (saeed)
Re: redirect incoming data to port 21 with perl <zebee@zip.com.au>
Re: Sorting "string" numerical keys from a hash. <Joe.Smith@inwap.com>
Statistics for comp.lang.perl.misc <gbacon@hiwaay.net>
Re: Update multiple lines in a flat file from array <Joe.Smith@inwap.com>
Re: Xah Lee's Unixism <firstname@lastname.pr1v.n0>
Re: Xah Lee's Unixism <firstname@lastname.pr1v.n0>
Re: Xah Lee's Unixism jmfbahciv@aol.com
Re: Xah Lee's Unixism jmfbahciv@aol.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 06 Sep 2004 05:03:17 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: Burned using the .. operator
Message-Id: <pcS_c.113621$9d6.76631@attbi_s54>
J. Romano wrote:
>> print "True" if /BEGIN/ .. /END/;
>> print "True" if /BEGIN/;
>
> That's part of my point. They certainly look different, but they
> behave the same WHEN TYPED INTO THE DEBUGGER.
You mean, they act differently when one of them is a string eval().
> #!/usr/bin/perl -w
> use strict;
> $| = 1; # autoflush
use vars qw($temp);
> while (<DATA>)
> {
> last if m/^__END__$/;
>
> print "At line $.: $_";
>
> if (m/BEGIN/ .. m/END/) # set breakpoint here (line 11)
> {
> print ".. operator returned true\n";
> }
eval '$temp = m/BEGIN/ .. m/END/';
print "eval() returned '$temp'\n";
> }
>
> __DATA__
> 1
> 2
> 3 BEGIN
> 4
> 5
> 6 END
> 7
> 8
> 9
> __END__
The .. operator when executed by a string eval (which the debugger does)
does not keep state in the same way that the .. operator does when it
is part of a compiled statement.
-Joe
------------------------------
Date: Mon, 06 Sep 2004 04:48:02 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: Desparate, tired programmer -- bug in perl5.6.1/apache1.3.31 ?
Message-Id: <6_R_c.113510$9d6.61579@attbi_s54>
Ryan Saunders wrote:
>bug in perl5.6.1/apache1.3.31 ?
No, it's not a bug. It's related to the reason why a process running
as userid "nobody" is not allowed to write to locations like /home/rls.
-Joe
------------------------------
Date: 6 Sep 2004 09:19:24 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Dynamic hash names
Message-Id: <chha2s$mce$1@mamenchi.zrz.TU-Berlin.DE>
Scott Bryce <sbryce@scottbryce.com> wrote in comp.lang.perl.misc:
> Eric Bohlman wrote:
>
> > "yusufdestina" <joericochuyt@msn.com> wrote in
>
> >> for ($i=0; $i< $count; $i++){
> >
> >
> > Most Perl programmers would prefer
> >
> > foreach my $i (0..$count) {
> >
> > to a C-style loop in circumstances like this.
>
> I think they would prefer
>
> foreach my $i (0..$count - 1) {
>
> to avoid looping one time too many.
looking back at the OPs code
$count = scalar(@files);
for ($i=0; $i< $count; $i++){
and noting that $count is used nowhere else, the line should really
be
foreach my $i ( 0 .. $#files ) {
Anno
------------------------------
Date: 6 Sep 2004 09:28:36 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Dynamic hash names
Message-Id: <chhak4$mce$3@mamenchi.zrz.TU-Berlin.DE>
Scott Bryce <sbryce@scottbryce.com> wrote in comp.lang.perl.misc:
> yusufdestina wrote:
> > Tnx a lot m8, I'm going to buy some books :)
>
> English is not the first language for many of the regulars here. It is
> best to use correct English if you want to be understood.
Speaking for some of us (regulars whose first language isn't English),
we understand it fine, but dislike the cutesiness as much as the
next guy.
Anno
------------------------------
Date: 6 Sep 2004 00:47:55 -0700
From: obvious_pseudonym@hotmail.com (Kloudnyne)
Subject: Re: Handling and recursing subdirectories
Message-Id: <503acee3.0409052347.1ce92ca3@posting.google.com>
Joe Smith <Joe.Smith@inwap.com> wrote in message news:<P84_c.96904$9d6.59001@attbi_s54>...
<snip>
Thanks for your help. I apologise again for my blatantly obvious noobness.
------------------------------
Date: Mon, 06 Sep 2004 05:17:02 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: net::ftp errors
Message-Id: <ipS_c.113708$9d6.55628@attbi_s54>
Shailesh Humbad wrote:
> I wish there was a neat, indexed, free Windows help file for
> Perl documentation.
Why don't you use the one that gets installed on your PC?
Start -> Programs -> ActiveState ActivePerl 5.8 -> Documentation
-Joe
------------------------------
Date: Mon, 6 Sep 2004 17:54:36 +0530
From: Thens <thens@NOSPAMti.com>
Subject: Object Oriented Perl : Query
Message-Id: <20040906175436.32d95abf@asiclindt001>
I have a base class called as Weapon and I have derived classes 'Gun'
and 'RocketLauncher'. I need to instantiate Gun or RocketLauncher
based on a parameter say distance from the target. If the distance is
less than 20m I need a gun and if it is more I will need a
RocketLauncher.
This is my attempt at a Perl code that does this. Is this the right
way to do this. Any pointers will be of help.
#! /usr/local/bin/perl -w
package Weapon;
use strict;
sub new {
my ( $self ) = @_;
my $class = ref($self) || $self;
return bless { }, $class;
}
sub hitPoints {
my ( $self ) = @_;
return $self->{hitpoints};
}
sub fire {
my ( $self, $target ) = @_;
print "Destroyed the target !! ", $self->hitPoints;
#$target->hurt($self->hitPoints);
}
package Gun;
use strict;
use base 'Weapon';
sub new {
my ( $self ) = @_;
my $class = ref($self) || $self;
$self = new Weapon();
$self->{type} = 'GUN';
$self->{hitpoints} = 10;
return $self;
}
package RocketLauncher;
use strict;
use base 'Weapon';
sub new {
my ( $self ) = @_;
my $class = ref($self) || $self;
$self = new Weapon();
$self->{type} = 'ROCKET';
$self->{hitpoints} = 100;
return $self;
}
1;
--
For this hour :
Fools ignore complexity. Pragmatists suffer it. Some can avoid it.
Geniuses remove it.
Alan Perlis
------------------------------
Date: 6 Sep 2004 13:18:39 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Object Oriented Perl : Query
Message-Id: <chho3f$35r$1@mamenchi.zrz.TU-Berlin.DE>
Thens <thens@NOSPAMti.com> wrote in comp.lang.perl.misc:
>
> I have a base class called as Weapon and I have derived classes 'Gun'
> and 'RocketLauncher'. I need to instantiate Gun or RocketLauncher
> based on a parameter say distance from the target. If the distance is
> less than 20m I need a gun and if it is more I will need a
> RocketLauncher.
>
> This is my attempt at a Perl code that does this. Is this the right
> way to do this. Any pointers will be of help.
Do what? I see no attempt to create one or the other depending on a
parameter.
I don't see any gross errors in the class setup. However, you should
switch on warnings as a matter of course. Also, storing the weapon
type in the object is not really necessary, since ref() can always tell
you that.
[code left in place for reference]
Anno
> #! /usr/local/bin/perl -w
>
> package Weapon;
>
> use strict;
>
> sub new {
> my ( $self ) = @_;
> my $class = ref($self) || $self;
> return bless { }, $class;
> }
>
> sub hitPoints {
> my ( $self ) = @_;
> return $self->{hitpoints};
> }
>
> sub fire {
> my ( $self, $target ) = @_;
> print "Destroyed the target !! ", $self->hitPoints;
> #$target->hurt($self->hitPoints);
> }
>
> package Gun;
> use strict;
> use base 'Weapon';
>
> sub new {
> my ( $self ) = @_;
> my $class = ref($self) || $self;
> $self = new Weapon();
>
> $self->{type} = 'GUN';
> $self->{hitpoints} = 10;
>
> return $self;
> }
>
>
> package RocketLauncher;
> use strict;
> use base 'Weapon';
>
> sub new {
> my ( $self ) = @_;
> my $class = ref($self) || $self;
> $self = new Weapon();
>
> $self->{type} = 'ROCKET';
> $self->{hitpoints} = 100;
> return $self;
>
> }
>
> 1;
>
>
> --
> For this hour :
> Fools ignore complexity. Pragmatists suffer it. Some can avoid it.
> Geniuses remove it.
> Alan Perlis
------------------------------
Date: Mon, 06 Sep 2004 09:49:24 +0200
From: Paul Gaborit <Paul.Gaborit@invalid.invalid>
Subject: POD and =encoding ...
Message-Id: <r7isar3khn.fsf@michelange.enstimac.fr>
In perlpodspec, I read :
"=encoding encodingname"
This command, which should occur early in the document (at least before
any non-US-ASCII data!), declares that this document is encoded in the
encoding encodingname, which must be an encoding name that Encoding
recognizes. (Encoding's list of supported encodings, in
Encoding::Supported, is useful here.) If the Pod parser cannot decode the
declared encoding, it should emit a warning and may abort parsing the
document altogether.
and, in Encode::Supported :
The MIME name as defined in IETF RFCs. This includes all "iso-"s.
Here, my little test (test-pod-encoding.pod) :
------------------------------------------------------------
=encoding iso-8859-1
=head1 NAME
test-pod-encoding - some diacritics : éàÇÑñ...
=head2 Tests
In paragraph. Some diacritics : éàÇÑñ...
In verbatim. Some diacritics : éàÇÑñ...
------------------------------------------------------------
But, using 'perldoc', I got an error :
% perldoc test-post-encoding.pod
test-post-encoding.pod:1: Unknown command paragraph "=encoding iso-8859-1"
[...]
% perldoc -V
Perldoc v3.13, under perl v5.008005 for solaris.
How can I use '=encoding ...' in POD files ?
--
Paul Gaborit - <http://www.enstimac.fr/~gaborit/>
Perl en français - <http://www.enstimac.fr/Perl/>
------------------------------
Date: 5 Sep 2004 22:16:54 -0700
From: saeed2999@yahoo.com (saeed)
Subject: redirect incoming data to port 21 with perl
Message-Id: <a43a05b0.0409052116.12064195@posting.google.com>
hello
Is there a sample .perl to redirect data to another computer or another port ?
for example, redirect all incoming data to port 21 of same system ?!?
please, link, sample, or ...
thanks
------------------------------
Date: Mon, 06 Sep 2004 05:36:51 GMT
From: Zebee Johnstone <zebee@zip.com.au>
Subject: Re: redirect incoming data to port 21 with perl
Message-Id: <slrncjntgl.7rc.zebee@zeus.zipworld.com.au>
In comp.lang.perl.misc on 5 Sep 2004 22:16:54 -0700
saeed <saeed2999@yahoo.com> wrote:
> hello
>
> Is there a sample .perl to redirect data to another computer or another port ?
> for example, redirect all incoming data to port 21 of same system ?!?
> please, link, sample, or ...
Incoming from where, and on what operating system, and to what operating
system?
And is perl rather than something like ssh or stunnel really what you
want for the job?
Zebee
------------------------------
Date: Mon, 06 Sep 2004 04:36:31 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: Sorting "string" numerical keys from a hash.
Message-Id: <iPR_c.39883$3l3.5363@attbi_s03>
Edward Wijaya wrote:
> I tried to do the sorting by the keys using this:
> foreach my $key ( sort keys %seqs_hash )
>
> or with {$seqs_hash{$a} <=> $seqs_hash{$b}}
You said you tried to sort by keys, and then write something that
sorts by values. Did you really mean to change your mind like that?
foreach my $key ( sort {$a <=> $b} keys %seqs_hash) { ... }
-Joe
------------------------------
Date: Mon, 06 Sep 2004 14:47:59 -0000
From: Greg Bacon <gbacon@hiwaay.net>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <10jou4vfbkivd0d@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 30 Aug 2004 15:49:54 GMT and ending at
06 Sep 2004 13:18:39 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) 2004 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
comdog\@panix\.com
Totals
======
Posters: 209
Articles: 628 (246 with cutlined signatures)
Threads: 107
Volume generated: 1287.7 kb
- headers: 646.3 kb (10,665 lines)
- bodies: 597.9 kb (18,617 lines)
- original: 358.9 kb (11,988 lines)
- signatures: 43.0 kb (959 lines)
Original Content Rating: 0.600
Averages
========
Posts per poster: 3.0
median: 2 posts
mode: 1 post - 99 posters
s: 3.9 posts
Posts per thread: 5.9
median: 3 posts
mode: 1 and 2 posts - 20 threads
s: 17.8 posts
Message size: 2099.7 bytes
- header: 1053.8 bytes (17.0 lines)
- body: 974.9 bytes (29.6 lines)
- original: 585.2 bytes (19.1 lines)
- signature: 70.1 bytes (1.5 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
24 75.5 ( 26.5/ 45.9/ 40.7) tadmc@augustmail.com
24 57.8 ( 27.0/ 30.7/ 10.2) jmfbahciv@aol.com
21 31.6 ( 15.7/ 15.9/ 5.6) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
19 28.2 ( 15.2/ 11.7/ 4.8) Gunnar Hjalmarsson <noreply@gunnar.cc>
17 33.7 ( 18.1/ 15.6/ 7.7) Brian McCauley <nobull@mail.com>
16 48.2 ( 28.6/ 18.8/ 15.0) Anne & Lynn Wheeler <lynn@garlic.com>
15 30.8 ( 13.9/ 16.9/ 11.3) "Jürgen Exner" <jurgenex@hotmail.com>
15 30.2 ( 14.3/ 15.9/ 8.6) "Paul Lalli" <mritty@gmail.com>
13 27.9 ( 16.7/ 10.4/ 4.4) albalmer@spamcop.net
13 17.0 ( 12.6/ 4.4/ 2.7) Joe Smith <Joe.Smith@inwap.com>
12 18.5 ( 10.5/ 8.0/ 3.8) "David K. Wall" <dwall@fastmail.fm>
10 22.0 ( 14.0/ 5.8/ 2.2) "John W. Kennedy" <jwkenne@attglobal.net>
10 29.8 ( 18.2/ 11.5/ 4.2) Rupert Pigott <roo@try-removing-this.darkboong.demon.co.uk>
8 17.8 ( 11.7/ 4.4/ 1.4) cbfalconer@worldnet.att.net
8 14.4 ( 5.8/ 8.5/ 6.0) dan baker <botfood@yahoo.com>
8 14.9 ( 5.8/ 7.8/ 5.5) Michele Dondi <bik.mido@tiscalinet.it>
8 15.0 ( 6.8/ 6.4/ 2.5) Ben Morrow <usenet@morrow.me.uk>
7 12.8 ( 7.0/ 5.4/ 2.7) "A. Sinan Unur" <1usa@llenroc.ude.invalid>
7 21.4 ( 10.9/ 10.0/ 3.7) "John Thingstad" <john.thingstad@chello.no>
7 25.6 ( 5.4/ 20.2/ 17.3) J. Romano <jl_post@hotmail.com>
These posters accounted for 41.7% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
24 57.8 ( 27.0/ 30.7/ 10.2) jmfbahciv@aol.com
22 75.5 ( 26.5/ 45.9/ 40.7) tadmc@augustmail.com
21 31.6 ( 15.7/ 15.9/ 5.6) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
19 28.2 ( 15.2/ 11.7/ 4.8) Gunnar Hjalmarsson <noreply@gunnar.cc>
17 33.7 ( 18.1/ 15.6/ 7.7) Brian McCauley <nobull@mail.com>
16 48.2 ( 28.6/ 18.8/ 15.0) Anne & Lynn Wheeler <lynn@garlic.com>
15 30.2 ( 14.3/ 15.9/ 8.6) "Paul Lalli" <mritty@gmail.com>
15 30.8 ( 13.9/ 16.9/ 11.3) "Jürgen Exner" <jurgenex@hotmail.com>
13 27.9 ( 16.7/ 10.4/ 4.4) albalmer@spamcop.net
13 17.0 ( 12.6/ 4.4/ 2.7) Joe Smith <Joe.Smith@inwap.com>
12 18.5 ( 10.5/ 8.0/ 3.8) "David K. Wall" <dwall@fastmail.fm>
10 22.0 ( 14.0/ 5.8/ 2.2) "John W. Kennedy" <jwkenne@attglobal.net>
10 29.8 ( 18.2/ 11.5/ 4.2) Rupert Pigott <roo@try-removing-this.darkboong.demon.co.uk>
8 17.8 ( 11.7/ 4.4/ 1.4) cbfalconer@worldnet.att.net
8 15.0 ( 6.8/ 6.4/ 2.5) Ben Morrow <usenet@morrow.me.uk>
7 12.8 ( 7.0/ 5.4/ 2.7) "A. Sinan Unur" <1usa@llenroc.ude.invalid>
7 14.9 ( 5.8/ 7.8/ 5.5) Michele Dondi <bik.mido@tiscalinet.it>
7 21.4 ( 10.9/ 10.0/ 3.7) "John Thingstad" <john.thingstad@chello.no>
7 16.5 ( 10.2/ 6.2/ 6.2) Rob Warnock <rpw3@rpw3.org>
6 13.9 ( 5.6/ 6.8/ 2.4) Uri Guttman <uri@stemsystems.com>
These posters accounted for 47.5% of all followups.
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
75.5 ( 26.5/ 45.9/ 40.7) 24 tadmc@augustmail.com
57.8 ( 27.0/ 30.7/ 10.2) 24 jmfbahciv@aol.com
48.2 ( 28.6/ 18.8/ 15.0) 16 Anne & Lynn Wheeler <lynn@garlic.com>
33.7 ( 18.1/ 15.6/ 7.7) 17 Brian McCauley <nobull@mail.com>
31.6 ( 15.7/ 15.9/ 5.6) 21 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
30.8 ( 13.9/ 16.9/ 11.3) 15 "Jürgen Exner" <jurgenex@hotmail.com>
30.2 ( 14.3/ 15.9/ 8.6) 15 "Paul Lalli" <mritty@gmail.com>
29.8 ( 18.2/ 11.5/ 4.2) 10 Rupert Pigott <roo@try-removing-this.darkboong.demon.co.uk>
28.2 ( 15.2/ 11.7/ 4.8) 19 Gunnar Hjalmarsson <noreply@gunnar.cc>
27.9 ( 16.7/ 10.4/ 4.4) 13 albalmer@spamcop.net
25.6 ( 5.4/ 20.2/ 17.3) 7 J. Romano <jl_post@hotmail.com>
22.0 ( 14.0/ 5.8/ 2.2) 10 "John W. Kennedy" <jwkenne@attglobal.net>
21.4 ( 10.9/ 10.0/ 3.7) 7 "John Thingstad" <john.thingstad@chello.no>
18.5 ( 10.5/ 8.0/ 3.8) 12 "David K. Wall" <dwall@fastmail.fm>
17.8 ( 11.7/ 4.4/ 1.4) 8 cbfalconer@worldnet.att.net
17.0 ( 12.6/ 4.4/ 2.7) 13 Joe Smith <Joe.Smith@inwap.com>
16.5 ( 10.2/ 6.2/ 6.2) 7 Rob Warnock <rpw3@rpw3.org>
15.0 ( 6.8/ 6.4/ 2.5) 8 Ben Morrow <usenet@morrow.me.uk>
14.9 ( 5.8/ 7.8/ 5.5) 8 Michele Dondi <bik.mido@tiscalinet.it>
14.4 ( 5.8/ 8.5/ 6.0) 8 dan baker <botfood@yahoo.com>
These posters accounted for 44.8% of the total volume.
Top 13 Posters by Volume of Original Content (min. ten posts)
=============================================================
(kb)
Posts orig Address
----- ----- -------
24 40.7 tadmc@augustmail.com
16 15.0 Anne & Lynn Wheeler <lynn@garlic.com>
15 11.3 "Jürgen Exner" <jurgenex@hotmail.com>
24 10.2 jmfbahciv@aol.com
15 8.6 "Paul Lalli" <mritty@gmail.com>
17 7.7 Brian McCauley <nobull@mail.com>
21 5.6 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
19 4.8 Gunnar Hjalmarsson <noreply@gunnar.cc>
13 4.4 albalmer@spamcop.net
10 4.2 Rupert Pigott <roo@try-removing-this.darkboong.demon.co.uk>
12 3.8 "David K. Wall" <dwall@fastmail.fm>
13 2.7 Joe Smith <Joe.Smith@inwap.com>
10 2.2 "John W. Kennedy" <jwkenne@attglobal.net>
These posters accounted for 33.8% of the original volume.
Top 13 Posters by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.886 ( 40.7 / 45.9) 24 tadmc@augustmail.com
0.797 ( 15.0 / 18.8) 16 Anne & Lynn Wheeler <lynn@garlic.com>
0.668 ( 11.3 / 16.9) 15 "Jürgen Exner" <jurgenex@hotmail.com>
0.621 ( 2.7 / 4.4) 13 Joe Smith <Joe.Smith@inwap.com>
0.543 ( 8.6 / 15.9) 15 "Paul Lalli" <mritty@gmail.com>
0.498 ( 7.7 / 15.6) 17 Brian McCauley <nobull@mail.com>
0.484 ( 3.8 / 8.0) 12 "David K. Wall" <dwall@fastmail.fm>
0.417 ( 4.4 / 10.4) 13 albalmer@spamcop.net
0.415 ( 4.8 / 11.7) 19 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.385 ( 2.2 / 5.8) 10 "John W. Kennedy" <jwkenne@attglobal.net>
0.362 ( 4.2 / 11.5) 10 Rupert Pigott <roo@try-removing-this.darkboong.demon.co.uk>
0.351 ( 5.6 / 15.9) 21 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.333 ( 10.2 / 30.7) 24 jmfbahciv@aol.com
Bottom 13 Posters by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.886 ( 40.7 / 45.9) 24 tadmc@augustmail.com
0.797 ( 15.0 / 18.8) 16 Anne & Lynn Wheeler <lynn@garlic.com>
0.668 ( 11.3 / 16.9) 15 "Jürgen Exner" <jurgenex@hotmail.com>
0.621 ( 2.7 / 4.4) 13 Joe Smith <Joe.Smith@inwap.com>
0.543 ( 8.6 / 15.9) 15 "Paul Lalli" <mritty@gmail.com>
0.498 ( 7.7 / 15.6) 17 Brian McCauley <nobull@mail.com>
0.484 ( 3.8 / 8.0) 12 "David K. Wall" <dwall@fastmail.fm>
0.417 ( 4.4 / 10.4) 13 albalmer@spamcop.net
0.415 ( 4.8 / 11.7) 19 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.385 ( 2.2 / 5.8) 10 "John W. Kennedy" <jwkenne@attglobal.net>
0.362 ( 4.2 / 11.5) 10 Rupert Pigott <roo@try-removing-this.darkboong.demon.co.uk>
0.351 ( 5.6 / 15.9) 21 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.333 ( 10.2 / 30.7) 24 jmfbahciv@aol.com
13 posters (6%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
187 Xah Lee's Unixism
13 NEw to Perl
12 Dynamic hash names
11 Split by length
10 Simple question
9 packing floats?
9 OS/2 port of Perl 5.8 not adding CR to \n
9 C<sub'a>?
8 YOU ALL SUCK!
8 Update multiple lines in a flat file from array
8 Reading UTF-8 string from file with read() function.
8 Regex matching a string that DOESN'T contain a given word
8 net::ftp errors
8 Newbie needs help on pattern matching
8 print Location to blank window?
7 Data Structures in PERL
7 Execute Windows program from Perl script (??)
7 Complex Records help
7 Sending vars from Perl to PHP
7 Can a path to a dir contain '.'?
These threads accounted for 55.9% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
449.5 (260.4/175.2/ 85.7) 187 Xah Lee's Unixism
34.2 ( 1.9/ 32.3/ 32.3) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
23.1 ( 7.2/ 6.5/ 3.5) 8 YOU ALL SUCK!
21.8 ( 9.5/ 11.4/ 8.1) 10 Simple question
20.3 ( 10.2/ 8.7/ 6.6) 9 OS/2 port of Perl 5.8 not adding CR to \n
19.0 ( 10.0/ 8.8/ 5.8) 12 Dynamic hash names
17.8 ( 7.7/ 9.0/ 5.0) 9 C<sub'a>?
17.4 ( 7.1/ 9.9/ 5.0) 9 packing floats?
17.3 ( 8.7/ 8.6/ 4.8) 7 Execute Windows program from Perl script (??)
17.2 ( 10.7/ 5.6/ 3.5) 13 NEw to Perl
16.9 ( 9.8/ 6.6/ 2.9) 11 Split by length
16.1 ( 4.4/ 11.4/ 9.1) 5 Burned using the .. operator
15.9 ( 8.6/ 7.1/ 3.5) 8 Regex matching a string that DOESN'T contain a given word
15.9 ( 6.0/ 9.3/ 7.2) 7 Complex Records help
15.3 ( 4.8/ 10.3/ 9.0) 6 N00b to PERL... help!!
15.2 ( 7.4/ 7.8/ 2.8) 8 Update multiple lines in a flat file from array
15.2 ( 6.8/ 8.2/ 4.6) 8 Newbie needs help on pattern matching
14.9 ( 6.1/ 8.2/ 3.0) 7 Split and RegEx Help
14.5 ( 6.5/ 7.9/ 4.6) 7 Assistance parsing text file using Text::CSV_XS
13.9 ( 6.2/ 7.2/ 4.6) 7 Fastest versions of perl?
These threads accounted for 61.5% of the total volume.
Top 5 Threads by OCR (minimum of ten posts)
===========================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.707 ( 8.1/ 11.4) 10 Simple question
0.661 ( 5.8/ 8.8) 12 Dynamic hash names
0.634 ( 3.5/ 5.6) 13 NEw to Perl
0.489 ( 85.7/ 175.2) 187 Xah Lee's Unixism
0.440 ( 2.9/ 6.6) 11 Split by length
Bottom 5 Threads by OCR (minimum of ten posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.707 ( 8.1 / 11.4) 10 Simple question
0.661 ( 5.8 / 8.8) 12 Dynamic hash names
0.634 ( 3.5 / 5.6) 13 NEw to Perl
0.489 ( 85.7 /175.2) 187 Xah Lee's Unixism
0.440 ( 2.9 / 6.6) 11 Split by length
5 threads (4%) had at least ten posts.
Top 17 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
197 comp.lang.python
192 comp.unix.programmer
192 comp.lang.lisp
192 alt.folklore.computers
10 comp.os.os2.programmer.porting
10 comp.os.os2.misc
9 comp.lang.javascript
5 comp.os.linux.misc
4 alt.drugs.psychedelics
4 comp.lang.perl.modules
3 comp.soft-sys.matlab
2 comp.lang.perl
1 alt.comp.webdev.freelance
1 comp.lang.awk
1 no.it.programmering.php
1 aus.ads.jobs
1 php.db
Top 20 Crossposters
===================
Articles Address
-------- -------
96 jmfbahciv@aol.com
64 Anne & Lynn Wheeler <lynn@garlic.com>
48 albalmer@spamcop.net
40 Rupert Pigott <roo@try-removing-this.darkboong.demon.co.uk>
32 "John W. Kennedy" <jwkenne@attglobal.net>
32 cbfalconer@worldnet.att.net
28 "John Thingstad" <john.thingstad@chello.no>
28 Rob Warnock <rpw3@rpw3.org>
24 Brian {Hamilton Kelly} <bhk@dsl.co.uk>
20 SM Ryan <wyrmwif@tango-sierra-oscar-foxtrot-tango.fake.org>
20 Andre Majorel <amajorel@teezer.fr>
16 "Charlie Gibbs" <cgibbs@kltpzyxm.invalid>
16 Pascal Bourguignon <spam@mouse-potato.com>
16 Larry Elmore <ljelmore_@_comcast_._net>
16 Brian.Inglis@SystematicSW.ab.ca
12 Morten Reistad <firstname@lastname.pr1v.n0>
12 Paul Repacholi <prep@prep.synonet.com>
12 red floyd <no.spam@here.dude>
10 "Shmuel (Seymour J.) Metz" <spamtrap@library.lspace.org.invalid>
8 Espen Vestre <espen@*do-not-spam-me*.vestre.net>
------------------------------
Date: Mon, 06 Sep 2004 04:42:12 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: Update multiple lines in a flat file from array
Message-Id: <EUR_c.383200$%_6.373212@attbi_s01>
blnukem wrote:
> incoming array:
>
> foreach $Pair (@Pairs) {
> ($UniqeID, $Quantity) = split(/=/, $Pair);
> }
Equal sign? Your original post did not mention anything about
"=" as part of the data. Now you've got us all confused.
Please try again, showing us actual code and actual input data.
Your "updated input values" belong in a hash, not an array.
Once you've got the hash set up, you can then process the
flat file a line at a time.
-Joe
------------------------------
Date: Mon, 6 Sep 2004 09:28:06 +0200
From: Morten Reistad <firstname@lastname.pr1v.n0>
Subject: Re: Xah Lee's Unixism
Message-Id: <6i3hhc.mtv2.ln@via.reistad.priv.no>
In article <41386155$0$19713$61fed72c@news.rcn.com>,
<jmfbahciv@aol.com> wrote:
>In article <kg08hc.bgc1.ln@via.reistad.priv.no>,
> Morten Reistad <firstname@lastname.pr1v.n0> wrote:
>>In article <41376B82.C6A202FC@yahoo.com>,
>>CBFalconer <cbfalconer@worldnet.att.net> wrote:
>>>Peter Hansen wrote:
>>>> Brian {Hamilton Kelly} wrote:
>>>>> wyrmwif@tango-sierra-oscar-foxtrot-tango.fake.org "SM Ryan" wrote:
>>ISTR there was some tunnel NASA had to relate to if they wanted
>>to move the goods from production to launch. But that may have been
>>earlier products.
>>
>>But rail tunnels are also descended from the same asses, so to speak.
>
>There was a city getting restored in Turkey that JMF and I visited;
>I cannot remember its name other than it's in the New Testament
>written by Paul. It was one of most fascinating places I'd ever
>been other than aquariums and zoos. There are ruts in the
>stone-block pavements caused by running carts to/from harbor/city.
>We were told that these ruts were worn down by usage. I always
>wanted to get a big stone and spend 5 min/day rubbing it to see
>if the claim was true.
Just visit my old gymnasium (aka "High School", but that loses part
of the concept). 320 pupils entering and leaving 14-18 times a day
wears down asphalt in 2 years, sandstone in 10 and granite in 100.
-- mrr
------------------------------
Date: Mon, 6 Sep 2004 09:01:15 +0200
From: Morten Reistad <firstname@lastname.pr1v.n0>
Subject: Re: Xah Lee's Unixism
Message-Id: <rv1hhc.mtv2.ln@via.reistad.priv.no>
In article <413af268$0$19706$61fed72c@news.rcn.com>,
<jmfbahciv@aol.com> wrote:
>In article <20040904.2231.57679snz@dsl.co.uk>,
> bhk@dsl.co.uk (Brian {Hamilton Kelly}) wrote:
>>On Thursday, in article
>> <41371e5c$0$19723$61fed72c@news.rcn.com> jmfbahciv@aol.com
>> wrote:
>>
>>> In article <2mmdj0t6mjgif88en11skbo3n8uiuj46nc@4ax.com>,
>>> Brian Inglis <Brian.Inglis@SystematicSW.Invalid> wrote:
>>> >MS has been borrowing code from Unix to create a real OS: TCP/IP;
>>> >NTFS<-ffs; memory mapped files<-mmap.
>>>
>>> All right. Now I'm mystified. Why did they have to borrow code
>>> from Unix? They already had VMS. ISTM, VMS had all of the
>>> above.
>>
>>VMS (originally) most decidedly did NOT have either TCP/IP or NFS.
>
>I thought VMS did get TCP/IP into it. I don't know anything about
>NFS.
VMS was too early, and was made too politically correct.
TCP/IP was NOT politically correct until around 1996 or so.
TPTB wanted OSI, GOSIP/Decnet Phase 5 and all that crud, until we
Internet people hammered them.
>>Indeed, it took many years before DEC [sorry, by then it was already
>>d|i|g|i|t|a|l] had a TCP/IP stack available for VMS --- the dreaded heap
>>of quivering jelly created by the Eunice idiots.
>>
>>Before that, people who needed TCP/IP on a Vax used various third-party
>>solutions, such as the implementations from Carnegie-Mellon (CMU)
>
>Sigh! If CMU had it, I would have assumed it got hornshoed into
>VMS.
Wrong mindset. TCP/IP was never a DEC invention, much less a D I G I T A L
one.
>> ..or
>>Wollongong universities. Then, of course, there was what many regarded
>>as the best TCP/IP stack for VMS, MultiNet from TGV (Two Guys and a VAX).
>>That product also included a working NFS implementation.
One of these got the nickname Willgowrong aroung here.
>Boy, I sure remember a lot of TCP/IP talk over the walls. However,
>I don't seem to recall what was said nor when.
-- mrr
------------------------------
Date: Mon, 06 Sep 04 11:23:17 GMT
From: jmfbahciv@aol.com
Subject: Re: Xah Lee's Unixism
Message-Id: <413c5b9c$0$19705$61fed72c@news.rcn.com>
In article <rv1hhc.mtv2.ln@via.reistad.priv.no>,
Morten Reistad <firstname@lastname.pr1v.n0> wrote:
>In article <413af268$0$19706$61fed72c@news.rcn.com>,
> <jmfbahciv@aol.com> wrote:
>>In article <20040904.2231.57679snz@dsl.co.uk>,
>> bhk@dsl.co.uk (Brian {Hamilton Kelly}) wrote:
>>>On Thursday, in article
>>> <41371e5c$0$19723$61fed72c@news.rcn.com> jmfbahciv@aol.com
>>> wrote:
>>>
>>>> In article <2mmdj0t6mjgif88en11skbo3n8uiuj46nc@4ax.com>,
>>>> Brian Inglis <Brian.Inglis@SystematicSW.Invalid> wrote:
>>>> >MS has been borrowing code from Unix to create a real OS: TCP/IP;
>>>> >NTFS<-ffs; memory mapped files<-mmap.
>>>>
>>>> All right. Now I'm mystified. Why did they have to borrow code
>>>> from Unix? They already had VMS. ISTM, VMS had all of the
>>>> above.
>>>
>>>VMS (originally) most decidedly did NOT have either TCP/IP or NFS.
>>
>>I thought VMS did get TCP/IP into it. I don't know anything about
>>NFS.
>
>VMS was too early, and was made too politically correct.
>
>TCP/IP was NOT politically correct until around 1996 or so.
>TPTB wanted OSI, GOSIP/Decnet Phase 5 and all that crud, until we
>Internet people hammered them.
>
>>>Indeed, it took many years before DEC [sorry, by then it was already
>>>d|i|g|i|t|a|l] had a TCP/IP stack available for VMS --- the dreaded heap
>>>of quivering jelly created by the Eunice idiots.
>>>
>>>Before that, people who needed TCP/IP on a Vax used various third-party
>>>solutions, such as the implementations from Carnegie-Mellon (CMU)
>>
>>Sigh! If CMU had it, I would have assumed it got hornshoed into
>>VMS.
>
>Wrong mindset. TCP/IP was never a DEC invention, much less a D I G I T A L
>one.
It didn't have to be a DEC invention. If it was CMU, we got it
shoved down our throats and up our asses. However, I see
that the dates explain why TCP/IP didn't get into VMS.
Apparently the protocol got good after Gordon Bell left DEC.
Since TCP/IP was in the 90s, I couldn't have heard about it
over the wall (I think I stopped working in 1987). I could
swear that cybercurd meant something.
ISTR, the -20 types yakking about it.
<snip>
/BAH
Subtract a hundred and four for e-mail.
------------------------------
Date: Mon, 06 Sep 04 11:26:22 GMT
From: jmfbahciv@aol.com
Subject: Re: Xah Lee's Unixism
Message-Id: <413c5c55$0$19705$61fed72c@news.rcn.com>
In article <871xhgh8im.fsf@k9.prep.synonet.com>,
Paul Repacholi <prep@prep.synonet.com> wrote:
>Nick Landsberg <SPAMhukolauTRAP@SPAMworldnetTRAP.att.net> writes:
>
>>> Indeed, it could have failed in a way entirely unique to
>>> itself... :) The O-Ring thing had been identified, was preventable
>>> and should have been prevented. Sure, perhaps the design did suck,
>>> but the point is the whole disaster was trivially avoidable if the
>>> people running the show were willing to grasp the nettle.
>
>> Since we're so far off-topic here anyway ...
>
>> It has been so many years since the Challenger disaster that memory
>> fades (especially at my age), so bear with me if a misremember
>> something.
>
>> As I recall, the particular launch happened during an unusual cold
>> spell in Florida. I also recall that the investigation uncovered
>> strong recommendations by several senior engineers, prior to launch,
>> that the launch should be postponed because the system (shuttle and
>> boosters) had never been launched during those kinds of weather
>> conditions. (It could very well be that they might have pointed out
>> the O-rings specifically, but I don't recall.) Some
>> managementcritter at some level (probably in NASA) ignored or
>> overruled those recommendations. I can only conjecture that this
>> was because that the prevailing culture (in most corporations, then
>> and now) is "we have to meet our schedules."
>
>Grab a copy of `Genius', Gleiks bio of RF and read the end chapters
>and note what was `leaked' to him.
>
>Before the launch, it was known that they where colder than any
>previous launch, and that the seal erosion problems they worried about
>where wose in colder conditions.
>
>The engineers wanted to holdm but that would have meant Ronny Raygun
>could not grandstand on TV, so N.A.S.A.
Somebody just wrote in another newsgroup that the two pilots
of the shuttle used to sit in ejectable seats but the others
didn't. So politically correct equal employment opportunity
PHBs eliminated the ejections because it wasn't fair to rest of
the crew.
There is something wrong with this logic.
/BAH
Subtract a hundred and four for e-mail.
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 6966
***************************************
