[10877] in Perl-Users-Digest
Perl-Users Digest, Issue: 4478 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Dec 22 09:07:21 1998
Date: Tue, 22 Dec 98 06:00:15 -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 Tue, 22 Dec 1998 Volume: 8 Number: 4478
Today's topics:
%ENV question <kamran@norsar.no>
[Perl] How to find the Perl FAQ <rootbeer&pfaq*finding*@redcat.com>
Accessing DLL from Perl (Cave Dweller)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Please help me reading .csv textfiles scott@softbase.com
Re: Please help me reading .csv textfiles haakon.alstadheim@sds.no
Read "keywords" and "description" from a HTML file <dont@spam.me>
Re: Regex question - removing HTML tags.... (Gilly)
Re: Regex question - removing HTML tags.... (Gilly)
Re: Regex question - removing HTML tags.... (Sam Holden)
regular expression alternation <sehughes@mistral.co.uk>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Turning Variables into CAPS? <r2-d2@REMOVEbigfoot.com>
Re: Writing Perl with Notepad scott@softbase.com
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 22 Dec 1998 13:21:00 +0100
From: Kamran Iranpour <kamran@norsar.no>
Subject: %ENV question
Message-Id: <367F8EAC.190D@norsar.no>
Hi
In my script which is supposed to communicate with an oracle
database I need to set the environment variable LD_LIBRARY_PATH.
If I set the variable outside the script then everything works but
if I chose to do it inside the script by
%ENV{LD_LIBRARY_PATH} = "SOME_LIB_PATH";
then evenif the variable is reported to have been set correctly
I still get an error message:
______________________________________
install_driver(Oracle) failed: Can't load
'/usr/local/perl/lib/site_perl/sun4-solaris/auto/DBD/Oracle/Oracle.so'
for module DBD::Oracle: ld.so.1: /usr/local/perl/perl: fatal:
libsunmath.so.1: open failed: No such file or directory at
/usr/local/perl/lib/sun4-solaris/5.00404/DynaLoader.pm line 165.
at (eval 2) line 2
at /usr/local/perl/lib/site_perl/Oraperl.pm line 58
______________________________________
The file it fails to find, i.e. libsunmath.so.1 is located
in the directory specified by LD_LIBRARY_PATH.
What am I doing wrong ?
Thanks in advance
Kamran
------------------------------
Date: Tue, 22 Dec 1998 11:24:01 GMT
From: Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
Subject: [Perl] How to find the Perl FAQ
Message-Id: <pfaqmessage914325841.12356@news.teleport.com>
Archive-name: perl-faq/finding-perl-faq
Posting-Frequency: weekly
Last-modified: 10 Sep 1998
[ That "Last-modified:" date above refers to this document, not to the
Perl FAQ itself! The last major update of the Perl FAQ was in Summer of
1998; of course, ongoing updates are made as needed. ]
For most people, this URL should be all you need in order to find Perl's
Frequently Asked Questions (and answers).
http://cpan.perl.org/doc/FAQs/
Please look over (but never overlook!) the FAQ and related docs before
posting anything to the comp.lang.perl.* family of newsgroups.
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Beginning with Perl version 5.004, the Perl distribution itself includes
the Perl FAQ. If everything is pro-Perl-y installed on your system, the
FAQ will be stored alongside the rest of Perl's documentation, and one
of these commands (or your local equivalents) should let you read the FAQ.
perldoc perlfaq
man perlfaq
If a recent version of Perl is not properly installed on your system,
you should ask your system administrator or local expert to help. If you
find that a recent Perl distribution is lacking the FAQ or other important
documentation, be sure to complain to that distribution's author.
If you have a web connection, the first and foremost source for all things
Perl, including the FAQ, is the Comprehensive Perl Archive Network (CPAN).
CPAN also includes the Perl source code, pre-compiled binaries for many
platforms, and a large collection of freely usable modules, among its
560_986_526 bytes (give or take a little) of super-cool (give or take
a little) Perl resources.
http://cpan.perl.org/
http://www.perl.com/CPAN/
http://cpan.perl.org/doc/FAQs/FAQ/html/
http://www.perl.com/CPAN/doc/FAQs/FAQ/html/
You may wish or need to access CPAN via anonymous FTP. (Within CPAN,
you will find the FAQ in the /doc/FAQs/FAQ directory. If none of these
selected FTP sites is especially good for you, a full list of CPAN sites
is in the SITES file within CPAN.)
California ftp://ftp.cdrom.com/pub/perl/CPAN/
Texas ftp://ftp.metronet.com/pub/perl/
South Africa ftp://ftp.is.co.za/programming/perl/CPAN/
Japan ftp://ftp.dti.ad.jp/pub/lang/CPAN/
Australia ftp://cpan.topend.com.au/pub/CPAN/
Netherlands ftp://ftp.cs.ruu.nl/pub/PERL/CPAN/
Switzerland ftp://sunsite.cnlab-switch.ch/mirror/CPAN/
Chile ftp://ftp.ing.puc.cl/pub/unix/perl/CPAN/
If you have no connection to the Internet at all (so sad!) you may wish
to purchase one of the commercial Perl distributions on CD-Rom or other
media. Your local bookstore should be able to help you to find one.
Another possibility is to use one of the FTP-via-email services; for
more information on doing that, send mail to <mail-server@rtfm.mit.edu>
(not to me!) with these lines in the body of the message, flush left:
setdir usenet-by-group/news.announce.newusers
send Anonymous_FTP:_Frequently_Asked_Questions_(FAQ)_List
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Comments and suggestions on the contents of this document
are always welcome. Please send them to the author at
<pfaq&finding*comments*@redcat.com>. Of course, comments on
the docs and FAQs mentioned here should go to their respective
maintainers.
Have fun with Perl!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 22 Dec 1998 12:17:49 GMT
From: Swervin33@hotmail.com (Cave Dweller)
Subject: Accessing DLL from Perl
Message-Id: <75o2nt$sc5$1@news.knight-hub.com>
Is there a way to access the calls in a Windows NT .DLL from Perl
5? I'm needing to utilize a database API and would prefer to code it in
Perl over C. Any tips?
(Activestate 5.00502)
(NT 4.0)
------------------------------
Date: 22 Dec 1998 12:58:24 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <75o51g$3am$1@info.uah.edu>
Following is a summary of articles from new posters spanning a 8 day
period, beginning at 14 Dec 1998 13:03:42 GMT and ending at
22 Dec 1998 06:29:47 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) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 241 (45.2% of all posters)
Articles: 344 (23.4% of all articles)
Volume generated: 584.4 kb (22.1% of total volume)
- headers: 238.8 kb (4,981 lines)
- bodies: 339.0 kb (11,048 lines)
- original: 269.5 kb (8,960 lines)
- signatures: 6.3 kb (162 lines)
Original Content Rating: 0.795
Averages
========
Posts per poster: 1.4
median: 1 post
mode: 1 post - 189 posters
s: 1.2 posts
Message size: 1739.7 bytes
- header: 710.8 bytes (14.5 lines)
- body: 1009.1 bytes (32.1 lines)
- original: 802.3 bytes (26.0 lines)
- signature: 18.8 bytes (0.5 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
10 21.3 ( 7.7/ 13.6/ 4.1) Steve Harris <perl@nullspace.com>
9 15.0 ( 7.7/ 7.2/ 5.8) "Peter L. Berghold" <peter@berghold.net>
6 16.5 ( 4.3/ 11.7/ 9.0) jseymour@jimsun.LinxNet.com
6 7.8 ( 4.4/ 3.3/ 2.3) Kamran Iranpour <kamran@norsar.no>
5 7.1 ( 3.6/ 3.5/ 2.9) pigs_can_fly@mindless.com (Jason Q.)
5 12.5 ( 4.0/ 7.9/ 4.5) rutka@lucent.com (Micha3 Rutka)
5 8.6 ( 3.7/ 4.9/ 2.8) homeplate@halostorm.com (Stephen C. Smith)
4 12.0 ( 3.1/ 9.0/ 8.0) "BenJamin Prater" <jipes@ispchannel.com>
3 5.6 ( 2.0/ 3.6/ 3.6) "Dan Albertsson" <dan@albertsson.com>
3 3.2 ( 1.6/ 1.7/ 1.6) groovy94@aol.com (Groovy94)
These posters accounted for 3.8% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
21.3 ( 7.7/ 13.6/ 4.1) 10 Steve Harris <perl@nullspace.com>
16.5 ( 4.3/ 11.7/ 9.0) 6 jseymour@jimsun.LinxNet.com
15.0 ( 7.7/ 7.2/ 5.8) 9 "Peter L. Berghold" <peter@berghold.net>
12.5 ( 4.0/ 7.9/ 4.5) 5 rutka@lucent.com (Micha3 Rutka)
12.0 ( 3.1/ 9.0/ 8.0) 4 "BenJamin Prater" <jipes@ispchannel.com>
9.8 ( 1.7/ 8.1/ 7.2) 3 worldmall@aol.com (Worldmall)
9.7 ( 2.0/ 7.5/ 7.4) 3 chrislee@ri.cmu.edu
8.9 ( 2.3/ 6.7/ 2.4) 3 chazlong@my-dejanews.com
8.6 ( 3.7/ 4.9/ 2.8) 5 homeplate@halostorm.com (Stephen C. Smith)
8.5 ( 1.5/ 7.0/ 5.3) 2 pete@davesworld.net
These posters accounted for 4.6% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 3.8 / 3.8) 3 tabo <cswfrank@rica.net>
1.000 ( 3.6 / 3.6) 3 "Dan Albertsson" <dan@albertsson.com>
1.000 ( 0.4 / 0.4) 3 "Patrick Schnorbus" <webmaster@gigagames.de>
0.989 ( 2.2 / 2.2) 3 "Josh Baudhuin" <joshb@cadence.nosp-am-please.com>
0.988 ( 7.4 / 7.5) 3 chrislee@ri.cmu.edu
0.962 ( 1.6 / 1.7) 3 groovy94@aol.com (Groovy94)
0.946 ( 0.3 / 0.3) 3 tommy1452@aol.com (Tommy1452)
0.933 ( 2.0 / 2.2) 3 "Adam Stoller" <ghoti@telerama.lm.com>
0.905 ( 1.6 / 1.8) 3 parenc@rpi.edu (Christopher Parent)
0.900 ( 3.7 / 4.1) 3 "Tony" <tspencer@exconet.co.uk>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.786 ( 2.5 / 3.2) 3 eldrik@localhost.localdomain (Bruce Z. Lysik)
0.773 ( 9.0 / 11.7) 6 jseymour@jimsun.LinxNet.com
0.689 ( 2.3 / 3.3) 6 Kamran Iranpour <kamran@norsar.no>
0.572 ( 4.5 / 7.9) 5 rutka@lucent.com (Micha3 Rutka)
0.566 ( 2.8 / 4.9) 5 homeplate@halostorm.com (Stephen C. Smith)
0.494 ( 1.2 / 2.5) 3 Garth Webb <gwebbQ@Qreedtech.com>
0.443 ( 0.7 / 1.7) 3 jacoby@pier.ecn.purdue.edu (David Jacoby)
0.361 ( 2.4 / 6.7) 3 chazlong@my-dejanews.com
0.299 ( 4.1 / 13.6) 10 Steve Harris <perl@nullspace.com>
0.150 ( 0.7 / 4.5) 3 "Adam Michela" <adam@simpledia.com>
25 posters (10%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
7 Kamran Iranpour <kamran@norsar.no>
3 "saeparam" <saeparam@chollian.net>
2 "John Talbert" <*johntalbert@home.com*>
2 Rolf Howarth <rolf@insect.demon.co.uk>
2 evlap@usa.net
2 "Graham Dryden" <gdryden@sb.net>
2 jseymour@jimsun.LinxNet.com
2 me@alistair.com
2 clrweav@netcom.ca
2 David Stringer <davids@demon.net>
------------------------------
Date: 22 Dec 1998 13:49:33 GMT
From: scott@softbase.com
Subject: Re: Please help me reading .csv textfiles
Message-Id: <367fa36d.0@news.new-era.net>
Christian von Appen (cva@abim.net) wrote:
> I am trying to read .csv (comma-seperated) files
This is a true story:
I have a nameless-to-protect-the-guilty contact manager
which exports CSV files -- *WITH EMBEDDED NEWLINES* in
the quote-delimited fields. Seriously, it dumps an entire
memo field in-between two quotes, and comma separates it.
Each record is delimited by a newline at the end of a line
which is not in the quote delimiters. But fields may
have embedded newlines.
Problem is, no CSV parser I've ever seen -- Excel, for
all its other problems, is absolutely the best CSV
parser I've ever seen and it chokes on this -- can
handle a CSV file with newlines embedded in the fields.
Everything I try to process the file with thinks the
embedded newlines are record separators.
Can any Perl modules handle *embedded newlines in quote-delimited
fields*? Fortunately, ditching this program is not my responsibility,
but I may be needed to help work on it in the future.
Scott
------------------------------
Date: 22 Dec 1998 14:07:48 +0100
From: haakon.alstadheim@sds.no
Subject: Re: Please help me reading .csv textfiles
Message-Id: <u7lvkz5nf.fsf@sds.no>
How about writing a preprocessor in perl to remove any newlines
between quotes?
There are regexes floating around that you can use to match all
quoted strings. Define the replacement as a subroutine which
simply does s/\n/ /g or whatever and returns the result.
Then, after you import to Excel you format the column with
the long texts to justification->break lines.
scott@softbase.com writes:
> Christian von Appen (cva@abim.net) wrote:
>
> > I am trying to read .csv (comma-seperated) files
>
> This is a true story:
>
> I have a nameless-to-protect-the-guilty contact manager
> which exports CSV files -- *WITH EMBEDDED NEWLINES* in
> the quote-delimited fields. Seriously, it dumps an entire
> memo field in-between two quotes, and comma separates it.
>
> Each record is delimited by a newline at the end of a line
> which is not in the quote delimiters. But fields may
> have embedded newlines.
>
> Problem is, no CSV parser I've ever seen -- Excel, for
> all its other problems, is absolutely the best CSV
> parser I've ever seen and it chokes on this -- can
> handle a CSV file with newlines embedded in the fields.
> Everything I try to process the file with thinks the
> embedded newlines are record separators.
>
> Can any Perl modules handle *embedded newlines in quote-delimited
> fields*? Fortunately, ditching this program is not my responsibility,
> but I may be needed to help work on it in the future.
>
> Scott
------------------------------
Date: Tue, 22 Dec 1998 11:31:04 +0000
From: ChrisG <dont@spam.me>
Subject: Read "keywords" and "description" from a HTML file
Message-Id: <367F82F8.2DB5@spam.me>
Has anyone any advice on reading the contents of the "keywords" and
"description" Meta Tags from a HTML file?
To get the contents of the <title> I am doing
$text=$_;
$text=~/<title>([^<]+)</;
$title=$1;
( I want to produce a delimited file of TITLE|DESCRIPTION|KEYWORDS|URL
for insertion into a search engine database )
Thanks
------------------------------
Date: Tue, 22 Dec 1998 12:13:08 GMT
From: mingtian@hanmail.net (Gilly)
Subject: Re: Regex question - removing HTML tags....
Message-Id: <367f8c85.5075841@usenet.kornet21.net>
s/<!--.*-->//gs;
s{<script>.*</script>}{}gsi;
s{</?[A-Z]+(?:\s+[A-Z]\w*(?:\s*=\s*(?:(["']).*?\1|\S*?)))*\s*>}{}gsi;
iada@hplb.hpl.hp.com wrote:
:Hi,
: I'm very new to perl and haven't got my head around the joys of regular
:expressions -> I came across this example for removing the HTML tags from a
:string and can't work out how it works:
:
:$value=~s/<([^>]|\n)*>//g
:
:from what I understand it strips the < > pair and anything inbetween, the []
:being a character class, the parenthesis being a group and the * being one or
:more tokens to match (the g being global replace?)
:
:However....I'm confused by the caret - not the beginning of a string in this
:context? and the | in the character class...
:
:I've tried consulting the man pages as well as all the tutorials I could find,
:and am still stuck :-(
:
:Can anyone tell me how this works and/or point me in the direction of an
:idiots guide to Regular expressions?
:
:Thanks
:
: Ian
:
:-----== Posted via Deja News, The Leader in Internet Discussion ==-----
:http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
@}`,--- ">#F([%Tg%e)` #me %M%o(`
ICQ: 15668514
------------------------------
Date: Tue, 22 Dec 1998 12:25:34 GMT
From: mingtian@hanmail.net (Gilly)
Subject: Re: Regex question - removing HTML tags....
Message-Id: <36808eae.5628990@usenet.kornet21.net>
mingtian@hanmail.net (Gilly) wrote:
:s/<!--.*-->//gs;
:s{<script>.*</script>}{}gsi;
:s{</?[A-Z]+(?:\s+[A-Z]\w*(?:\s*=\s*(?:(["']).*?\1|\S*?)))*\s*>}{}gsi;
s/<!--.*-->//gs;
s{<script.*>.*</script>}{}gsi;
s{<style.*>.*</style>}{}gsi;
s{</?[A-Z]+(?:\s+.+(?:\s*=\s*(?:(["']).*?\1|\S*?)))*\s*>}{}gsi;
this would be better.
@}`,--- ">#F([%Tg%e)` #me %M%o(`
ICQ: 15668514
------------------------------
Date: 22 Dec 1998 12:56:30 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Regex question - removing HTML tags....
Message-Id: <slrn77v5nu.66q.sholden@pgrad.cs.usyd.edu.au>
On Tue, 22 Dec 1998 12:25:34 GMT, Gilly <mingtian@hanmail.net> wrote:
>mingtian@hanmail.net (Gilly) wrote:
>
>:s/<!--.*-->//gs;
>:s{<script>.*</script>}{}gsi;
>:s{</?[A-Z]+(?:\s+[A-Z]\w*(?:\s*=\s*(?:(["']).*?\1|\S*?)))*\s*>}{}gsi;
>
>s/<!--.*-->//gs;
>s{<script.*>.*</script>}{}gsi;
>s{<style.*>.*</style>}{}gsi;
>s{</?[A-Z]+(?:\s+.+(?:\s*=\s*(?:(["']).*?\1|\S*?)))*\s*>}{}gsi;
>
>this would be better.
Don't use regular expressions to parse HTML... use a parser.
To show how the above utterly fails what would it do to the following?
--sample.html---
<!-- Start of Page -->
<script>Some script stuff</script>
<P>Lots and lots of HTML goes here....</P>
...
<!-- End of Page -->
--sample.html---
If you guesses that it would delete everything except for the trailing new
line then I think you win the prize...
--
Sam
People get annoyed when you try to debug them.
--Larry Wall
------------------------------
Date: Tue, 22 Dec 1998 11:22:50 +0000
From: Stuart Hughes <sehughes@mistral.co.uk>
Subject: regular expression alternation
Message-Id: <367F810A.33CD3A75@mistral.co.uk>
Hi everyone
I'm trying to extract the filename and extension from a scalar using a
regular expression. The following works for file.ext and file.more.ext,
but it doesn't match file. I thought the alternation clause would catch
it but it doesn't and so I'm confused ?? any ideas
#!/usr/local/bin/perl -w
#
# fred.c => okay, fred.orig.c => okay, fred => fails miserably
#
$_ = shift or die "spl <filename>\n";
s-.*/--; # remove absolute path name directory
part
warn "splitting $_";
($name, $ext) = /(?:^(.*)\.(.*))|(^.*)/;
die "name=$name, ext=$ext";
Regards, Stuart Hughes
------------------------------
Date: 22 Dec 1998 12:58:26 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <75o51i$3am$2@info.uah.edu>
Following is a summary of articles spanning a 8 day period,
beginning at 14 Dec 1998 13:03:42 GMT and ending at
22 Dec 1998 06:29:47 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) 1998 Greg Bacon. All Rights Reserved.
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\@mox\.perl\.com
Totals
======
Posters: 533
Articles: 1472 (508 with cutlined signatures)
Threads: 474
Volume generated: 2645.8 kb
- headers: 1043.4 kb (21,127 lines)
- bodies: 1508.6 kb (48,056 lines)
- original: 1065.9 kb (36,362 lines)
- signatures: 92.3 kb (1,869 lines)
Original Content Rating: 0.707
Averages
========
Posts per poster: 2.8
median: 1 post
mode: 1 post - 349 posters
s: 5.8 posts
Posts per thread: 3.1
median: 2.0 posts
mode: 1 post - 156 threads
s: 3.4 posts
Message size: 1840.5 bytes
- header: 725.8 bytes (14.4 lines)
- body: 1049.5 bytes (32.6 lines)
- original: 741.5 bytes (24.7 lines)
- signature: 64.2 bytes (1.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
61 103.0 ( 35.2/ 67.7/ 42.1) tadmc@metronet.com (Tad McClellan)
51 101.1 ( 33.5/ 62.0/ 42.9) lr@hpl.hp.com (Larry Rosler)
47 80.9 ( 31.7/ 39.4/ 21.0) Jonathan Stowe <gellyfish@btinternet.com>
37 56.4 ( 32.0/ 24.4/ 16.7) bart.lateur@skynet.be (Bart Lateur)
36 84.0 ( 30.2/ 42.8/ 24.6) Uri Guttman <uri@sysarch.com>
30 58.0 ( 24.4/ 27.2/ 18.2) mgjv@comdyn.com.au (Martien Verbruggen)
24 34.1 ( 18.0/ 16.1/ 5.4) Tk Soh <r28629@email.sps.mot.com>
24 31.8 ( 14.1/ 17.8/ 9.8) Ala Qumsieh <aqumsieh@matrox.com>
24 45.0 ( 12.6/ 32.3/ 25.5) mjd@op.net (Mark-Jason Dominus)
23 36.4 ( 16.5/ 15.8/ 9.0) comdog@computerdog.com (brian d foy)
These posters accounted for 24.3% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
103.0 ( 35.2/ 67.7/ 42.1) 61 tadmc@metronet.com (Tad McClellan)
101.1 ( 33.5/ 62.0/ 42.9) 51 lr@hpl.hp.com (Larry Rosler)
91.4 ( 10.1/ 79.4/ 75.0) 14 tchrist@mox.perl.com (Tom Christiansen)
84.0 ( 30.2/ 42.8/ 24.6) 36 Uri Guttman <uri@sysarch.com>
80.9 ( 31.7/ 39.4/ 21.0) 47 Jonathan Stowe <gellyfish@btinternet.com>
58.0 ( 24.4/ 27.2/ 18.2) 30 mgjv@comdyn.com.au (Martien Verbruggen)
56.4 ( 32.0/ 24.4/ 16.7) 37 bart.lateur@skynet.be (Bart Lateur)
45.0 ( 12.6/ 32.3/ 25.5) 24 mjd@op.net (Mark-Jason Dominus)
39.3 ( 20.8/ 13.0/ 7.2) 21 rjk@linguist.dartmouth.edu (Ronald J Kimball)
36.4 ( 16.5/ 15.8/ 9.0) 23 comdog@computerdog.com (brian d foy)
These posters accounted for 26.3% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.980 ( 6.5 / 6.7) 13 fl_aggie@thepentagon.com (I R A Aggie)
0.944 ( 75.0 / 79.4) 14 tchrist@mox.perl.com (Tom Christiansen)
0.937 ( 20.5 / 21.9) 20 "Allan M. Due" <due@murray.fordham.edu>
0.863 ( 7.7 / 8.9) 16 jamesht <jamesht@idt.net>
0.811 ( 2.9 / 3.5) 5 pigs_can_fly@mindless.com (Jason Q.)
0.798 ( 5.8 / 7.2) 9 "Peter L. Berghold" <peter@berghold.net>
0.795 ( 4.2 / 5.2) 6 Rich Grise <richgrise@entheosengineering.com>
0.793 ( 16.8 / 21.2) 6 "Steven Morlock" <newspost@morlock.net>
0.791 ( 7.8 / 9.9) 6 rich_guy@hotmail.com
0.789 ( 25.5 / 32.3) 24 mjd@op.net (Mark-Jason Dominus)
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.518 ( 4.4 / 8.6) 7 jan.dubois@ibm.net (Jan Dubois)
0.512 ( 6.0 / 11.7) 11 dave@mag-sol.com
0.502 ( 1.6 / 3.1) 5 Pep Mico <pep_mico@hp.com>
0.490 ( 3.3 / 6.8) 9 ilya@math.ohio-state.edu (Ilya Zakharevich)
0.487 ( 3.8 / 7.7) 10 "Allan M. Due" <Allan@due.net>
0.465 ( 1.8 / 3.8) 8 Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
0.419 ( 2.2 / 5.2) 6 Kelvin Price <kprice@cardinal.co.nz>
0.365 ( 2.3 / 6.3) 10 newsposter@cthulhu.demon.nl
0.337 ( 5.4 / 16.1) 24 Tk Soh <r28629@email.sps.mot.com>
0.299 ( 4.1 / 13.6) 10 Steve Harris <perl@nullspace.com>
55 posters (10%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
26 Complicated sorting problem
24 $&, $', and $` and parens....
22 Why Is Perl not a Language?
22 Nested sorting
21 Retrospective on comp.lang.perl.moderated?
20 How to extract emails from HTML page
19 numbers in base 36
17 Searching through a 10MB file
13 ($e_mail !~ /\w+[-\w]*\@\w+[-\w]*\.\w+/)
12 How do I catch this eval exception?
These threads accounted for 13.3% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
73.2 ( 2.4/ 70.4/ 67.6) 4 FMTEYEWTK on open
56.2 ( 18.8/ 34.5/ 21.6) 22 Nested sorting
49.5 ( 20.1/ 26.7/ 18.5) 26 Complicated sorting problem
49.3 ( 21.0/ 26.5/ 13.6) 22 Why Is Perl not a Language?
48.7 ( 20.3/ 26.1/ 16.8) 24 $&, $', and $` and parens....
42.6 ( 13.8/ 26.6/ 15.8) 19 numbers in base 36
38.7 ( 16.4/ 19.7/ 14.8) 21 Retrospective on comp.lang.perl.moderated?
38.4 ( 10.5/ 25.9/ 13.8) 13 ($e_mail !~ /\w+[-\w]*\@\w+[-\w]*\.\w+/)
34.3 ( 12.9/ 20.1/ 13.0) 17 Searching through a 10MB file
33.1 ( 15.7/ 16.2/ 10.2) 20 How to extract emails from HTML page
These threads accounted for 17.5% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.911 ( 9.5/ 10.4) 6 *** FAQ: ANSWERS TO YOUR QUESTIONS! READ FIRST! Posted Twice Weekly ***
0.869 ( 6.5/ 7.5) 5 bless Perl objects or references
0.854 ( 2.5/ 2.9) 5 replacing text with a variable
0.840 ( 2.8/ 3.3) 6 reading form files
0.834 ( 4.3/ 5.2) 5 Search Not Working
0.818 ( 7.0/ 8.6) 5 uuencoded data in scripts failing to decode / unpack ?
0.806 ( 10.4/ 12.9) 6 Problem with script "... cgi-bin\signup.pl' script produced no output "
0.788 ( 2.5/ 3.2) 6 binmode
0.786 ( 3.4/ 4.3) 6 Favourite Editor for NT Perl
0.781 ( 1.4/ 1.8) 6 hashes
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.519 ( 3.9 / 7.6) 7 Hashref Compatibility with Perl 4.0 -- TIA
0.514 ( 13.6 / 26.5) 22 Why Is Perl not a Language?
0.510 ( 6.7 / 13.1) 7 First German Perl Workshop 1.0
0.503 ( 2.2 / 4.3) 6 Mac, Perl, uploading, help!
0.503 ( 3.0 / 6.0) 9 Splitting a line at |'s
0.490 ( 1.0 / 2.1) 6 Perl's in the dictionary
0.481 ( 2.3 / 4.7) 5 Writing Perl with Notepad <shameluss plug>
0.449 ( 4.8 / 10.6) 10 Writing Perl with Notepad
0.413 ( 2.8 / 6.8) 8 Turning Variables into CAPS?
0.403 ( 1.4 / 3.6) 5 Can standard Perl functions be overloaded ?
84 threads (17%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
34 comp.lang.perl.modules
17 comp.lang.perl.moderated
16 alt.perl
11 comp.lang.perl
8 comp.lang.javascript
7 comp.programming
6 microsoft.public.java.sdk
6 microsoft.public.win98.pws_4
3 tw.bbs.comp.lang.perl
3 comp.infosystems.www.servers.unix
Top 10 Crossposters
===================
Articles Address
-------- -------
7 Kamran Iranpour <kamran@norsar.no>
6 tadmc@metronet.com (Tad McClellan)
6 "Paul Chapin" <pdchapin@unix.amherst.edu>
6 targetmailinfo@yahoo.com
4 mjd@op.net (Mark-Jason Dominus)
4 rliu2@ford.com
3 "saeparam" <saeparam@chollian.net>
3 Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
3 sholden@cs.usyd.edu.au
3 Jonathan Stowe <gellyfish@btinternet.com>
------------------------------
Date: Tue, 22 Dec 1998 11:11:12 -0000
From: "Artoo" <r2-d2@REMOVEbigfoot.com>
Subject: Re: Turning Variables into CAPS?
Message-Id: <75nuqf$nhk$1@plug.news.pipex.net>
Thanks everyone for your help,
Happy Christams
Artoo
>[Posted to comp.lang.perl.misc and a copy mailed.]
>which has the advantages of handling locale-sensitive letters correctly,
>and is much faster:
>
>#!/usr/local/bin/perl -w
>use Benchmark;
>
>$variable = 'abcdefghijklmnopqrstuvwxyz';
>
>timethese(1 << (shift || 0), {
> Cntrl => sub { my $caps = $variable },
> Funct => sub { my $caps = ucfirst $variable },
> Regex => sub { (my $caps = $variable) =~ s/(^[a-z])/uc($1)/e },
>});
>__END__
>
>Benchmark: timing 262144 iterations of Cntrl, Funct, Regex...
> Cntrl: 1 wallclock secs ( 1.64 usr + 0.00 sys = 1.64 CPU)
> Funct: 1 wallclock secs ( 1.98 usr + 0.00 sys = 1.98 CPU)
> Regex: 12 wallclock secs (12.02 usr + 0.00 sys = 12.02 CPU)
>
>--
>(Just Another Larry) Rosler
>Hewlett-Packard Company
>http://www.hpl.hp.com/personal/Larry_Rosler/
>lr@hpl.hp.com
------------------------------
Date: 22 Dec 1998 13:51:39 GMT
From: scott@softbase.com
Subject: Re: Writing Perl with Notepad
Message-Id: <367fa3eb.0@news.new-era.net>
Richard Watkins (imagee@image-engineering.co.uk) wrote:
> Why not write a perl script to strip the extra line feeds?!
Even simpler, use ZIP and the -aa option on the UNIX end and
it will do it automatically for you.
Scott
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 4478
**************************************
