[7809] in Perl-Users-Digest
Perl-Users Digest, Issue: 1434 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Dec 7 17:08:18 1997
Date: Sun, 7 Dec 97 14:00:25 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 7 Dec 1997 Volume: 8 Number: 1434
Today's topics:
Re: awk to perl (Jonathan Stowe)
Books: Can anyone recommend a good one (hector Catre)
Re: Books: Can anyone recommend a good one <zenin@best.com>
Re: Clearing a namespace (Tushar Samant)
Re: Dates and forms (Jeremy D. Zawodny)
Re: Embarrassing Perl Code (was PERL Hourly Rates) (Michael Ward)
Filtering out unneeded header files (Tom Phillips)
HELP - Bulkmail - Does anyone know how to do it? (hector Catre)
Re: HELP - Bulkmail - Does anyone know how to do it? (Greg Bacon)
Re: How do I print all but the first variable in an arr <zenin@best.com>
Re: How do I print all but the first variable in an arr (Greg Bacon)
Re: html generator question (Tushar Samant)
Re: Inserting only the unique elements into an array .. <$_=qq!fearless\@NOSPAMio.com!;y/A-Z//d;print>
Re: Matching lowercase letter in regexp (Gabor)
Re: pattern matching (Greg Bacon)
Re: pattern matching (Bart Lateur)
Re: pattern matching snailgem@aol.com
Re: pattern matching <beans@bedford.net>
Re: Pls that run as root (Jeff Fisher)
Re: Recursive rename lowercase (Greg Bacon)
Re: Recursive rename lowercase (Ilya Zakharevich)
Re: smarter way of doing this? (Tushar Samant)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Statistics for comp.lang.perl.misc <merlyn@stonehenge.com>
xml lib chuck@yahoo-inc.com
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 7 Dec 1997 20:55:25 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: awk to perl
Message-Id: <66f2ft$8rb@neon.btinternet.com>
In article <zDxJuFARkDi0QAXQ@doulos.co.uk>, tim@doulos.co.uk says...
>
>Well...
>
>I've tried search engines, browsing (and text-searching) the key Web
>pages (anything linked to from www.perl.com) and the FAQs - just about
>everything in fact - but can I find the ftp site or URL for downloading
>the awk2perl utility? Nope.
>
>So come on chaps, someone please advise...
That'll be a2p and it *should* have come with the distribution (it
certainly has with all the various ones including Windows I have). It is
a binary so I wont post it. I must admit I dont use it as with most of
the awk I want to port it is easier to mend the problem and start
afresh...
Have fun.
------------------------------
Date: Sun, 07 Dec 1997 18:48:10 GMT
From: hector@csgm.com (hector Catre)
Subject: Books: Can anyone recommend a good one
Message-Id: <66eqqb$ak2$1@nntp1.uunet.ca>
Here's what I'm looking for: A really good Perl Manual, with tutorials. I've
already obtained
"teach yourself CGI Programming with Perl 5 in a week" by Eric Herrmann,
but I need something a bit more substancial.
Suggestions anyone?
------------------------------
Date: 7 Dec 1997 19:15:40 GMT
From: Zenin <zenin@best.com>
Subject: Re: Books: Can anyone recommend a good one
Message-Id: <881522346.352925@thrush.omix.com>
hector Catre <hector@csgm.com> wrote:
: Here's what I'm looking for: A really good Perl Manual, with tutorials. I've
: already obtained
: "teach yourself CGI Programming with Perl 5 in a week" by Eric Herrmann,
: but I need something a bit more substancial.
"Programming Perl", aka The Blue Camel
For more info, see man perlbook. It's basically the K&R of Perl.
--
-Zenin
zenin@best.com
------------------------------
Date: 7 Dec 1997 15:39:03 -0600
From: scribble@tekka.wwa.com (Tushar Samant)
Subject: Re: Clearing a namespace
Message-Id: <66f51n$odr@tekka.wwa.com>
rootbeer@teleport.com writes:
>On 5 Dec 1997, Dave Wolfe wrote:
>
>> To keep from accumulating spurious definitions I need to undefine all
>> the symbols in the namespace before defining the next set.
>
>> I suspect the problem has to do with references made at compilation time
>> that don't change just because the symbol table does,
>
>Yes; the compiler is too smart. :-) Wiping out the symbol table for CFG::
>won't guarantee that $CFG::testvar will seem to be wiped, since references
>to that variable within the code are normally looked up at compile time.
>
>Instead, you should probably use a different way to pass the symbols. For
>example, storing them in a hash and passing the hash reference around.
>This is likely to be more efficient, too. Good luck!
CGI.pm should have a method which returns a hash of all the params.
------------------------------
Date: Sun, 07 Dec 1997 18:48:10 GMT
From: jzawodn@wcnet.org (Jeremy D. Zawodny)
Subject: Re: Dates and forms
Message-Id: <348aef56.766682@woody.wcnet.org>
[original author automagically cc'd via e-mail]
On Mon, 8 Dec 1997 00:03:04 +1200, "NEWS" <a@b.c> wrote:
>Hi,
>I've been trying to write a perl script which take an input from a html
>form. Problem is the format is incompatibale with my postgres backend.
>What i need to do is to do something with sprintf but the syntax has got be
>stuffed. Any ideas??
Why don't you tell us what the data looks like and how you need to
change it. Maybe we can help, then.
Jeremy
--
Jeremy D. Zawodny jzawodn@wcnet.org
Web Server Administrator www@wcnet.org
Wood County Free Net (Ohio) http://www.wcnet.org/
------------------------------
Date: Sun, 07 Dec 1997 12:03:40 -0800
From: mward@veelos.com (Michael Ward)
Subject: Re: Embarrassing Perl Code (was PERL Hourly Rates)
Message-Id: <mward-ya023580000712971203400001@news.slip.net>
In article <3489a59a.0@news1.kcdata.com>, see@my.sig (Don Groves) wrote:
>In article <34896F18.6598@domain.com>, nospam@domain.com wrote:
>>Roy Brander wrote:
>>>
>>> : : /[Tt][Ee][Rr][Rr][Yy]/
>>> : : i ROTFL when i saw that i did that.... :-0
>>>
>>> Hey, a half-dozen threads up from here, they're having an argument that
>>> would appear to be "what's the most insanely inefficient way of finding
>>> if a number is odd or even?". Or they were before they started a flame
>>
>>
>>....How about a lookup table? :)
>>
>>
>>--John Nolan
>
>Or how about a function that returns a value with the low-order bit set
>if the input value is odd? :>)
Yeah, but then you'd also need a function that returned an odd value when
fed a value with the lower bit set.
--
Michael Ward
mward@veelos.com
------------------------------
Date: Sun, 07 Dec 1997 20:21:53 GMT
From: tphillipREMOVETHIS@rogers.wave.ca (Tom Phillips)
Subject: Filtering out unneeded header files
Message-Id: <348b03c4.12334024@news.on.rogers.wave.ca>
Hi,
I've been given a large number of C files to maintain
in which every .c file #includes basically EVERY .h file(!).
There are _hundreds_ of .h files #included in each .c file but
only a subset of the header files are really needed.
Does anyone know of an easy (and quick)
way to figure out what this subset is that does not
require compiling or linting the file? Can a preprocessor
be used to determine this perhaps? The platform is Unix (SOLARIS).
For example,
someFile.c:
#include "A.h" <--- required by <someFile.c code>
#include "B.h" <--- not required
#include "C.h" <--- required for E.h
#include "D.h" <--- required for F.h
#include "E.h" <--- required by <someFile.c code>
#include "F.h" <--- not required
<someFile.c code>
In this case the subset would be
#include "A.h"
#include "C.h"
#include "E.h"
I am considering writing a perl script to do this but
I don't want to re-invent the wheel.
Thanks,
Tom
tphillip@REMOVETHISrogers.wave.ca
------------------------------
Date: Sun, 07 Dec 1997 18:54:06 GMT
From: hector@csgm.com (hector Catre)
Subject: HELP - Bulkmail - Does anyone know how to do it?
Message-Id: <66er5e$ak2$2@nntp1.uunet.ca>
Here's the theoretical scenario:
I've been given a text based database of over 12,000 e-mails
I write a simple program that referrances each e-mail one by one and sends an
e-mail through sendmail to each and every individual.
problem:
because my script is browser based (the message to be sent is posted from an
html form), the browser times out long before the 12,000 can be sent, and
instead get a 'no data error'.
Suggestions, Advice, Theoretical solutions are always welcome.
Hector Catre "High Technology Can
Technical/Creative Coordinator only be surpassed
Carlson Sterling, Inc. by even greater
Canada Division intellegence"
Hector@CSGM.com H.G. Catre 1997
------------------------------
Date: 7 Dec 1997 20:01:53 GMT
From: gbacon@adtran.com (Greg Bacon)
To: hector@csgm.com (hector Catre)
Subject: Re: HELP - Bulkmail - Does anyone know how to do it?
Message-Id: <66evbh$pn5$6@info.uah.edu>
[Posted and mailed]
In article <66er5e$ak2$2@nntp1.uunet.ca>,
hector@csgm.com (hector Catre) writes:
: I've been given a text based database of over 12,000 e-mails
:
: I write a simple program that referrances each e-mail one by one and sends an
: e-mail through sendmail to each and every individual.
My spider sense is tingling. I doubt you'll find much help here.
I have heard something about putting 'bulk' in your Precedence: header.
Try asking in news.admin.net-abuse.email.
Greg
--
open(G,"|gzip -dc");$_=<<EOF;s/[0-9a-f]+/print G pack("h*",$&)/eg
f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084
d2ac158c84c4ece4d22d1000118a8d5491000000
EOF
------------------------------
Date: 7 Dec 1997 19:12:18 GMT
From: Zenin <zenin@best.com>
Subject: Re: How do I print all but the first variable in an array?
Message-Id: <881522143.840177@thrush.omix.com>
William B. Tansill, III <wtansill@erols.com> wrote:
: But this does not print a newline after each element in the version of
: PERL (on a DOS/Win '95 system) that I use. Rather, it prints each
: element on a single line separated by one space. The newline prints
: after all of the elements. I'm using version 5.004_02.
print join("\n", @array[1..$#array]), "\n";
--
-Zenin
zenin@best.com
------------------------------
Date: 7 Dec 1997 19:55:39 GMT
From: gbacon@adtran.com (Greg Bacon)
Subject: Re: How do I print all but the first variable in an array?
Message-Id: <66euvr$pn5$5@info.uah.edu>
In article <881522143.840177@thrush.omix.com>,
Zenin <zenin@best.com> writes:
: William B. Tansill, III <wtansill@erols.com> wrote:
: : But this does not print a newline after each element in the version of
: : PERL (on a DOS/Win '95 system) that I use. Rather, it prints each
: : element on a single line separated by one space. The newline prints
: : after all of the elements. I'm using version 5.004_02.
:
: print join("\n", @array[1..$#array]), "\n";
...or for the parenthetically avoidant
print join "\n", @array[1 .. $#array], ""; # :-)
Greg
--
open(G,"|gzip -dc");$_=<<EOF;s/[0-9a-f]+/print G pack("h*",$&)/eg
f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084
d2ac158c84c4ece4d22d1000118a8d5491000000
EOF
------------------------------
Date: 7 Dec 1997 15:42:36 -0600
From: scribble@tekka.wwa.com (Tushar Samant)
Subject: Re: html generator question
Message-Id: <66f58c$okv@tekka.wwa.com>
jzawodn@wcnet.org writes:
>[original author automagically cc'd via e-mail]
>
>On Sun, 07 Dec 1997 03:21:13 +0100, Conny de Groot <c.degroot@wxs.nl>
>wrote:
>
>>I am looking for a script that creates simple html
>>documents off-line. One must be able to add ones own
>>images, and links to other pages.
>
>Sounds like Perl is the tool for you.
When did you move from teleport, Tom?
------------------------------
Date: Sun, 7 Dec 1997 11:15:12 -0800
From: "Creede Lambard" <$_=qq!fearless\@NOSPAMio.com!;y/A-Z//d;print>
Subject: Re: Inserting only the unique elements into an array ...
Message-Id: <66esk4$pf1@bgtnsc01.worldnet.att.net>
Tom Phoenix wrote in message ...
>On Sat, 6 Dec 1997, it was written:
>
>> why is modifying @_ a bad idea? It doesn't seem to be any big deal to
>> modify $_ so long as you're careful where you do it; I would think you
>> could modify @_ in a similar way.
>
>There's some extra overhead to using @_ which doesn't happen if you use
>@temp. And, of course, it's a bad idea to change @_ in most cases within a
>subroutine. This is one of the reasons that scalar split is deprecated.
>
>Also, in a future version of Perl, @_ may be lexically scoped, which could
>make it usable only within subroutines. Although (mis-)usages may be
>grandfathered.
>
>In any case, making a temp variable (via my) is easy to do and free of
>unwanted ugly side-effects. Cheers!
Well, that makes sense. Here I was trying to avoid creating a new array when
I thought I had an old one that would work perfectly well. :D Thanks!
>
>--
>Tom Phoenix http://www.teleport.com/~rootbeer/
>rootbeer@teleport.com PGP Skribu al mi per Esperanto!
>Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
> Ask me about Perl trainings!
>
------------------------------
Date: 7 Dec 1997 19:10:38 GMT
From: gabor@vinyl.quickweb.com (Gabor)
Subject: Re: Matching lowercase letter in regexp
Message-Id: <slrn68lsp9.df2.gabor@vinyl.quickweb.com>
In article
<Pine.GSO.3.96.971205123404.29415L-100000@usertest.teleport.com>, Tom
Phoenix wrote:
- On Fri, 5 Dec 1997, Honza Pazdziora wrote:
-
- > Tom Phoenix <rootbeer@teleport.com> writes:
- >
- > > On Thu, 4 Dec 1997, Honza Pazdziora wrote:
- > >
- > > > how do I match lowercase letter (locale-smart, of course)?
- > >
- > > while (<>) {
- > > while (/(\G.*?[^\W0-9_])/g) {
- > > print "$1\n" if $1 eq lc $1;
- > > }
- > > }
- > >
- > > Does that do what you want?
- >
- > So, the only way to do it currently is to match something and then
- > check if after conversion to lowercase it's the same as before,
- > right?
-
- Well, I'd hesitate to say that any way to do something is the "only way"
- in Perl. But this is the only good way. :-) :-) :-)
-
I am just sort of guessing but how about this?
use POSIX;
$lower = '[';
for($i = 0;$i < 256;++$i) {
substr($lower, length $lower) = chr $i if POSIX::islower(chr $i);
}
substr($lower, length $lower) = ']'
gabor.
--
Besides, it's good to force C programmers to use the toolbox
occasionally. :-)
-- Larry Wall in <1991May31.181659.28817@jpl-devvax.jpl.nasa.gov>
------------------------------
Date: 7 Dec 1997 19:13:49 GMT
From: gbacon@adtran.com (Greg Bacon)
To: morgan@dept.english.upenn.edu (s. morgan friedman)
Subject: Re: pattern matching
Message-Id: <66eshd$pn5$3@info.uah.edu>
[Posted and mailed]
In article <66eqii$fr6$1@netnews.upenn.edu>,
morgan@dept.english.upenn.edu (s. morgan friedman) writes:
: i want to see if there is a smaller string (just an apersand,
: "@") within a bigger string, and, if so, to do something. so i
: constructed the following:
:
: if ($big_string =~ /[.*]\@[.*]/) {
: &do_something;
: }
:
: but this doesn't seem to be working. what am i doing wrong?
: thank you for the help; it's appreciated!
Your mistake is that you're using very sharp tools with little prior
training. I suggest a good bout with the perlre manpage.
Your code demonstrates a symptom of probably one of the most prevalent
afflictions among Perl programmers: Always-use-regoxen-itis. Why not
use something like
if (index($big_string, '@') >= 0) {
&do_something;
}
or
&do_something if index($big_string, '@') >= 0;
Don't go rabbit hunting in a tank.
Hope this helps,
Greg
--
open(G,"|gzip -dc");$_=<<EOF;s/[0-9a-f]+/print G pack("h*",$&)/eg
f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084
d2ac158c84c4ece4d22d1000118a8d5491000000
EOF
------------------------------
Date: Sun, 07 Dec 1997 20:41:46 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: pattern matching
Message-Id: <348b08d2.347180@news.tornado.be>
morgan@dept.english.upenn.edu (s. morgan friedman) wrote:
> hi: i'm a perl newbie and i'm trying to figure out something
> about pattern matching and i'm not sure what i'm doing wrong.
>
> i want to see if there is a smaller string (just an apersand,
> "@") within a bigger string, and, if so, to do something. so i
> constructed the following:
>
> if ($big_string =~ /[.*]\@[.*]/) {
> &do_something;
> }
>
> but this doesn't seem to be working. what am i doing wrong?
> thank you for the help; it's appreciated!
You're comining square brackets (character classes) with * (repeat).
Won't work, not this way.
This one checks only the presence of a "@":
if ($big_string =~ /\@/) {
&do_something;
}
There's no need to match absolutely everything.
If you're interested in what was matched:
if ($big_string =~ /(.*)\@(.*)/) {
&do_something;
}
Now you have $1 and $2 containing the "before" and "after" part. Careful
with greediness: $1 will containg EVERYTHING containing upto (but
excluding) the last ampersand, including any other ampersands.
HTH,
Bart.
------------------------------
Date: Sun, 07 Dec 1997 16:03:00 -0500
From: snailgem@aol.com
Subject: Re: pattern matching
Message-Id: <348B0F02.5C60@aol.com>
1. The word is "ampersand".
2.The symbol for the ampersand is &, not @.
(Though PERL doesn't check for this kind of things, yet ;--) )
s. morgan friedman wrote:
>
> hi: i'm a perl newbie and i'm trying to figure out something
> about pattern matching and i'm not sure what i'm doing wrong.
>
> i want to see if there is a smaller string (just an apersand,
> "@") within a bigger string, and, if so, to do something. so i
> constructed the following:
> if ($big_string =~ /[.*]\@[.*]/) {
> &do_something;
}
Try:
if ($big_string =~ /\@/) {
&do_something;
}
--
Will
"Take any demand, however slight, which any creature, however weak, may
make. Ought it not, for its own sole sake, to be satisfied? If not,
prove why not."
William James
------------------------------
Date: 7 Dec 97 21:05:56 GMT
From: Tom <beans@bedford.net>
Subject: Re: pattern matching
Message-Id: <348b0fb4.0@news3.paonline.com>
morgan@dept.english.upenn.edu (s. morgan friedman) writes: > hi: i'm a perl newbie and i'm trying to figure out something
> about pattern matching and i'm not sure what i'm doing wrong.
>
> i want to see if there is a smaller string (just an apersand,
> "@") within a bigger string, and, if so, to do something. so i
> constructed the following:
>
> if ($big_string =~ /[.*]\@[.*]/) {
> &do_something;
> }
>
> but this doesn't seem to be working. what am i doing wrong?
> thank you for the help; it's appreciated!
>
> morgan
>
>
> ...
You are trying way too hard, all you need is:
if ($big_string =~ /@/ ) {
Remember, you are not checking if the string matches the entire
re, just if the re is somewhere in the string.
Putting the * inside [] brackets is making a
different re than you think...
-Tom
------------------------------
Date: 7 Dec 1997 20:40:17 GMT
From: rzxtlg@dogbert.ies-energy.com (Jeff Fisher)
Subject: Re: Pls that run as root
Message-Id: <slrn68m2dh.bcd.rzxtlg@dogbert.ies-energy.com>
On Sat, 6 Dec 1997 21:44:08 -0600, Russ
<russ@eastland.net> said:
> Hello,
> I have set the permissions on a file as -rwsrwxrwx which is to my
> understanding is suid which should make the pl run with root permissions
> when called. But it don't seem to have the ability to do system calls that
> I need it to. Does anyone have any ideas on how to fix this.
> Russ
> russ@eastland.net
>
If your OS allows suid scripts.....
Changing a program to run suid will cause it to run as the owner of the program.
i.e.
-r-sr-xr-x jeff wheel /home/jeff/runme
will run with the effective uid of 'jeff'
To install a program suid root, you will need to first change the ownership
of the file to root, and then turn on the suid bit. This, of course, will
have to be done as root.
If you have an OS that does not allow suid scripts, you will need to make a
c wrapper program that calls your script. The wrapper would the program that
is suid root.
--
Jeff Fisher | ...I want to be on the side of the many.
UNIX Sys Admin - IES Industries | Therefore, I take great pains to explain
http://opus.ies-energy.com/jeff/ | to as many people as possible.
| - Johannes Kepler
------------------------------
Date: 7 Dec 1997 19:07:22 GMT
From: gbacon@adtran.com (Greg Bacon)
To: daniel <dbrignon@ac-nice.fr>
Subject: Re: Recursive rename lowercase
Message-Id: <66es5a$pn5$2@info.uah.edu>
[Posted and mailed]
In article <348A72D4.2FA8@ac-nice.fr>,
daniel <dbrignon@ac-nice.fr> writes:
: does anybody know how to make a recursive rename for directories or
: files (convert to lowercase files names) thanks
Yes. Post your code and we (i.e. you and the rest of the group) can
compare and discuss different approaches.
Greg
--
open(G,"|gzip -dc");$_=<<EOF;s/[0-9a-f]+/print G pack("h*",$&)/eg
f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084
d2ac158c84c4ece4d22d1000118a8d5491000000
EOF
------------------------------
Date: 7 Dec 1997 20:07:05 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Recursive rename lowercase
Message-Id: <66evl9$9mv$1@agate.berkeley.edu>
In article <348A72D4.2FA8@ac-nice.fr>, daniel <dbrignon@ac-nice.fr> wrote:
> does anybody know how to make a recursive rename for directories or
> files (convert to lowercase files names) thanks
> Daniel
> dbrignon@ac-nice.fr
> south school french academy
pfind . '$_ = lc'
How to find pfind is left as an exercise to the reader.
Ilya
------------------------------
Date: 7 Dec 1997 15:41:41 -0600
From: scribble@tekka.wwa.com (Tushar Samant)
Subject: Re: smarter way of doing this?
Message-Id: <66f56l$oj2@tekka.wwa.com>
snailgem@aol.com writes:
>This works OK, but again, I wonder if there is a more elegant way of
>doing it in PERL.
It's VERY elegant. What more do you want?
>foreach $online (@myonlines) {
> $file_path="/$online/new_prodfile.html";
> unless (-e $file_path) {
> print "$file_path cannot be found\n";
> $exitflag = 1;
> }
>}
>
>die ("\nFile has not been modified\n") if $exitflag == 1 ;
------------------------------
Date: 7 Dec 1997 19:03:45 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <66eruh$pn5$1@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 29 Nov 1997 11:12:51 GMT and ending at
06 Dec 1997 07:59:44 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" e-mail address and name.
- Original Content Rating is the ratio of the original content volume
to the total body volume.
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
Excluded Posters
================
perlfaq-suggestions@mox.perl.com
Totals
======
Total number of posters: 456
Total number of articles: 1074 (459 with cutlined signatures)
Total number of threads: 344
Total volume generated: 1748.1 kb
- headers: 726.8 kb (14,823 lines)
- bodies: 927.5 kb (29,287 lines)
- original: 646.6 kb (21,220 lines)
- signatures: 90.9 kb (1,834 lines)
Original Content Rating: 0.6971
Averages
========
Number of posts per poster: 2.36
median: 1.0 post
mode: 1 post - 308 posters
s: 4.88 posts
Number of posts per thread: 3.12
median: 2.0 posts
mode: 1 post - 103 threads
s: 2.95 posts
Message size: 1666.7 bytes
- header: 693.0 bytes (13.8 lines)
- body: 884.4 bytes (27.3 lines)
- original: 616.5 bytes (19.8 lines)
- signature: 86.7 bytes (1.7 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
68 109.5 ( 58.4/ 36.5/ 22.3) Tom Phoenix <rootbeer@teleport.com>
54 83.1 ( 36.9/ 35.0/ 20.7) brian d foy <comdog@computerdog.com>
23 36.6 ( 17.2/ 12.7/ 12.4) Brandon S. Allbery KF8NH; to reply, change "void" to "kf8nh" <bsa@void.apk.net>
20 25.6 ( 12.3/ 12.8/ 7.5) Zenin <zenin@best.com>
19 30.5 ( 12.9/ 14.7/ 7.4) jzawodn@wcnet.org
18 26.2 ( 9.8/ 16.1/ 11.0) Andrew M. Langmead <aml@world.std.com>
17 32.9 ( 9.4/ 18.1/ 12.2) Mike Stok <mike@stok.co.uk>
16 42.1 ( 12.7/ 26.5/ 23.1) Tom Christiansen <tchrist@mox.perl.com>
16 25.2 ( 11.0/ 10.8/ 7.4) Martien Verbruggen <mgjv@comdyn.com.au>
15 31.9 ( 9.0/ 22.8/ 15.9) Tad McClellan <tadmc@metronet.com>
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
109.5 ( 58.4/ 36.5/ 22.3) 68 Tom Phoenix <rootbeer@teleport.com>
83.1 ( 36.9/ 35.0/ 20.7) 54 brian d foy <comdog@computerdog.com>
42.1 ( 12.7/ 26.5/ 23.1) 16 Tom Christiansen <tchrist@mox.perl.com>
36.6 ( 17.2/ 12.7/ 12.4) 23 Brandon S. Allbery KF8NH; to reply, change "void" to "kf8nh" <bsa@void.apk.net>
32.9 ( 9.4/ 18.1/ 12.2) 17 Mike Stok <mike@stok.co.uk>
31.9 ( 9.0/ 22.8/ 15.9) 15 Tad McClellan <tadmc@metronet.com>
30.5 ( 12.9/ 14.7/ 7.4) 19 jzawodn@wcnet.org
26.3 ( 8.7/ 13.6/ 9.0) 11 Randal Schwartz <merlyn@stonehenge.com>
26.2 ( 9.8/ 16.1/ 11.0) 18 Andrew M. Langmead <aml@world.std.com>
25.6 ( 12.3/ 12.8/ 7.5) 20 Zenin <zenin@best.com>
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
------ -------------- ----- -------
0.9790 12.4 / 12.7 23 Brandon S. Allbery KF8NH; to reply, change "void" to "kf8nh" <bsa@void.apk.net>
0.9644 8.1 / 8.4 14 I R A Aggie <fl_aggie@thepentagon.com>
0.8696 23.1 / 26.5 16 Tom Christiansen <tchrist@mox.perl.com>
0.8461 3.3 / 3.9 5 "Phil R Lawrence" <prl2@lehigh.edu>
0.7693 8.2 / 10.7 7 Peter J. Schoenster <pschon@baste.magibox.net>
0.7585 3.2 / 4.3 8 Nathan V. Patwardhan <nvp@shore.net>
0.7187 10.1 / 14.1 10 Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
0.7132 3.6 / 5.0 6 Russ Allbery <rra@stanford.edu>
0.6986 15.9 / 22.8 15 Tad McClellan <tadmc@metronet.com>
0.6905 6.3 / 9.1 8 Bill Guindon <billg@networkapparel.com>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
------ -------------- ----- -------
0.5644 2.3 / 4.2 5 M.J.T. Guy <mjtg@cus.cam.ac.uk>
0.5485 2.1 / 3.8 6 snailgem@aol.com
0.5386 4.2 / 7.9 8 Ilya Zakharevich <ilya@math.ohio-state.edu>
0.5354 6.4 / 11.9 10 Gary Howland <ghowland@hotlava.com>
0.5353 2.5 / 4.7 6 Morten Simonsen <mortensi@idt.ntnu.no>
0.5114 1.9 / 3.6 5 Edward Henigin <ed@texas.net>
0.5047 7.4 / 14.7 19 jzawodn@wcnet.org
0.4642 3.1 / 6.6 10 Tushar Samant <scribble@tekka.wwa.com>
0.3667 2.3 / 6.2 12 bowlin@sirius.com
0.3302 3.5 / 10.6 10 Tushar Samant <scribble@wwa.com>
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
25 Q: Learning perl with no progr. experience
24 Resource Kit Anomaly
16 Perl4 is not Y2K (was Re: Forced to use brain-dead perl 4 -- how do I accomplish task that is simple in perl 5 ?)
15 How do I print all but the first variable in an array?
14 Seems to be just another 5.004_* bug:-(
12 open and whitespace
12 001 + 1 = 002; 002 - 1 = 1 ARGH
12 Q: lambda fun, loop, string to expr
11 Pattern matching (or not....)
11 help for a perl beginner!
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
44.0 ( 17.4/ 23.8/ 15.5) 24 Resource Kit Anomaly
42.5 ( 18.5/ 22.3/ 15.5) 25 Q: Learning perl with no progr. experience
30.2 ( 4.5/ 25.1/ 20.6) 7 need the skinny on my() vs local()
26.2 ( 14.8/ 9.4/ 6.1) 16 Perl4 is not Y2K (was Re: Forced to use brain-dead perl 4 -- how do I accomplish task that is simple in perl 5 ?)
23.1 ( 4.6/ 18.4/ 11.5) 7 perlop clarification request
22.4 ( 7.3/ 13.7/ 8.0) 11 can perl do multi-threaded programming?
22.2 ( 8.4/ 12.2/ 8.6) 12 Q: lambda fun, loop, string to expr
22.1 ( 8.4/ 12.5/ 6.9) 12 open and whitespace
21.1 ( 9.7/ 9.9/ 6.4) 14 Seems to be just another 5.004_* bug:-(
20.3 ( 10.2/ 7.9/ 4.4) 15 How do I print all but the first variable in an array?
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
13 comp.lang.perl.modules
8 comp.lang.perl.tk
6 comp.lang.java.misc
6 comp.lang.java.api
6 comp.lang.java.programmer
5 comp.unix.bsd.freebsd.misc
5 comp.infosystems.www.authoring.misc
4 fr.comp.lang.perl
4 pl.comp.lang.perl
4 de.comp.lang.perl
Top 10 Crossposters
===================
Articles Address
-------- -------
9 "Manfred Schneider" <manfred.schneider@rhein-neckar.de>
8 Honza Pazdziora <adelton@fi.muni.cz>
5 Mike King <m.king.garbage@praxa.garbage.com.au>
5 mbl@startext.de
5 Peter Prymmer <pvhp@forte.com>
5 lvirden@cas.org
5 "Akira" <j.a.d.@worldnet.att.net>
5 Steve O'Hara Smith <sohara@mardil.elsevier.nl>
5 "Jason Smith" <jssmith1@flash.net>
4 Fabrizio Pivari <pivari@geocities.com>
------------------------------
Date: 07 Dec 1997 12:20:56 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: Greg Bacon <gbacon@cs.uah.edu>, rootbeer@teleport.com
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <8czpmdhsdj.fsf@gadget.cscaper.com>
>>>>> "Greg" == Greg Bacon <gbacon@cs.uah.edu> writes:
Greg> Top 10 Posters by Number of Posts
Greg> =================================
Greg> (kb) (kb) (kb) (kb)
Greg> Posts Volume ( hdr/ body/ orig) Address
Greg> ----- -------------------------- -------
Greg> 68 109.5 ( 58.4/ 36.5/ 22.3) Tom Phoenix <rootbeer@teleport.com>
Go, Tom!
Boy, you can tell that teleport.com's newsfeed is back in full swing.
Tom can reply to every other post again!
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 267 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Sun, 07 Dec 1997 15:01:50 -0600
From: chuck@yahoo-inc.com
To: chuck@yahoo-inc.com
Subject: xml lib
Message-Id: <881527587.16932@dejanews.com>
Has anyone written an XML module that parses an xml doc
and has methods to manipulate the parse tree or map the
parse tree to perl/python objects? Something like a perl/python
version of LT XML.
Python has xmllib.py but it doesnt create a parse tree.
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 1434
**************************************
