[11347] in Perl-Users-Digest
Perl-Users Digest, Issue: 4947 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Feb 20 03:07:16 1999
Date: Sat, 20 Feb 99 00:00:21 -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 Sat, 20 Feb 1999 Volume: 8 Number: 4947
Today's topics:
beginners question <white.tj@mciworld.com>
Re: FAQ 5.17: How can I lock a file? (Ilya Zakharevich)
FAQ 8.30: How can I convert my shell script to perl? <perlfaq-suggestions@perl.com>
FAQ 8.31: Can I use perl to run a telnet or ftp session <perlfaq-suggestions@perl.com>
FAQ 8.32: How can I write expect in Perl? <perlfaq-suggestions@perl.com>
FAQ 8.33: Is there a way to hide perl's command line fr <perlfaq-suggestions@perl.com>
FAQ 8.34: I {changed directory, modified my environment <perlfaq-suggestions@perl.com>
FAQ 8.35: How do I close a process's filehandle without <perlfaq-suggestions@perl.com>
how do i declare file PERMISSION within the perl script <jjpark@home.com>
Re: how do i declare file PERMISSION within the perl sc <tchrist@mox.perl.com>
Need Random Link Script! HELP! <nicktg@-REMOVE-bellsouth.net>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Perl Xbase Module. ghill@n2.net
splitting Pairs of characters (Suad Musovich)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: String Manipulation (yet another newbie question) (Larry Rosler)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 20 Feb 1999 01:21:00 -0500
From: in@after.noon (Friday@Dragnet)
Subject:
Message-Id: <in-2002990121010001@ip125.syracuse3.ny.pub-ip.psi.net>
Hi,
I'm building a local site to attract downtowm workers and vendors. I'd
especially like to attact downtown restaurants and delis, where downtown
workers can order lunch online, I'd like to be able to offer e-mail lunch
orders, ported from email (via cgiemail) to fax. (since most local yocals
don't have e-mail.)
Can I write a script in MacPerl that will check my mail, then based upon
the subject line, "Print to fax" a lunch order choosing the fax number
based upon the e-mail subject?
I have an old 75 mhz. 603 PPC that I can dedicate to the task.
Is this possible? Anyone up to the Challenge? Can pay a few bucks. Maybe
have to supplement MacPerl with apple sript?
Thanks for any input,
Bob Langdon
syracusedowntown.com/
------------------------------
Date: Sat, 20 Feb 1999 03:06:54 GMT
From: "white.tj" <white.tj@mciworld.com>
Subject: beginners question
Message-Id: <iFpz2.200$DG2.81551@PM01NEWS>
I am on a sun box running solaris 2.5.
I wrote a simple script to create two xterm windows and a filemgr window. I
now the system commands are correct I tested them. So now my problem. When I
execute the script only one window at a time will come up. When I kill the
first window the second one will pop up and so on. Why? and is there a
better way to do this in perl? <script included>
#!/usr/perl/perl5.004/bin/perl
system '(xterm -title lpscript -g 75X35+1+1 -e /usr/lpscript)' ;
system '(xterm -title lpmon -g 75X35-0-0 -e /usr/lpmon)' ;
system '(/usr/openwin/bin/filemgr -d /var/spool/lp/tmp/hostname)' ;
------------------------------
Date: 20 Feb 1999 03:19:12 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: FAQ 5.17: How can I lock a file?
Message-Id: <7al9jg$gim$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Tom Christiansen
<tchrist@mox.perl.com>],
who wrote in article <36cdecab@csnews>:
> :This is a blatant lie.
> You just outlived your usefulness.
Some people disagree. (Unless you mean it happened overnight.)
Say, just a day ago someone tchrist wrote a clpm message which
consisted in its entirety of a piece of Perl docs written by me.
(Of course, nobody would expect any attribution.)
Ilya
------------------------------
Date: 19 Feb 1999 20:21:22 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 8.30: How can I convert my shell script to perl?
Message-Id: <36ce2a32@csnews>
(This excerpt from perlfaq8 - System Interaction
($Revision: 1.36 $, $Date: 1999/01/08 05:36:34 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq8.html
if your negligent system adminstrator has been remiss in his duties.)
How can I convert my shell script to perl?
Learn Perl and rewrite it. Seriously, there's no simple converter.
Things that are awkward to do in the shell are easy to do in Perl, and
this very awkwardness is what would make a shell->perl converter nigh-on
impossible to write. By rewriting it, you'll think about what you're
really trying to do, and hopefully will escape the shell's pipeline
datastream paradigm, which while convenient for some matters, causes
many inefficiencies.
--
QVIDQVID LATINE DICTVM SIT PROFVNDVM VIDITVR
------------------------------
Date: 19 Feb 1999 21:21:24 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 8.31: Can I use perl to run a telnet or ftp session?
Message-Id: <36ce3844@csnews>
(This excerpt from perlfaq8 - System Interaction
($Revision: 1.36 $, $Date: 1999/01/08 05:36:34 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq8.html
if your negligent system adminstrator has been remiss in his duties.)
Can I use perl to run a telnet or ftp session?
Try the Net::FTP, TCP::Client, and Net::Telnet modules (available from
CPAN). http://www.perl.com/CPAN/scripts/netstuff/telnet.emul.shar will
also help for emulating the telnet protocol, but Net::Telnet is quite
probably easier to use..
If all you want to do is pretend to be telnet but don't need the initial
telnet handshaking, then the standard dual-process approach will
suffice:
use IO::Socket; # new in 5.004
$handle = IO::Socket::INET->new('www.perl.com:80')
|| die "can't connect to port 80 on www.perl.com: $!";
$handle->autoflush(1);
if (fork()) { # XXX: undef means failure
select($handle);
print while <STDIN>; # everything from stdin to socket
} else {
print while <$handle>; # everything from socket to stdout
}
close $handle;
exit;
--
"IMHO, CAPS LOCK should be somewhere more
convenient; e.g., in another building." --jgreely
------------------------------
Date: 19 Feb 1999 21:38:09 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 8.32: How can I write expect in Perl?
Message-Id: <36ce3c31@csnews>
(This excerpt from perlfaq8 - System Interaction
($Revision: 1.36 $, $Date: 1999/01/08 05:36:34 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq8.html
if your negligent system adminstrator has been remiss in his duties.)
How can I write expect in Perl?
Once upon a time, there was a library called chat2.pl (part of the
standard perl distribution), which never really got finished. If you
find it somewhere, *don't use it*. These days, your best bet is to look
at the Expect module available from CPAN, which also requires two other
modules from CPAN, IO::Pty and IO::Stty.
--
X-Windows: Power tools for power fools.
--Jamie Zawinski
------------------------------
Date: 19 Feb 1999 22:38:11 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 8.33: Is there a way to hide perl's command line from programs such as "ps"?
Message-Id: <36ce4a43@csnews>
(This excerpt from perlfaq8 - System Interaction
($Revision: 1.36 $, $Date: 1999/01/08 05:36:34 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq8.html
if your negligent system adminstrator has been remiss in his duties.)
Is there a way to hide perl's command line from programs such as "ps"?
First of all note that if you're doing this for security reasons (to
avoid people seeing passwords, for example) then you should rewrite your
program so that critical information is never given as an argument.
Hiding the arguments won't make your program completely secure.
To actually alter the visible command line, you can assign to the
variable $0 as documented in the perlvar manpage. This won't work on all
operating systems, though. Daemon programs like sendmail place their
state there, as in:
$0 = "orcus [accepting connections]";
--
Drive defensively. Buy a tank.
------------------------------
Date: 19 Feb 1999 23:38:13 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 8.34: I {changed directory, modified my environment} in a perl script. How come the change disappeared when I exited the script? How do I get my changes to be visible?
Message-Id: <36ce5855@csnews>
(This excerpt from perlfaq8 - System Interaction
($Revision: 1.36 $, $Date: 1999/01/08 05:36:34 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq8.html
if your negligent system adminstrator has been remiss in his duties.)
I {changed directory, modified my environment} in a perl script. How come the change disappeared when I exited the script? How do I get my changes to be visible?
Unix
In the strictest sense, it can't be done -- the script executes as a
different process from the shell it was started from. Changes to a
process are not reflected in its parent, only in its own children
created after the change. There is shell magic that may allow you to
fake it by eval()ing the script's output in your shell; check out
the comp.unix.questions FAQ for details.
--
: And it goes against the grain of building small tools.
Innocent, Your Honor. Perl users build small tools all day long.
--Larry Wall in <1992Aug26.184221.29627@netlabs.com>
------------------------------
Date: 20 Feb 1999 00:38:15 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 8.35: How do I close a process's filehandle without waiting for it to complete?
Message-Id: <36ce6667@csnews>
(This excerpt from perlfaq8 - System Interaction
($Revision: 1.36 $, $Date: 1999/01/08 05:36:34 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq8.html
if your negligent system adminstrator has been remiss in his duties.)
How do I close a process's filehandle without waiting for it to complete?
Assuming your system supports such things, just send an appropriate
signal to the process (see the section on "kill" in the perlfunc
manpage. It's common to first send a TERM signal, wait a little bit, and
then send a KILL signal to finish it off.
--
Like Dennis' love note about rk05s, early Berkeley tapes cane with a
suggestion from Bill Joy that "this is a tape of bits," meaning there was no
guarantee of anything, and that complaints should be directed to /dev/null.
--Andy Tannenbaum, "Politics of UNIX," Washington, DC USENIX Conference, 1984
------------------------------
Date: Sat, 20 Feb 1999 04:42:13 GMT
From: justin <jjpark@home.com>
Subject: how do i declare file PERMISSION within the perl script??
Message-Id: <36CE3E20.D73A70AF@home.com>
this is what i have:
open(RECORD, ">$filename") || die "Cannot open $filename for write: $!";
print RECORD "--content--";
the file is created for the first time when running this code, and it
automatically declares 644 as file permission.
once the file is created with 644, it doesn't allow me to change it.
how can i create a file with 777?
------------------------------
Date: 19 Feb 1999 21:55:08 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: how do i declare file PERMISSION within the perl script??
Message-Id: <36ce402c@csnews>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, justin <jjpark@home.com> writes:
:this is what i have:
: open(RECORD, ">$filename") || die "Cannot open $filename for write: $!";
: print RECORD "--content--";
:the file is created for the first time when running this code, and it
:automatically declares 644 as file permission.
:once the file is created with 644, it doesn't allow me to change it.
:how can i create a file with 777?
That sounds strange: you really can't change it once you create it?
How could this happen -- set[gu]id?
Did you try a chmod 0777 on $filename in the program?
chmod 0777, $filename;
How come it is executable, anyway?
--tom
--
str->str_pok |= SP_FBM; /* deep magic */
s = (unsigned char*)(str->str_ptr); /* deeper magic */
--Larry Wall in util.c from the perl source code
------------------------------
Date: Fri, 19 Feb 1999 23:06:49 -0500
From: "Nick Gray" <nicktg@-REMOVE-bellsouth.net>
Subject: Need Random Link Script! HELP!
Message-Id: <ouqz2.1420$O4.10492@eagle.america.net>
I have looked long and hard for a Random Link Script that is NOT based on a
user-set TXT or database file. One that will create an inventory of *.html
files and just choose a random link from there. Help somebody, please!
I have already tried the one at raingod.com
(http://www.raingod.com/raingod/resources/Programming/Perl/Software/PerlCGIR
andom.html#RandomPage)
I could never get it to work, just bounced all requests back to my index
page.
Can anyone help? PLEASE respond via e-mail at nicktgREMOVE@bellsouth.net
(take out the REMOVE from my address)
Thanks a million,
Nick Gray
------------------------------
Date: 15 Feb 1999 16:51:48 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <7a9jb4$adm$2@info.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 08 Feb 1999 16:50:26 GMT and ending at
14 Feb 1999 04:19:28 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: 217 (47.0% of all posters)
Articles: 305 (25.2% of all articles)
Volume generated: 491.4 kb (24.7% of total volume)
- headers: 215.7 kb (4,481 lines)
- bodies: 268.0 kb (8,636 lines)
- original: 203.5 kb (6,775 lines)
- signatures: 7.4 kb (185 lines)
Original Content Rating: 0.759
Averages
========
Posts per poster: 1.4
median: 1 post
mode: 1 post - 165 posters
s: 1.1 posts
Message size: 1650.0 bytes
- header: 724.2 bytes (14.7 lines)
- body: 899.9 bytes (28.3 lines)
- original: 683.1 bytes (22.2 lines)
- signature: 24.9 bytes (0.6 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
7 13.9 ( 5.6/ 6.6/ 3.4) "David M. Lloyd" <david@inxpress.net>
6 7.1 ( 4.1/ 3.1/ 1.3) Bill Garrett <bgarrett@hamilton.net>
6 7.8 ( 3.4/ 4.4/ 1.5) "Fuzzy " <fuzzy825@hotmail.com>
5 10.8 ( 3.6/ 7.2/ 3.5) jjds@para-protect.com
4 4.7 ( 2.8/ 1.9/ 1.3) Ka-shu Wong <kswong@bigpond.com>
4 6.0 ( 3.6/ 2.4/ 0.7) "Martin Lvnnar" <martin.lonnar@edt.ericsson.se>
4 5.5 ( 2.7/ 2.8/ 2.1) "Bradley J. Gibby" <bgibby@iinet.net.au>
4 10.7 ( 3.9/ 6.8/ 6.8) Lars Marius Garshol <larsga@ifi.uio.no>
4 7.1 ( 2.5/ 4.5/ 1.8) "Michael Taylor" <ringo6@worldnet.att.net>
4 8.5 ( 3.2/ 5.3/ 4.5) paxtond@nospam.ix.netcom.com
These posters accounted for 4.0% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
13.9 ( 5.6/ 6.6/ 3.4) 7 "David M. Lloyd" <david@inxpress.net>
10.8 ( 3.6/ 7.2/ 3.5) 5 jjds@para-protect.com
10.7 ( 3.9/ 6.8/ 6.8) 4 Lars Marius Garshol <larsga@ifi.uio.no>
10.3 ( 1.5/ 8.7/ 8.6) 2 "Matt Arnold" <marnold@novia.net>
8.5 ( 3.2/ 5.3/ 4.5) 4 paxtond@nospam.ix.netcom.com
7.8 ( 3.4/ 4.4/ 1.5) 6 "Fuzzy " <fuzzy825@hotmail.com>
7.6 ( 0.8/ 6.9/ 4.4) 1 mdlong@omnifcu.org
7.1 ( 4.1/ 3.1/ 1.3) 6 Bill Garrett <bgarrett@hamilton.net>
7.1 ( 2.5/ 4.5/ 1.8) 4 "Michael Taylor" <ringo6@worldnet.att.net>
6.0 ( 3.6/ 2.4/ 0.7) 4 "Martin Lvnnar" <martin.lonnar@edt.ericsson.se>
These posters accounted for 4.5% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 2.3 / 2.3) 3 mduwjd@maersk.com
1.000 ( 6.8 / 6.8) 4 Lars Marius Garshol <larsga@ifi.uio.no>
1.000 ( 1.9 / 1.9) 3 "William M. Toohey" <ceo@mptenterprises.com>
0.959 ( 2.0 / 2.1) 3 g200@my-dejanews.com
0.847 ( 4.5 / 5.3) 4 paxtond@nospam.ix.netcom.com
0.749 ( 2.1 / 2.8) 4 "Bradley J. Gibby" <bgibby@iinet.net.au>
0.726 ( 0.4 / 0.6) 3 KC <dont@send.me.nothing>
0.661 ( 1.3 / 1.9) 4 Ka-shu Wong <kswong@bigpond.com>
0.562 ( 1.2 / 2.1) 3 cybpunk@geocities.com (John G)
0.509 ( 3.4 / 6.6) 7 "David M. Lloyd" <david@inxpress.net>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.562 ( 1.2 / 2.1) 3 cybpunk@geocities.com (John G)
0.509 ( 3.4 / 6.6) 7 "David M. Lloyd" <david@inxpress.net>
0.487 ( 3.5 / 7.2) 5 jjds@para-protect.com
0.407 ( 1.3 / 3.1) 6 Bill Garrett <bgarrett@hamilton.net>
0.404 ( 1.8 / 4.5) 4 "Michael Taylor" <ringo6@worldnet.att.net>
0.365 ( 0.7 / 1.9) 3 EMAG-Herzberg@t-online.de (Administrator)
0.334 ( 1.5 / 4.4) 6 "Fuzzy " <fuzzy825@hotmail.com>
0.272 ( 0.7 / 2.4) 4 "Martin Lvnnar" <martin.lonnar@edt.ericsson.se>
0.267 ( 0.5 / 1.8) 3 =?iso-8859-1?Q?Cyb=EER?= <cybir@echoweb.net>
0.193 ( 0.6 / 3.1) 3 Burton Kent <burton@lucent.com>
18 posters (8%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
7 bt@Gaia.teknon.de (Volker Borchert)
7 Philip Shotton <phil@iisc.co.uk>
7 vitus@wagner.rinet.ru (Victor Wagner)
6 TechNET Staff <technet@cyberghost.org>
6 Lars Marius Garshol <larsga@ifi.uio.no>
3 alex@mediaconsult.com
2 mgogala@yahoo.com
2 mb@nospamplease.matchfonts.com (Michel Bujardet)
2 haible@clisp.cons.org (Bruno Haible)
2 Thomas Ackermann <tgm@math.uni-bonn.de>
------------------------------
Date: Sat, 20 Feb 1999 07:30:12 GMT
From: ghill@n2.net
Subject: Re: Perl Xbase Module.
Message-Id: <7aloa5$88r$1@nnrp1.dejanews.com>
In article <36CBDAEF.695D9944@gfc-net.de>,
"J|rgen Ibelgaufts" <ibelgaufts@gfc-net.de> wrote:
> Hi,
>
> if someone bothers to cope with perl on Windows NT, using DBD::ODBC or
Win32::ODBC
> is the appropriate answer. The ODBC engine can create and use XBase index
files as
> well.
>
> Juergen Ibelgaufts
>
> ----------------------------------------------------------------------
>
> pvdkamer@inter.NL.net schrieb:
Where can one find some sample scripts using Win32:ODBC?
Thanks in advance.
Greg Hill
> >
> > Honza Pazdziora is right and i qoute from the DBD:XBase CPAN archive :
> > ==============
> > The support for ndx/ntx index files is rather minimal. It currently
> > allows you to search directly to the record you want, in the XBase
> > module. But you cannot create the index, nor is the index updated when
> > you change the dbf. Check the eg/ directory for how you can help to
> > make it better.
> > ================
> > Does anyone have experience with DBD:Xbase ? Does it work OK ?
> > Is it fast ?
> >
> > Thanks for replying
> >
> > On Mon, 15 Feb 1999 18:52:49 GMT, adelton@fi.muni.cz (Honza Pazdziora)
> > wrote:
> >
> > >On 15 Feb 1999 11:25:23 -0500, Clay Irving <clay@panix.com> wrote:
> > >> In <36c83c01.18453387@news.wxs.nl> pvdkamer@inter.NL.net writes:
> > >>
> > >> >Does anyone know a good Perl-Xbase lib. One that can create and
> > >> >maintain dbf's and indexes ?
> > >>
> > >> Like DBD:XBase?
> > >
> > >Well, DBD::XBase doesn't maintain indexes. Having said that, I do not
> > >know about any other Perl solution that would maintain the indexes for
> > >you.
> > >
> > >--
> > >------------------------------------------------------------------------
> > > Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
> > > make vmlinux.exe -- SGI Visual Workstation Howto
> > >------------------------------------------------------------------------
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 20 Feb 1999 06:22:57 GMT
From: suad@nix.tmk.auckland.ac.nz (Suad Musovich)
Subject: splitting Pairs of characters
Message-Id: <7alkc1$ers$1@scream.auckland.ac.nz>
Hi,
Is it possible to split pairs of characters in a word?
I have messily split single characters and printed the
array in pairs but it would send a Perl coder screaming
"philistine" if they saw my code :)
This is for splitting a HW address like 000502F3DD12
into 00:05:02:F3:DD:12
cheers
Suad
s.musovich@auckland.ac.nz
------------------------------
Date: 15 Feb 1999 16:51:48 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <7a9jb4$adm$1@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 08 Feb 1999 16:50:26 GMT and ending at
14 Feb 1999 04:19:28 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: 462
Articles: 1209 (466 with cutlined signatures)
Threads: 380
Volume generated: 1990.3 kb
- headers: 902.2 kb (17,891 lines)
- bodies: 1005.0 kb (32,942 lines)
- original: 684.9 kb (24,345 lines)
- signatures: 82.0 kb (1,637 lines)
Original Content Rating: 0.681
Averages
========
Posts per poster: 2.6
median: 1.0 post
mode: 1 post - 303 posters
s: 5.2 posts
Posts per thread: 3.2
median: 2.0 posts
mode: 1 post - 134 threads
s: 3.9 posts
Message size: 1685.8 bytes
- header: 764.2 bytes (14.8 lines)
- body: 851.2 bytes (27.2 lines)
- original: 580.1 bytes (20.1 lines)
- signature: 69.4 bytes (1.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
46 71.9 ( 32.9/ 29.5/ 18.3) Jonathan Stowe <gellyfish@btinternet.com>
40 60.8 ( 31.7/ 23.3/ 22.3) abigail@fnx.com
39 68.1 ( 36.9/ 21.2/ 11.6) rjk@linguist.dartmouth.edu (Ronald J Kimball)
34 65.3 ( 24.3/ 37.3/ 24.2) lr@hpl.hp.com (Larry Rosler)
31 65.9 ( 23.9/ 41.2/ 31.7) jglascoe@giss.nasa.gov
25 38.4 ( 14.1/ 24.2/ 16.6) tadmc@metronet.com (Tad McClellan)
22 31.1 ( 18.0/ 11.3/ 7.3) Jonathan Feinberg <jdf@pobox.com>
20 27.7 ( 11.8/ 15.8/ 7.0) Eric Bohlman <ebohlman@netcom.com>
19 27.5 ( 16.9/ 10.6/ 7.1) bart.lateur@skynet.be (Bart Lateur)
17 25.3 ( 14.9/ 10.4/ 5.0) ilya@math.ohio-state.edu (Ilya Zakharevich)
These posters accounted for 24.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
71.9 ( 32.9/ 29.5/ 18.3) 46 Jonathan Stowe <gellyfish@btinternet.com>
68.1 ( 36.9/ 21.2/ 11.6) 39 rjk@linguist.dartmouth.edu (Ronald J Kimball)
65.9 ( 23.9/ 41.2/ 31.7) 31 jglascoe@giss.nasa.gov
65.3 ( 24.3/ 37.3/ 24.2) 34 lr@hpl.hp.com (Larry Rosler)
60.8 ( 31.7/ 23.3/ 22.3) 40 abigail@fnx.com
38.4 ( 14.1/ 24.2/ 16.6) 25 tadmc@metronet.com (Tad McClellan)
31.6 ( 10.9/ 16.3/ 10.6) 16 Russ Allbery <rra@stanford.edu>
31.1 ( 18.0/ 11.3/ 7.3) 22 Jonathan Feinberg <jdf@pobox.com>
30.3 ( 14.2/ 10.0/ 4.7) 16 merlyn@stonehenge.com (Randal L. Schwartz)
27.7 ( 11.8/ 15.8/ 7.0) 20 Eric Bohlman <ebohlman@netcom.com>
These posters accounted for 24.7% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.990 ( 2.9 / 2.9) 7 fl_aggie@thepentagon.com
0.957 ( 22.3 / 23.3) 40 abigail@fnx.com
0.818 ( 5.5 / 6.8) 7 mjd@op.net (Mark-Jason Dominus)
0.812 ( 5.0 / 6.1) 6 dragnovich@my-dejanews.com
0.768 ( 31.7 / 41.2) 31 jglascoe@giss.nasa.gov
0.749 ( 3.3 / 4.4) 5 "Mike Watkins" <mwatkins@promotion4free.com>
0.746 ( 7.2 / 9.7) 16 webmaster@wondertek.com
0.716 ( 5.4 / 7.5) 11 Daniel Grisinger <dgris@moiraine.dimensional.com>
0.692 ( 2.6 / 3.7) 8 evil Japh <jeffp@crusoe.net>
0.684 ( 16.6 / 24.2) 25 tadmc@metronet.com (Tad McClellan)
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.465 ( 4.7 / 10.0) 16 merlyn@stonehenge.com (Randal L. Schwartz)
0.465 ( 5.5 / 11.7) 11 sholden@cs.usyd.edu.au
0.463 ( 3.6 / 7.7) 15 Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
0.444 ( 7.0 / 15.8) 20 Eric Bohlman <ebohlman@netcom.com>
0.440 ( 2.9 / 6.6) 5 keydet89@yahoo.com
0.431 ( 3.6 / 8.4) 10 Uri Guttman <uri@home.sysarch.com>
0.407 ( 1.3 / 3.1) 6 Bill Garrett <bgarrett@hamilton.net>
0.334 ( 1.5 / 4.4) 6 "Fuzzy " <fuzzy825@hotmail.com>
0.298 ( 4.0 / 13.3) 8 topmind@technologist.com
0.287 ( 2.0 / 6.8) 6 "Matthew O. Persico" <mpersico@erols.com>
45 posters (9%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
26 fun with strings...
24 change column of nmbers to 2 dim array
22 Perl 'zine
17 Python vs. Perl vs. tcl ?
16 Converting CSV to LDIF
15 Calculate yesterdays date
15 Comments in Perl code
13 performance penalty: bareword, single quoting, double quoting
12 String splitting.
12 Does Perl restrict regular expressions?
These threads accounted for 14.2% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
48.0 ( 22.0/ 22.2/ 13.5) 26 fun with strings...
43.9 ( 20.1/ 23.4/ 12.3) 22 Perl 'zine
42.6 ( 16.4/ 25.2/ 16.2) 17 Python vs. Perl vs. tcl ?
42.5 ( 20.7/ 18.5/ 13.2) 24 change column of nmbers to 2 dim array
31.9 ( 5.4/ 26.3/ 24.2) 8 HELP on assoc. array
30.0 ( 10.5/ 18.0/ 13.0) 11 PFR: UTC_to_Epoch
27.6 ( 12.3/ 15.3/ 5.1) 10 Perl Criticism
26.3 ( 12.9/ 12.1/ 5.8) 15 Comments in Perl code
24.7 ( 13.1/ 10.5/ 5.7) 16 Converting CSV to LDIF
24.5 ( 10.8/ 12.1/ 8.6) 15 Calculate yesterdays date
These threads accounted for 17.2% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.920 ( 24.2/ 26.3) 8 HELP on assoc. array
0.868 ( 8.8/ 10.1) 8 Perl function to reboot NT Server?
0.856 ( 3.2/ 3.8) 5 No. of lines in a file
0.814 ( 4.4/ 5.3) 6 passing multiple arrays to a subroutine
0.810 ( 2.8/ 3.5) 9 newbie: hitcounter
0.796 ( 3.4/ 4.3) 6 Help editing script
0.783 ( 1.6/ 2.1) 5 Help extracting Internet Address with Regular Expression.
0.780 ( 4.8/ 6.1) 6 Advance Data Structure Question
0.771 ( 3.5/ 4.5) 5 How do I use CGI.pm to fetch parameters?
0.765 ( 3.2/ 4.2) 6 please,please,please help me for my sanity. SSI execing?
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.515 ( 3.1 / 6.0) 12 String splitting.
0.488 ( 2.4 / 4.8) 5 Interactive Programs and Perl
0.478 ( 3.6 / 7.6) 6 Newbie: Help to convert korn script
0.477 ( 5.8 / 12.1) 15 Comments in Perl code
0.470 ( 3.3 / 6.9) 6 perl floating points [benchmarking]
0.467 ( 3.7 / 8.0) 12 Does Perl restrict regular expressions?
0.464 ( 3.7 / 8.0) 10 Question: Arrays of associative arrays
0.432 ( 2.9 / 6.7) 8 Bug and cool debugging technique (5.004_04)
0.401 ( 2.5 / 6.2) 8 \n won't work
0.330 ( 5.1 / 15.3) 10 Perl Criticism
77 threads (20%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
49 comp.lang.perl.modules
31 comp.lang.perl.moderated
26 comp.lang.python
20 comp.lang.perl
8 alt.perl
4 alt.2600.crackz
4 comp.lang.javascript
4 alt.cracks
4 alt.binaries.pictures.erotic.cowgirls
4 alt.binaries.pictures.erotic.female
Top 10 Crossposters
===================
Articles Address
-------- -------
112 haslawww@friko7.onet.pl (Best Passwords to sex pages )
8 lr@hpl.hp.com (Larry Rosler)
7 vitus@wagner.rinet.ru (Victor Wagner)
7 bt@Gaia.teknon.de (Volker Borchert)
7 webmaster@wondertek.com
7 Philip Shotton <phil@iisc.co.uk>
7 Justin Wills <justin@nectar.com.au>
6 ilya@math.ohio-state.edu (Ilya Zakharevich)
6 TechNET Staff <technet@cyberghost.org>
6 Lars Marius Garshol <larsga@ifi.uio.no>
------------------------------
Date: Fri, 19 Feb 1999 20:39:17 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: String Manipulation (yet another newbie question)
Message-Id: <MPG.1137dc465e6c181d989a62@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <7al07u$kqp$1@nnrp1.dejanews.com> on Sat, 20 Feb 1999
00:39:27 GMT, asssi@my-dejanews.com <asssi@my-dejanews.com> says...
...
> I took from my university library the book called programming perl for the
> weekend, But I'll have to return it soon..
You can buy a copy almost anywhere. :-)
> any idea for a complete reference of the language (functions, structures etc.)
> online? i tried www.perl.com but didn't seem to find anything like that there.
http://language.perl.com/info/documentation.html
You could have gotten there yourself by hitting the link labeled
Documentation on the very page you mention above. Try harder...
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
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 4947
**************************************
