[24986] in Perl-Users-Digest
Perl-Users Digest, Issue: 7236 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 12 18:07:01 2004
Date: Tue, 12 Oct 2004 15: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)
Perl-Users Digest Tue, 12 Oct 2004 Volume: 10 Number: 7236
Today's topics:
Re: Acceptible idiom ? (Anno Siegel)
Re: Acceptible idiom ? <mritty@gmail.com>
Re: Acceptible idiom ? <mritty@gmail.com>
Re: Accessing hashes and converting into an array <usa1@llenroc.ude.invalid>
Re: Error.pm and DBI.pm problem (Horst Walter)
File extension extraction from filename <Deke@nospam.com>
Re: Has anyone ported Trek-80 to Perl? <jwillmore@adelphia.net>
Help! Sendmail on Mac OS X Server <gobeyondgobeyond@Rem0ve.Yahoo.com>
Re: Help! Sendmail on Mac OS X Server <kkeller-usenet@wombat.san-francisco.ca.us>
Re: How do I Capitalize the first letter? (Anno Siegel)
Re: Lagrange Interpolating Polynomial (Anno Siegel)
Re: localizing %SIG handlers (Anno Siegel)
mod_perl on unixware 7 <imyaman@netscape.net>
parsing in wrong order? <geoff.cox@removethisplease.freeuk.com>
Re: Perls system() call fails in a cgi-file running on <tadmc@augustmail.com>
Re: Perls system() call fails in a cgi-file running on <jwillmore@adelphia.net>
Re: reading a list of files (krakle)
Statistics for comp.lang.perl.misc <gbacon@hiwaay.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 11 Oct 2004 12:30:42 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Acceptible idiom ?
Message-Id: <ckdudi$of3$2@mamenchi.zrz.TU-Berlin.DE>
Richard Gration <richard@zync.co.uk> wrote in comp.lang.perl.misc:
> In article <newscache$tmye5i$yw$1@news.emea.compuware.com>, "Koos Pol"
> <koos@no.spam> wrote:
>
>
> > Although you need to actively think Perl,
> > !!$a
> > is a lot shorter than
> >
> > defined $a && ($a ne "" || $a <>0 );
> > Comments?
>
> It seems to me that
>
> ($a <> 0) implies ($a ne "") for all $a
^^
That's not Perl (nor was it in earlier postings) :)
> so that means the test could have been written
>
> defined $a && ($a ne "")
>
> Am I missing something?
The possibility that someone said "$a = 0"?
But anyway, your logic escapes me. Even if it were true that
'$a != 0 implies $a ne ""' (which it isn't), it would be the
test for "" that could be discarded, not the one for 0.
Anno
------------------------------
Date: Mon, 11 Oct 2004 12:33:49 GMT
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Acceptible idiom ?
Message-Id: <N4vad.3407$275.355@trndny01>
"Koos Pol" <koos@no.spam> wrote in message
news:newscache$tmye5i$yw$1@news.emea.compuware.com...
>
> Although you need to actively think Perl,
^^^^^^^^^^
>
> defined $a && ($a ne "" || $a <>0 );
^^^^^^
I find this contrast amusing.
Paul Lalli
------------------------------
Date: Mon, 11 Oct 2004 13:10:02 GMT
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Acceptible idiom ?
Message-Id: <KCvad.3073$wV6.2007@trndny06>
"Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote in message
news:ckdudi$of3$2@mamenchi.zrz.TU-Berlin.DE...
> But anyway, your logic escapes me. Even if it were true that
> '$a != 0 implies $a ne ""' (which it isn't),
It isn't? Can you give me a non-zero value which is string-equal to the
empty string?
The converse, $a ne '' implying $a != 0, is clearly false, as is
exemplified by the value $a = 'foo'; The original does indeed hold,
however. There are no values which are not numerically equal to 0 which
are string equal to the empty string.
... unless I'm really not thinking well today. Feel free to show me how
I'm wrong...
Paul Lalli
------------------------------
Date: 12 Oct 2004 18:55:48 GMT
From: "A. Sinan Unur" <usa1@llenroc.ude.invalid>
Subject: Re: Accessing hashes and converting into an array
Message-Id: <Xns95809828ADEA6asu1cornelledu@132.236.56.8>
"Jürgen Exner" <jurgenex@hotmail.com> wrote in
news:MeRad.3863$Rp4.2736@trnddc01:
> Rohit S wrote:
>> Ok Let me put this way
>> How do I print the following
>>
>> ora_data[0]{'STUDENT' => joe,
>> 'SUBJECT' => { 'M' => 78,
>> 'SC' => 80
>> }
>> [...]
>
> I'd use Data::Dumper
>
Oh, but the OP wanted HTML output! :)
#! perl
use strict;
use warnings;
use Data::HTMLDumper;
$Data::Dumper::Sortkeys = 1;
my @ora_data = (
{
STUDENT => 'joe',
SUBJECT => { 'M' => 78, 'SC' => 80 }
},
{
STUDENT => 'phil',
SUBJECT => { 'M' => 84, 'GE' => 89 }
},
{
STUDENT => 'steve',
SUBJECT => { 'SC' => 84, 'GE' => 89, 'ENG' => 95 }
},
);
print Dumper \@ora_data;
To the OP: Don't expect to get any more serious answers until you have
shown that you are taking the first round of serious answers seriously.
Sinan.
------------------------------
Date: 12 Oct 2004 13:56:38 -0700
From: unkwb@web.de (Horst Walter)
Subject: Re: Error.pm and DBI.pm problem
Message-Id: <53867fbe.0410121256.324ffe82@posting.google.com>
Thanks a lot Peter & Rhesa for your support. I will try both of your
hints on Friday, since I am attending a conference right now.
Best regards
HW
peter@PSDT.com (Peter Scott) wrote in message news:<s%Rad.702180$M95.264393@pd7tw1no>...
> In article <53867fbe.0410110738.6976f45a@posting.google.com>,
> unkwb@web.de (Horst Walter) writes:
> >Here is a complete one you can run. I read all I found about error.pm,
> >I am only not certain whether I have to include other use statements
> >like qw(:catch).
>
> No, you don't.
>
> >Error is still
> >Error: Can't call method "with" without a package or object reference
>
> I ran the below with changes for db account and got the expected
> "Illegal division by zero at..."
>
> You have to set ORACLE_HOME, but presumably you do that outside
> the script.
>
> I tried Perl 5.6.1 and 5.004 with the same results.
>
> All I can think is that you have a bad DBI.pm, bad DBD::Oracle.pm,
> or bad Error.pm. Try creating a brand new perl on a different
> computer altogether, installing the latest versions of those
> modules, and point your script back at your Oracle server.
>
> >use strict;
> >use warnings;
> >use Error qw(:try);
> >use DBI;
> >
> ># global
> >
> >my $db = "XXXX";
> >my $password = "XXXXX";
> >my $username = "XXXXX";
> >my $oracle_sid = $db;
> >my $dbh;
> >
> >try {
> >
> > unless ( $dbh = DBI->connect("dbi:Oracle:$oracle_sid", "$username",
> >$password, {AutoCommit => 0}) ) {
> > print STDERR ("autodb::oracleLogin login Failed as
> >$username\/$password\@$oracle_sid");
> > }
> > unless ($dbh->disconnect) {
> > print STDERR "autodb::oracleLogoff $DBI::errstr";
> > }
> > # force an error
> > my $n = 0;
> > print 0/$n;
> >} catch Error with {
> > my $err = shift;
> > print $err;
> >}
------------------------------
Date: Tue, 12 Oct 2004 17:37:36 -0400
From: Deke <Deke@nospam.com>
Subject: File extension extraction from filename
Message-Id: <10mojl1hbb74va0@news.supernews.com>
How does one extract check for the file extension part or a filename in
Perl?
Thanks
------------------------------
Date: Tue, 12 Oct 2004 10:22:56 -0400
From: James Willmore <jwillmore@adelphia.net>
Subject: Re: Has anyone ported Trek-80 to Perl?
Message-Id: <W9KdnSBvqO8zdfbcRVn-tw@adelphia.com>
Randal L. Schwartz wrote:
>>>>>>"David" == David Filmer <IneverReadAnythingSentToMe@hotmail.com> writes:
>
>
> David> Not long after the epoch, there were a number of console "Star Trek"
> David> programs (I believe the first of these was published in Dr. Dobbs
> David> Journal - or was it Interface Age?). For a screenshot of an early Trek
> David> game, see http://www.thebattles.net/sol20/tinytrek/tinytrek.gif.
>
> Ouch. That's a screencapture of a Sol 20, which I *still* have in my
> storage shed. It's the very first computer I owned.
>
> David> Has anyone ever seen such a port? Can you provide a link?
>
> I don't recall. But let me know if you see one!
>
Not for Perl, but using C. Go to http://freshmeat.net and use the
search word 'trek'.
HTH
Jim
------------------------------
Date: Tue, 12 Oct 2004 14:53:24 -0500
From: Terry <gobeyondgobeyond@Rem0ve.Yahoo.com>
Subject: Help! Sendmail on Mac OS X Server
Message-Id: <MPG.1bd5f22e529cc70e9896b6@news.tc.umn.edu>
Hi,
I am having trouble running a perl script on a Mac OS X (Panther)
server. This script ran okay on a Linux web server so I know the script
is okay. The script uses Sendmail to send an email message as
following.
open (M, "| /usr/sbin/sendmail -t");
print M "To: $address_01\n";
print M "From: $address_from\n";
...
# content of message
close (M);
I tested the OS X server with some simple perl scripts without using
Sendmail and they worked fine. So, I guess the perl interpretor was
working okay. I was thinking that maybe my script was having trouble
with Sendmail.
I did a "whereis sendmail" and it returned "/usr/sbin/sendmail". Does
this mean that sendmail is installed? If I used Postfix, how do I
change the perl script?
Can someone give me some troubleshooting/configuration tips on Sendmail
for Mac OS server (Panther)? I never worked on Mac server before.
Thanks in advance!
Terry
------------------------------
Date: Tue, 12 Oct 2004 14:14:25 -0700
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: Help! Sendmail on Mac OS X Server
Message-Id: <h2ut32xhcf.ln2@goaway.wombat.san-francisco.ca.us>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
On 2004-10-12, Terry <gobeyondgobeyond@Rem0ve.Yahoo.com> wrote:
>
> I am having trouble running a perl script on a Mac OS X (Panther)
> server. This script ran okay on a Linux web server so I know the script
> is okay. The script uses Sendmail to send an email message as
> following.
>
> open (M, "| /usr/sbin/sendmail -t");
The Perl answer: Use one of the various mail modules available from
CPAN. There's Net::SMTP, Mail::Mailer, Mail::Sendmail, plus possibly
others.
> I did a "whereis sendmail" and it returned "/usr/sbin/sendmail". Does
> this mean that sendmail is installed? If I used Postfix, how do I
> change the perl script?
The OS X answers: Yes; if you followed the Postfix install instructions
then do whereis sendmail to find the new sendmail compatibility binary,
or read the Postfix docs to find out what to call. But I think you'll
find using one of the above modules easier and more consistent.
> Can someone give me some troubleshooting/configuration tips on Sendmail
> for Mac OS server (Panther)? I never worked on Mac server before.
You might want to post the above to comp.sys.mac.system instead; it's
not really on-topic for this group.
- --keith
- --
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://wombat.san-francisco.ca.us/cgi-bin/fom
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.2.4 (GNU/Linux)
iD8DBQFBbEkvhVcNCxZ5ID8RAl7tAJ0YGiyTX0uJkAXOo4ijEBNFZvuO7QCbB9Z4
znFc545gYjI9R4Kf7Xqf4Jk=
=EckJ
-----END PGP SIGNATURE-----
------------------------------
Date: 11 Oct 2004 13:11:50 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: How do I Capitalize the first letter?
Message-Id: <cke0qm$of3$3@mamenchi.zrz.TU-Berlin.DE>
Paul Lalli <mritty@gmail.com> wrote in comp.lang.perl.misc:
> Jim Keenan wrote:
>
> > nntp wrote:
> >
> >> s/\s(\w)//g;
> >> how to inclue the fist letter in too?
> >>
> >> I want to make
> >> abc xyz to Abc Xyz
> >>
> >>
> > perldoc -f ucfirst
>
> Have you yourself read that documentation? It doesn't do what the OP
> asked for.
It does point to the "\u" escape, which is what the OP wants:
s/\s(\w+)/ \u$1/g;
or better
s/\b(\w+)/\u$1/g;
Anno
------------------------------
Date: 12 Oct 2004 20:40:06 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Lagrange Interpolating Polynomial
Message-Id: <ckhff6$5o6$1@mamenchi.zrz.TU-Berlin.DE>
Chris Mattern <matternc@comcast.net> wrote in comp.lang.perl.misc:
> Anno Siegel wrote:
>
> > Brian Troutwine <goofy_headed_punk@msn.com> wrote in comp.lang.perl.misc:
> >> #!/usr/bin/perl
> >> use diagnostics;
> >> use strict;
> >> use Getopt::Std;
> >> use Math::BigRat;
> >
> > No warnings?
> >
> He's got use diagnostics. Use warnings would be redundant.
Oh, right. Well, that adds some sluggishness too.
Anno
------------------------------
Date: 12 Oct 2004 21:07:44 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: localizing %SIG handlers
Message-Id: <ckhh30$6m2$1@mamenchi.zrz.TU-Berlin.DE>
Ben Morrow <usenet@morrow.me.uk> wrote in comp.lang.perl.misc:
>
> Quoth anno4000@lublin.zrz.tu-berlin.de (Anno Siegel):
> > It is common practice to localize %SIG handlers in this fashion:
> >
> > $SIG{ HUP} = \ &global_handler;
> >
> > {
> > local $SIG{ HUP} = \ &local_handler;
> > # provoke and deal with one or more HUP signals
> > }
> >
> > The assumption is that $SIG{ HUP} is either the global or the local
> > handler at all times, so the (HUP) signal will always be caught, but
> > apparently that assumption isn't true. "local" sets the handler
> > to undef, and then "=" sets it to \ &local_handler. It is quite
> > possible for a signal to arrive when the hander is undefined, which
> > ends the program through an uncaught signal.
> <snip example>
> > My conclusion: The practice of localizing %SIG handlers isn't safe,
> > and probably never has been.
> >
> > Comments?
>
> Hmmm.... local $SIG{FOO} is too useful an idiom to lose, even if it
> never really worked :).
>
> There are two possible ways out, AFAICT. The first is that assigning
> undef to a member of %SIG currently has undefined effects. In fact, what
> happens is that any assigned value that 1. isn't a glob or a reference
> and 2. stringifies to the empty string causes the signal handler to be
> set to SIG_DFL. At the potential risk of breaking programs that rely on
> the (undocumented) consequence that $SIG{FOO} = undef; is equivalent to
> $SIG{FOO} = 'DEFAULT'; it would be relatively trivial to change
> mg.c:Perl_magic_setsig to cause undef to leave the signal handler
> unchanged, instead of setting it to the default.
Ah, but that would mean that a pristine $SIG{FOO} wouldn't be restored
after { local $SIG{ FOO} = \&something }. \&something would stick,
which is certainly unexpected.
I also admit that I had naively assumed the, as you point out,
undocumented behavior that undef'ing a sig handler resets it to
the default.
> The alternative, which would be rather harder to implement but would
> only break programs which assume local $SIG{FOO}; sets SIGFOO to SIG_DFL
> rather than $SIG{FOO} = undef;, is to special-case %SIG in
> scope.c:S_save_scalar_at to keep the old value of $SIG{FOO} on
> localising rather than assigning undef.
...so basically, local() would have to be made aware that it is
localizing a sig handler, instead of dealing with it in %SIG magic.
> The Perl solution is obvious: create a class which can be used like
>
> my $sh = SigHandler->new(HUP => \&global_handler);
> {
> my $sh = SigHandler->new(HUP => \&local_handler);
> }
>
> and which saves the old value in the object and restores it on DESTROY.
POSIX::SigAction objects appear to implement that, though I don't see
a DESTROY method. Maybe not...
In the particular case, the solution was to scratch local(). It
was only there out of orderliness in the first place :)
Anno
------------------------------
Date: Mon, 11 Oct 2004 13:37:43 +0000 (UTC)
From: Anne Shirley <imyaman@netscape.net>
Subject: mod_perl on unixware 7
Message-Id: <Xns957FE6293277Eimyamannetscapenet@210.180.98.78>
I have installed mod_perl 1.99_16 with apache2 and perl 5.8.5 on UnixWare
7.1.3.
And there was no problem. But I got error when I started httpd.
The error message is...
dynamic linker: bin/httpd: relocation error: symbol not found:
ap_server_root_relative; referenced from:
/usr/local/apache2/modules/mod_perl.so
Do you have any idea?
Many thanks.
------------------------------
Date: Tue, 12 Oct 2004 20:20:13 GMT
From: Geoff Cox <geoff.cox@removethisplease.freeuk.com>
Subject: parsing in wrong order?
Message-Id: <kieom054p7toe1c07idu5nl5e2pnvpj006@4ax.com>
Hello,
I have just come back to the kind of code shown in the extract below -
problem is that although the code works, it does not output the data
in the same order as in the html files.
I would like to get successive sections of
<h2>
<p>
<options>
but am getitng all the <h2> and <p> and then all the <options> data.
Can anyone see the "obvious" from the code below?
The
if ( $tagname eq 'option' ) {
main::choice( $attr->{ value } );
}
ought, I would have thought, go off and get the <option> data and then
return to work through the html in the order found in the html file??
Cheers
Geoff
package MyParser;
use base qw(HTML::Parser);
use strict;
use diagnostics;
my ($in_heading,$in_p, $fh);
sub register_fh {
$fh = $_[1];
}
sub reset { ($in_heading,$in_p)=(0,0)}
sub start {
my ( $self, $tagname, $attr, undef, $origtext ) = @_;
if ( $tagname eq 'h2' ) {
$in_heading = 1;
return;
}
if ( $tagname eq 'p' ) {
$in_p = 1;
return;
}
if ( $tagname eq 'option' ) {
main::choice( $attr->{ value } );
}
}
sub end {
my ( $self, $tagname, $origtext ) = @_;
if ( $tagname eq 'h2' ) {
$in_heading = 0;
return;
}
if ( $tagname eq 'p' ) {
$in_p = 0;
return;
}
}
sub text {
my ( $self, $origtext ) = @_;
print $fh "<h2>$origtext</h2> \n" if $in_heading;
print $fh "<p>$origtext</p> \n" if $in_p;
}
package main;
use File::Find;
------------------------------
Date: Tue, 12 Oct 2004 13:07:28 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Perls system() call fails in a cgi-file running on win2k and apache
Message-Id: <slrncmo7b0.vcp.tadmc@magna.augustmail.com>
Mr. Zeus <mister_x_sun@hotmail.com> wrote:
> Are there additional mods necessary in the apache config?
There is no Perl content in that question.
> What to do exactly?
Ask server configuration questions in a newsgroup about server configuration.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 12 Oct 2004 10:18:45 -0400
From: James Willmore <jwillmore@adelphia.net>
Subject: Re: Perls system() call fails in a cgi-file running on win2k and apache
Message-Id: <QMudnafgOMguevbcRVn-oQ@adelphia.com>
Mr. Zeus wrote:
> I am running a UseMod wiki and tried to implement some system calls
> using the perl command system(@args). In my case it was a call of an
> executable file.
> Path to the file was fully given as well as the proper settings of
> @args.
> Independant of the function (dos-command or exe) I am calling it
> doesn't work.
>
> The system I am using is:
> W2K SR2
> apache 2.0.50 (win32)
> Perl 5.8.4
>
> Are there additional mods necessary in the apache config?
> What to do exactly?
>
> Thanks for your help
> Zeus
You have provided no code, so we can't see *what* you're trying to do.
All we know for certain is that you have some issue with using 'system'.
Try *reading* the Perl documentation on using 'system' ("perldoc -f
system" on the command line -or- visit http://www.perldoc.com/ and
search for 'system').
HTH
Jim
------------------------------
Date: 11 Oct 2004 06:00:35 -0700
From: krakle@visto.com (krakle)
Subject: Re: reading a list of files
Message-Id: <237aaff8.0410110500.66c37f4e@posting.google.com>
Tad McClellan <tadmc@augustmail.com> wrote in message news:<slrncm6h6c.4mq.tadmc@magna.augustmail.com>...
> Pinocchio <krakle@visto.com> wrote:
>
> > my @filenames = </some/path/to/dir/*>;
> >
> > Then loop through the array and perform whatever functions you want
> > to...
> >
> > foreach my $file (@filenames) {
> > # some yadda perl
> > }
>
>
> @filenames is serving no useful purpose.
>
> foreach my $file ( </some/path/to/dir/*> ) { # Look Ma! No temp vars!
Yes this is true.
My example was just an idea made in 10 seconds..
------------------------------
Date: Mon, 11 Oct 2004 12:30:52 -0000
From: Greg Bacon <gbacon@hiwaay.net>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <10mkv7scrnmfof7@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 04 Oct 2004 12:41:34 GMT and ending at
11 Oct 2004 12:13:22 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: 175
Articles: 556 (205 with cutlined signatures)
Threads: 116
Volume generated: 1125.3 kb
- headers: 516.0 kb (9,493 lines)
- bodies: 576.1 kb (19,241 lines)
- original: 351.1 kb (12,620 lines)
- signatures: 32.6 kb (642 lines)
Original Content Rating: 0.609
Averages
========
Posts per poster: 3.2
median: 2 posts
mode: 1 post - 80 posters
s: 4.6 posts
Posts per thread: 4.8
median: 3.0 posts
mode: 2 posts - 23 threads
s: 4.6 posts
Message size: 2072.5 bytes
- header: 950.4 bytes (17.1 lines)
- body: 1061.1 bytes (34.6 lines)
- original: 646.6 bytes (22.7 lines)
- signature: 60.1 bytes (1.2 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
39 114.6 ( 45.1/ 64.4/ 52.3) tadmc@augustmail.com
25 49.4 ( 19.2/ 30.2/ 15.6) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
22 44.7 ( 20.6/ 24.1/ 13.1) "Paul Lalli" <mritty@gmail.com>
20 41.5 ( 19.2/ 18.7/ 16.0) abigail@abigail.nl
16 32.7 ( 17.4/ 15.3/ 9.0) Brian McCauley <nobull@mail.com>
15 36.5 ( 14.6/ 17.8/ 6.5) John Bokma <postmaster@castleamber.com>
14 23.1 ( 14.4/ 8.6/ 4.8) Joe Smith <Joe.Smith@inwap.com>
14 28.4 ( 11.6/ 13.6/ 6.7) Ben Morrow <usenet@morrow.me.uk>
13 25.8 ( 12.2/ 10.6/ 3.9) Uri Guttman <uri@stemsystems.com>
11 33.3 ( 11.9/ 21.3/ 16.9) Mark J Fenbers <Mark.Fenbers@noaa.gov>
11 21.4 ( 12.8/ 8.6/ 4.2) "nntp" <nntp@rogers.com>
10 14.5 ( 8.1/ 5.7/ 2.7) Gunnar Hjalmarsson <noreply@gunnar.cc>
8 16.3 ( 5.3/ 10.0/ 3.9) ctcgag@hotmail.com
8 18.7 ( 8.6/ 10.1/ 6.8) Shawn Corey <shawn.corey@sympatico.ca>
7 15.4 ( 6.0/ 9.4/ 4.9) "A. Sinan Unur" <1usa@llenroc.ude.invalid>
7 11.0 ( 5.1/ 4.2/ 2.9) Michele Dondi <bik.mido@tiscalinet.it>
6 10.3 ( 5.3/ 4.2/ 2.5) toreau@gmail.com
6 12.8 ( 6.2/ 6.4/ 1.8) "John W. Krahn" <krahnj@telus.net>
6 11.2 ( 4.5/ 6.7/ 5.1) Fatted <fatted@gmail.com>
6 14.0 ( 7.3/ 6.6/ 4.6) "Brad Walton" <sammie-nospam@greatergreen.com>
These posters accounted for 47.5% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
37 114.6 ( 45.1/ 64.4/ 52.3) tadmc@augustmail.com
24 49.4 ( 19.2/ 30.2/ 15.6) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
22 44.7 ( 20.6/ 24.1/ 13.1) "Paul Lalli" <mritty@gmail.com>
20 41.5 ( 19.2/ 18.7/ 16.0) abigail@abigail.nl
16 32.7 ( 17.4/ 15.3/ 9.0) Brian McCauley <nobull@mail.com>
15 36.5 ( 14.6/ 17.8/ 6.5) John Bokma <postmaster@castleamber.com>
14 23.1 ( 14.4/ 8.6/ 4.8) Joe Smith <Joe.Smith@inwap.com>
14 28.4 ( 11.6/ 13.6/ 6.7) Ben Morrow <usenet@morrow.me.uk>
13 25.8 ( 12.2/ 10.6/ 3.9) Uri Guttman <uri@stemsystems.com>
10 14.5 ( 8.1/ 5.7/ 2.7) Gunnar Hjalmarsson <noreply@gunnar.cc>
9 33.3 ( 11.9/ 21.3/ 16.9) Mark J Fenbers <Mark.Fenbers@noaa.gov>
8 16.3 ( 5.3/ 10.0/ 3.9) ctcgag@hotmail.com
8 18.7 ( 8.6/ 10.1/ 6.8) Shawn Corey <shawn.corey@sympatico.ca>
7 11.0 ( 5.1/ 4.2/ 2.9) Michele Dondi <bik.mido@tiscalinet.it>
6 10.0 ( 5.7/ 4.4/ 2.4) "Jürgen Exner" <jurgenex@hotmail.com>
6 11.1 ( 6.7/ 2.7/ 1.3) "Eric J. Roode" <sdn.girths00869@zoemail.net>
6 10.3 ( 5.3/ 4.2/ 2.5) toreau@gmail.com
6 12.8 ( 6.2/ 6.4/ 1.8) "John W. Krahn" <krahnj@telus.net>
6 15.4 ( 6.0/ 9.4/ 4.9) "A. Sinan Unur" <1usa@llenroc.ude.invalid>
5 8.6 ( 4.0/ 4.6/ 0.9) Gregory Toomey <nospam@bigpond.com>
These posters accounted for 54.3% of all followups.
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
114.6 ( 45.1/ 64.4/ 52.3) 39 tadmc@augustmail.com
49.4 ( 19.2/ 30.2/ 15.6) 25 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
44.7 ( 20.6/ 24.1/ 13.1) 22 "Paul Lalli" <mritty@gmail.com>
41.5 ( 19.2/ 18.7/ 16.0) 20 abigail@abigail.nl
36.5 ( 14.6/ 17.8/ 6.5) 15 John Bokma <postmaster@castleamber.com>
33.3 ( 11.9/ 21.3/ 16.9) 11 Mark J Fenbers <Mark.Fenbers@noaa.gov>
32.7 ( 17.4/ 15.3/ 9.0) 16 Brian McCauley <nobull@mail.com>
28.4 ( 11.6/ 13.6/ 6.7) 14 Ben Morrow <usenet@morrow.me.uk>
25.8 ( 12.2/ 10.6/ 3.9) 13 Uri Guttman <uri@stemsystems.com>
23.1 ( 14.4/ 8.6/ 4.8) 14 Joe Smith <Joe.Smith@inwap.com>
21.4 ( 12.8/ 8.6/ 4.2) 11 "nntp" <nntp@rogers.com>
18.7 ( 8.6/ 10.1/ 6.8) 8 Shawn Corey <shawn.corey@sympatico.ca>
16.3 ( 5.3/ 10.0/ 3.9) 8 ctcgag@hotmail.com
15.4 ( 6.0/ 9.4/ 4.9) 7 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
14.5 ( 8.1/ 5.7/ 2.7) 10 Gunnar Hjalmarsson <noreply@gunnar.cc>
14.0 ( 7.3/ 6.6/ 4.6) 6 "Brad Walton" <sammie-nospam@greatergreen.com>
12.8 ( 6.2/ 6.4/ 1.8) 6 "John W. Krahn" <krahnj@telus.net>
11.8 ( 4.4/ 7.3/ 3.1) 5 sholden@cs.usyd.edu.au
11.2 ( 5.0/ 6.2/ 2.5) 4 l v <lv@aol.com>
11.2 ( 4.5/ 6.7/ 5.1) 6 Fatted <fatted@gmail.com>
These posters accounted for 51.3% of the total volume.
Top 12 Posters by Volume of Original Content (min. ten posts)
=============================================================
(kb)
Posts orig Address
----- ----- -------
39 52.3 tadmc@augustmail.com
11 16.9 Mark J Fenbers <Mark.Fenbers@noaa.gov>
20 16.0 abigail@abigail.nl
25 15.6 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
22 13.1 "Paul Lalli" <mritty@gmail.com>
16 9.0 Brian McCauley <nobull@mail.com>
14 6.7 Ben Morrow <usenet@morrow.me.uk>
15 6.5 John Bokma <postmaster@castleamber.com>
14 4.8 Joe Smith <Joe.Smith@inwap.com>
11 4.2 "nntp" <nntp@rogers.com>
13 3.9 Uri Guttman <uri@stemsystems.com>
10 2.7 Gunnar Hjalmarsson <noreply@gunnar.cc>
These posters accounted for 43.2% of the original volume.
Top 12 Posters by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.857 ( 16.0 / 18.7) 20 abigail@abigail.nl
0.812 ( 52.3 / 64.4) 39 tadmc@augustmail.com
0.793 ( 16.9 / 21.3) 11 Mark J Fenbers <Mark.Fenbers@noaa.gov>
0.590 ( 9.0 / 15.3) 16 Brian McCauley <nobull@mail.com>
0.553 ( 4.8 / 8.6) 14 Joe Smith <Joe.Smith@inwap.com>
0.543 ( 13.1 / 24.1) 22 "Paul Lalli" <mritty@gmail.com>
0.518 ( 15.6 / 30.2) 25 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.495 ( 6.7 / 13.6) 14 Ben Morrow <usenet@morrow.me.uk>
0.488 ( 4.2 / 8.6) 11 "nntp" <nntp@rogers.com>
0.474 ( 2.7 / 5.7) 10 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.371 ( 3.9 / 10.6) 13 Uri Guttman <uri@stemsystems.com>
0.364 ( 6.5 / 17.8) 15 John Bokma <postmaster@castleamber.com>
Bottom 12 Posters by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.857 ( 16.0 / 18.7) 20 abigail@abigail.nl
0.812 ( 52.3 / 64.4) 39 tadmc@augustmail.com
0.793 ( 16.9 / 21.3) 11 Mark J Fenbers <Mark.Fenbers@noaa.gov>
0.590 ( 9.0 / 15.3) 16 Brian McCauley <nobull@mail.com>
0.553 ( 4.8 / 8.6) 14 Joe Smith <Joe.Smith@inwap.com>
0.543 ( 13.1 / 24.1) 22 "Paul Lalli" <mritty@gmail.com>
0.518 ( 15.6 / 30.2) 25 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.495 ( 6.7 / 13.6) 14 Ben Morrow <usenet@morrow.me.uk>
0.488 ( 4.2 / 8.6) 11 "nntp" <nntp@rogers.com>
0.474 ( 2.7 / 5.7) 10 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.371 ( 3.9 / 10.6) 13 Uri Guttman <uri@stemsystems.com>
0.364 ( 6.5 / 17.8) 15 John Bokma <postmaster@castleamber.com>
12 posters (6%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
27 Top 10 list algorithm
24 Is PHP still slower than Perl?
20 Getopt::Long install problems
16 How to prevent the removal of \ from pairs of \\?
15 Regular Expression help please
14 Using a string as a variable name.
14 linked list for string class
11 Running vi from Perl
11 C (I think) to Perl Conversion
11 FAQ: How can I read in an entire file all at once?
10 How do I merge two arrays or two strings?
10 How to capture output of CVS via Perl?
10 Regex gurus question
10 Which Counter is Perfect?
9 Error.pm and DBI.pm problem
9 To Tad: Great perl class, and question
9 regex error
8 How do I Capitalize the first letter?
8 How to flush a stinkin' socket?
8 How Google/Amazon/eBay use?
These threads accounted for 45.7% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
63.1 ( 25.9/ 34.2/ 15.1) 24 Is PHP still slower than Perl?
60.0 ( 22.7/ 35.6/ 23.4) 27 Top 10 list algorithm
53.2 ( 21.4/ 31.3/ 22.7) 20 Getopt::Long install problems
34.3 ( 15.2/ 18.5/ 13.7) 15 Regular Expression help please
34.2 ( 1.9/ 32.3/ 32.3) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
29.5 ( 11.4/ 17.7/ 9.5) 11 C (I think) to Perl Conversion
28.3 ( 15.1/ 11.8/ 6.3) 16 How to prevent the removal of \ from pairs of \\?
25.9 ( 13.8/ 10.4/ 5.2) 14 Using a string as a variable name.
22.6 ( 12.3/ 9.5/ 4.9) 14 linked list for string class
22.4 ( 10.0/ 11.7/ 6.6) 10 Which Counter is Perfect?
22.2 ( 9.8/ 10.4/ 4.8) 11 FAQ: How can I read in an entire file all at once?
21.5 ( 10.8/ 10.0/ 5.6) 10 How do I merge two arrays or two strings?
19.9 ( 7.6/ 11.6/ 6.5) 8 While query
18.9 ( 9.8/ 8.4/ 5.1) 10 Regex gurus question
18.8 ( 10.1/ 7.9/ 4.7) 11 Running vi from Perl
18.3 ( 9.7/ 8.0/ 4.0) 9 regex error
17.8 ( 9.0/ 7.6/ 3.9) 10 How to capture output of CVS via Perl?
17.1 ( 7.4/ 9.7/ 6.0) 8 How to flush a stinkin' socket?
16.0 ( 6.1/ 9.6/ 5.2) 6 perl net::ldap problem using variable eg attr => [ $v1,$v2..]
15.9 ( 9.1/ 5.6/ 2.6) 9 To Tad: Great perl class, and question
These threads accounted for 49.7% of the total volume.
Top 14 Threads by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.741 ( 13.7/ 18.5) 15 Regular Expression help please
0.723 ( 22.7/ 31.3) 20 Getopt::Long install problems
0.658 ( 23.4/ 35.6) 27 Top 10 list algorithm
0.616 ( 5.1/ 8.4) 10 Regex gurus question
0.594 ( 4.7/ 7.9) 11 Running vi from Perl
0.567 ( 6.6/ 11.7) 10 Which Counter is Perfect?
0.563 ( 5.6/ 10.0) 10 How do I merge two arrays or two strings?
0.537 ( 9.5/ 17.7) 11 C (I think) to Perl Conversion
0.535 ( 6.3/ 11.8) 16 How to prevent the removal of \ from pairs of \\?
0.519 ( 4.9/ 9.5) 14 linked list for string class
0.511 ( 3.9/ 7.6) 10 How to capture output of CVS via Perl?
0.502 ( 5.2/ 10.4) 14 Using a string as a variable name.
0.459 ( 4.8/ 10.4) 11 FAQ: How can I read in an entire file all at once?
0.441 ( 15.1/ 34.2) 24 Is PHP still slower than Perl?
Bottom 14 Threads by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.741 ( 13.7 / 18.5) 15 Regular Expression help please
0.723 ( 22.7 / 31.3) 20 Getopt::Long install problems
0.658 ( 23.4 / 35.6) 27 Top 10 list algorithm
0.616 ( 5.1 / 8.4) 10 Regex gurus question
0.594 ( 4.7 / 7.9) 11 Running vi from Perl
0.567 ( 6.6 / 11.7) 10 Which Counter is Perfect?
0.563 ( 5.6 / 10.0) 10 How do I merge two arrays or two strings?
0.537 ( 9.5 / 17.7) 11 C (I think) to Perl Conversion
0.535 ( 6.3 / 11.8) 16 How to prevent the removal of \ from pairs of \\?
0.519 ( 4.9 / 9.5) 14 linked list for string class
0.511 ( 3.9 / 7.6) 10 How to capture output of CVS via Perl?
0.502 ( 5.2 / 10.4) 14 Using a string as a variable name.
0.459 ( 4.8 / 10.4) 11 FAQ: How can I read in an entire file all at once?
0.441 ( 15.1 / 34.2) 24 Is PHP still slower than Perl?
14 threads (12%) had at least ten posts.
Top 4 Targets for Crossposts
============================
Articles Newsgroup
-------- ---------
29 comp.lang.php
21 comp.lang.perl.modules
4 comp.databases.oracle.misc
1 comp.lang.perl
Top 20 Crossposters
===================
Articles Address
-------- -------
10 Mark J Fenbers <Mark.Fenbers@noaa.gov>
5 John Bokma <postmaster@castleamber.com>
4 Tim Tyler <tim@tt1lock.org>
4 Harry <harryooopotter@hotmail.co_>
2 krakle <krakle@visto.com>
2 "Jarson" <jarsonk@nospam.com>
2 Brad Shinoda <oracle.shinoda@gmail.com>
2 Joe Smith <Joe.Smith@inwap.com>
2 Kevin Thorpe <kevin@pricetrak.com>
2 Chris Hope <blackhole@electrictoolbox.com>
2 "Tony Marston" <tony@marston-home.demon.co.uk>
1 Jason Clifford <jason@ukpost.com>
1 ? the Platypus {aka David Formosa} <dformosa@zeta.org.au>
1 "Markus Ernst" <derernst@NO#SP#AMgmx.ch>
1 tadmc@augustmail.com
1 Jean-Luc Fontaine <jfontain@free.fr>
1 "Doug B" <yeah@right.com>
1 "Eric J. Roode" <sdn.girths00869@zoemail.net>
1 Gerhard M <notruf_1102003@yahoo.de>
1 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
------------------------------
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 7236
***************************************
