[13211] in Perl-Users-Digest
Perl-Users Digest, Issue: 621 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 23 13:07:45 1999
Date: Mon, 23 Aug 1999 10:05:08 -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 Mon, 23 Aug 1999 Volume: 9 Number: 621
Today's topics:
ANNOUNCE: Jax.PM Site ("Bill Jones")
Creating variables at runtime? (NOT naming a variable a <gary3g@my-deja.com>
Re: directory processing <latsharj@my-deja.com>
Re: How to avoid "Repost from data?" question? <jpeterson@office.colt.net>
Re: How to do "or" in IF test? (Billy Chan)
Re: Message-ID vs. Reference Header (-Sneex-)
Multi line pattern match <brian@innovtech.com>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Newbie IO::Socket question <mnarvaja@geocities.xyz.com>
Perl dependencies (N. Albers)
Re: Perl extension - exposing #define equivalents? <pds@datcon.co.uk>
Perl newbie needs help with form mail security (Jeff Fox)
read processignal <Georg.Vassilopulos@SoftwareAG.de>
session management <tzadikv@my-deja.com>
Re: session management <jpeterson@office.colt.net>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Why use Perl when we've got Python?! <jpeterson@office.colt.net>
xml::parser help <chris@inta.net.uk>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 23 Aug 1999 06:33:41 -0400
From: bill@fccj.org ("Bill Jones")
Subject: ANNOUNCE: Jax.PM Site
Message-Id: <199908231028.GAA17348@astro.fccj.cc.fl.us>
Hi All :]
The Jax.PM Home Page was updated. Added a couple of links.
See http://jacksonville.pm.org/
Also, I have uploaded a simple SysAdmin log analyzer to CPAN. It looks at
the /var/log/syslog, /var/adm/messages, and /var/adm/sulog logs and sends
you the 'days' reports via mail...
See http://www.cpan.org/authors/id/S/SN/SNEEX/
If you have stuff you would like to appear on the Jax.PM site - send it to
me :] We are always looking for scripts, links, and resources. The
Jacksonville Perl Mongers is a local Jacksonville, FL group dedicated to the
advancement of Perl in the educational and business community.
If you have stuff you wish to contribute to the 'world' perl community - you
should obtain your own PAUSE ID.
See http://pause.perl.org for instructions on how to get one.
Enjoy!
-Sneex- :]
FCCJ Data Security Group
____________________________________________________________________
Bill Jones Data Security Specialist http://jacksonville.pm.org
"f u cn rd ths, u cn gt a gd jb n cmptr prgrmmng.", TC in c.l.p.misc
------------------------------
Date: Mon, 23 Aug 1999 16:41:01 GMT
From: Gary M. Greenberg <gary3g@my-deja.com>
Subject: Creating variables at runtime? (NOT naming a variable as a string)
Message-Id: <7prtiq$a38$1@nnrp1.deja.com>
Hi,
I could use some wizardry on this.
Short version:
If I don't know how many variables I will need for any unpack
statement, is there a way to automatically generate them,
(perferably as an array of variables) at runtime?
Long version:
It was once posted by Greg Bacon that:
>
> % man perlfaq5
> [...]
> How can I manipulate fixed-record-length files?
>
> The most efficient way is using pack() and unpack(). This
> is faster than using substr() when take many, many
> strings. It is slower for just a few.
My situtation:
Fixed-record-length files are being copied from an AS400
spool file to PCs; the users want these as CSV to use in
Excel and/or Access. There are lots of files with different
record layouts BUT one thing is constant. There is always
a line in the FRL file that can be parsed to figure out
the record layout. That line is a series of dashes separated
by some number of dashes. For instance, it may look like:
----- ----- ---- -- ----- ------ - - ------
(thus, the file above has 9 fields of size 5,5,4,2,5,6,1,1,6).
I've been converting these to CSV by stuffing the results of
parsing this line into a hash, where the key is the indexed
offset for the (element-space{s}) pair, and the value is an
array of [fieldSize, number of spaces]. Then, for each line
I iteratively substring thru the record building the offset
as I go.
After getting that working, I started trying to see if I could
automatically unpack each line instead. I've figured out how to
build my unpack Template on the fly (it's not that difficult since
I can treat everything as ascii) BUT I haven't figured out how to
AUTOMATICALLY generate an array of variables needed for the
assignment side of my unpack. If I can automatically generate X
number of variables & use them as the LValue to unpack($T,$_), then
the values I want for the CSV file will be every other variable in
my array of automatically generated variables.
I've got everything working except generating an array of variables
at runtime.
Suggestions, pointers toward docs, even solutions accepted ;p
Feel free to reply by post and/or email at your pleasure.
Thx,
Gary Greenberg || ggreen@ns1.co.alachua.fl.us
GIS Programmer Analyst
Alachua County Property Appraiser's Office
352 491 4669
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 23 Aug 1999 15:06:48 GMT
From: Dick Latshaw <latsharj@my-deja.com>
Subject: Re: directory processing
Message-Id: <7pro1t$5kn$1@nnrp1.deja.com>
In article <7prldn$3db$1@nnrp1.deja.com>,
Shardendu Pandey <pandey@my-deja.com> wrote:
> I am writing a function
> to process a directory.
>
> What are the constructs to use for this
> operation?
perldoc -f readdir
--
Regards,
Dick
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 23 Aug 1999 15:44:54 GMT
From: Jon Peterson <jpeterson@office.colt.net>
Subject: Re: How to avoid "Repost from data?" question?
Message-Id: <W%dw3.244$u07.1835@news.colt.net>
Abigail <abigail@delanet.com> wrote:
> 1) That is not a Perl question.
> 2) That is not an HTML question either.
> 3) That is not a Perl question.
Ping! Repetition! With 27 seconds left on the clock it is now someone elses
turn to talk about how little newbies know.
[People who don't listen to BBC Radio 4's "just a minute" program won't get
the joke.]
------------------------------
Date: Mon, 23 Aug 1999 23:20:26 +0800
From: bilchan@bigfoot.com (Billy Chan)
Subject: Re: How to do "or" in IF test?
Message-Id: <MPG.122b33469fe3c1e89896a4@news.glink.net.hk>
In article <jkrogerDONCHA_SPAM_ME-2208990348020001@ip210.princeton.nj.
pub-ip.psi.net>, jkrogerDONCHA_SPAM_ME@earthlink.net says...
> if (this or that) {
> -
> -
> -
> }
>
>
> I tried several permutations such as
>
> if ((this) || (that))
>
> if ( this || that )
>
>
> and nothing seemed to work.
>
> The actual tests are
>
> end <= 20
>
> answer eq "y"
try
if ($end<=20 or $answer eq "y") {
...
}
------------------------------
Date: Fri, 20 Aug 1999 15:10:29 -0400
From: bill@fccj.org (-Sneex-)
Subject: Re: Message-ID vs. Reference Header
Message-Id: <200819991510293244bill@fccj.org>
[[ This message was both posted and mailed: see
the "To," "Cc," and "Newsgroups" headers for details. ]]
> Date: 20 Aug 1999 09:39:23 -0500
> From: abigail@delanet.com (Abigail)
> Subject: Re: Message-ID vs. Reference Header
> Message-Id: <slrn7rqq6l.bq6.abigail@alexandra.delanet.com>
>
> Bill Jones (bill@fccj.org) wrote on MMCLXXVI September MCMXCIII in
> <URL:news:199908161211.IAA23961@astro.fccj.cc.fl.us>:
>
>
> No.
>
> The Message-ID is a single ID, identifying your posting. The References
> header is a list of IDs, identifying the postings you are referencing.
>
> The same ID should not appear in both headers. And Message-ID isn't a
> substitute for the References line either.
I agree. :] Scary huh?
After a lot of research I believe that I will not be
able to post to a 'threaded' discussion via a mail gateway.
I can create NEW threads anytime - but not actually to reply to a
thread. Not unless the orginal poster was kind enough to publish the
original References line as you have done.
Any thoughts? Anybody?
Thx,
-Sneex- :]
--------------------------------------------------------------
The (partial) HEADERS as found by my disfunctional news server:
From: abigail@delanet.com (Abigail)
X-Orig-Newsgroups: comp.lang.perl.misc
Subject: Re: Message-ID vs. Reference Header
References: <199908161211.IAA23961@astro.fccj.cc.fl.us>
------------------------------
Date: Mon, 23 Aug 1999 09:21:37 +0100
From: "Brian" <brian@innovtech.com>
Subject: Multi line pattern match
Message-Id: <37c17539$0$217@nntp1.ba.best.com>
I am having problems writing a regex to remove a multiline XML comment that
looks like this
<MY-DOC><!--
CONVERTING SOURCE FILE bla bla bla
--><SECTION><STITLE>..... and so on
What I want to do is remove the XML comment. I know how to open the file etc
etc, but can't seem to write a regex for the comment since it spans multiple
lines. I have tried to use the /m and /s modifiers such as outline in the
Perl Cook Book on page 173 but I still can't seem to get it to work. Any
insight would be greatly appreciated.
Thanks in advance.
-Brian M.
------------------------------
Date: 23 Aug 1999 15:48:08 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <7prqfo$doc$2@info2.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 16 Aug 1999 15:41:53 GMT and ending at
23 Aug 1999 06:52:41 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) 1999 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 240 (44.0% of all posters)
Articles: 386 (24.6% of all articles)
Volume generated: 662.5 kb (23.7% of total volume)
- headers: 292.6 kb (5,998 lines)
- bodies: 365.2 kb (11,790 lines)
- original: 267.2 kb (9,060 lines)
- signatures: 4.3 kb (98 lines)
Original Content Rating: 0.732
Averages
========
Posts per poster: 1.6
median: 1.0 post
mode: 1 post - 173 posters
s: 2.4 posts
Message size: 1757.5 bytes
- header: 776.1 bytes (15.5 lines)
- body: 968.9 bytes (30.5 lines)
- original: 708.8 bytes (23.5 lines)
- signature: 11.5 bytes (0.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
33 48.3 ( 26.5/ 21.8/ 15.3) Makarand Kulkarni <makkulka@cisco.com>
11 21.4 ( 9.6/ 11.7/ 3.7) Jimmy Humphrey <jimmy@blackhole-designs.com>
9 11.1 ( 6.1/ 5.0/ 3.5) poocus@my-deja.com
5 9.6 ( 4.3/ 5.3/ 3.5) Manoj Shenoy <mshenoy@us.oracle.com>
4 6.0 ( 3.0/ 3.0/ 3.0) chettah@msn.com ("willow")
4 8.2 ( 2.4/ 5.8/ 3.9) holmberg@NoSpam.net
4 4.9 ( 2.7/ 2.2/ 1.1) Heather Wiley <heather.wiley.fake@bentley.com>
4 5.9 ( 2.5/ 3.0/ 1.4) david@davidpashley.com
4 5.9 ( 2.6/ 3.3/ 3.3) nospam-derek@realware.com.au (Derek)
4 6.7 ( 3.2/ 3.5/ 2.2) sterling@weirdness.com
These posters accounted for 5.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
48.3 ( 26.5/ 21.8/ 15.3) 33 Makarand Kulkarni <makkulka@cisco.com>
21.4 ( 9.6/ 11.7/ 3.7) 11 Jimmy Humphrey <jimmy@blackhole-designs.com>
20.0 ( 0.8/ 19.2/ 17.9) 1 marlee <marlee@en.com>
11.5 ( 0.7/ 10.8/ 10.8) 1 Dermot McNally <dermot.mcnally@mot.com>
11.1 ( 6.1/ 5.0/ 3.5) 9 poocus@my-deja.com
9.6 ( 4.3/ 5.3/ 3.5) 5 Manoj Shenoy <mshenoy@us.oracle.com>
8.7 ( 1.3/ 7.5/ 7.5) 2 ltt_kinslayer@NOSPAM.usa.net (Kyle Davis)
8.2 ( 2.4/ 5.8/ 3.9) 4 holmberg@NoSpam.net
7.7 ( 1.8/ 5.9/ 2.2) 2 "E-Z Auction" <Ezjy@execpc.com>
7.4 ( 1.9/ 5.4/ 2.2) 2 Ed Prochak <prochak@my-deja.com>
These posters accounted for 5.5% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 3.3 / 3.3) 4 nospam-derek@realware.com.au (Derek)
1.000 ( 0.6 / 0.6) 3 "David Jonsson" <David.Jonsson@Ellemtel.se>
1.000 ( 1.1 / 1.1) 3 "Darren Janisse" <djanisse@northrock.bm>
1.000 ( 2.2 / 2.2) 3 David Rugendyke <webmaster@razorprices.wcq.com.au>
0.995 ( 3.0 / 3.0) 4 chettah@msn.com ("willow")
0.917 ( 3.0 / 3.3) 4 vod@writemail.com
0.881 ( 1.9 / 2.1) 3 "Dr. Mark S. Reibert" <Mark_Reibert-SC2762@email.mot.com>
0.866 ( 2.0 / 2.4) 3 Paul Dobbs <pdobbs@home.com>
0.835 ( 2.8 / 3.3) 3 news@tomd.SPAMfree.org (Tom Dominico, Jr.)
0.809 ( 2.4 / 3.0) 3 da_minch@my-deja.com
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.596 ( 1.9 / 3.3) 3 Veronica Karlsson <acinorev@earthling.net>
0.563 ( 1.8 / 3.1) 3 kilimount <kilimount@earthling.net>
0.520 ( 1.3 / 2.4) 3 scottle@stribmail.com (Scott Erickson)
0.488 ( 1.1 / 2.2) 4 Heather Wiley <heather.wiley.fake@bentley.com>
0.478 ( 1.4 / 3.0) 4 david@davidpashley.com
0.320 ( 0.9 / 2.8) 3 Lewis Perin <perin@panix.com>
0.314 ( 3.7 / 11.7) 11 Jimmy Humphrey <jimmy@blackhole-designs.com>
0.313 ( 0.9 / 2.7) 3 Hartmut =?iso-8859-1?Q?K=F6nig?= <koenig@privat.toplink.de>
0.286 ( 1.2 / 4.1) 3 Geoff Roberts <groberts@uow.edu.au>
0.283 ( 1.4 / 4.8) 3 "Martin" <contact@nativetongues.com>
26 posters (10%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
6 Veronica Karlsson <acinorev@earthling.net>
4 Ed Prochak <prochak@my-deja.com>
4 Philippe Emeriau <Philippe.Emeriau@infineon.com>
2 Glenn Wittrock <spamproof@pluggedin.bc.ca>
2 szekeres@sysdata.siemens.hu (SZEKERES Istvan)
2 greg@apple2.com
2 Eli Zaretskii <eliz@is.elta.co.il>
2 david_demartini@non-hp-roseville-om3.om.hp.com
2 liuyanshuang@my-deja.com
2 "David A. Desrosiers" <hacker@downcity.net>
------------------------------
Date: Mon, 23 Aug 1999 13:31:03 -0300
From: MN <mnarvaja@geocities.xyz.com>
Subject: Newbie IO::Socket question
Message-Id: <37C17747.DFF5E9F3@geocities.xyz.com>
Hi,
I'm using the IO module for socket connections. And I'm having some
problems to resolve a simple client/server problem.
I wrote a client and a server programs for send, receive and reply
messages. And I can't make client program receive the answer from the
server one. These are the codes :
Client:
#!/usr/bin/perl
use IO::Socket;
$sock = new IO::Socket::INET (PeerAddr => 'jedi',
PeerPort => 6666,
Proto => 'tcp',
);
die "Socket could not be created. Reason: $!\n" unless $sock;
foreach(1..10) {
$sock->send("Msg $_: How are you?\n");
$sock->recv($buf,100);
print "$buf\n";
}
close($sock);
Server:
#!/usr/bin/perl
use IO::Socket;
$SIG{CHLD} = sub {wait ()};
$main_sock = new IO::Socket::INET (LocalHost => 'jedi',
LocalPort => 6666,
Listen => 5,
Proto => 'tcp',
Reuse => 1,
);
die "Socket could not be created. Reason: $!\n" unless ($main_sock);
while ($new_sock = $main_sock->accept()){
$pid = fork();
die "Cannot fork: $!" unless defined($pid);
if ($pid == 0){
print "*** Child process begins\n";
while (defined ($buf = <$new_sock>)){
print ">>> $buf";
print $new_sock "You said: $buf\n";
}
print "*** Child process ends\n\n";
exit(0);
}
}
close($main_sock);
Does anyone have any idea or workaround?
Thanks in advanced,
Marcelo
mnarvaja@geocities.com
------------------------------
Date: 23 Aug 1999 15:29:31 GMT
From: nieka@dsv.nl (N. Albers)
Subject: Perl dependencies
Message-Id: <7prpcr$a2p$1@enterprise.cistron.net>
Hello All,
Does anyone know about some sort of dependency walker for perl programs?
This means, it will show a view of all modules with the functions used by the
program. And eventually show the modules that are included but not used.
Regards,
Niek
------------------------------
Date: Mon, 23 Aug 1999 17:20:11 +0100
From: "Paul D.Smith" <pds@datcon.co.uk>
Subject: Re: Perl extension - exposing #define equivalents?
Message-Id: <7prsap$162$1@soap.pipex.net>
Sorted! This all works using the undocumented (unless someone can point me
at the relevant doc!) "constant" function plus the strange logic at the end
of the PM file.
My suggestion for doing this yourself is to try the h2p script which is
supported to be lying around somewhere. Alternatively start from an
existing file and hack-and-slay the bits you want in!
Enjoy,
Paul DS.
Paul D.Smith wrote in message <7pr4k9$h3g$1@soap.pipex.net>...
>All,
>
>I have written a Perl extension for Perl-Win32 which allows me to access
>some library functions. I would like to expose some 'C' "#defines" which
>can then be passed as arguments within Perl but I'm not sure how. How do I
>do this in the most common Perl manner? For example if I have the
following
>'C':
>
>#define PDS_DEFINE_1 0x0001
>
>How do I expose this to Perl so that I can call...
>
>&pds_function(...,..., PDS_DEFINE_1,...);
>
>Example codefrags from a PM or CPP extension source file would be greatly
>appreciated - or a pointer to some is fine.
>
>Thanks,
>Paul DS.
>
>P.S. Could you also copy me at pds-nospam@datcon.co.uk (remove the
>"-nospam") please?
>
>
------------------------------
Date: Mon, 23 Aug 1999 16:47:10 GMT
From: jfox@airmail.net (Jeff Fox)
Subject: Perl newbie needs help with form mail security
Message-Id: <544727D6E034F471.20CF91F0635AE089.ACA87F0C3AFED31C@lp.airnews.net>
First of all I am a REAL newbie with PERL. I've got the Camel book,
and I'm reading it, but I've not gone very far. I'm not new to
programming. With a C and PHP background I'm not having too much
trouble so far.
On to the problem.
I have a client who wants his customers to be able to purchase his
product online using a credit card. His web hosting service provides
PERL and a secure server. I've created an HTML form on the secure
server. This form calls Form Mail. Form Mail emails me the contents of
the form. The problem is the email is plaintext, and it's supposed to
contain credit card numbers. I need to encrypt the email, or use PGP,
or something else to protect the CC number.
I don't know if the web hosting service provides PGP. Are there any
pure PERL solutions to this problem? Is there a better way to get the
contents of the form emailed besides Form Mail?
What if I wrote the contents of the form to a file, encrypted the
file, then emailed it. Or downloaded the file via FTP?
Thanks!
------------------------------
Date: Mon, 23 Aug 1999 18:16:22 +0200
From: "Georg Vassilopulos" <Georg.Vassilopulos@SoftwareAG.de>
Subject: read processignal
Message-Id: <7prs4o$581$1@gamma.ecomp.net>
Hello magicians,
opendir (PRO, "D:\AB") or die "Nichts geht:$!";
@dali = grep /\.t$/, readdir PRO;
closedir PRO;
print "@dali\n";
foreach $tcase (@dali) {
$useable = "D:\\ab\\$tcase";
print "$useable\n";
@para = ("partner.lnk", "-r", "-resexport","-q", "$useable");
system(@para);
<
sleep(120);
< here is the problem!!!!!
};
"system" is starting a testprogramm (Silktest) with "$useable" as a
testfile.
But it doesn`t wait untill the programm has finished with "$useable"!
I want my script to wait for a signal from Silktest that it has ended and
then continue with the next "$useable" from "@dali"!
Please help me !!
Georg.Vassilopulos@SoftwareAG.de
------------------------------
Date: Mon, 23 Aug 1999 15:01:47 GMT
From: Tzadik Vanderhoof <tzadikv@my-deja.com>
Subject: session management
Message-Id: <7prnoh$59s$1@nnrp1.deja.com>
Is there any Perl module to do CGI "session management", similar to the
"Session space" offered by ColdFusion? CGI.pm does not seem to offer
anything like that, other than cookies or the somewhat-kludgy technique
of embedding "session data" in hidden fields of forms.
--
Tzadik
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 23 Aug 1999 15:47:50 GMT
From: Jon Peterson <jpeterson@office.colt.net>
Subject: Re: session management
Message-Id: <G2ew3.245$u07.1835@news.colt.net>
Tzadik Vanderhoof <tzadikv@my-deja.com> wrote:
> Is there any Perl module to do CGI "session management", similar to the
> "Session space" offered by ColdFusion? CGI.pm does not seem to offer
> anything like that, other than cookies or the somewhat-kludgy technique
> of embedding "session data" in hidden fields of forms.
somewhat kludgy? Abhorrent more like :)
Apache::Session will do this, although it seems rather too complex for its
own good (judging by bug reports in the mod_perl list, anyway).
Also, it prefers to be used with mod_perl. If you want to use it with plain
ol CGI, you'll need to tweak it around.
Hmmm.. I'm tempted to write CGI::Session::Lite, but I guess I'll resist.
------------------------------
Date: 23 Aug 1999 15:48:08 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <7prqfo$doc$1@info2.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 16 Aug 1999 15:41:53 GMT and ending at
23 Aug 1999 06:52:41 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) 1999 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
Totals
======
Posters: 545
Articles: 1569 (591 with cutlined signatures)
Threads: 456
Volume generated: 2793.2 kb
- headers: 1235.4 kb (24,744 lines)
- bodies: 1455.9 kb (45,453 lines)
- original: 978.4 kb (33,071 lines)
- signatures: 100.4 kb (2,081 lines)
Original Content Rating: 0.672
Averages
========
Posts per poster: 2.9
median: 1 post
mode: 1 post - 322 posters
s: 5.6 posts
Posts per thread: 3.4
median: 2.0 posts
mode: 1 post - 126 threads
s: 4.4 posts
Message size: 1823.0 bytes
- header: 806.3 bytes (15.8 lines)
- body: 950.2 bytes (29.0 lines)
- original: 638.6 bytes (21.1 lines)
- signature: 65.5 bytes (1.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
65 166.9 ( 74.3/ 63.0/ 60.0) abigail@delanet.com
51 85.4 ( 40.7/ 42.8/ 24.6) elephant@squirrelgroup.com (elephant)
49 91.7 ( 40.0/ 46.0/ 26.2) David Cassell <cassell@mail.cor.epa.gov>
47 85.4 ( 29.6/ 50.4/ 29.0) lr@hpl.hp.com (Larry Rosler)
33 48.3 ( 26.5/ 21.8/ 15.3) Makarand Kulkarni <makkulka@cisco.com>
23 37.3 ( 15.2/ 22.0/ 16.1) Jon Peterson <jpeterson@office.colt.net>
22 33.9 ( 18.1/ 15.8/ 11.1) bart.lateur@skynet.be (Bart Lateur)
20 40.8 ( 17.1/ 19.5/ 12.6) mgjv@comdyn.com.au (Martien Verbruggen)
20 29.0 ( 16.7/ 10.1/ 4.4) Jonathan Stowe <gellyfish@gellyfish.com>
20 32.2 ( 19.5/ 10.5/ 5.9) Per Kistler <kistler@fnmail.com>
These posters accounted for 22.3% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
166.9 ( 74.3/ 63.0/ 60.0) 65 abigail@delanet.com
91.7 ( 40.0/ 46.0/ 26.2) 49 David Cassell <cassell@mail.cor.epa.gov>
85.4 ( 29.6/ 50.4/ 29.0) 47 lr@hpl.hp.com (Larry Rosler)
85.4 ( 40.7/ 42.8/ 24.6) 51 elephant@squirrelgroup.com (elephant)
80.8 ( 9.8/ 69.5/ 67.5) 12 tchrist@mox.perl.com (Tom Christiansen)
51.0 ( 17.0/ 26.5/ 11.3) 20 Uri Guttman <uri@sysarch.com>
48.3 ( 26.5/ 21.8/ 15.3) 33 Makarand Kulkarni <makkulka@cisco.com>
40.8 ( 17.1/ 19.5/ 12.6) 20 mgjv@comdyn.com.au (Martien Verbruggen)
37.8 ( 16.9/ 20.8/ 15.3) 17 "Alan J. Flavell" <flavell@mail.cern.ch>
37.3 ( 15.2/ 22.0/ 16.1) 23 Jon Peterson <jpeterson@office.colt.net>
These posters accounted for 26.0% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.971 ( 67.5 / 69.5) 12 tchrist@mox.perl.com (Tom Christiansen)
0.952 ( 60.0 / 63.0) 65 abigail@delanet.com
0.851 ( 2.0 / 2.4) 5 "Kevin Howe" <khowe@performance-net.com>
0.830 ( 2.5 / 3.0) 6 "Andrew Weller" <p8e77@keele.ac.uk>
0.823 ( 7.7 / 9.3) 5 "David Christensen" <dchristensen@california.com>
0.802 ( 4.7 / 5.8) 9 "John M. Dlugosz" <john@dlugosz.com>
0.769 ( 3.5 / 4.6) 6 Jeremy Gurney <c4jgurney@my-deja.com>
0.753 ( 8.9 / 11.9) 19 moseley@best.com (Bill Moseley)
0.734 ( 10.9 / 14.8) 8 mcafee@waits.facilities.med.umich.edu (Sean McAfee)
0.734 ( 15.3 / 20.8) 17 "Alan J. Flavell" <flavell@mail.cern.ch>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.434 ( 1.8 / 4.0) 5 efflandt@xnet.com
0.431 ( 7.2 / 16.7) 8 "Allan M. Due" <All@n.due.net>
0.428 ( 11.3 / 26.5) 20 Uri Guttman <uri@sysarch.com>
0.409 ( 2.0 / 5.0) 6 planb@newsreaders.com (J. Moreno)
0.384 ( 6.6 / 17.3) 19 anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
0.370 ( 0.8 / 2.2) 7 Kent Perrier <kperrier@blkbox.com>
0.369 ( 1.3 / 3.4) 7 Tom Briles <sariq@texas.net>
0.362 ( 4.1 / 11.2) 9 tgy@chocobo.org
0.358 ( 0.7 / 1.9) 5 gh@netquick.net (Gil Harvey)
0.314 ( 3.7 / 11.7) 11 Jimmy Humphrey <jimmy@blackhole-designs.com>
68 posters (12%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
47 HARASSMENT -- Monthly Autoemail
27 what does eq do on lists?
26 Request for Comments: www.perl.com
16 Why use Perl when we've got Python?!
14 <== importing hash symbols from one package to another ==>
13 www.perl.org
13 What editors are folks using for PerlScript development?
13 Q:Two perl programs printing to one txt file
12 Why use Python when we've got Perl?
11 A prime numbers program.
These threads accounted for 12.2% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
96.0 ( 45.3/ 47.5/ 28.5) 47 HARASSMENT -- Monthly Autoemail
59.3 ( 23.0/ 34.0/ 22.8) 26 Request for Comments: www.perl.com
49.2 ( 7.4/ 40.8/ 35.3) 10 Python for Perl users: random thoughts
44.3 ( 24.5/ 17.5/ 10.7) 27 what does eq do on lists?
38.4 ( 3.2/ 34.1/ 33.5) 4 Python to Perl Conversions
33.9 ( 13.9/ 18.9/ 10.5) 16 Why use Perl when we've got Python?!
25.3 ( 8.4/ 14.4/ 9.2) 10 pushing an anonymous hash slice
25.3 ( 8.0/ 17.0/ 10.0) 9 processing html on the fly part 2
23.6 ( 7.7/ 15.4/ 9.0) 9 statistical sorts
23.4 ( 7.7/ 14.9/ 9.0) 11 A prime numbers program.
These threads accounted for 15.0% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.879 ( 6.0/ 6.9) 6 Joining Two Integers
0.866 ( 35.3/ 40.8) 10 Python for Perl users: random thoughts
0.830 ( 2.5/ 3.0) 5 What does gmtime[3,4,5] do?
0.828 ( 5.4/ 6.5) 5 Calling all PERL & DBI gurus
0.823 ( 1.2/ 1.5) 5 GMT not local server time?
0.816 ( 3.1/ 3.9) 5 reverse() weirdness
0.810 ( 1.6/ 2.0) 5 system()
0.793 ( 1.9/ 2.3) 6 exponentiation please explain what it means
0.780 ( 3.2/ 4.1) 5 Can I use regx with eof()?
0.756 ( 1.6/ 2.1) 5 How to get length of multidimensional array element
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.451 ( 3.0 / 6.7) 8 perl + mysql..
0.442 ( 2.0 / 4.4) 7 Renaming Windows NT domain users
0.436 ( 3.3 / 7.5) 6 Perl and DBM file questions
0.418 ( 3.2 / 7.7) 6 How to do "or" in IF test?
0.415 ( 2.4 / 5.8) 13 www.perl.org
0.405 ( 5.3 / 13.0) 10 Attn: CRAP (was Re: voting system pealse advise)
0.377 ( 1.1 / 2.9) 5 eliminate ',' from a data set...
0.373 ( 1.1 / 3.1) 5 automatic text formatting for 80 chars a line
0.364 ( 1.5 / 4.0) 6 CGI FILE UPLOAD
0.359 ( 1.7 / 4.6) 6 A reference to a number
101 threads (22%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
46 comp.infosystems.www.authoring.html
45 comp.lang.perl.tk
36 comp.lang.perl.modules
21 comp.lang.python
13 alt.perl
7 comp.lang.perl
5 comp.databases.oracle.misc
5 siemens.comp.lang.perl
5 comp.os.msdos.djgpp
2 microsoft.public.inetserver.iis
Top 10 Crossposters
===================
Articles Address
-------- -------
13 stanley@skyking.OCE.ORST.EDU (John Stanley)
10 darsal@erols.com (Dave Salovesh)
10 gh@netquick.net (Gil Harvey)
8 Ian Clarke <I.Clarke@strs.co.uk>
8 miker3@ix.netcom.com
6 rjk@linguist.dartmouth.edu (Ronald J Kimball)
6 Veronica Karlsson <acinorev@earthling.net>
5 "Xah" <xah@best.com>
4 Uriel Wittenberg <urielw@tiac.net>
4 David Cassell <cassell@mail.cor.epa.gov>
------------------------------
Date: Mon, 23 Aug 1999 15:40:44 GMT
From: Jon Peterson <jpeterson@office.colt.net>
Subject: Re: Why use Perl when we've got Python?!
Message-Id: <0Ydw3.243$u07.1835@news.colt.net>
In comp.lang.perl.misc Abigail <abigail@delanet.com> wrote:
> xah (xah@weborder.com) wrote on MMCLXXXIII September MCMXCIII in
> <URL:news:37c126a6$0$813@newsreader.alink.net>:
> ""
> "" a bit. Their one-language ideology taints our programing world. If you
> "" wonder why so many languages uses weird syntax (e.g. python, dylan, lisp,
> "" haskell, mercury, mathematica ...ad nausea), you have these guys to thank
> "" to.
> Yeah, those math texts from the 16th and 17th century, they are sooooo easy
> to read, because they lack all the symbols. Not to mention the original
> Euclid and those other Greeks, who had no symbols at all!
> "" hope that Larry and Tom's teachings will eventually make such subjects
> "" disappear for good.
> Hahahahahahahahahahhahahahahaahahahahahaha.
Ummmmmmm.... Maybe it's just me but I think Xah was being sarcastic.....
His point being that the restrictions and formalities of, say, Python are
better than the freedoms of, say, Perl, in the same way that the restrictions
and formalities of mathematical notation are better than the freedom of
expression available in plain English.
A glance at Xah's web site indicates that he is not a lover of Perl, and he
is a lover of Mathematics...
> -----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
> http://www.newsfeeds.com The Largest Usenet Servers in the World!
> ------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 23 Aug 1999 16:33:39 +0100
From: "Chris Denman" <chris@inta.net.uk>
Subject: xml::parser help
Message-Id: <7prpi4$2nq$1@news2.vas-net.net>
I have an xml file with information in which I need to extract into an
array.
the xml is something like this:
<records>
<record>
<name>Fred Bloggs</name>
<address>100 Bloggsville</address>
</record>
<record>
<name>Frank Smith</name>
<address>110 Smithsville</address>
</record>
</records>
Ideally I would like to extract this information into a hash array like so:
$record{'name'}[0] to have the value 'Fred Bloggs'
$record{'address'}[0] to have the value '100 Bloggsville'
$record{'name'}[1] to have the value 'Frank Smith'
$record{'address'}[1] to have the value '110 Smithsville'
I have been playing with XML::Parser and have had some results setting up
handlers, but the order I receive the data is wrong.
Any help would be greatly appreciated,
Chris Denman
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
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" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. 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" from
almanac@ruby.oce.orst.edu.
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 V9 Issue 621
*************************************
