[24932] in Perl-Users-Digest
Perl-Users Digest, Issue: 7182 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 27 09:06:46 2004
Date: Mon, 27 Sep 2004 06:05:11 -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, 27 Sep 2004 Volume: 10 Number: 7182
Today's topics:
Network issue <lepi_MAKNI_ME_@fly.srk.fer.hr>
Re: Network issue <perl&nntp@rhesa.com>
Novadigm Radia *.edm files (Oliver S?der)
perl dev kit - perlrt.dll (Paul Masquelier)
Re: perl string match <mark.clements@kcl.ac.uk>
Re: perl string match (Oliver S?der)
Re: perl string match <mritty@gmail.com>
Re: perl string match <tore@aursand.no>
Re: Precedence of exponentiation <nemo@weathersong.net>
Re: Precedence of exponentiation (Anno Siegel)
Re: Printing regex match <Joe.Smith@inwap.com>
Re: Printing regex match <tadmc@augustmail.com>
Re: processing command line arguments with backticks <Joe.Smith@inwap.com>
Re: references to filehandle? <bik.mido@tiscalinet.it>
Re: references to filehandle? <bik.mido@tiscalinet.it>
Re: references to filehandle? <usa1@llenroc.ude.invalid>
Statistics for comp.lang.perl.misc <gbacon@hiwaay.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 27 Sep 2004 13:09:34 +0200
From: Lepi <lepi_MAKNI_ME_@fly.srk.fer.hr>
Subject: Network issue
Message-Id: <cj8sl8$enh$1@bagan.srce.hr>
Hello
Please help...
I want to program a little client that sends something to a server, but
also reads an answer. What part of this code needs to be changed???
Also, is there a way to make a bidirectional communication, so if the
other side has something to say, my client can accept it without sending
a request??? How can I do that??
Thanks
use IO::Socket;
$adr=IO::Socket::INET->new(
Proto=>'tcp',
PeerAddr=>'localhost',
PeerPort=>'2332'
)
or die "Not good";
print("Input > ");
$in=<STDIN>;
print $adr $in;
------------------------------
Date: Mon, 27 Sep 2004 13:39:05 +0200
From: Rhesa Rozendaal <perl&nntp@rhesa.com>
Subject: Re: Network issue
Message-Id: <4157fbd6$0$568$e4fe514c@news.xs4all.nl>
Lepi wrote:
> Hello
>
> Please help...
>
> I want to program a little client that sends something to a server, but
> also reads an answer. What part of this code needs to be changed???
>
> Also, is there a way to make a bidirectional communication, so if the
> other side has something to say, my client can accept it without sending
> a request??? How can I do that??
Sockets are bidirectional.
> Thanks
>
> use IO::Socket;
> $adr=IO::Socket::INET->new(
> Proto=>'tcp',
> PeerAddr=>'localhost',
> PeerPort=>'2332'
> )
> or die "Not good";
>
> print("Input > ");
> $in=<STDIN>;
> print $adr $in;
>
$output = <$adr>;
or
$output = $adr->readline();
etc.
Suggested reading:
perldoc IO::Socket::INET
perldoc perlipc
perldoc IO::Socket
perldoc Socket
Rhesa
------------------------------
Date: 27 Sep 2004 04:46:41 -0700
From: osoeder@gmx.de (Oliver S?der)
Subject: Novadigm Radia *.edm files
Message-Id: <45c6c8e6.0409270346.1397bfae@posting.google.com>
Is there a way/module which allows it to read Radia .edm files? I want
to edit single heaps in this files.
An example file can be found here:
http://home.arcor.de/osoeder/ASERVICE.EDM
This is a viewer (sorry Windows only):
http://home.arcor.de/osoeder/NVDOBJED.EXE (Radia Client Explorer)
The problem is, that this is a graphical too, you have to click
through every heap of the edm files. A script would be much smarter.
------------------------------
Date: 27 Sep 2004 05:15:25 -0700
From: paulmasquelier@hotmail.com (Paul Masquelier)
Subject: perl dev kit - perlrt.dll
Message-Id: <c663070b.0409270415.6b7c851b@posting.google.com>
Hello,
I am trying out perldevkit from activestate.
When converting perl modules to dotnet assemblies, apparently some
dll's are required when you put these assemblies on a pc without perl
: perl58.dll, perlnh.dll and perlrt.dll. I cannot find perlrt.dll !
Does anyone know where I can find this dll ??
Thanks for any help,
Paul
------------------------------
Date: Mon, 27 Sep 2004 13:57:51 +0200
From: Mark Clements <mark.clements@kcl.ac.uk>
Subject: Re: perl string match
Message-Id: <4158003f$1@news.kcl.ac.uk>
Joe Smith wrote:
> Mark Clements wrote:
>
>> man perlop
>>
>> also check out the /o switch
>
>
> Hmmm. 'perldoc perlop' does not state whether the lack of /o has as
> much of a performance impact in perl-5.8 as it had in earlier versions.
> -Joe
a quick test with 5.8 on Solaris 9 shows very little difference.
use strict;
use warnings;
use Benchmark::Timer;
my $searchExpression=shift;
my $text=shift;
my $iterations=shift;
my $timer=Benchmark::Timer->new();
$timer->start("overall");
for(my $ii=0;$ii<$iterations;$ii++){
$timer->start("iteration");
$text=~/$searchExpression/;
$timer->stop("iteration");
$timer->start("iterationwitho");
$text=~/$searchExpression/o;
$timer->stop("iterationwitho");
}
$timer->stop("overall");
$timer->report();
redwood 24170 $ perl ./timere.pl ^asdf thisissometext 10000
1 trial of overall (1.014s total)
10000 trials of iteration (100.802ms total), 10us/trial
10000 trials of iterationwitho (98.526ms total), 9us/trial
redwood 24171 $ perl ./timere.pl ^asdf thisissometext 10000
1 trial of overall (1.011s total)
10000 trials of iteration (100.544ms total), 10us/trial
10000 trials of iterationwitho (96.909ms total), 9us/trial
redwood 24172 $ perl ./timere.pl ^asdf thisissometext 10000
1 trial of overall (938.571ms total)
10000 trials of iteration (93.197ms total), 9us/trial
10000 trials of iterationwitho (89.684ms total), 8us/trial
assuming my test is correct...
Mark
------------------------------
Date: 27 Sep 2004 05:08:43 -0700
From: osoeder@gmx.de (Oliver S?der)
Subject: Re: perl string match
Message-Id: <45c6c8e6.0409270408.67e5eec1@posting.google.com>
if ($k =~ /^test/)
{
$x=$_;
}
kcassidy@kakelma.mine.nu (Kelvin) wrote in message news:<26b862d9.0409262250.22e46f72@posting.google.com>...
> Hi All,
>
> Need a bit of help in pattern matching :) How to accomplish the
> code below of the string "test" is inside a variable? (e.g. $x="test")
>
>
>
> if ($k =~ /^test/)
> {
> print "1\n";
> }
------------------------------
Date: Mon, 27 Sep 2004 12:41:49 GMT
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: perl string match
Message-Id: <hUT5d.15613$M45.5949@trndny09>
"Oliver S?der" <osoeder@gmx.de> wrote in message
news:45c6c8e6.0409270408.67e5eec1@posting.google.com...
> kcassidy@kakelma.mine.nu (Kelvin) wrote in message
news:<26b862d9.0409262250.22e46f72@posting.google.com>...
> > Need a bit of help in pattern matching :) How to accomplish the
> > code below of the string "test" is inside a variable? (e.g.
$x="test")
> >
> > if ($k =~ /^test/)
> > {
> > print "1\n";
> > }
>
> if ($k =~ /^test/)
> {
> $x=$_;
> }
Please post your reply below what you are replying to.
Can you please explain exactly what it is you think this code is doing?
Paul Lalli
------------------------------
Date: Mon, 27 Sep 2004 14:51:33 +0200
From: Tore Aursand <tore@aursand.no>
Subject: Re: perl string match
Message-Id: <pan.2004.09.27.12.51.33.415338@aursand.no>
On Sun, 26 Sep 2004 23:50:04 -0700, Kelvin wrote:
> Need a bit of help in pattern matching :) How to accomplish the
> code below of the string "test" is inside a variable? (e.g. $x="test")
>
> if ($k =~ /^test/)
> {
> print "1\n";
> }
If you just need to find out if a variable is inside another variable, you
shouldn't use regular expressions. This will do (and it's faster);
my $k = 'This is a test';
my $x = 'test';
if ( index($k, $x) >= 0 ) {
# Match
}
Eventually, you can check if 'index(...)' equals 0 if you want to check if
the string begins with $x.
--
Tore Aursand <tore@aursand.no>
"Writing modules is easy. Naming modules is hard." (Anno Siegel, on
comp.lang.perl.misc)
------------------------------
Date: Mon, 27 Sep 2004 10:43:20 GMT
From: David Frauzel <nemo@weathersong.net>
Subject: Re: Precedence of exponentiation
Message-Id: <1096281801.SdYPCNkkB1jaX7RqSEnb0g@teranews>
Joe Smith <Joe.Smith@inwap.com> wrote in
news:v1R5d.267889$mD.34406@attbi_s02:
> It would be absurd to expect the minus sign to move like that.
>
> The exponentation operator takes two arguments. It's high precedence
> means that the two arguments must be made available before doing
> anything else (such as addition or multiplication). -2**-4 is
> parsed as -(2**(-4)) which gathers up the right-hand side of the **
> before doing exponentiation.
Exactly. So (in the parser) its right side seems to regard ** with
different precedence than does its left. Right? Er, correct...?
I finally looked up perlguts again (to prove to myself I'm not just
imagining that Perl uses parse trees), and noticed the -Dx option. I
don't have DEBUGGING compiled in (ActivePerl), but -MO=Concise gave me
the following for print -$foo**-$bar:
a <@> leave[t1] vKP/REFC ->(end)
1 <0> enter ->2
2 <;> nextstate(main 1 -:1) v ->3
9 <@> print vK ->a
3 <0> pushmark s ->4
8 <1> negate[t5] sK/1 ->9
7 <2> pow[t4] sK/2 ->8
- <1> ex-rv2sv sK/1 ->5
4 <#> gvsv s ->5
6 <1> negate[t3] sK/1 ->7
- <1> ex-rv2sv sK/1 ->6
5 <#> gvsv s ->6
I'll play around with some of the other debugging tools mentioned to see
if I can actually "watch" the parse as it happens, so I can see exactly
when Perl decides that the second unary should be applied to the second
constant, whereas the first is applied to exponentiation.
------------------------------
Date: 27 Sep 2004 11:09:54 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Precedence of exponentiation
Message-Id: <cj8se2$7ds$1@mamenchi.zrz.TU-Berlin.DE>
David Frauzel <nemo@weathersong.net> wrote in comp.lang.perl.misc:
> Bob Walton <see@sig.invalid> wrote in news:41579100$1_2@127.0.0.1:
[...]
> Am I really in the minority in thinking that -2**4 should mean (-2)**4?
Yes. -2**4 is -(2**4) in all mathematical texts.
To convince yourself, look up a series with alternating sign, say
the series for sin(x) in any suitable book. The sign will be written
(-1)**n, not -1**n.
Anno
------------------------------
Date: Mon, 27 Sep 2004 10:09:38 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: Printing regex match
Message-Id: <CFR5d.268803$Fg5.117201@attbi_s53>
Dave wrote:
> if ( my ( @match ) = $string =~ /$pattern/smg ) { ... }
I hope you realize that that can, in general, fail to match.
if ( my ( @match ) = $string =~ /\Q$pattern\E/smg ) { ... }
-Joe
------------------------------
Date: Mon, 27 Sep 2004 07:08:35 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Printing regex match
Message-Id: <slrnclg0m3.bjn.tadmc@magna.augustmail.com>
Joe Smith <Joe.Smith@inwap.com> wrote:
> Dave wrote:
>
>> if ( my ( @match ) = $string =~ /$pattern/smg ) { ... }
>
> I hope you realize that that can, in general, fail to match.
>
> if ( my ( @match ) = $string =~ /\Q$pattern\E/smg ) { ... }
I hope you realize that m//sm are no-op modifiers if you are
going to escape dots and anchors.
:-)
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 27 Sep 2004 10:14:51 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: processing command line arguments with backticks
Message-Id: <vKR5d.268825$Fg5.9950@attbi_s53>
miracle_ks wrote:
> $command='/bin/somecommand -x -y -z';
> $p1=2456;
> foreach $item (@in_arr){
> print OUT `$command $item $p1`;
> }
>
> When i run this, only last item from the input file is run properly
> with $p1 argument. For all other items $p1 is not taken into
> consideration.
I was able to reproduce your symptoms by using this:
print OUT `$command $item1\n $p1`;
print OUT `$command $item2 $p1`;
The solution is obvious: get rid of the extra \n by using chomp().
-Joe
------------------------------
Date: Mon, 27 Sep 2004 14:02:31 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: references to filehandle?
Message-Id: <cnpfl0lv0hhtdi430o6th2b760scct33r7@4ax.com>
On Mon, 27 Sep 2004 02:47:38 GMT, Stefan H. <stfhostf@kartos.de>
wrote:
>I need to create from the big file one file per measure containing only
>data from that measure. The name of each file must be the same of
>measure: ie
>
>bigfile.csv
>123 rms 12 132
>2312 qrt 12 231
>2342 sse 12 231
>
>rms.csv
>123 rms 12 132
I see *basically* two possible approaches:
1. One-pass, repeatedly open()ing and close()ing FHs in '>>' mode,
2. Two-pass, collecting the data and printing it out later.
If bigfile is not really *too big* I'd favour the second solution.
> for (<MYFILE>) {
> $splits{[split /;/]->[1]} = '';
^^^
^^^
I assume that fields are really semicolon separated rather than
whitespace separated, so (2) above *could* be something like this:
#!/usr/bin/perl
use strict;
use warnings;
my %data;
while (<>) {
my $m=(split /;/)[1] or
warn("Possibly wrong format!"), next;
$m .= '.csv';
push @{ $data{$m} }, $_;
}
for (keys %data) {
open my $fh, '>', $_ or
die "Can't write to `$_': $!\n";
print $fh @{ $data{$_} };
}
__END__
Of course you could/should add finer checks according to how your real
data looks like, e.g.
(my $n=(split /;/)[1]) =~ /^[a-z]{3}$/ or # ...
> for (keys %splits) {
> open $_, ">$_.csv";
> }
Actually you can't do this, you may at most open a lexical FH and
store it in a hash as a value corresponding to $_.
>for (<MYFILE>) {
> print [split /;/;]->1 $_;
^^^
^^^
Are you sure? ;-)
As a side note it doesn't really do any harm but it is not necessary
to create an anonymous array to dereference it soon after:
(split /;/)[1]
will do!
>the error I get is that "strict refs" doesn't permit that. Why? It's
>safe to remove that clause? Is there a better way to do that?
There are many better ways to do that. However now I understand what
you *wanted* to do. Indeed it suggests a viable "mixed" solution in
one pass by means of an orkish manouvre:
#!/usr/bin/perl
use strict;
use warnings;
my %fh;
while (<>) {
my $m=(split /;/)[1] or
warn("Possibly wrong format!"), next;
$m .= '.csv';
select $fh{$m} ||= do {
open my $fh, '>', $m or
die "Can't write to `$_': $!\n";
$fh;
};
print;
}
__END__
Here the possible problem is that depending on how many measures you
really have, you could hit the maximum number of open files your OS
permits...
HTH,
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 27 Sep 2004 14:09:56 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: references to filehandle?
Message-Id: <8f0gl05hk0thrjfg6sna611hih30rm5q9v@4ax.com>
Sorry, I hadn't read Sinan Unur's reply yet when posting my own...
On Mon, 27 Sep 2004 06:35:51 GMT, Stefan H. <stfhostf@kartos.de>
wrote:
>> print $out "@{[ join ';', @fields ]}\n";
^^^^
^^^^
>you don't close the open filehandles. Is this ok?
Yes it is. In fact he's using a lexical FH: it will be automatically
closed when going out of scope (or more generally whene there will
remain no references to it).
>Thank you very much.
>
>A curiosity:
>
>my code
[snip]
>was totally wrong? I mean: is it not possible to open filehandles using
>scalar variables like that?
It is possible to open FHs using scalar variables. But not *like
that*. For another cmt on your approach, slightly revised, see my
other post in this thread.
>And:
>$splits{[split /;/]->[1]} = '';
>
>is it correct?
This is syntactically correct. But then again see my other post for a
cmt on this line...
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 27 Sep 2004 13:01:40 GMT
From: "A. Sinan Unur" <usa1@llenroc.ude.invalid>
Subject: Re: references to filehandle?
Message-Id: <Xns95715C07D5D7asu1cornelledu@132.236.56.8>
"A. Sinan Unur" <usa1@llenroc.ude.invalid> wrote in
news:Xns9570EF19DAC7Dasu1cornelledu@132.236.56.8:
> if(my @fields = /^\s*(\d+)\s+(\w+)\s+(\d+)\s+(\d+)\s*$/) {
Actually, that should be
if((my @fields = /^\s*(\d+)\s+(\w+)\s+(\d+)\s+(\d+)\s*$/) == 4) {
Sorry, late night post.
Sinan.
------------------------------
Date: Mon, 27 Sep 2004 13:04:52 -0000
From: Greg Bacon <gbacon@hiwaay.net>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <10lg3vkj0it9c8@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 20 Sep 2004 13:07:26 GMT and ending at
27 Sep 2004 13:01:40 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: 170
Articles: 494 (173 with cutlined signatures)
Threads: 105
Volume generated: 978.9 kb
- headers: 446.9 kb (8,371 lines)
- bodies: 510.8 kb (16,347 lines)
- original: 303.6 kb (10,276 lines)
- signatures: 20.7 kb (497 lines)
Original Content Rating: 0.594
Averages
========
Posts per poster: 2.9
median: 2.0 posts
mode: 1 post - 80 posters
s: 3.5 posts
Posts per thread: 4.7
median: 3 posts
mode: 1 post - 23 threads
s: 4.4 posts
Message size: 2029.2 bytes
- header: 926.5 bytes (16.9 lines)
- body: 1058.9 bytes (33.1 lines)
- original: 629.3 bytes (20.8 lines)
- signature: 42.8 bytes (1.0 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
24 51.5 ( 23.0/ 28.5/ 14.6) "Paul Lalli" <mritty@gmail.com>
19 24.9 ( 14.2/ 9.5/ 5.9) end@dream.com
17 31.8 ( 19.3/ 12.5/ 5.7) Brian McCauley <nobull@mail.com>
14 20.4 ( 14.1/ 6.3/ 3.4) Joe Smith <Joe.Smith@inwap.com>
13 55.7 ( 15.3/ 38.9/ 36.8) tadmc@augustmail.com
13 24.1 ( 10.1/ 14.0/ 6.0) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
12 26.1 ( 11.4/ 12.4/ 12.1) abigail@abigail.nl
11 24.5 ( 12.2/ 11.5/ 4.7) "A. Sinan Unur" <1usa@llenroc.ude.invalid>
9 12.4 ( 7.3/ 4.5/ 1.9) Gunnar Hjalmarsson <noreply@gunnar.cc>
9 19.4 ( 9.4/ 9.7/ 3.3) "John W. Krahn" <krahnj@telus.net>
9 14.7 ( 7.9/ 5.6/ 2.5) Tore Aursand <tore@aursand.no>
9 21.5 ( 7.3/ 14.2/ 10.2) Larry Felton Johnson <larryj@gsu.edu>
9 22.7 ( 8.5/ 14.3/ 5.2) Abhinav <matrix_calling@yahoo.dot.com>
8 10.7 ( 6.9/ 3.8/ 2.7) "daniel kaplan" <nospam@nospam.com>
8 12.0 ( 6.3/ 5.7/ 1.6) krakle <krakle@visto.com>
7 12.7 ( 6.2/ 4.9/ 2.1) Uri Guttman <uri@stemsystems.com>
6 11.0 ( 4.9/ 4.5/ 2.0) John Bokma <postmaster@castleamber.com>
6 15.9 ( 5.4/ 10.5/ 5.5) "LHradowy" <laura.hradowy@NOSPAM.mts.caaaaa>
5 17.0 ( 6.7/ 10.1/ 5.3) invalid-email@rochester.rr.com
5 9.1 ( 4.8/ 4.3/ 3.4) Stefan H . <stfhostf@kartos.de>
These posters accounted for 43.1% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
24 51.5 ( 23.0/ 28.5/ 14.6) "Paul Lalli" <mritty@gmail.com>
16 31.8 ( 19.3/ 12.5/ 5.7) Brian McCauley <nobull@mail.com>
15 24.9 ( 14.2/ 9.5/ 5.9) end@dream.com
14 20.4 ( 14.1/ 6.3/ 3.4) Joe Smith <Joe.Smith@inwap.com>
13 24.1 ( 10.1/ 14.0/ 6.0) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
12 26.1 ( 11.4/ 12.4/ 12.1) abigail@abigail.nl
11 55.7 ( 15.3/ 38.9/ 36.8) tadmc@augustmail.com
11 24.5 ( 12.2/ 11.5/ 4.7) "A. Sinan Unur" <1usa@llenroc.ude.invalid>
9 21.5 ( 7.3/ 14.2/ 10.2) Larry Felton Johnson <larryj@gsu.edu>
9 14.7 ( 7.9/ 5.6/ 2.5) Tore Aursand <tore@aursand.no>
9 19.4 ( 9.4/ 9.7/ 3.3) "John W. Krahn" <krahnj@telus.net>
9 12.4 ( 7.3/ 4.5/ 1.9) Gunnar Hjalmarsson <noreply@gunnar.cc>
8 12.0 ( 6.3/ 5.7/ 1.6) krakle <krakle@visto.com>
7 12.7 ( 6.2/ 4.9/ 2.1) Uri Guttman <uri@stemsystems.com>
6 22.7 ( 8.5/ 14.3/ 5.2) Abhinav <matrix_calling@yahoo.dot.com>
6 11.0 ( 4.9/ 4.5/ 2.0) John Bokma <postmaster@castleamber.com>
5 9.8 ( 4.3/ 5.5/ 3.2) Jim Keenan <jkeen_via_google@yahoo.com>
5 10.6 ( 4.3/ 5.0/ 1.4) Ben Morrow <usenet@morrow.me.uk>
5 12.0 ( 4.4/ 6.9/ 5.0) Eric Schwartz <emschwar@pobox.com>
5 17.0 ( 6.7/ 10.1/ 5.3) invalid-email@rochester.rr.com
These posters accounted for 48.7% of all followups.
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
55.7 ( 15.3/ 38.9/ 36.8) 13 tadmc@augustmail.com
51.5 ( 23.0/ 28.5/ 14.6) 24 "Paul Lalli" <mritty@gmail.com>
31.8 ( 19.3/ 12.5/ 5.7) 17 Brian McCauley <nobull@mail.com>
26.1 ( 11.4/ 12.4/ 12.1) 12 abigail@abigail.nl
24.9 ( 14.2/ 9.5/ 5.9) 19 end@dream.com
24.5 ( 12.2/ 11.5/ 4.7) 11 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
24.1 ( 10.1/ 14.0/ 6.0) 13 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
22.7 ( 8.5/ 14.3/ 5.2) 9 Abhinav <matrix_calling@yahoo.dot.com>
22.4 ( 2.7/ 19.1/ 18.3) 4 Greg Bacon <gbacon@hiwaay.net>
21.5 ( 7.3/ 14.2/ 10.2) 9 Larry Felton Johnson <larryj@gsu.edu>
20.4 ( 14.1/ 6.3/ 3.4) 14 Joe Smith <Joe.Smith@inwap.com>
19.4 ( 9.4/ 9.7/ 3.3) 9 "John W. Krahn" <krahnj@telus.net>
17.0 ( 6.7/ 10.1/ 5.3) 5 invalid-email@rochester.rr.com
15.9 ( 5.4/ 10.5/ 5.5) 6 "LHradowy" <laura.hradowy@NOSPAM.mts.caaaaa>
14.7 ( 7.9/ 5.6/ 2.5) 9 Tore Aursand <tore@aursand.no>
12.7 ( 6.2/ 4.9/ 2.1) 7 Uri Guttman <uri@stemsystems.com>
12.5 ( 3.5/ 9.0/ 6.6) 5 David Frauzel <nemo@weathersong.net>
12.4 ( 7.3/ 4.5/ 1.9) 9 Gunnar Hjalmarsson <noreply@gunnar.cc>
12.0 ( 6.3/ 5.7/ 1.6) 8 krakle <krakle@visto.com>
12.0 ( 4.4/ 6.9/ 5.0) 5 Eric Schwartz <emschwar@pobox.com>
These posters accounted for 46.4% of the total volume.
Top 8 Posters by Volume of Original Content (min. ten posts)
============================================================
(kb)
Posts orig Address
----- ----- -------
13 36.8 tadmc@augustmail.com
24 14.6 "Paul Lalli" <mritty@gmail.com>
12 12.1 abigail@abigail.nl
13 6.0 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
19 5.9 end@dream.com
17 5.7 Brian McCauley <nobull@mail.com>
11 4.7 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
14 3.4 Joe Smith <Joe.Smith@inwap.com>
These posters accounted for 29.3% of the original volume.
Top 8 Posters by OCR (minimum of ten posts)
===========================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.973 ( 12.1 / 12.4) 12 abigail@abigail.nl
0.944 ( 36.8 / 38.9) 13 tadmc@augustmail.com
0.620 ( 5.9 / 9.5) 19 end@dream.com
0.532 ( 3.4 / 6.3) 14 Joe Smith <Joe.Smith@inwap.com>
0.512 ( 14.6 / 28.5) 24 "Paul Lalli" <mritty@gmail.com>
0.455 ( 5.7 / 12.5) 17 Brian McCauley <nobull@mail.com>
0.429 ( 6.0 / 14.0) 13 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.408 ( 4.7 / 11.5) 11 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Bottom 8 Posters by OCR (minimum of ten posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.973 ( 12.1 / 12.4) 12 abigail@abigail.nl
0.944 ( 36.8 / 38.9) 13 tadmc@augustmail.com
0.620 ( 5.9 / 9.5) 19 end@dream.com
0.532 ( 3.4 / 6.3) 14 Joe Smith <Joe.Smith@inwap.com>
0.512 ( 14.6 / 28.5) 24 "Paul Lalli" <mritty@gmail.com>
0.455 ( 5.7 / 12.5) 17 Brian McCauley <nobull@mail.com>
0.429 ( 6.0 / 14.0) 13 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.408 ( 4.7 / 11.5) 11 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
8 posters (4%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
22 new commands written in perl
19 Help with my brute force method
19 path delimiter in windows platform("/" could change to "\"?)
19 what's wrong in this Perl Regex expression?
16 How is this Perl Script encrypted?
12 Continous Looping of a List
12 Xah Lee's Unixism
12 Printing an array of hash refs
12 what module could easiely load all files to a @array from a specified folder(and subfolders)?
12 Is it possible to embed perl inside a shell script say bash?
11 space deliminated to comma delinated with varried and need spaces between some columns
11 Precedence of exponentiation
10 Printing regex match
9 how to separate all but www addresses?
9 order a semicolon-separated data file by a value of a column
8 newbie OPEN MAIL perl question
8 Modulus Operator (%)
8 Untainting a filehandle
8 Counting most frequently-occurring n-grams in a file (or over multiple files)
8 Perl script to clean up file -- Dont know if it can be done
These threads accounted for 49.6% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
44.5 ( 20.1/ 22.1/ 14.4) 22 new commands written in perl
35.7 ( 17.6/ 17.7/ 10.7) 19 Help with my brute force method
34.3 ( 1.9/ 32.3/ 32.3) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
34.2 ( 17.9/ 14.8/ 6.8) 19 path delimiter in windows platform("/" could change to "\"?)
33.9 ( 18.1/ 14.4/ 7.1) 19 what's wrong in this Perl Regex expression?
28.3 ( 14.8/ 13.3/ 7.3) 16 How is this Perl Script encrypted?
28.0 ( 10.6/ 16.6/ 6.1) 12 Continous Looping of a List
27.0 ( 9.2/ 17.4/ 12.3) 11 Precedence of exponentiation
26.9 ( 15.5/ 10.5/ 4.1) 12 Xah Lee's Unixism
26.1 ( 9.6/ 16.1/ 5.9) 11 space deliminated to comma delinated with varried and need spaces between some columns
22.3 ( 7.0/ 15.3/ 8.4) 8 Perl script to clean up file -- Dont know if it can be done
21.4 ( 8.8/ 12.3/ 7.1) 9 order a semicolon-separated data file by a value of a column
20.3 ( 11.6/ 8.0/ 5.6) 12 Is it possible to embed perl inside a shell script say bash?
18.6 ( 9.5/ 8.8/ 4.6) 10 Printing regex match
18.6 ( 5.2/ 13.3/ 6.7) 6 What does this do ? !/somestring/
18.3 ( 10.7/ 7.3/ 2.9) 12 Printing an array of hash refs
16.0 ( 6.5/ 9.5/ 3.0) 6 DBI::ODBC Remote Login to Server
15.9 ( 9.5/ 6.3/ 3.1) 9 how to separate all but www addresses?
15.8 ( 6.3/ 9.4/ 4.8) 7 split problem
15.5 ( 10.3/ 4.8/ 3.3) 12 what module could easiely load all files to a @array from a specified folder(and subfolders)?
These threads accounted for 51.2% of the total volume.
Top 13 Threads by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.703 ( 12.3/ 17.4) 11 Precedence of exponentiation
0.700 ( 5.6/ 8.0) 12 Is it possible to embed perl inside a shell script say bash?
0.697 ( 3.3/ 4.8) 12 what module could easiely load all files to a @array from a specified folder(and subfolders)?
0.652 ( 14.4/ 22.1) 22 new commands written in perl
0.607 ( 10.7/ 17.7) 19 Help with my brute force method
0.545 ( 7.3/ 13.3) 16 How is this Perl Script encrypted?
0.520 ( 4.6/ 8.8) 10 Printing regex match
0.494 ( 7.1/ 14.4) 19 what's wrong in this Perl Regex expression?
0.459 ( 6.8/ 14.8) 19 path delimiter in windows platform("/" could change to "\"?)
0.403 ( 2.9/ 7.3) 12 Printing an array of hash refs
0.389 ( 4.1/ 10.5) 12 Xah Lee's Unixism
0.365 ( 6.1/ 16.6) 12 Continous Looping of a List
0.365 ( 5.9/ 16.1) 11 space deliminated to comma delinated with varried and need spaces between some columns
Bottom 13 Threads by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.703 ( 12.3 / 17.4) 11 Precedence of exponentiation
0.700 ( 5.6 / 8.0) 12 Is it possible to embed perl inside a shell script say bash?
0.697 ( 3.3 / 4.8) 12 what module could easiely load all files to a @array from a specified folder(and subfolders)?
0.652 ( 14.4 / 22.1) 22 new commands written in perl
0.607 ( 10.7 / 17.7) 19 Help with my brute force method
0.545 ( 7.3 / 13.3) 16 How is this Perl Script encrypted?
0.520 ( 4.6 / 8.8) 10 Printing regex match
0.494 ( 7.1 / 14.4) 19 what's wrong in this Perl Regex expression?
0.459 ( 6.8 / 14.8) 19 path delimiter in windows platform("/" could change to "\"?)
0.403 ( 2.9 / 7.3) 12 Printing an array of hash refs
0.389 ( 4.1 / 10.5) 12 Xah Lee's Unixism
0.365 ( 6.1 / 16.6) 12 Continous Looping of a List
0.365 ( 5.9 / 16.1) 11 space deliminated to comma delinated with varried and need spaces between some columns
13 threads (12%) had at least ten posts.
Top 7 Targets for Crossposts
============================
Articles Newsgroup
-------- ---------
12 comp.lang.python
12 alt.folklore.computers
12 comp.unix.programmer
12 comp.lang.lisp
5 comp.lang.perl.modules
1 alt.www.webmaster
1 comp.lang.perl
Top 11 Crossposters
===================
Articles Address
-------- -------
12 albalmer@spamcop.net
12 Chuck Dillon <spam@nimblegen.com>
8 cbfalconer@worldnet.att.net
4 "Charlie Gibbs" <cgibbs@kltpzyxm.invalid>
4 SM Ryan <wyrmwif@tango-sierra-oscar-foxtrot-tango.fake.org>
4 Patrick Scheible <kkt@drizzle.com>
4 joe@invalid.address
3 Abhinav <matrix_calling@yahoo.dot.com>
2 Ilya Zakharevich <nospam-abuse@ilyaz.org>
1 Justin Koivisto <spam@koivi.com>
1 Ian Sedwell <ian.sedwell@btclick.com>
------------------------------
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 7182
***************************************
