[19738] in Perl-Users-Digest
Perl-Users Digest, Issue: 1933 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 15 11:05:36 2001
Date: Mon, 15 Oct 2001 08:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <1003158310-v10-i1933@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 15 Oct 2001 Volume: 10 Number: 1933
Today's topics:
Re: #!/usr/bin/perl not being parsed properly <jllachan@interlink.net>
Re: #!/usr/bin/perl not being parsed properly <Thomas@Baetzler.de>
$x ||= $y; <wzilgens@consem.de>
Re: $x ||= $y; <bernard.el-hagin@lido-tech.net>
Re: Array as a variable <tsee@gmx.net>
Re: Balanced RegExp Pattern? <Thomas@Baetzler.de>
Re: Balanced RegExp Pattern? (Anno Siegel)
How can I do the same in perl ? - VB Command SenKeys <tonino.sclavont@clin.ucl.ac.be>
How can I do this ? - VB Command SendKeys <tonino.sclavont@clin.ucl.ac.be>
Re: How can I do this ? - VB Command SendKeys <bernard.el-hagin@lido-tech.net>
Re: How can I do this ? - VB Command SendKeys <tonino.sclavont@clin.ucl.ac.be>
Re: How can I do this ? - VB Command SendKeys <bernard.el-hagin@lido-tech.net>
Re: How can I do this ? - VB Command SendKeys <tsee@gmx.net>
Re: How do you get paid for Perl work over the Internet <joe+usenet@sunstarsys.com>
Re: I need to simulate keyboard keypress to an external (John J. Trammell)
Re: Length of last matched substring? <bryan@ayesha.phys.Virginia.EDU>
LWP::UserAgent NT and Solaris difference (mbower)
Re: LWP::UserAgent NT and Solaris difference <johni@pa.press.net>
Re: LWP::UserAgent NT and Solaris difference (mbower)
Re: LWP::UserAgent NT and Solaris difference <JPFauvelle@Colt-Telecom.fr>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Newbies welcome <johni@pa.press.net>
perl -e '$a="\'";print "$a\n"' What's wrong with it ? (Laird)
Re: perl -e '$a="\'";print "$a\n"' What's wrong with i <andrew@erlenstar.demon.co.uk>
Re: perl -e '$a="\'";print "$a\n"' What's wrong with it <Thomas@Baetzler.de>
Problems with ActiveState and MCPAN <wusyk@americasm01.nt.com>
Re: Problems with ActiveState and MCPAN <Thomas@Baetzler.de>
Re: Problems with ActiveState and MCPAN <dan@tuatha.sidhe.org>
Re: sort an array and print out biggest number <JPFauvelle@Colt-Telecom.fr>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 15 Oct 2001 09:40:49 -0400
From: Jean-Luc Lachance <jllachan@interlink.net>
Subject: Re: #!/usr/bin/perl not being parsed properly
Message-Id: <3BCAE761.2F2E6213@interlink.net>
Wyzelli wrote:
>
> "Jean-Luc Lachance" <jllachan@interlink.net> wrote in message
> news:3BCA75F5.3D1BE576@interlink.net...
> > #!/usr/bin/perl not being parsed properly
> >
> > If only I typed it properly it would be easier to understand. :)
> >
> >
> > The problem is that none of the existing script will run without
> > #!/usr/bin/perl -w
> >
> > Even something as simple as
> >
> > #!/usr/bin/perl
> > print "Hello world\n";
> >
> > won't work without -w
> >
>
> See point 1 in my previous post. Your line endings are probably wrong.
>
> When you have the -w after the #!/usr/bin/perl, then bash can read as far as
> perl and knows what interpreter to process, though it may not understand
> the -w properly because of the faulty line ending.
>
> With #!/usr/bin/perl the last character is wrong and so there is no file.
>
> Correct the line ending by either editing on unix (with pico or vi or
> similar) or ensure that you transfer in ascii mode.
>
> Wyzelli
> --
I did all that without success.
I am begining to think that bash is at fault here.
--
Jean-Luc
------------------------------
Date: Mon, 15 Oct 2001 16:11:55 +0200
From: =?ISO-8859-1?Q?Thomas_B=E4tzler?= <Thomas@Baetzler.de>
Subject: Re: #!/usr/bin/perl not being parsed properly
Message-Id: <tirlstokvg5aejml9d9ol8to36qvij6b8q@4ax.com>
On Mon, 15 Oct 2001, Jean-Luc Lachance <jllachan@interlink.net> wrote:
>I did all that without success.
>I am begining to think that bash is at fault here.
Try uploading the following code. It'll tell you what line terminators
you're using.
#!/usr/bin/perl -w
use strict;
print"Content-type: text/plain\n\n";
open( SELF, $0 ) or die "Can't open self: $!\n";
binmode( SELF );
if( defined( my $line = <SELF> ) ){
print "Bang line as hex: ", join( ", ",
map { $_ = sprintf "%02x", ord }
split //, $line ), "\n";
if( $line =~ m/\015\012$/ ){
print "Lines terminated with CRLF!\n";
} elsif( $line =~ m/\012$/ ){
print "Lines terminated with LF!\n";
} else {
print "Line terminated with something else!\n";
}
}
close( SELF );
__END__
HTH,
--
use strict;my($i,$t,@r)=(0,'5 -.@BHJPT4acd6e2hk2lmn2o4r2s3tuz',map{ord}
split//,unpack('u*','L#`T&)QD5#0`#!!`#%1D)#08`#P05!!(3``$$"``#"0L&``('.
'"`P<!`````0$`'));$t=~s/(\d)(.)/$2x$1/eg;map{$t.=substr$t,$i,1,''while
$_--;$i++}@r;print"$t\n";# Thomas@Baetzler.de - http://baetzler.de/perl
------------------------------
Date: Mon, 15 Oct 2001 16:18:10 +0200
From: "Wolfgang Zilgens" <wzilgens@consem.de>
Subject: $x ||= $y;
Message-Id: <3bcaf052$0$183$4d4ebb8e@read.news.de.uu.net>
can anybody tell me what this statement does?
------------------------------
Date: 15 Oct 2001 14:24:26 GMT
From: Bernard El-Hagin <bernard.el-hagin@lido-tech.net>
Subject: Re: $x ||= $y;
Message-Id: <slrn9sls11.85e.bernard.el-hagin@gdndev25.lido-tech>
On Mon, 15 Oct 2001 16:18:10 +0200, Wolfgang Zilgens <wzilgens@consem.de>
wrote:
> can anybody tell me what this statement does?
It sets $x to $y unless $x has a true values.
It's equivalent to:
$x = $x || $y;
To learn more read:
perldoc perlop
Cheers,
Bernard
------------------------------
Date: Mon, 15 Oct 2001 15:14:17 +0200
From: "Steffen Müller" <tsee@gmx.net>
Subject: Re: Array as a variable
Message-Id: <9qens6$9g0$05$1@news.t-online.com>
"Blnukem" <blnukem@hotmail.com> schrieb im Newsbeitrag
news:2EAy7.13636$yj.2096939@news02.optonline.net...
| Hi All
|
| I need help with this, What I'm trying to do is retrieve a form "value"
that
| is always different. 1-10 fist page 11-20 next page and so on I cant seem
to
| figure it out. I can get "$0 = $FORM{'0'} $1 = $FORM{'1'}" pushed into an
| array but how can I assign each in the array as a variable to be used in
the
| script?
First: Are you using strict and warnings?
| print "Content-type: text/html\n\n"
Have you looked into the CGI module?
| for ($i = 0; $i < 10; $i +=1 ) {
| push (@TEMP, "\$$i = \$FORM{'$i'}\;\n" )
| }
Why do you want to use individual vars? Why not use an array in the first
place?
If you want to just access the form value, use $form{$i} (in Perl 5.6 and
up). If you want to assing that value to something else, use $var =
$form{$i}. If you want a reference to the form value (and that's how I
interpret your 'question'), use $ref = \$form{$i}.
However, you might not want to use the vars $1...
Why don't you use an array for that?
my @ref_array;
foreach ( 0 .. 9 ) {
push ( @ref_array, \$form{$_} );
}
You shouldn't use all-caps var names in most cases.
Steffen
--
$_=q;33352987319029872958319011313364356732192639127636833335345138283712
3712336415083973397340602842912;;s;\n;;;print"\n";$o=$_;push@o,substr($o,
$_*4,4)for(0..24);pop@o;for(@o){$i++;print' 'x(26-$i).(chr$_/29-$i)."\n"}
------------------------------
Date: Mon, 15 Oct 2001 15:41:42 +0200
From: =?ISO-8859-1?Q?Thomas_B=E4tzler?= <Thomas@Baetzler.de>
Subject: Re: Balanced RegExp Pattern?
Message-Id: <1jplstcf5vrlam3foi9jmkl0mrp6a0m71t@4ax.com>
On 15 Oct 2001, anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote:
>According to Davin Shearer <davin@cablespeed.com.ns>:
>> I'm using Java oro to use Perl regular expressions in a servlet I'm
[snip]
>You probably want Text::Balanced.
Want, yes. But has somebody ported that to Java yet?
SCNR,
--
use strict;my($i,$t,@r)=(0,'5 -.@BHJPT4acd6e2hk2lmn2o4r2s3tuz',map{ord}
split//,unpack('u*','L#`T&)QD5#0`#!!`#%1D)#08`#P05!!(3``$$"``#"0L&``('.
'"`P<!`````0$`'));$t=~s/(\d)(.)/$2x$1/eg;map{$t.=substr$t,$i,1,''while
$_--;$i++}@r;print"$t\n";# Thomas@Baetzler.de - http://baetzler.de/perl
------------------------------
Date: 15 Oct 2001 14:14:24 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Balanced RegExp Pattern?
Message-Id: <9qer00$9jp$1@mamenchi.zrz.TU-Berlin.DE>
According to Thomas Bätzler <Thomas@Baetzler.de>:
> On 15 Oct 2001, anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote:
>
> >According to Davin Shearer <davin@cablespeed.com.ns>:
> >> I'm using Java oro to use Perl regular expressions in a servlet I'm
> [snip]
> >You probably want Text::Balanced.
>
> Want, yes. But has somebody ported that to Java yet?
I have no idea. If not, a look at the source will probably show ways
how to deal with balanced text.
Anno
------------------------------
Date: Mon, 15 Oct 2001 16:53:54 +0200
From: "Tonino Sclavont" <tonino.sclavont@clin.ucl.ac.be>
Subject: How can I do the same in perl ? - VB Command SenKeys
Message-Id: <9qeta2$vo$1@ail.sri.ucl.ac.be>
I'd like to send Keys to an external application (Win32)
With VB it's look like this (and it works)
AppActivate 2048
SendKeys "tagada"
Where 2048 is the process number of an external application.
Is it possible to do the same with perl ? How ?
Thank you.
------------------------------
Date: Mon, 15 Oct 2001 16:22:24 +0200
From: "Tonino Sclavont" <tonino.sclavont@clin.ucl.ac.be>
Subject: How can I do this ? - VB Command SendKeys
Message-Id: <9qereu$he$1@ail.sri.ucl.ac.be>
I'd like to send Keys to an external application (Win32)
With VB it's look like this (and it works)
AppActivate 2048
SendKeys "tagada"
Where 2048 is the process number of an external application.
Thank you.
------------------------------
Date: 15 Oct 2001 14:26:06 GMT
From: Bernard El-Hagin <bernard.el-hagin@lido-tech.net>
Subject: Re: How can I do this ? - VB Command SendKeys
Message-Id: <slrn9sls45.85e.bernard.el-hagin@gdndev25.lido-tech>
On Mon, 15 Oct 2001 16:22:24 +0200, Tonino Sclavont
<tonino.sclavont@clin.ucl.ac.be> wrote:
> I'd like to send Keys to an external application (Win32)
> With VB it's look like this (and it works)
> AppActivate 2048
> SendKeys "tagada"
> Where 2048 is the process number of an external application.
Now that you got that off your chest how about a Perl
question?
> Thank you.
You're welcome.
Cheers,
Bernard
------------------------------
Date: Mon, 15 Oct 2001 16:43:02 +0200
From: "Tonino Sclavont" <tonino.sclavont@clin.ucl.ac.be>
Subject: Re: How can I do this ? - VB Command SendKeys
Message-Id: <9qesll$qi$2@ail.sri.ucl.ac.be>
I just try to do the same in Perl .
"Bernard El-Hagin" <bernard.el-hagin@lido-tech.net> wrote in message
news:slrn9sls45.85e.bernard.el-hagin@gdndev25.lido-tech...
> On Mon, 15 Oct 2001 16:22:24 +0200, Tonino Sclavont
> <tonino.sclavont@clin.ucl.ac.be> wrote:
> > I'd like to send Keys to an external application (Win32)
> > With VB it's look like this (and it works)
> > AppActivate 2048
> > SendKeys "tagada"
> > Where 2048 is the process number of an external application.
>
>
> Now that you got that off your chest how about a Perl
> question?
>
>
> > Thank you.
>
>
> You're welcome.
>
>
> Cheers,
> Bernard
------------------------------
Date: 15 Oct 2001 14:52:07 GMT
From: Bernard El-Hagin <bernard.el-hagin@lido-tech.net>
Subject: Re: How can I do this ? - VB Command SendKeys
Message-Id: <slrn9sltku.85e.bernard.el-hagin@gdndev25.lido-tech>
On Mon, 15 Oct 2001 16:43:02 +0200, Tonino Sclavont
<tonino.sclavont@clin.ucl.ac.be> wrote:
> "Bernard El-Hagin" <bernard.el-hagin@lido-tech.net> wrote in message
> news:slrn9sls45.85e.bernard.el-hagin@gdndev25.lido-tech...
>> On Mon, 15 Oct 2001 16:22:24 +0200, Tonino Sclavont
>> <tonino.sclavont@clin.ucl.ac.be> wrote:
>> > I'd like to send Keys to an external application (Win32)
>> > With VB it's look like this (and it works)
>> > AppActivate 2048
>> > SendKeys "tagada"
>> > Where 2048 is the process number of an external application.
>>
>>
>> Now that you got that off your chest how about a Perl
>> question?
>>
>>
>> > Thank you.
>>
>>
>> You're welcome.
>
>
> I just try to do the same in Perl .
Then state your problem in terms which everyone here, including
people who wisely don't give a damn about VB, will understand.
And don't top-post or you'll be ignored by many/most of them.
Cheers,
Bernard
------------------------------
Date: Mon, 15 Oct 2001 16:59:31 +0200
From: "Steffen Müller" <tsee@gmx.net>
Subject: Re: How can I do this ? - VB Command SendKeys
Message-Id: <9qeti6$irp$06$1@news.t-online.com>
"Bernard El-Hagin" <bernard.el-hagin@lido-tech.net> schrieb im Newsbeitrag
news:slrn9sltku.85e.bernard.el-hagin@gdndev25.lido-tech...
|
| And don't top-post or you'll be ignored by many/most of them.
AND don't post the same question in more than one newsgroup at the same
time. That annoys of regulars and you want those to help you.
Steffen
--
$_=q;33352987319029872958319011313364356732192639127636833335345138283712
3712336415083973397340602842912;;s;\n;;;print"\n";$o=$_;push@o,substr($o,
$_*4,4)for(0..24);pop@o;for(@o){$i++;print' 'x(26-$i).(chr$_/29-$i)."\n"}
------------------------------
Date: 15 Oct 2001 09:54:02 -0400
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: How do you get paid for Perl work over the Internet??
Message-Id: <m37ktxdn5x.fsf@mumonkan.sunstarsys.com>
Carlos C. Gonzalez <aperlprogrammer@yahoo.com> writes:
> If they want work done very quickly they should also go to
> experienced programmers but if the difference between getting things done
> in 1 day verses 4 (I'm really stretching it here) is no big deal to them
> why not save themselves some money?
If anything, that's an understatement- a top programmer is often 10-20 times
as productive as their *peers*. See f.e.
http://www.construx.com/stevemcc/ieeesoftware/bp14.htm
[...]
> Did I say something offensive to you or others? I am truly and sincerely
> sorry if I did. I did not mean to. Take my statements as the ramblings
> of a naive beginner if you must but please know that I did not mean to
> offend you or anyone else.
This is not the appropriate forum for discussions of business plans.
When you do it here, it comes across as more of a publicity stunt
rather than a genuine inquiry.
[...]
> It feels as though I have accidentally stepped on a holy grail of some
> sort and am now feeling the heat of a bath in hot oil.
Your description reminds me of what extropia.com (selena sol & friends)
does, so you might want to read their PR stuff. But in no way
should you construe this pointer as some sort of endorsement.
f-up's set.
--
"You may be a mighty king," he said. "But you're sitting in oobleck up to your
chin. And so is everyone else in your land. And if you won't even say you're
sorry, you're no sort of a king at all!"
-- Dr. Seuss
------------------------------
Date: Mon, 15 Oct 2001 09:16:44 -0500
From: trammell@haqq.hypersloth.invalid (John J. Trammell)
Subject: Re: I need to simulate keyboard keypress to an external application
Message-Id: <slrn9slrub.ag8.trammell@haqq.hypersloth.net>
On Mon, 15 Oct 2001 12:05:33 +0200, Tonino Sclavont
<tonino.sclavont@clin.ucl.ac.be> wrote:
> I need to simulate keyboard keypress to an external application
>
> I want to close an external apllication ( dos type ) automaticaly.
>
> For that I need to send a sequence of caracters to that application.
>
> The only things I know is the process number and its name.
>
> Than you.
>
You're probably looking for the Expect module:
http://theoryx5.uwinnipeg.ca/CPAN/data/Expect.pm/Expect.html
--
If you don't look at the fnord, it can't get you.
------------------------------
Date: 15 Oct 2001 14:54:22 GMT
From: "Bryan K. Wright" <bryan@ayesha.phys.Virginia.EDU>
Subject: Re: Length of last matched substring?
Message-Id: <9qetau$sfq$1@murdoch.acc.Virginia.EDU>
Hi folks,
Thanks for all of the suggestions. I'm playing around with
them now. (And learning more about regexps than I ever wanted to know.)
For those of you who are interested, let me clarify what I'm
trying to accomplish:
I have a text file, with "section headers" of the form:
Section 1: Stuff
----------------
This is the text of section 1.
...and I'd like to convert occurrences of such headers into HTML-style
underscored text. I'm not interested in "underscored" words embedded
in a line. Since this is purely prettyprinting (no time pressure,
nobody really cares if it ever gets done), I'd like to come up with a
halfway-elegant solution. (If anyone sees it, I can't use the
excuse "I HAD to do that awful kluge, because of the DEADLINE!".)
Bryan
--
===============================================================================
Bryan Wright |"If you take cranberries and stew them like
Physics Department | applesauce, they taste much more like prunes
University of Virginia | than rhubarb does." -- Groucho
Charlottesville, VA 22901 |
(434) 924-7218 | bryan@virginia.edu
===============================================================================
------------------------------
Date: Mon, 15 Oct 2001 14:20:31 GMT
From: mbower@ibuk.bankgesellschaft.de (mbower)
Subject: LWP::UserAgent NT and Solaris difference
Message-Id: <3bcaedf9.1402790875@news>
The code below works fine under Solaris, but reults in corrupted jpg
files under NT. After running on Solaris I FTP the files to an NT box
and they appear ok, running the same script under Activestate 5.6.1
build 629 reults in jpg files with jibberish inside.
Is this due to the way I'm saving the file (print FH) ?
use LWP::UserAgent;
use HTML::LinkExtor;
use URI::URL;
my $url = "http://asite/images/file.jpg";
my $tempfile = &get_page($url);
open(FH,">/temp/testfile");
print FH $tempfile;
close(FH);
sub get_page {
my ($checkurl) = @_;
my $agent = new LWP::UserAgent;
my $retval;
$agent->agent( "$0/0.1 " . $agent->agent );
my $request = new HTTP::Request 'GET' => $checkurl;
$request->header( 'Accept' => 'text/html' );
$agent->proxy( http => "http://locaholst:8080" );
$request->proxy_authorization_basic( "nearly", "leftitin" );
my $result = $agent->request( $request );
if ( $result->is_success ) { $retval = $result->content } else
{ print "Error: " . $result->status_line . "\n"; }
return($retval);
}
------------------------------
Date: Mon, 15 Oct 2001 15:42:33 +0100
From: John Imrie <johni@pa.press.net>
Subject: Re: LWP::UserAgent NT and Solaris difference
Message-Id: <3BCAF5D9.9010109@pa.press.net>
mbower wrote:
> The code below works fine under Solaris, but reults in corrupted jpg
> files under NT. After running on Solaris I FTP the files to an NT box
> and they appear ok, running the same script under Activestate 5.6.1
> build 629 reults in jpg files with jibberish inside.
>
> Is this due to the way I'm saving the file (print FH) ?
>
>
> use LWP::UserAgent;
> use HTML::LinkExtor;
> use URI::URL;
>
> my $url = "http://asite/images/file.jpg";
> my $tempfile = &get_page($url);
> open(FH,">/temp/testfile");
> print FH $tempfile;
> close(FH);
>
> sub get_page {
> my ($checkurl) = @_;
> my $agent = new LWP::UserAgent;
> my $retval;
> $agent->agent( "$0/0.1 " . $agent->agent );
>
> my $request = new HTTP::Request 'GET' => $checkurl;
> $request->header( 'Accept' => 'text/html' );
> $agent->proxy( http => "http://locaholst:8080" );
> $request->proxy_authorization_basic( "nearly", "leftitin" );
> my $result = $agent->request( $request );
>
> if ( $result->is_success ) { $retval = $result->content } else
> { print "Error: " . $result->status_line . "\n"; }
> return($retval);
> }
Because of MS's crappy LF to NL/LF translation you nead to 'binmode' the
output file.
See perldoc -f binmode for more info
------------------------------
Date: Mon, 15 Oct 2001 14:36:51 GMT
From: mbower@ibuk.bankgesellschaft.de (mbower)
Subject: Re: LWP::UserAgent NT and Solaris difference
Message-Id: <3bcaf3ea.1404312234@news>
probably get flamed now, but I subesquently found that
binmode FH;
would have sorted this under Dos. Apologies for time wasting
p.s any pointers for finding this under perldoc would be welcomed
------------------------------
Date: Mon, 15 Oct 2001 16:56:23 +0200
From: Jean-Philippe Fauvelle <JPFauvelle@Colt-Telecom.fr>
Subject: Re: LWP::UserAgent NT and Solaris difference
Message-Id: <i4ulsto42mdofp70c00h4vnclktp1c0qcv@4ax.com>
Le Mon, 15 Oct 2001 14:20:31 GMT, mbower@ibuk.bankgesellschaft.de (mbower) écrit:
>The code below works fine under Solaris, but reults in corrupted jpg
>files under NT. After running on Solaris I FTP the files to an NT box
>and they appear ok, running the same script under Activestate 5.6.1
>build 629 reults in jpg files with jibberish inside.
>
>Is this due to the way I'm saving the file (print FH) ?
FH is open in ascii mode by default, but your file contains binary...
perldoc -f binmode
open(FH,">/temp/testfile") or die "open failed - $!";
binmode(FH);
Jean-Philippe Fauvelle
------------------------------
Date: Mon, 15 Oct 2001 14:48:47 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <tsltqfa396nmc2@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 08 Oct 2001 15:47:42 GMT and ending at
15 Oct 2001 14:44:46 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: 127 (41.8% of all posters)
Articles: 199 (20.1% of all articles)
Volume generated: 330.4 kb (18.6% of total volume)
- headers: 161.8 kb (3,210 lines)
- bodies: 163.5 kb (5,655 lines)
- original: 118.1 kb (4,344 lines)
- signatures: 4.9 kb (123 lines)
Original Content Rating: 0.722
Averages
========
Posts per poster: 1.6
median: 1 post
mode: 1 post - 88 posters
s: 1.4 posts
Message size: 1700.3 bytes
- header: 832.7 bytes (16.1 lines)
- body: 841.4 bytes (28.4 lines)
- original: 607.8 bytes (21.8 lines)
- signature: 25.2 bytes (0.6 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
8 20.6 ( 9.7/ 10.9/ 6.2) "Geoff Clark" <gclark@wavetel.com>
5 11.4 ( 5.9/ 5.5/ 3.3) Geoffrey Pointer <geoffrey@bigpond.net.au>
5 10.2 ( 4.8/ 5.4/ 3.0) "MrsKensingtonUK" <MrsKensingtonUK@yahoo.co.uk>
4 6.0 ( 3.3/ 2.7/ 1.1) "Mina Naguib" <spam@thecouch.homeip.net>
4 7.9 ( 4.4/ 3.5/ 0.9) tm <tmoero@yahoo.invalid>
4 5.0 ( 3.5/ 1.4/ 1.3) "Tim from AZ" <tim_odomNOSPAM@NOSPAMhotmail.com>
4 8.1 ( 2.5/ 5.6/ 2.4) M.A. Oxby <JHM1MAO@leeds.ac.uk>
4 7.2 ( 2.7/ 4.5/ 2.1) Andrea <rubash@navigatenewmedia.com>
3 2.0 ( 1.4/ 0.5/ 0.5) Choareau <choareau@aol.com>
3 3.2 ( 2.0/ 1.2/ 0.8) Liu Wen <divetolife@yahoo.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
-------------------------- ----- -------
20.6 ( 9.7/ 10.9/ 6.2) 8 "Geoff Clark" <gclark@wavetel.com>
11.4 ( 5.9/ 5.5/ 3.3) 5 Geoffrey Pointer <geoffrey@bigpond.net.au>
10.2 ( 4.8/ 5.4/ 3.0) 5 "MrsKensingtonUK" <MrsKensingtonUK@yahoo.co.uk>
8.3 ( 2.3/ 6.0/ 5.9) 3 "Usyk, Walter [SKY:1P67:EXCH]" <wusyk@americasm01.nt.com>
8.1 ( 2.5/ 5.6/ 2.4) 4 M.A. Oxby <JHM1MAO@leeds.ac.uk>
7.9 ( 4.4/ 3.5/ 0.9) 4 tm <tmoero@yahoo.invalid>
7.2 ( 2.7/ 4.5/ 2.1) 4 Andrea <rubash@navigatenewmedia.com>
7.2 ( 1.5/ 5.7/ 5.7) 2 "Aaron Wright" <wright.546@osu.edu>
6.0 ( 3.3/ 2.7/ 1.1) 4 "Mina Naguib" <spam@thecouch.homeip.net>
5.6 ( 1.6/ 4.0/ 2.8) 2 "Eric Cifreo" <ecifreo@austin.rr.com>
These posters accounted for 5.2% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 3.3 / 3.3) 3 Kimo R. <kimor79@hotmail.com>
1.000 ( 1.8 / 1.8) 3 Joel Caughran <caughran@chem.uga.edu>
1.000 ( 1.8 / 1.8) 3 "Anthony Heuveline" <Anthony.Heuveline@wanadoo.fr>
1.000 ( 0.5 / 0.5) 3 Choareau <choareau@aol.com>
0.982 ( 5.9 / 6.0) 3 "Usyk, Walter [SKY:1P67:EXCH]" <wusyk@americasm01.nt.com>
0.930 ( 1.3 / 1.4) 4 "Tim from AZ" <tim_odomNOSPAM@NOSPAMhotmail.com>
0.780 ( 1.5 / 1.9) 3 "JHWB" <johan@basberg.comNOSPAM>
0.723 ( 0.8 / 1.2) 3 Liu Wen <divetolife@yahoo.com>
0.652 ( 1.5 / 2.3) 3 Sean O'Dwyer <notspam@spamfree.dud>
0.593 ( 3.3 / 5.5) 5 Geoffrey Pointer <geoffrey@bigpond.net.au>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.593 ( 3.3 / 5.5) 5 Geoffrey Pointer <geoffrey@bigpond.net.au>
0.570 ( 6.2 / 10.9) 8 "Geoff Clark" <gclark@wavetel.com>
0.552 ( 3.0 / 5.4) 5 "MrsKensingtonUK" <MrsKensingtonUK@yahoo.co.uk>
0.531 ( 0.8 / 1.5) 3 Ilmari Karonen <usenet11605@itz.pp.sci.fi>
0.472 ( 2.1 / 4.5) 4 Andrea <rubash@navigatenewmedia.com>
0.455 ( 1.0 / 2.2) 3 "Scott Bell" <news@scottbell.org>
0.432 ( 2.4 / 5.6) 4 M.A. Oxby <JHM1MAO@leeds.ac.uk>
0.424 ( 1.1 / 2.7) 4 "Mina Naguib" <spam@thecouch.homeip.net>
0.318 ( 0.9 / 2.7) 3 Jean-Luc Lachance <jllachan@interlink.net>
0.254 ( 0.9 / 3.5) 4 tm <tmoero@yahoo.invalid>
19 posters (14%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
24 alt.perl
16 comp.lang.python
16 comp.os.linux.misc
16 comp.lang.javascript
16 alt.config
8 comp.lang.perl.modules
5 comp.lang.scheme
5 comp.lang.tcl
4 comp.security.unix
4 comp.lang.perl.tk
Top 10 Crossposters
===================
Articles Address
-------- -------
20 Geoffrey Pointer <geoffrey@bigpond.net.au>
16 tm <tmoero@yahoo.invalid>
8 "nice.guy.nige" <spamfreenation@nigenet.org.uk>
4 Robert <bobh@hslda.org>
4 tm <tmoero@yahoo.com>
4 myohe+USENET@redhat.com
4 "Adrian Philpott" <RevolvingDoors@btopenworld.com>
2 "Usyk, Walter [SKY:1P67:EXCH]" <wusyk@americasm01.nt.com>
2 "yan" <pumalee2000@hotmail.com>
2 "Ehud Lamm" <mslamm@mscc.huji.ac.il>
------------------------------
Date: Mon, 15 Oct 2001 15:18:20 +0100
From: John Imrie <johni@pa.press.net>
Subject: Re: Newbies welcome
Message-Id: <3BCAF02C.1010102@pa.press.net>
Tracy Coyle wrote:
> Chris Stith wrote in message ...
>
>
>>>> Do not ever be afraid of asking a question...
>>>
>> Except when it's already answered for you.
>
>
>
> $t = "SELECT * FROM sessiontable WHERE pageID = $page";
>
> I apologize for using a php/mysql example but I spent 3 hours trying to find
> out why this query was not working. I reviewed both php and mysql
> documentation til my head hurt. First rule of programming...if it doesn't
> work, check the syntax (but that is not in the FAQ...)
>
>
>>> who was the brain that thought giving programmers access to manipulating
>>> memory directly was a good idea??!! Moved to Java....someone
>>
> recommended
>
>> Those who _need_ to access memory directly in programs, such as
>> driver programmers, OS programmers, embedded device programmers, etc
>> think dirct memory access is a good idea.
>
>
>
> So you would agree giving that type of memory access to someone on a remote
> machine is not a good idea? I believe that manipulating memory on the
> machine the code resides on is acceptable, sometimes desirable, even
> occasionally necessary.
>
>
>>> This newsgroup, like the others crossposted are excellant places to learn
>>> and teach.
>>
>> To learn and teach what is not already taught in the FAQs. When you
>> learn at a university, there arer these things called `prerequisite
>> courses', but I guess for you that means universities are bad places
>> to learn.
>
>
>
> I am unsure how you make this assumption (remote memory manipulation maybe!)
> but I think universities are fine places to learn. Unfortunately, many
> people have lives and responsibilities and can not return to school to learn
> new tasks/skills. When I was in college, they taught COBOL and RPG II.
> Java, C did not exist and the internet was still in its not-so-public
> infancy.
>
> And despite the excellant resources I have found for working with mysql and
> php, my experience is that the simplist questions are "so obvious" that no
> one addresses them formally. And you miss the point of FAQ's (frequently
> asked questions)...they don't teach anything....they answer specific
> questions....what if you don't know the right question...??
>
>
>
>>> To those that answer, thank you. To those that post, there are
>>> others just like you out here, to those that lurk and learn, no question
>>
> is
>
>>> stupid to the 50 others with the same question...
>>
>> The questions in the FAQs aren't stupid. No one says they are, otherwise
>> they'd probably not be in the FAQ. It's perfectly acceptable to not know
>> the answer to a question that's in a FAQ list. What's not acceptable is
>> to ask several hundred or a few thousand people to answer the same
>> question that was answered yesterday or that was answered on your hard
>> drive all along.
>
>
>
> Even you suggest 'stupid' questions "probably not be in the FAQ"....how do
> you know a stupid question? You know the answer? Sorry, but freshmen do
> not always know as much as seniors....if you don't like the questions
> freshmen ask....don't read them.
>
>
>> I have set followups to where this thread belongs: alt.dev.null;
>> I would have used alt.horse.dead.beating, but StuporNews doesn't
>> seem to carry that.
>
>
>
> Obviously you have missed the intent of the thread...to welcome newbies....
>
>
> Tracy
I tend to find, especially with the perl documentation, questions along
the line of 'where in the documentation is ...' accepable.
Otheres out there probaly have diffrent oppinions
------------------------------
Date: 15 Oct 2001 07:05:02 -0700
From: kenlaird@yahoo.com (Laird)
Subject: perl -e '$a="\'";print "$a\n"' What's wrong with it ?
Message-Id: <94a02505.0110150605.6c10be49@posting.google.com>
Hello everyone,
I would like to print ' and use it for some tests.
I tried this
perl -e '$a="\'";print "$a\n"'
but it yields
>
Any idea what's wrong with it?
Ken
------------------------------
Date: 15 Oct 2001 15:43:30 +0100
From: Andrew Gierth <andrew@erlenstar.demon.co.uk>
Subject: Re: perl -e '$a="\'";print "$a\n"' What's wrong with it ?
Message-Id: <87bsj92cbx.fsf@erlenstar.demon.co.uk>
>>>>> "Laird" == Laird <kenlaird@yahoo.com> writes:
Laird> Hello everyone,
Laird> I would like to print ' and use it for some tests.
Laird> I tried this
Laird> perl -e '$a="\'";print "$a\n"'
Laird> but it yields >
Laird> Any idea what's wrong with it?
You're not handling the quoting correctly. You don't say what shell
you use, but on standard Unix shells you can't use a ' character
within a single-quoted string, because \ is not considered a quote
character inside such strings.
You can do this:
$ perl -e '$a="'\''"; print "$a\n"'
note that the sequence '\'' ends the current single-quoted string,
follows it with a quoted `, then opens a new single-quoted string.
If you find that shell quoting rules are getting in the way too much,
then just put your script in a file and run it that way instead.
--
Andrew.
------------------------------
Date: Mon, 15 Oct 2001 16:15:48 +0200
From: =?ISO-8859-1?Q?Thomas_B=E4tzler?= <Thomas@Baetzler.de>
Subject: Re: perl -e '$a="\'";print "$a\n"' What's wrong with it ?
Message-Id: <3rrlstgaq2ijirnqssbdp67o98c7ol2jev@4ax.com>
On 15 Oct 2001 07:05:02, kenlaird@yahoo.com (Laird) wrote:
>perl -e '$a="\'";print "$a\n"'
[...]
>Any idea what's wrong with it?
Yes.
perl -e '$a=chr(96);print "$a\n"' or read up on shell quoting.
HTH,
--
use strict;my($i,$t,@r)=(0,'5 -.@BHJPT4acd6e2hk2lmn2o4r2s3tuz',map{ord}
split//,unpack('u*','L#`T&)QD5#0`#!!`#%1D)#08`#P05!!(3``$$"``#"0L&``('.
'"`P<!`````0$`'));$t=~s/(\d)(.)/$2x$1/eg;map{$t.=substr$t,$i,1,''while
$_--;$i++}@r;print"$t\n";# Thomas@Baetzler.de - http://baetzler.de/perl
------------------------------
Date: Mon, 15 Oct 2001 09:15:16 -0400
From: "Usyk, Walter [SKY:1P67:EXCH]" <wusyk@americasm01.nt.com>
To: perl-win32-users-request@listserv.ActiveState.com, perl-win32-admin-request@listserv.ActiveState.com
Subject: Problems with ActiveState and MCPAN
Message-Id: <3BCAE163.108A40A8@americasm01.nt.com>
I compiled and installed the ActiveState perl 5.6.1. I'm trying to
install packages using MCPAN but I get the error below. Does anyone have
an idea why this is happening. I'm running Windows NT and compiled using
VC++ 6.
Thanks for your help
F:\Program Files\Microsoft Visual Studio\VC98\Bin>perl -MCPAN -e shell
cpan shell -- CPAN exploration and modules installation (v1.59_54)
ReadLine support available (try 'install Bundle::CPAN')
cpan> install Bundle::CPAN
Going to read F:\.cpan\sources\authors\01mailrc.txt.gz
The name specified is not recognized as an
internal or external command, operable program or batch file.
Going to read F:\.cpan\sources\modules\02packages.details.txt.gz
The name specified is not recognized as an
internal or external command, operable program or batch file.
Warning: Your F:\.cpan\sources\modules\02packages.details.txt.gz does
not contain a Line-Count heade
r.
Please check the validity of the index file by comparing it to more
than one CPAN mirror. I'll continue but problems seem likely to
happen.
Warning: Your F:\.cpan\sources\modules\02packages.details.txt.gz does
not contain a Last-Updated hea
der.
Please check the validity of the index file by comparing it to more
than one CPAN mirror. I'll continue but problems seem likely to
happen.
Going to read F:\.cpan\sources\modules\03modlist.data.gz
The name specified is not recognized as an
internal or external command, operable program or batch file.
Can't locate object method "data" via package "CPAN::Modulelist"
(perhaps you forgot to load "CPAN::
Modulelist"?) at (eval 7) line 1.
CPAN::Index::rd_modlist('CPAN::Index',
'F:\.cpan\sources\modules\03modlist.data.gz') called
at //zmers01a/disk1/spiffcc/tools/winnt-4.0/perl/5.6.1/lib/CPAN.pm line
3002
CPAN::Index::reload('CPAN::Index') called at
//zmers01a/disk1/spiffcc/tools/winnt-4.0/perl/5
.6.1/lib/CPAN.pm line 620
CPAN::exists('CPAN=HASH(0x1fbb544)', 'CPAN::Bundle',
'Bundle::CPAN') called at //zmers01a/di
sk1/spiffcc/tools/winnt-4.0/perl/5.6.1/lib/CPAN.pm line 1819
CPAN::Shell::expand('CPAN::Shell', 'Bundle', 'Bundle::CPAN')
called at //zmers01a/disk1/spif
fcc/tools/winnt-4.0/perl/5.6.1/lib/CPAN.pm line 1733
CPAN::Shell::expandany('CPAN::Shell', 'Bundle::CPAN') called at
//zmers01a/disk1/spiffcc/too
ls/winnt-4.0/perl/5.6.1/lib/CPAN.pm line 1969
CPAN::Shell::rematein('CPAN::Shell', 'install', 'Bundle::CPAN')
called at //zmers01a/disk1/s
piffcc/tools/winnt-4.0/perl/5.6.1/lib/CPAN.pm line 2056
CPAN::Shell::install('CPAN::Shell', 'Bundle::CPAN') called at
//zmers01a/disk1/spiffcc/tools
/winnt-4.0/perl/5.6.1/lib/CPAN.pm line 183
eval {...} called at
//zmers01a/disk1/spiffcc/tools/winnt-4.0/perl/5.6.1/lib/CPAN.pm line 18
3
CPAN::shell() called at -e line 1
--
Walter Usyk - Tools Developer
Software Development Environment Tools (1P67)
email: wusyk@nortelnetworks.com
ESN: 398-4603
Tel: (613) 768-4603
------------------------------
Date: Mon, 15 Oct 2001 15:44:46 +0200
From: =?ISO-8859-1?Q?Thomas_B=E4tzler?= <Thomas@Baetzler.de>
Subject: Re: Problems with ActiveState and MCPAN
Message-Id: <buplstkilpsmofmadb4q17t2prt262fj09@4ax.com>
On Mon, 15 Oct 2001, "Usyk, Walter [SKY:1P67:EXCH]"
<wusyk@americasm01.nt.com> wrote:
>I compiled and installed the ActiveState perl 5.6.1. I'm trying to
>install packages using MCPAN but I get the error below. Does anyone have
>an idea why this is happening. I'm running Windows NT and compiled using
>VC++ 6.
[...]
>Going to read F:\.cpan\sources\authors\01mailrc.txt.gz
>The name specified is not recognized as an
>internal or external command, operable program or batch file.
[...]
Looks like you're missing some of the support binaries like lynx or
ncftpget. Checking Config.pm might give you an idea what you're missing
here.
HTH,
--
use strict;my($i,$t,@r)=(0,'5 -.@BHJPT4acd6e2hk2lmn2o4r2s3tuz',map{ord}
split//,unpack('u*','L#`T&)QD5#0`#!!`#%1D)#08`#P05!!(3``$$"``#"0L&``('.
'"`P<!`````0$`'));$t=~s/(\d)(.)/$2x$1/eg;map{$t.=substr$t,$i,1,''while
$_--;$i++}@r;print"$t\n";# Thomas@Baetzler.de - http://baetzler.de/perl
------------------------------
Date: Mon, 15 Oct 2001 14:55:45 GMT
From: Dan Sugalski <dan@tuatha.sidhe.org>
Subject: Re: Problems with ActiveState and MCPAN
Message-Id: <RNCy7.89891$NT3.10089466@news1.rdc1.ct.home.com>
In comp.lang.perl.modules Usyk, Walter [SKY:1P67:EXCH] <wusyk@americasm01.nt.com> wrote:
> I compiled and installed the ActiveState perl 5.6.1. I'm trying to
> install packages using MCPAN but I get the error below. Does anyone have
> an idea why this is happening. I'm running Windows NT and compiled using
> VC++ 6.
Try using PPM instead, if the module you want is in ActiveState's archive.
Dan
------------------------------
Date: Mon, 15 Oct 2001 15:59:25 +0200
From: Jean-Philippe Fauvelle <JPFauvelle@Colt-Telecom.fr>
Subject: Re: sort an array and print out biggest number
Message-Id: <j5qlstck2fcvj1k2o83o9fa0o7o2bcmlu0@4ax.com>
Le 14 Oct 2001 22:49:55 -0700, tvn007@hotmail.com (Tim) écrit:
>@array (1,2,5,7,9);
>@array = sort (@array);
>print "The largest number is $array[4];
>
>This is not very good solution since I hardcoded the script.
@array = (1,2,5,7,9);
print "The largest number is ", maxNumber(\@array), "\n";
sub maxNumber {
my $listRef = shift;
my $max; # undef
foreach (@$listRef) {
$max = $_ if $max < $_ or not defined($max);
}
return $max; # undef if the list was empty
}
Jean-Philippe Fauvelle
------------------------------
Date: Mon, 15 Oct 2001 14:48:44 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <tsltqckfm7vgc0@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 08 Oct 2001 15:47:42 GMT and ending at
15 Oct 2001 14:44:46 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: 304
Articles: 988 (450 with cutlined signatures)
Threads: 264
Volume generated: 1772.3 kb
- headers: 808.1 kb (16,087 lines)
- bodies: 898.7 kb (29,375 lines)
- original: 569.8 kb (20,152 lines)
- signatures: 64.5 kb (1,388 lines)
Original Content Rating: 0.634
Averages
========
Posts per poster: 3.2
median: 1.0 post
mode: 1 post - 161 posters
s: 5.5 posts
Posts per thread: 3.7
median: 3.0 posts
mode: 1 post - 60 threads
s: 3.6 posts
Message size: 1836.8 bytes
- header: 837.5 bytes (16.3 lines)
- body: 931.4 bytes (29.7 lines)
- original: 590.6 bytes (20.4 lines)
- signature: 66.9 bytes (1.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
40 90.7 ( 32.3/ 55.2/ 30.0) Benjamin Goldberg <goldbb2@earthlink.net>
36 56.3 ( 31.6/ 24.4/ 13.8) Bart Lateur <bart.lateur@skynet.be>
32 60.0 ( 27.1/ 23.9/ 15.1) Thomas Bätzler <thomas@baetzler.de>
31 54.8 ( 22.9/ 31.8/ 16.1) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
23 53.3 ( 19.4/ 29.3/ 17.9) mgjv@tradingpost.com.au
19 31.5 ( 13.6/ 17.6/ 9.7) garry@zvolve.com
18 27.4 ( 15.6/ 11.7/ 7.1) Jeff Zucker <jeff@vpservices.com>
17 27.0 ( 14.1/ 12.8/ 7.2) "Jürgen Exner" <jurgenex@hotmail.com>
17 34.4 ( 15.5/ 15.8/ 15.6) abigail@foad.org
15 24.6 ( 11.4/ 12.0/ 8.5) nobull@mail.com
These posters accounted for 25.1% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
90.7 ( 32.3/ 55.2/ 30.0) 40 Benjamin Goldberg <goldbb2@earthlink.net>
60.0 ( 27.1/ 23.9/ 15.1) 32 Thomas Bätzler <thomas@baetzler.de>
56.3 ( 31.6/ 24.4/ 13.8) 36 Bart Lateur <bart.lateur@skynet.be>
54.8 ( 22.9/ 31.8/ 16.1) 31 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
53.3 ( 19.4/ 29.3/ 17.9) 23 mgjv@tradingpost.com.au
34.4 ( 15.5/ 15.8/ 15.6) 17 abigail@foad.org
31.5 ( 13.6/ 17.6/ 9.7) 19 garry@zvolve.com
27.4 ( 15.6/ 11.7/ 7.1) 18 Jeff Zucker <jeff@vpservices.com>
27.4 ( 11.0/ 11.2/ 4.3) 14 Ilya Martynov <ilya@martynov.org>
27.0 ( 14.1/ 12.8/ 7.2) 17 "Jürgen Exner" <jurgenex@hotmail.com>
These posters accounted for 26.1% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 7.3 / 7.3) 10 Rafael Garcia-Suarez <rgarciasuarez@free.fr>
0.984 ( 15.6 / 15.8) 17 abigail@foad.org
0.937 ( 11.9 / 12.7) 5 Carlos C . Gonzalez <aperlprogrammer@yahoo.com>
0.824 ( 10.7 / 13.0) 11 "Steffen Müller" <tsee@gmx.net>
0.799 ( 8.6 / 10.7) 7 "Carsten Menke" <bootsy52@gmx.net>
0.762 ( 3.3 / 4.4) 5 "Markus Dehmann" <markus.cl@gmx.de>
0.750 ( 8.2 / 10.9) 10 Logan Shaw <logan@cs.utexas.edu>
0.747 ( 5.9 / 7.9) 9 Clinton A. Pierce <clintp@geeksalad.org>
0.711 ( 8.5 / 12.0) 15 nobull@mail.com
0.709 ( 7.3 / 10.3) 13 Mark Jason Dominus <mjd@plover.com>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.472 ( 1.6 / 3.4) 5 "Mr. Sunblade" <djberge@qwest.com>
0.461 ( 2.9 / 6.2) 11 John J. Trammell <trammell@haqq.hypersloth.invalid>
0.425 ( 2.8 / 6.6) 9 Tony Curtis <tony_curtis32@yahoo.com>
0.381 ( 4.3 / 11.2) 14 Ilya Martynov <ilya@martynov.org>
0.376 ( 1.5 / 3.9) 6 Uri Guttman <uri@sysarch.com>
0.373 ( 2.6 / 6.9) 7 Eric Bohlman <ebohlman@omsdev.com>
0.317 ( 1.7 / 5.2) 7 "Tintin" <tintin@snowy.calculus>
0.309 ( 1.4 / 4.6) 10 Laocoon <Laocoon@eudoramail.com>
0.255 ( 1.9 / 7.4) 9 "John W. Krahn" <krahnj@acm.org>
0.231 ( 2.7 / 11.6) 5 "novastar" <novastar@novastar.dtdns.net>
52 posters (17%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
15 How to run perl under bash not sh
15 20-line webserver in perl ?
13 How do you get paid for Perl work over the Internet??
13 split into filename and extension (need help before I go insane)
12 Pattern Matching
12 YOU ARE ALL GAY!
11 Stop Transversal of a Directory with Tar and Unzip
11 Checking Network Access
11 Access a hash key by hash value ?
10 Parsing complex data structure
These threads accounted for 12.4% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
39.7 ( 12.5/ 26.8/ 23.6) 13 How do you get paid for Perl work over the Internet??
36.3 ( 9.9/ 25.5/ 12.5) 11 Stop Transversal of a Directory with Tar and Unzip
31.4 ( 14.3/ 16.1/ 8.8) 15 How to run perl under bash not sh
29.6 ( 13.1/ 13.7/ 7.6) 15 20-line webserver in perl ?
25.3 ( 10.4/ 14.8/ 10.6) 11 Access a hash key by hash value ?
21.8 ( 12.8/ 9.0/ 4.4) 12 YOU ARE ALL GAY!
21.7 ( 8.4/ 13.0/ 6.1) 10 Filename case...
21.3 ( 10.6/ 10.1/ 5.6) 13 split into filename and extension (need help before I go insane)
19.8 ( 10.0/ 9.5/ 5.5) 11 Checking Network Access
18.9 ( 8.1/ 9.8/ 6.0) 10 Parsing complex data structure
These threads accounted for 15.0% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.878 ( 23.6/ 26.8) 13 How do you get paid for Perl work over the Internet??
0.841 ( 3.2/ 3.8) 5 Sort unique Very large file
0.827 ( 4.4/ 5.4) 5 Lightweight Languages Workshop, Cambridge MA 11/17/01
0.814 ( 3.7/ 4.6) 6 Another time source then the server time
0.780 ( 2.8/ 3.5) 5 Sorting larg arrays
0.779 ( 3.9/ 5.0) 5 Hashe keys and references?
0.774 ( 2.3/ 2.9) 6 s/([^\n])</\1\n</g what does it means?
0.774 ( 2.8/ 3.7) 5 newbie question - how to rename files with Perl?
0.772 ( 3.2/ 4.2) 5 pointers and perl
0.751 ( 2.2/ 2.9) 6 integer division
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.483 ( 2.7 / 5.7) 8 Skimming an array for non-undef
0.475 ( 3.1 / 6.4) 12 Pattern Matching
0.473 ( 2.8 / 5.9) 8 $query->param not working.
0.470 ( 6.1 / 13.0) 10 Filename case...
0.467 ( 1.9 / 4.1) 5 Grouped column sum
0.453 ( 3.6 / 7.9) 9 Uploading
0.425 ( 3.9 / 9.2) 9 Special Pattern Match
0.400 ( 0.9 / 2.3) 5 using s///
0.397 ( 3.0 / 7.5) 6 Can anyone assist with this.
0.387 ( 2.3 / 5.8) 8 Value sort Display by key (interesting)
79 threads (29%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
24 alt.perl
16 comp.lang.python
16 comp.os.linux.misc
16 comp.lang.javascript
16 alt.config
8 comp.lang.perl.modules
5 comp.lang.scheme
5 comp.lang.tcl
4 comp.security.unix
4 comp.lang.perl.tk
Top 10 Crossposters
===================
Articles Address
-------- -------
20 Geoffrey Pointer <geoffrey@bigpond.net.au>
16 tm <tmoero@yahoo.invalid>
8 "nice.guy.nige" <spamfreenation@nigenet.org.uk>
4 Robert <bobh@hslda.org>
4 "jimbo" <jimbo@soundimages.co.uk>
4 tm <tmoero@yahoo.com>
4 myohe+USENET@redhat.com
4 "Adrian Philpott" <RevolvingDoors@btopenworld.com>
4 alex <aort527@hotmail.com>
4 "Matt Garrish" <matthew.garrish@sympatico.ca>
------------------------------
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 1933
***************************************
