[25098] in Perl-Users-Digest
Perl-Users Digest, Issue: 7348 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 1 09:05:31 2004
Date: Mon, 1 Nov 2004 06:05:06 -0800 (PST)
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, 1 Nov 2004 Volume: 10 Number: 7348
Today's topics:
Re: converting list to an array <do-not-use@invalid.net>
Re: converting list to an array (Anno Siegel)
FAQ 8.25: How can I capture STDERR from an external com <comdog@panix.com>
File closure problems (Jonas Andersson)
Re: File closure problems <tassilo.von.parseval@rwth-aachen.de>
Re: File closure problems <matternc@comcast.net>
Re: modifying hash key (dispatch table) <do-not-use@invalid.net>
PLUCENE equivalent module for Free Text Retrieval in DB <ewijaya@singnet.com.sg.removethis>
Re: printing to web browser (Anno Siegel)
Re: Question: need to parse web pages to extract data <abuse@microsoft.com>
Statistics for comp.lang.perl.misc <gbacon@hiwaay.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 01 Nov 2004 10:35:11 +0100
From: Arndt Jonasson <do-not-use@invalid.net>
Subject: Re: converting list to an array
Message-Id: <yzdpt2xzzcg.fsf@invalid.net>
"daniel kaplan" <nospam@nospam.com> writes:
> @all_msgs = $pop->ping($user);
> $all_msgs = @all_msgs;
> #$all_msgs ends up equaling -1
This does not contribute to solving your problem, but I wonder: is it
possible to have an array used in scalar context evaluate to -1? When
I try
undef @all_msgs;
$all_msgs = @all_msgs;
print "all_msgs = $all_msgs\n";
and
@all_msgs = ();
$all_msgs = @all_msgs;
print "all_msgs = $all_msgs\n";
I get 0 both times.
Did you mean $#all_msgs (which does evaluate to -1 here), or have I
missed something?
------------------------------
Date: 1 Nov 2004 13:37:35 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: converting list to an array
Message-Id: <cm5e6v$888$1@mamenchi.zrz.TU-Berlin.DE>
Arndt Jonasson <do-not-use@invalid.net> wrote in comp.lang.perl.misc:
>
> "daniel kaplan" <nospam@nospam.com> writes:
> > @all_msgs = $pop->ping($user);
> > $all_msgs = @all_msgs;
> > #$all_msgs ends up equaling -1
>
> This does not contribute to solving your problem, but I wonder: is it
> possible to have an array used in scalar context evaluate to -1?
No way, not with a normal array.
A tied array might do this, but it wouldn't make much sense.
Anno
------------------------------
Date: Mon, 1 Nov 2004 11:03:02 +0000 (UTC)
From: PerlFAQ Server <comdog@panix.com>
Subject: FAQ 8.25: How can I capture STDERR from an external command?
Message-Id: <cm5556$gmr$1@reader1.panix.com>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with Perl.
--------------------------------------------------------------------
8.25: How can I capture STDERR from an external command?
There are three basic ways of running external commands:
system $cmd; # using system()
$output = `$cmd`; # using backticks (``)
open (PIPE, "cmd |"); # using open()
With system(), both STDOUT and STDERR will go the same place as the
script's STDOUT and STDERR, unless the system() command redirects them.
Backticks and open() read only the STDOUT of your command.
You can also use the open3() function from IPC::Open3. Benjamin Goldberg
provides some sample code:
To capture a program's STDOUT, but discard its STDERR:
use IPC::Open3;
use File::Spec;
use Symbol qw(gensym);
open(NULL, ">", File::Spec->devnull);
my $pid = open3(gensym, \*PH, ">&NULL", "cmd");
while( <PH> ) { }
waitpid($pid, 0);
To capture a program's STDERR, but discard its STDOUT:
use IPC::Open3;
use File::Spec;
use Symbol qw(gensym);
open(NULL, ">", File::Spec->devnull);
my $pid = open3(gensym, ">&NULL", \*PH, "cmd");
while( <PH> ) { }
waitpid($pid, 0);
To capture a program's STDERR, and let its STDOUT go to our own STDERR:
use IPC::Open3;
use Symbol qw(gensym);
my $pid = open3(gensym, ">&STDERR", \*PH, "cmd");
while( <PH> ) { }
waitpid($pid, 0);
To read both a command's STDOUT and its STDERR separately, you can
redirect them to temp files, let the command run, then read the temp
files:
use IPC::Open3;
use Symbol qw(gensym);
use IO::File;
local *CATCHOUT = IO::File->new_tempfile;
local *CATCHERR = IO::File->new_tempfile;
my $pid = open3(gensym, ">&CATCHOUT", ">&CATCHERR", "cmd");
waitpid($pid, 0);
seek $_, 0, 0 for \*CATCHOUT, \*CATCHERR;
while( <CATCHOUT> ) {}
while( <CATCHERR> ) {}
But there's no real need for *both* to be tempfiles... the following
should work just as well, without deadlocking:
use IPC::Open3;
use Symbol qw(gensym);
use IO::File;
local *CATCHERR = IO::File->new_tempfile;
my $pid = open3(gensym, \*CATCHOUT, ">&CATCHERR", "cmd");
while( <CATCHOUT> ) {}
waitpid($pid, 0);
seek CATCHERR, 0, 0;
while( <CATCHERR> ) {}
And it'll be faster, too, since we can begin processing the program's
stdout immediately, rather than waiting for the program to finish.
With any of these, you can change file descriptors before the call:
open(STDOUT, ">logfile");
system("ls");
or you can use Bourne shell file-descriptor redirection:
$output = `$cmd 2>some_file`;
open (PIPE, "cmd 2>some_file |");
You can also use file-descriptor redirection to make STDERR a duplicate
of STDOUT:
$output = `$cmd 2>&1`;
open (PIPE, "cmd 2>&1 |");
Note that you *cannot* simply open STDERR to be a dup of STDOUT in your
Perl program and avoid calling the shell to do the redirection. This
doesn't work:
open(STDERR, ">&STDOUT");
$alloutput = `cmd args`; # stderr still escapes
This fails because the open() makes STDERR go to where STDOUT was going
at the time of the open(). The backticks then make STDOUT go to a
string, but don't change STDERR (which still goes to the old STDOUT).
Note that you *must* use Bourne shell (sh(1)) redirection syntax in
backticks, not csh(1)! Details on why Perl's system() and backtick and
pipe opens all use the Bourne shell are in the versus/csh.whynot article
in the "Far More Than You Ever Wanted To Know" collection in
http://www.cpan.org/misc/olddoc/FMTEYEWTK.tgz . To capture a command's
STDERR and STDOUT together:
$output = `cmd 2>&1`; # either with backticks
$pid = open(PH, "cmd 2>&1 |"); # or with an open pipe
while (<PH>) { } # plus a read
To capture a command's STDOUT but discard its STDERR:
$output = `cmd 2>/dev/null`; # either with backticks
$pid = open(PH, "cmd 2>/dev/null |"); # or with an open pipe
while (<PH>) { } # plus a read
To capture a command's STDERR but discard its STDOUT:
$output = `cmd 2>&1 1>/dev/null`; # either with backticks
$pid = open(PH, "cmd 2>&1 1>/dev/null |"); # or with an open pipe
while (<PH>) { } # plus a read
To exchange a command's STDOUT and STDERR in order to capture the STDERR
but leave its STDOUT to come out our old STDERR:
$output = `cmd 3>&1 1>&2 2>&3 3>&-`; # either with backticks
$pid = open(PH, "cmd 3>&1 1>&2 2>&3 3>&-|");# or with an open pipe
while (<PH>) { } # plus a read
To read both a command's STDOUT and its STDERR separately, it's easiest
to redirect them separately to files, and then read from those files
when the program is done:
system("program args 1>program.stdout 2>program.stderr");
Ordering is important in all these examples. That's because the shell
processes file descriptor redirections in strictly left to right order.
system("prog args 1>tmpfile 2>&1");
system("prog args 2>&1 1>tmpfile");
The first command sends both standard out and standard error to the
temporary file. The second command sends only the old standard output
there, and the old standard error shows up on the old standard out.
--------------------------------------------------------------------
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep coming up.
If you are some how irritated by seeing these postings you are free
to ignore them or add the sender to your killfile. If you find
errors or other problems with these postings please send corrections
or comments to the posting email address or to the maintainers as
directed in the perlfaq manual page.
Note that the FAQ text posted by this server may have been modified
from that distributed in the stable Perl release. It may have been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ are available on request.
The perlfaq manual page contains the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-2002 Tom Christiansen and Nathan
Torkington, and other contributors as noted. All rights
reserved.
This posting is provided in the hope that it will be useful but
does not represent a commitment or contract of any kind on the part
of the contributers, authors or their agents.
------------------------------
Date: 1 Nov 2004 01:01:14 -0800
From: jonas.andersson@rocketmail.com (Jonas Andersson)
Subject: File closure problems
Message-Id: <d2f49f4e.0411010101.325bfe83@posting.google.com>
Hi,
I sometimes get weird problems with file closures in Perl:
print FILE "...a lot of data...";
$line_number=240;
close(FILE) or &error_catcher;
...
exit;
sub error_catcher {
print "Error around line $line_number. Exiting. \n";
exit;
}
Any idea why this happens? I thought Perl waited for the writing to
the file to finish before it tried to close it? What could I do in
this situation?
Thanks for your time,
JA
------------------------------
Date: Mon, 1 Nov 2004 10:19:07 +0100
From: "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
Subject: Re: File closure problems
Message-Id: <slrncobvsb.1ni.tassilo.von.parseval@localhost.localdomain>
Also sprach Jonas Andersson:
> Hi,
>
> I sometimes get weird problems with file closures in Perl:
Note that using 'closure' in this context is a bit misleading. It's
usually used to refer to a different concept (that of functions or
function-references having access to outside variables).
> print FILE "...a lot of data...";
> $line_number=240;
> close(FILE) or &error_catcher;
> ...
> exit;
>
> sub error_catcher {
> print "Error around line $line_number. Exiting. \n";
> exit;
> }
>
> Any idea why this happens? I thought Perl waited for the writing to
> the file to finish before it tried to close it? What could I do in
> this situation?
Perl just writes to a filehandle. The operating system does the work
behind the curtains. There is usually little need to wait (not in the
case of regular files certainly).
Have you considered checking why it failed? Your operating system knows
much better than people in this group:
sub error_catcher {
print "Error...: $!";
exit 1;
}
The value of $! plus the first paragraph of 'perldoc -f close' should
give you a pretty accurate idea what went wrong.
A minor nit: When your program exits due to an error, you should
indicate that by providing an exit code other than zero. It's a question
of good style and following the conventions nicely.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Mon, 01 Nov 2004 04:28:32 -0500
From: Chris Mattern <matternc@comcast.net>
Subject: Re: File closure problems
Message-Id: <Q_GdnQQXZrhfnBvcRVn-tg@comcast.com>
Jonas Andersson wrote:
> Hi,
>
> I sometimes get weird problems with file closures in Perl:
"Weird problems"? I left my ESP helmet at home today; I have
no idea what "weird problems" might refer to.
>
> print FILE "...a lot of data...";
> $line_number=240;
> close(FILE) or &error_catcher;
Don't use & on subroutine calls unless you know what it does
and you want that behavior. The builtin function die does
what you're doing here except it does it much better; see
below.
> ...
> exit;
>
> sub error_catcher {
> print "Error around line $line_number. Exiting. \n";
> exit;
> }
>
> Any idea why this happens?
Why what happens? "Weird problems" is not an error description.
Incidentally, your code is poor. Better:
close (FILE) or die "Error closing file:$!";
By not finishing the string you give die with a newline, it
will automatically report the line you died on. $! will
report what error close() actually gave.
> I thought Perl waited for the writing to
> the file to finish before it tried to close it? What could I do in
> this situation?
>
> Thanks for your time,
>
> JA
--
Christopher Mattern
"Which one you figure tracked us?"
"The ugly one, sir."
"...Could you be more specific?"
------------------------------
Date: 01 Nov 2004 11:20:39 +0100
From: Arndt Jonasson <do-not-use@invalid.net>
Subject: Re: modifying hash key (dispatch table)
Message-Id: <yzdk6t5zx8o.fsf@invalid.net>
Ben Morrow <usenet@morrow.me.uk> writes:
> Quoth Arndt Jonasson <do-not-use@invalid.net>:
> >
> > Tad McClellan <tadmc@augustmail.com> writes:
> > > My personal style is to never use ampersands on sub calls, whether
> > > called direct or via a coderef, I always use parens on sub calls
> > > instead (even when they take no args).
> >
> > I was going to ask whether that was true even for 'eof', since the
> > calls "eof" and "eof()" behave differently, but I suppose 'eof' is not
> > a subroutine, but a built-in function.
>
> Can you give an example of that?
>
> Builtins behave exactly as though they were user-defined functions.
You can do \&foo and get a reference to the subroutine foo, but apparently
that can't be done with builtins. (Maybe it can in perl 5.8, but I'm on
5.005 still.)
man perlsub says:
"For example,
saying C<CORE::open()> always refers to the built-in C<open()>, even
if the current package has imported some other subroutine called
C<&open()> from elsewhere. Even though it looks like a regular
function call, it isn't: you can't take a reference to it, such as
the incorrect C<\&CORE::open> might appear to produce."
And
"Finally, some built-ins (e.g. C<exists> or C<grep>) can't be overridden."
------------------------------
Date: Mon, 01 Nov 2004 10:16:10 +0800
From: Edward wijaya <ewijaya@singnet.com.sg.removethis>
Subject: PLUCENE equivalent module for Free Text Retrieval in DBMS
Message-Id: <opsgrkk8fq074qab@news.singnet.com.sg>
Hi,
Is there any CPAN module (similar to PLUCENE)
that support free-text retrieval function of a DBMS system?
--
Regards,
Edward WIJAYA
SINGAPORE
------------------------------
Date: 1 Nov 2004 10:42:06 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: printing to web browser
Message-Id: <cm53tu$2sd$1@mamenchi.zrz.TU-Berlin.DE>
Uri Guttman <uri@stemsystems.com> wrote in comp.lang.perl.misc:
> >>>>> "L" == Laura <lwt0301@bellsouth.net> writes:
>
> L> A script is interpreted and a program is compiled. I know you can
> L> in Perl and some other scripting languages turn a script into a
> L> program, which makes it more like a real programming language, like
> L> C++ or Java. Perl is a scripting tool written in C so C
> L> programmers can have the conveniences of languages like C++ or
> L> Visual Basic without having to leave their native environment.
>
> nonsense. balderdash. gobbledygook.
>
> pick one.
Why? They all apply.
Anno
------------------------------
Date: Mon, 01 Nov 2004 08:52:27 GMT
From: "Voitec" <abuse@microsoft.com>
Subject: Re: Question: need to parse web pages to extract data
Message-Id: <fPmhd.6509$K7.2068@news-server.bigpond.net.au>
Much obliged :)
Thanks very much Peter.
"Peter Wyzl" <wyzelli@yahoo.com> wrote in message
news:4F3hd.5378$K7.4896@news-server.bigpond.net.au...
> "Troll" <abuse@microsoft.com> wrote in message
> news:102hd.5249$K7.1478@news-server.bigpond.net.au...
> > Hi,
> >
> > The site is:
> > www.homepriceguide.com.au
> >
> > A sample page with data can be seen at:
> >
http://www.homepriceguide.com.au/snapshot/price/index.cfm?action=view&suburbORpostcode=6153&source=apm
> >
> > The only thing that changes is the postcode so the next page in line
will
> > be:
> >
http://www.homepriceguide.com.au/snapshot/price/index.cfm?action=view&suburbORpostcode=6154&source=apm
> >
> > etc etc
> >
> > What I'm trying to do is to extract price info and save it to a file
where
> > each record has the postcode as its ID. Last year I wrote a script that
> > went
> > through the site and gathered the data for me and dumped the results in
a
> > file. Unfortunately it's gone walking somewhere. Can someone pls remind
me
> > which module is best to be used here (I'm mainly concerned with the
> > parsing
> > side right now)? I have not coded for <> 12mths so I'm a bit rusty now
but
> > hopefully it will all come back.
>
> Start with the LWP set of modules....
>
> --
> Wyzelli
> {{${^_sub}=sub{scalar reverse shift}}{$_={${^_reverse}=>
> {${^_scalar}=>{${^_shift}=>{${^_sub}=>{${^_print}=>{}}}}}}
> }{s{.*}{rekcaH lreP rehtona tsuJ}}{print("@{[&${^_sub}($_)]}")}}
>
>
------------------------------
Date: Mon, 01 Nov 2004 12:22:17 -0000
From: Greg Bacon <gbacon@hiwaay.net>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <10ocajpcnfm7c1@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 25 Oct 2004 12:26:15 GMT and ending at
01 Nov 2004 11:03:02 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: 184
Articles: 871 (336 with cutlined signatures)
Threads: 131
Volume generated: 1752.4 kb
- headers: 815.3 kb (14,699 lines)
- bodies: 885.9 kb (27,069 lines)
- original: 531.2 kb (17,684 lines)
- signatures: 50.3 kb (1,031 lines)
Original Content Rating: 0.600
Averages
========
Posts per poster: 4.7
median: 2.0 posts
mode: 1 post - 82 posters
s: 8.8 posts
Posts per thread: 6.6
median: 4 posts
mode: 1 post - 26 threads
s: 7.9 posts
Message size: 2060.2 bytes
- header: 958.5 bytes (16.9 lines)
- body: 1041.6 bytes (31.1 lines)
- original: 624.5 bytes (20.3 lines)
- signature: 59.2 bytes (1.2 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
80 139.2 ( 83.6/ 55.5/ 40.1) "daniel kaplan" <nospam@nospam.com>
40 99.5 ( 35.1/ 59.1/ 46.4) tadmc@augustmail.com
36 56.1 ( 32.2/ 21.5/ 9.4) Gunnar Hjalmarsson <noreply@gunnar.cc>
34 83.7 ( 28.6/ 47.1/ 30.8) Michele Dondi <bik.mido@tiscalinet.it>
34 70.7 ( 28.6/ 33.8/ 14.7) Ben Morrow <usenet@morrow.me.uk>
30 61.9 ( 29.3/ 32.5/ 14.9) "Paul Lalli" <mritty@gmail.com>
27 53.2 ( 20.5/ 32.7/ 10.5) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
25 50.4 ( 26.6/ 23.7/ 11.5) Arndt Jonasson <do-not-use@invalid.net>
24 49.5 ( 22.5/ 26.6/ 14.2) "A. Sinan Unur" <1usa@llenroc.ude.invalid>
22 42.4 ( 19.8/ 22.6/ 14.3) "A. Sinan Unur" <usa1@llenroc.ude.invalid>
18 40.8 ( 17.9/ 20.5/ 19.8) abigail@abigail.nl
17 31.0 ( 16.2/ 14.7/ 6.4) Uri Guttman <uguttman@athenahealth.com>
15 31.4 ( 10.1/ 21.2/ 8.7) lwt0301@bellsouth.net
14 29.0 ( 15.2/ 13.0/ 12.2) Charlton Wilbur <cwilbur@mithril.chromatico.net>
13 29.8 ( 14.4/ 15.5/ 8.0) Brian McCauley <nobull@mail.com>
13 29.5 ( 11.5/ 14.1/ 9.7) "Shmuel (Seymour J.) Metz" <spamtrap@library.lspace.org.invalid>
13 22.7 ( 8.2/ 12.8/ 4.4) ctcgag@hotmail.com
12 29.4 ( 8.1/ 18.5/ 7.8) "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
11 19.1 ( 11.0/ 8.2/ 4.4) "Jürgen Exner" <jurgenex@hotmail.com>
11 26.7 ( 10.8/ 13.3/ 5.7) Uri Guttman <uri@stemsystems.com>
These posters accounted for 56.1% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
73 139.2 ( 83.6/ 55.5/ 40.1) "daniel kaplan" <nospam@nospam.com>
38 99.5 ( 35.1/ 59.1/ 46.4) tadmc@augustmail.com
36 56.1 ( 32.2/ 21.5/ 9.4) Gunnar Hjalmarsson <noreply@gunnar.cc>
34 70.7 ( 28.6/ 33.8/ 14.7) Ben Morrow <usenet@morrow.me.uk>
33 83.7 ( 28.6/ 47.1/ 30.8) Michele Dondi <bik.mido@tiscalinet.it>
30 61.9 ( 29.3/ 32.5/ 14.9) "Paul Lalli" <mritty@gmail.com>
27 53.2 ( 20.5/ 32.7/ 10.5) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
25 50.4 ( 26.6/ 23.7/ 11.5) Arndt Jonasson <do-not-use@invalid.net>
24 49.5 ( 22.5/ 26.6/ 14.2) "A. Sinan Unur" <1usa@llenroc.ude.invalid>
22 42.4 ( 19.8/ 22.6/ 14.3) "A. Sinan Unur" <usa1@llenroc.ude.invalid>
18 40.8 ( 17.9/ 20.5/ 19.8) abigail@abigail.nl
17 31.0 ( 16.2/ 14.7/ 6.4) Uri Guttman <uguttman@athenahealth.com>
15 31.4 ( 10.1/ 21.2/ 8.7) lwt0301@bellsouth.net
14 29.0 ( 15.2/ 13.0/ 12.2) Charlton Wilbur <cwilbur@mithril.chromatico.net>
13 29.8 ( 14.4/ 15.5/ 8.0) Brian McCauley <nobull@mail.com>
13 22.7 ( 8.2/ 12.8/ 4.4) ctcgag@hotmail.com
12 29.5 ( 11.5/ 14.1/ 9.7) "Shmuel (Seymour J.) Metz" <spamtrap@library.lspace.org.invalid>
12 29.4 ( 8.1/ 18.5/ 7.8) "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
11 19.1 ( 11.0/ 8.2/ 4.4) "Jürgen Exner" <jurgenex@hotmail.com>
11 26.7 ( 10.8/ 13.3/ 5.7) Uri Guttman <uri@stemsystems.com>
These posters accounted for 62.0% of all followups.
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
139.2 ( 83.6/ 55.5/ 40.1) 80 "daniel kaplan" <nospam@nospam.com>
99.5 ( 35.1/ 59.1/ 46.4) 40 tadmc@augustmail.com
83.7 ( 28.6/ 47.1/ 30.8) 34 Michele Dondi <bik.mido@tiscalinet.it>
70.7 ( 28.6/ 33.8/ 14.7) 34 Ben Morrow <usenet@morrow.me.uk>
61.9 ( 29.3/ 32.5/ 14.9) 30 "Paul Lalli" <mritty@gmail.com>
56.1 ( 32.2/ 21.5/ 9.4) 36 Gunnar Hjalmarsson <noreply@gunnar.cc>
53.2 ( 20.5/ 32.7/ 10.5) 27 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
50.4 ( 26.6/ 23.7/ 11.5) 25 Arndt Jonasson <do-not-use@invalid.net>
49.5 ( 22.5/ 26.6/ 14.2) 24 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
42.4 ( 19.8/ 22.6/ 14.3) 22 "A. Sinan Unur" <usa1@llenroc.ude.invalid>
40.8 ( 17.9/ 20.5/ 19.8) 18 abigail@abigail.nl
31.4 ( 10.1/ 21.2/ 8.7) 15 lwt0301@bellsouth.net
31.0 ( 16.2/ 14.7/ 6.4) 17 Uri Guttman <uguttman@athenahealth.com>
29.8 ( 14.4/ 15.5/ 8.0) 13 Brian McCauley <nobull@mail.com>
29.5 ( 11.5/ 14.1/ 9.7) 13 "Shmuel (Seymour J.) Metz" <spamtrap@library.lspace.org.invalid>
29.4 ( 8.1/ 18.5/ 7.8) 12 "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
29.0 ( 15.2/ 13.0/ 12.2) 14 Charlton Wilbur <cwilbur@mithril.chromatico.net>
26.7 ( 10.8/ 13.3/ 5.7) 11 Uri Guttman <uri@stemsystems.com>
26.6 ( 12.6/ 13.5/ 8.6) 9 invalid-email@rochester.rr.com
22.7 ( 8.2/ 12.8/ 4.4) 13 ctcgag@hotmail.com
These posters accounted for 57.3% of the total volume.
Top 20 Posters by Volume of Original Content (min. ten posts)
=============================================================
(kb)
Posts orig Address
----- ----- -------
40 46.4 tadmc@augustmail.com
80 40.1 "daniel kaplan" <nospam@nospam.com>
34 30.8 Michele Dondi <bik.mido@tiscalinet.it>
18 19.8 abigail@abigail.nl
30 14.9 "Paul Lalli" <mritty@gmail.com>
34 14.7 Ben Morrow <usenet@morrow.me.uk>
22 14.3 "A. Sinan Unur" <usa1@llenroc.ude.invalid>
24 14.2 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
14 12.2 Charlton Wilbur <cwilbur@mithril.chromatico.net>
25 11.5 Arndt Jonasson <do-not-use@invalid.net>
27 10.5 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
13 9.7 "Shmuel (Seymour J.) Metz" <spamtrap@library.lspace.org.invalid>
36 9.4 Gunnar Hjalmarsson <noreply@gunnar.cc>
15 8.7 lwt0301@bellsouth.net
13 8.0 Brian McCauley <nobull@mail.com>
12 7.8 "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
10 7.7 "Bill Segraves" <segraves_f13@mindspring.com>
17 6.4 Uri Guttman <uguttman@athenahealth.com>
11 5.7 Uri Guttman <uri@stemsystems.com>
10 4.9 "Matt Garrish" <matthew.garrish@sympatico.ca>
These posters accounted for 56.0% of the original volume.
Top 20 Posters by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.963 ( 19.8 / 20.5) 18 abigail@abigail.nl
0.936 ( 12.2 / 13.0) 14 Charlton Wilbur <cwilbur@mithril.chromatico.net>
0.786 ( 46.4 / 59.1) 40 tadmc@augustmail.com
0.722 ( 40.1 / 55.5) 80 "daniel kaplan" <nospam@nospam.com>
0.695 ( 7.7 / 11.1) 10 "Bill Segraves" <segraves_f13@mindspring.com>
0.687 ( 9.7 / 14.1) 13 "Shmuel (Seymour J.) Metz" <spamtrap@library.lspace.org.invalid>
0.653 ( 30.8 / 47.1) 34 Michele Dondi <bik.mido@tiscalinet.it>
0.633 ( 14.3 / 22.6) 22 "A. Sinan Unur" <usa1@llenroc.ude.invalid>
0.568 ( 4.9 / 8.7) 10 "Matt Garrish" <matthew.garrish@sympatico.ca>
0.541 ( 4.4 / 8.2) 11 "Jürgen Exner" <jurgenex@hotmail.com>
0.532 ( 14.2 / 26.6) 24 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
0.520 ( 8.0 / 15.5) 13 Brian McCauley <nobull@mail.com>
0.486 ( 11.5 / 23.7) 25 Arndt Jonasson <do-not-use@invalid.net>
0.458 ( 14.9 / 32.5) 30 "Paul Lalli" <mritty@gmail.com>
0.436 ( 6.4 / 14.7) 17 Uri Guttman <uguttman@athenahealth.com>
0.435 ( 9.4 / 21.5) 36 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.434 ( 14.7 / 33.8) 34 Ben Morrow <usenet@morrow.me.uk>
0.429 ( 5.7 / 13.3) 11 Uri Guttman <uri@stemsystems.com>
0.421 ( 7.8 / 18.5) 12 "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
0.411 ( 8.7 / 21.2) 15 lwt0301@bellsouth.net
Bottom 20 Posters by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.786 ( 46.4 / 59.1) 40 tadmc@augustmail.com
0.722 ( 40.1 / 55.5) 80 "daniel kaplan" <nospam@nospam.com>
0.695 ( 7.7 / 11.1) 10 "Bill Segraves" <segraves_f13@mindspring.com>
0.687 ( 9.7 / 14.1) 13 "Shmuel (Seymour J.) Metz" <spamtrap@library.lspace.org.invalid>
0.653 ( 30.8 / 47.1) 34 Michele Dondi <bik.mido@tiscalinet.it>
0.633 ( 14.3 / 22.6) 22 "A. Sinan Unur" <usa1@llenroc.ude.invalid>
0.568 ( 4.9 / 8.7) 10 "Matt Garrish" <matthew.garrish@sympatico.ca>
0.541 ( 4.4 / 8.2) 11 "Jürgen Exner" <jurgenex@hotmail.com>
0.532 ( 14.2 / 26.6) 24 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
0.520 ( 8.0 / 15.5) 13 Brian McCauley <nobull@mail.com>
0.486 ( 11.5 / 23.7) 25 Arndt Jonasson <do-not-use@invalid.net>
0.458 ( 14.9 / 32.5) 30 "Paul Lalli" <mritty@gmail.com>
0.436 ( 6.4 / 14.7) 17 Uri Guttman <uguttman@athenahealth.com>
0.435 ( 9.4 / 21.5) 36 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.434 ( 14.7 / 33.8) 34 Ben Morrow <usenet@morrow.me.uk>
0.429 ( 5.7 / 13.3) 11 Uri Guttman <uri@stemsystems.com>
0.421 ( 7.8 / 18.5) 12 "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
0.411 ( 8.7 / 21.2) 15 lwt0301@bellsouth.net
0.339 ( 4.4 / 12.8) 13 ctcgag@hotmail.com
0.321 ( 10.5 / 32.7) 27 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
22 posters (11%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
43 Compiling or Hiding Perl
43 MAIL recommendation
41 open-perl-ide qustion
35 Common file operations
33 browser output
23 How to handle large variable
20 Modify program to write just data to a text file.
19 Regular Expression confusion
18 print FILE function()
17 IDEs
17 list vs array
17 OT: perl errors
15 how to fix code running old perl version?
14 Should I use BEGIN, CHECK, or INIT?
13 Parsing 'dirty/corrupt data'. Advice wanted
13 HOW TO replace ' but not ?'
12 Which is the best book for learning OO perl?
12 modifying hash key (dispatch table)
11 MAP question
11 Convert String Containing Hex Values
These threads accounted for 49.0% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
89.9 ( 48.8/ 38.2/ 27.8) 43 MAIL recommendation
84.7 ( 43.1/ 39.8/ 22.6) 43 Compiling or Hiding Perl
80.4 ( 31.5/ 42.2/ 25.4) 35 Common file operations
74.1 ( 47.4/ 25.1/ 14.6) 41 open-perl-ide qustion
58.2 ( 32.6/ 24.7/ 16.1) 33 browser output
50.5 ( 20.1/ 29.4/ 20.2) 20 Modify program to write just data to a text file.
47.6 ( 21.9/ 24.2/ 11.8) 23 How to handle large variable
43.1 ( 21.6/ 20.3/ 9.9) 19 Regular Expression confusion
42.5 ( 20.7/ 20.6/ 12.5) 17 list vs array
38.7 ( 17.6/ 20.5/ 11.0) 18 print FILE function()
37.6 ( 17.7/ 19.8/ 7.0) 17 OT: perl errors
36.3 ( 12.6/ 22.4/ 12.0) 14 Should I use BEGIN, CHECK, or INIT?
33.8 ( 1.4/ 32.3/ 32.3) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
30.0 ( 16.3/ 13.0/ 8.9) 17 IDEs
29.1 ( 12.0/ 16.9/ 7.7) 13 Parsing 'dirty/corrupt data'. Advice wanted
28.9 ( 10.7/ 17.4/ 10.2) 11 web hoster won't secure CGI
27.6 ( 13.2/ 13.1/ 7.8) 15 how to fix code running old perl version?
23.0 ( 11.9/ 10.1/ 5.1) 12 modifying hash key (dispatch table)
22.9 ( 11.3/ 11.1/ 6.7) 11 foreach vs. for
21.7 ( 9.5/ 11.9/ 8.8) 11 Am *I* allowed to make a suggestion for PG
These threads accounted for 51.4% of the total volume.
Top 20 Threads by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.788 ( 8.6/ 10.9) 10 Fast random string generation
0.739 ( 8.8/ 11.9) 11 Am *I* allowed to make a suggestion for PG
0.726 ( 27.8/ 38.2) 43 MAIL recommendation
0.688 ( 20.2/ 29.4) 20 Modify program to write just data to a text file.
0.686 ( 8.9/ 13.0) 17 IDEs
0.653 ( 16.1/ 24.7) 33 browser output
0.607 ( 12.5/ 20.6) 17 list vs array
0.603 ( 25.4/ 42.2) 35 Common file operations
0.602 ( 6.7/ 11.1) 11 foreach vs. for
0.592 ( 7.8/ 13.1) 15 how to fix code running old perl version?
0.589 ( 10.2/ 17.4) 11 web hoster won't secure CGI
0.581 ( 14.6/ 25.1) 41 open-perl-ide qustion
0.567 ( 22.6/ 39.8) 43 Compiling or Hiding Perl
0.547 ( 2.7/ 5.0) 11 Convert String Containing Hex Values
0.537 ( 11.0/ 20.5) 18 print FILE function()
0.536 ( 12.0/ 22.4) 14 Should I use BEGIN, CHECK, or INIT?
0.529 ( 3.8/ 7.2) 10 regex trick needed
0.522 ( 3.2/ 6.1) 13 HOW TO replace ' but not ?'
0.509 ( 5.1/ 10.1) 12 modifying hash key (dispatch table)
0.508 ( 3.9/ 7.6) 10 How's my logic?
Bottom 20 Threads by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.603 ( 25.4 / 42.2) 35 Common file operations
0.602 ( 6.7 / 11.1) 11 foreach vs. for
0.592 ( 7.8 / 13.1) 15 how to fix code running old perl version?
0.589 ( 10.2 / 17.4) 11 web hoster won't secure CGI
0.581 ( 14.6 / 25.1) 41 open-perl-ide qustion
0.567 ( 22.6 / 39.8) 43 Compiling or Hiding Perl
0.547 ( 2.7 / 5.0) 11 Convert String Containing Hex Values
0.537 ( 11.0 / 20.5) 18 print FILE function()
0.536 ( 12.0 / 22.4) 14 Should I use BEGIN, CHECK, or INIT?
0.529 ( 3.8 / 7.2) 10 regex trick needed
0.522 ( 3.2 / 6.1) 13 HOW TO replace ' but not ?'
0.509 ( 5.1 / 10.1) 12 modifying hash key (dispatch table)
0.508 ( 3.9 / 7.6) 10 How's my logic?
0.503 ( 4.0 / 7.9) 11 removin \n from only part of a string
0.486 ( 11.8 / 24.2) 23 How to handle large variable
0.485 ( 9.9 / 20.3) 19 Regular Expression confusion
0.474 ( 5.3 / 11.2) 11 MAP question
0.467 ( 3.2 / 6.9) 12 Which is the best book for learning OO perl?
0.456 ( 7.7 / 16.9) 13 Parsing 'dirty/corrupt data'. Advice wanted
0.355 ( 7.0 / 19.8) 17 OT: perl errors
27 threads (20%) had at least ten posts.
Top 9 Targets for Crossposts
============================
Articles Newsgroup
-------- ---------
9 comp.lang.javascript
9 alt.www.webmaster
3 comp.lang.perl.modules
2 comp.lang.perl.moderated
1 alt.php
1 news.answers
1 comp.lang.php
1 comp.answers
1 lucky.freebsd.ports
Top 13 Crossposters
===================
Articles Address
-------- -------
4 "nntp" <nntp@rogers.com>
2 "George King" <news@geking.com>
2 anatolym <anatolym@cox.net>
2 <jari.aalto <AT> poboxes.com> (Jari Aalto+mail.perl)
2 Peter Conrey <pfconrey@hotmail.com>
2 Stewart Campbell CS2002 <scampbel+usenet@cis.strath.ac.uk>
2 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
2 mgjv@tradingpost.com.au
2 Dr John Stockton <spam@merlyn.demon.co.uk>
2 tadmc@augustmail.com
2 Ben Morrow <usenet@morrow.me.uk>
2 Toby Inkster <usenet200410@tobyinkster.co.uk>
2 Gregory Toomey <nospam@bigpond.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 7348
***************************************
