[11759] in Perl-Users-Digest
Perl-Users Digest, Issue: 5359 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Apr 12 11:07:24 1999
Date: Mon, 12 Apr 99 08:00:18 -0700
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, 12 Apr 1999 Volume: 8 Number: 5359
Today's topics:
autoexec.bat and Perl bug? lingane@my-dejanews.com
Re: CGI embedded in html (Steve Linberg)
Re: Hash symbol '%' a stylized what? (Greg Andrews)
Re: How to Restrict CGI access? (Randal L. Schwartz)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Perl and DDE feketeroland11@my-dejanews.com
Perl regexps compared to Python regexps matthew.freake@smlawpub.co.uk
Reading piped Data from STDIN on NT lingane@my-dejanews.com
Re: Removing last space (Bill Moseley)
Re: Removing last space (Sam Holden)
Re: Removing last space <joshnarins@my-dejanews.com>
Re: Removing last space (Jonathan Stowe)
Resolving shortcuts in Windows 9x <jewelerm@unforgettable.com>
Search through multiline variable? (Ken Williams)
Re: Search through multiline variable? (Steve Linberg)
Re: SORT BY DATE <jwarner@tivoli.com>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
stripping spaces out <qcoldiro@unlinfo.unl.edu>
Re: stripping spaces out (Steve Linberg)
submit a form from a script to another cgi script via s <alejandro.eluchans@umb.edu>
Suit case or backpack (Stanley Horwitz)
Re: using perl to load a web page (Randal L. Schwartz)
Re: which arguement to File::find?? (Randal L. Schwartz)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 12 Apr 1999 14:18:34 GMT
From: lingane@my-dejanews.com
Subject: autoexec.bat and Perl bug?
Message-Id: <7esvbh$n88$1@nnrp1.dejanews.com>
I have come across a problem. My autoexec.bat file contains a path name which
includes a space i.e "c:\program files\whatever"
When I run a perl script that includes a
dir c:\* \a-o \b \s
it acts as if the options were file names instead of options.
This code works fine, as long as I don't have a line with a space in it in the
autoexec.bat file.
Any way around this? Is this a perl bug?
Thanks
Lingane
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 12 Apr 1999 10:49:51 -0400
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: CGI embedded in html
Message-Id: <linberg-1204991049510001@ltl1.literacy.upenn.edu>
In article <7esmcj$eq$1@beta.infotech.nl>, mkretsch@infotech.nl (Milko
Kretschmann) wrote:
> Is it possible to 'embed' a cgi-script in a html-page.
No.
> I know this is for instance possible via an image, but then
> the script has to return an image. I want to have it return text.
The "gif trick" doesn't have to return an image. It can be a shell or
Perl script that can do other things.
> Another way is via the <!--EXEC CGI-...> tag in SSI, but this
> particular feature is not (yet) supported by my provider.
> Are there any alternatives ?
Plenty, but this isn't the place to ask about them. You have a server
question, and you should ask in places where server-side scripting is the
topic (like comp.infosystems.www.authoring.cgi). Some solutions involve
Perl, some don't, but you have to start with your server's configuration
and the options available for it.
--
Steve Linberg, Systems Programmer &c.
National Center on Adult Literacy, University of Pennsylvania
email: <linberg@literacy.upenn.edu>
WWW: <http://www.literacyonline.org>
------------------------------
Date: 12 Apr 1999 07:40:16 -0700
From: gerg@shell1.ncal.verio.com (Greg Andrews)
Subject: Re: Hash symbol '%' a stylized what?
Message-Id: <7et0kg$21b$1@shell1.ncal.verio.com>
damian@cs.monash.edu.au (Damian Conway) writes:
>
> 4. Perl Institute known as Department of Perl Affairs.
>
s/Department/Ministry/ perhaps?
-Greg
------------------------------
Date: 12 Apr 1999 07:16:11 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: How to Restrict CGI access?
Message-Id: <m1vhf1c4b8.fsf@halfdome.holdit.com>
>>>>> "David" == David Cassell <cassell@mail.cor.epa.gov> writes:
David> Then you definitely are defining this as a non-Perl issue! So Randal
David> was right, as usual. Always listen when the gurus speak, even if they
David> tell you something you don't want to hear.
Ahh, now what'd you go and call me a goo-roo for? Now I'm gonna have
to start being right more often again!
:-)
print "Just another Perl hacker,"
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 12 Apr 1999 14:14:35 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <7esv4b$7q$1@info2.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 05 Apr 1999 14:09:48 GMT and ending at
12 Apr 1999 18:39:49 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: 287 (52.4% of all posters)
Articles: 400 (25.4% of all articles)
Volume generated: 723.3 kb (25.8% of total volume)
- headers: 311.6 kb (5,976 lines)
- bodies: 406.5 kb (12,618 lines)
- original: 285.2 kb (9,155 lines)
- signatures: 4.7 kb (114 lines)
Original Content Rating: 0.701
Averages
========
Posts per poster: 1.4
median: 1 post
mode: 1 post - 219 posters
s: 1.1 posts
Message size: 1851.6 bytes
- header: 797.7 bytes (14.9 lines)
- body: 1040.8 bytes (31.5 lines)
- original: 730.0 bytes (22.9 lines)
- signature: 12.1 bytes (0.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
13 25.6 ( 22.9/ 2.7/ 2.7) webmaster@cnet.com (webmaster)
6 11.4 ( 5.1/ 6.3/ 2.2) "Jay J" <SpamMeNOT.3pound@iname.com>
5 7.0 ( 4.3/ 2.7/ 1.7) Infomage <infomage@infomage.force9.co.uk>
5 6.3 ( 3.4/ 2.9/ 1.9) mitiaNOSPAM@nwu.edu (Dmitry Epstein)
4 7.3 ( 2.7/ 4.6/ 1.3) "Jeff Kirk" <jeff@co.mendocino.ca.us>
4 18.9 ( 3.3/ 15.6/ 11.8) foj@nym.alias.net
4 6.5 ( 3.9/ 2.6/ 1.3) newman@dynamite.com.au
4 7.0 ( 3.0/ 4.0/ 2.5) mitiaNOSPAM@nwu.edu.invalid (Dmitry Epstein)
4 5.0 ( 2.1/ 2.8/ 1.4) danbeck@qual.net (Daniel Beckham)
3 3.1 ( 2.3/ 0.8/ 0.3) "AzJ.H}" <glzhang@263.net>
These posters accounted for 3.3% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
25.6 ( 22.9/ 2.7/ 2.7) 13 webmaster@cnet.com (webmaster)
18.9 ( 3.3/ 15.6/ 11.8) 4 foj@nym.alias.net
12.6 ( 2.7/ 9.9/ 8.5) 3 "Eric Smythe" <ericsm@iafrica.com>
12.4 ( 0.9/ 11.5/ 10.1) 1 "Trinidad Gonzalez" <trino@worldnet.att.net>
11.4 ( 5.1/ 6.3/ 2.2) 6 "Jay J" <SpamMeNOT.3pound@iname.com>
11.3 ( 1.9/ 9.4/ 2.5) 2 "Jeff Frost" <jfrost@edstrom.com>
10.9 ( 1.5/ 9.4/ 8.2) 2 Eric Smythe <ericsm@shell.iafrica.com>
8.3 ( 1.0/ 7.2/ 0.7) 1 "Doc" <skydoc@email.com>
7.3 ( 2.7/ 4.6/ 1.3) 4 "Jeff Kirk" <jeff@co.mendocino.ca.us>
7.0 ( 3.0/ 4.0/ 2.5) 4 mitiaNOSPAM@nwu.edu.invalid (Dmitry Epstein)
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 ( 1.7 / 1.7) 3 eme888@aol.com (EME888)
1.000 ( 2.7 / 2.7) 13 webmaster@cnet.com (webmaster)
0.920 ( 1.0 / 1.1) 3 danny@see.the.message
0.866 ( 1.6 / 1.8) 3 vvk@cs.wayne.edu
0.859 ( 8.5 / 9.9) 3 "Eric Smythe" <ericsm@iafrica.com>
0.815 ( 1.7 / 2.0) 3 "Martin" <martin@guest-books.com>
0.757 ( 11.8 / 15.6) 4 foj@nym.alias.net
0.753 ( 2.8 / 3.7) 3 homelessinseattle@my-dejanews.com
0.727 ( 2.0 / 2.8) 3 Tom Kralidis <tom.kralidis@ccrsDotnrcandOtgc.ca>
0.711 ( 0.7 / 1.0) 3 jddemme@technologist.com (JDDemme)
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.621 ( 2.5 / 4.0) 4 mitiaNOSPAM@nwu.edu.invalid (Dmitry Epstein)
0.542 ( 2.1 / 3.9) 3 "David Christensen" <dchristensen@california.com>
0.510 ( 1.5 / 2.9) 3 Jason Hissong <jhisson1@columbus.rr.com>
0.507 ( 1.3 / 2.6) 4 newman@dynamite.com.au
0.497 ( 1.4 / 2.8) 4 danbeck@qual.net (Daniel Beckham)
0.387 ( 0.3 / 0.8) 3 "AzJ.H}" <glzhang@263.net>
0.364 ( 0.9 / 2.3) 3 "Mark B. Lefevre" <mlefevre@cadence.com>
0.348 ( 2.2 / 6.3) 6 "Jay J" <SpamMeNOT.3pound@iname.com>
0.333 ( 0.7 / 2.0) 3 Neil Sandow <nsandow@otnnet.com>
0.282 ( 1.3 / 4.6) 4 "Jeff Kirk" <jeff@co.mendocino.ca.us>
23 posters (8%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
273 webmaster@cnet.com (webmaster)
21 mark@one.net (mark)
21 Marc LeBlanc <macjl@nb.sympatico.ca>
21 Fedor Solodovnik <fsolodov@ntmail.desy.de>
12 "Richard Taylor" <rtaylor@nbnet.nb.ca>
12 "opus007" <startrek@techcom.net>
12 "Fox" <fox@simsoft.clara.net>
12 "Dru" <removethis.Dru@grange.s-gloucs.sch.uk>
8 foj@nym.alias.net
6 "Michael O'Connor" <mfo@home.com>
------------------------------
Date: Mon, 12 Apr 1999 14:33:08 GMT
From: feketeroland11@my-dejanews.com
Subject: Perl and DDE
Message-Id: <7et074$o3t$1@nnrp1.dejanews.com>
Hello, I'm Roland from Hungary!
I've a problem with Perl. I want to running an application (WinFaxPro) from
Perl using DDE. But this application do not support the OLE interface, just
the DDE. I was download a DDE module from a CPAN site. It's Doug Wescheid's
one. I was download a core Perl - becouse that DDE is not working with
ActivePerl. But i can't installing it, becouse dmake error.(Maybe my Borland
C++ is old). My question is: is there any other DDE module for Perl? Is it
running under ActivePerl?
And -if it's aviable- please send me some sourcecode about Perl-DDE.
Thank you for the time!
Roland
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 12 Apr 1999 13:49:09 GMT
From: matthew.freake@smlawpub.co.uk
Subject: Perl regexps compared to Python regexps
Message-Id: <7estki$ll3$1@nnrp1.dejanews.com>
Without wishing to start a Perl vs Python discussion, I was wondering does
anyone out there know if there are any major differences between the the two
languages implementations of regular expressions. Lots of net resources seem
to imply that Python's implementation is less powerful but with my limited
use of Python and having looked at the documentation, I cannot really find
any evidence for this. Have I picked up the wrong end of the stick or am I
missing something ?
Many thanks
Matt Freake
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 12 Apr 1999 14:11:50 GMT
From: lingane@my-dejanews.com
Subject: Reading piped Data from STDIN on NT
Message-Id: <7esuuu$mr3$1@nnrp1.dejanews.com>
I need to pipe data from a directory command into a perl script.
I am using a
while (defined ($line = <STDIN>)) loop.
With this loop it will read data typed in after the script is invoked, but
I have been unable to make it read data piped in.
What is wrong with
dir c:/* | myscript.pl
thanks
lingane
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 12 Apr 1999 06:57:21 -0700
From: moseley@best.com (Bill Moseley)
Subject: Re: Removing last space
Message-Id: <MPG.117b9b9dabe4d55a989730@206.184.139.132>
In article <7esqd8$ioe$1@weber.a2000.nl>, basvreek@xs5all.nl says...
> How do i remove the last space from a variable
>
> I do not mean $foo =~ s/ //g;
That, of course, removes all spaces.
> or chop.
Removes last character. Could be made to work.
Use the s/// substitution and lookup the meaning of '$' in perldoc perlre
Some other options,
perldoc -f index <- see if you have a space
perldoc -f rindex <- or going the other way
perldoc -f substr <- extract out the substring
I guess you could use split, pop, and push (if you popped something other
than a space). That's a silly way to do it, though.
--
Bill Moseley mailto:moseley@best.com
------------------------------
Date: 12 Apr 1999 14:06:34 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Removing last space
Message-Id: <slrn7h3vfa.8l7.sholden@pgrad.cs.usyd.edu.au>
Michael Cameron <Michael.Cameron@No.Spam.technologist.com> wrote:
>Bas van Reek wrote:
>
>> How do i remove the last space from a variable
>>
>> I do not mean $foo =~ s/ //g; or chop.
>> only the last space(s) if there is one.
>>
>> so "bla bla " needs to become "bla bla"
>>
>> Thanks
>
>What about using chomp with $/ set to a space?
>eg:
>
>$foo="bla bla ";
>$/=" ";
>chomp($foo);
Or $foo=~s/ $// which I think is more understandable and doesn't require
modifying $/ which might have some useful value already (I know you can
local it in a block...).
Might be slower, but if that sort of speed is a problem then it's time to
stop using perl.
If you *know* there is *always* a space then chop would work, but that loses
th indication that you are getting rid of a space (though a comment would
fix that I guess).
--
Sam
Just don't create a file called -rf. :-)
--Larry Wall
------------------------------
Date: Mon, 12 Apr 1999 14:05:55 GMT
From: JoshNarins <joshnarins@my-dejanews.com>
Subject: Re: Removing last space
Message-Id: <7esujt$mlh$1@nnrp1.dejanews.com>
In article <7esqd8$ioe$1@weber.a2000.nl>,
"Bas van Reek" <basvreek@xs5all.nl> wrote:
>
>
> How do i remove the last space from a variable
>
> I do not mean $foo =~ s/ //g; or chop.
> only the last space(s) if there is one.
>
> so "bla bla " needs to become "bla bla"
>
> Thanks
You need to add the end of line anchor, $ ,as in the following...
$line =~ s/\s*$//; # Remove all whitespace at end of line.
If there is no whitespace, the above does what you want (i.e. nothing).
Enjoy,
Programming Perl,
Perl Cookbook,
and ftp://cpan.nas.nasa.gov/pub/perl/CPAN/doc/FMTEYEWTK/index.html
Joshua Narins, I'm OK, hope you are too
Rip my heart out for the sun god, throw my body down the stairs
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 12 Apr 1999 14:30:57 GMT
From: gellyfish@gellyfish.com (Jonathan Stowe)
Subject: Re: Removing last space
Message-Id: <371202c9.23603189@news.dircon.co.uk>
On Mon, 12 Apr 1999 15:05:03 +0200, "Bas van Reek"
<basvreek@xs5all.nl> wrote:
>Don't know why, but outlook inludes the word 'file' after $foo= etc ??
>where you read file it should be a space.
>>
Yes its called intellinonsense or something like that ...
>>
>> How do i remove the last space from a variable
>>
>> I do not mean $foo =~ s/ file://g; or chop.
>> only the last space(s) if there is one.
>>
>> so "bla bla " needs to become "bla bla"
>>
Oh you do mean *like* $foo =~ s/ //g;
actually :
$foo =~ s/ +$//g;
if you are only concerned with actual spaces or
$foo =~ s/\s+$//g;
if you mean whitespace in general.
check out the perlre manpage.
/J\
------------------------------
Date: Mon, 12 Apr 1999 10:30:46 -0400
From: "Mark Jeweler" <jewelerm@unforgettable.com>
Subject: Resolving shortcuts in Windows 9x
Message-Id: <7esvtn$dld$1@autumn.news.rcn.net>
I am a relative newbie to perl, though am fairly familiar with it, having
worked in Unix for a number of years way back when...
Anyway, my issue is on a Microsoft Windows 9x platform. I can easily open
and parse regular files, but am having problems with "shortcuts", which
windows handles as ".LNK" files.
I have tried the "readlink" command, but this does not seem to do what I
want.
I have a shortcut, which points to another file. I want to be able to
reference the shortcut, resolve the link to the file it points to, and then
ultimately, to be able to open and work with the pointed-to file.
Any feedback would be greatly appreciated.
Thanks.
Mark Jeweler
jewelerm@unforgettable.com
------------------------------
Date: Mon, 12 Apr 1999 06:12:22 GMT
From: tekkin@hotmail.com (Ken Williams)
Subject: Search through multiline variable?
Message-Id: <37118ef8.0@news.cgocable.net>
I have a variable like this:
$var = "name1 name2 name3";
Theres a \r\n or whatever after each name?. So if I viewed $var in a web page
with <PRE> it would looks like:
name1
name2
name3
How do I loop through $var and remove say name5 or whatever while keeping the
structure of the variable in tact(name3 name4 name6) with the \r\n at the end
or each namex?
Thanks.
------------------------------
Date: Mon, 12 Apr 1999 10:46:13 -0400
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: Search through multiline variable?
Message-Id: <linberg-1204991046130001@ltl1.literacy.upenn.edu>
In article <37118ef8.0@news.cgocable.net>, tekkin@hotmail.com (Ken
Williams) wrote:
> I have a variable like this:
>
> $var = "name1 name2 name3";
>
> Theres a \r\n or whatever after each name?. So if I viewed $var in a
web page
> with <PRE> it would looks like:
> name1
> name2
> name3
>
> How do I loop through $var and remove say name5 or whatever while keeping the
> structure of the variable in tact(name3 name4 name6) with the \r\n at the end
> or each namex?
Regular expressions, which are extremely fundamental to working in Perl.
What you want to do is very simple, and a quick read through the regexp
chapter of the Camel book (or your online documentation) will tell you
everything you'll need to know.
$var =~ s/name1//; # deletes first occurrence of "name1" from $var,
preserves whitespace
--
Steve Linberg, Systems Programmer &c.
National Center on Adult Literacy, University of Pennsylvania
email: <linberg@literacy.upenn.edu>
WWW: <http://www.literacyonline.org>
------------------------------
Date: Mon, 12 Apr 1999 09:25:35 -0500
From: John Warner <jwarner@tivoli.com>
Subject: Re: SORT BY DATE
Message-Id: <3712025F.EE5BA50@tivoli.com>
Your reply brings up an interesting question for me. How does Perl
handle dates before 1900? Does it simply return a negative number?
Jay Glascoe wrote:
> I often work with years 1700 up to 2200. 1700 up to now is
> historic climatology, now to 2200 is climate modelling.
>
> > If this 100-year window doesn't suit your problem domain, use a
> > different window to disambiguate the year.
>
> # ahhh... a 600 year window
> $year += int rand 600;
--
John Warner Tivoli Systems Inc.
Sales Support Engineer 9442 Capital Of Texas Hwy North
Sales Infrastructure Group Austin, TX 78759
john_warner@tivoli.com
------------------------------
Date: 12 Apr 1999 14:14:35 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <7esv4b$7q$2@info2.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 05 Apr 1999 14:09:48 GMT and ending at
12 Apr 1999 18:39:49 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: 548
Articles: 1576 (651 with cutlined signatures)
Threads: 477
Volume generated: 2799.0 kb
- headers: 1190.7 kb (23,795 lines)
- bodies: 1507.0 kb (45,895 lines)
- original: 969.0 kb (31,434 lines)
- signatures: 99.8 kb (2,386 lines)
Original Content Rating: 0.643
Averages
========
Posts per poster: 2.9
median: 1.0 post
mode: 1 post - 360 posters
s: 7.9 posts
Posts per thread: 3.3
median: 2 posts
mode: 1 post - 144 threads
s: 3.3 posts
Message size: 1818.7 bytes
- header: 773.6 bytes (15.1 lines)
- body: 979.2 bytes (29.1 lines)
- original: 629.6 bytes (19.9 lines)
- signature: 64.9 bytes (1.5 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
103 223.9 ( 85.1/122.5/ 46.9) David Cassell <cassell@mail.cor.epa.gov>
90 149.9 ( 59.3/ 81.1/ 50.7) lr@hpl.hp.com (Larry Rosler)
52 94.6 ( 42.7/ 46.3/ 26.5) sholden@cs.usyd.edu.au
50 77.3 ( 38.6/ 32.6/ 16.7) Jonathan Stowe <gellyfish@gellyfish.com>
45 69.3 ( 26.6/ 42.7/ 27.7) tadmc@metronet.com (Tad McClellan)
43 66.5 ( 33.3/ 24.9/ 22.3) abigail@fnx.com
29 37.2 ( 22.5/ 14.5/ 10.0) jglascoe@giss.nasa.gov
28 56.2 ( 22.9/ 24.8/ 11.5) Uri Guttman <uri@home.sysarch.com>
28 47.9 ( 21.4/ 20.1/ 9.8) rjk@linguist.dartmouth.edu (Ronald J Kimball)
25 38.3 ( 20.6/ 17.7/ 10.8) bart.lateur@skynet.be (Bart Lateur)
These posters accounted for 31.3% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
223.9 ( 85.1/122.5/ 46.9) 103 David Cassell <cassell@mail.cor.epa.gov>
149.9 ( 59.3/ 81.1/ 50.7) 90 lr@hpl.hp.com (Larry Rosler)
144.9 ( 9.2/135.7/105.7) 13 drgreer@qtiworld.com (Darren Greer)
94.6 ( 42.7/ 46.3/ 26.5) 52 sholden@cs.usyd.edu.au
77.3 ( 38.6/ 32.6/ 16.7) 50 Jonathan Stowe <gellyfish@gellyfish.com>
69.3 ( 26.6/ 42.7/ 27.7) 45 tadmc@metronet.com (Tad McClellan)
66.5 ( 33.3/ 24.9/ 22.3) 43 abigail@fnx.com
56.2 ( 22.9/ 24.8/ 11.5) 28 Uri Guttman <uri@home.sysarch.com>
47.9 ( 21.4/ 20.1/ 9.8) 28 rjk@linguist.dartmouth.edu (Ronald J Kimball)
38.3 ( 20.6/ 17.7/ 10.8) 25 bart.lateur@skynet.be (Bart Lateur)
These posters accounted for 34.6% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 2.7 / 2.7) 13 webmaster@cnet.com (webmaster)
1.000 ( 2.1 / 2.1) 6 agniora@usa.net
0.893 ( 22.3 / 24.9) 43 abigail@fnx.com
0.893 ( 6.1 / 6.8) 14 fl_aggie@thepentagon.com
0.874 ( 3.0 / 3.4) 7 "Gabriel Richards" <grichard@uci.edu>
0.840 ( 2.5 / 3.0) 11 "IndexFinger.com" <indexfinger@usa.net>
0.780 ( 3.7 / 4.8) 8 Peter@Berghold.Net (Peter L. Berghold)
0.779 (105.7 /135.7) 13 drgreer@qtiworld.com (Darren Greer)
0.771 ( 3.6 / 4.7) 5 ran@netgate.net
0.730 ( 4.6 / 6.3) 5 fred222@mauimail.com (George)
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.454 ( 1.7 / 3.9) 7 Jeff Thies <cyberjeff@sprintmail.com>
0.432 ( 1.9 / 4.3) 5 ada@fc.hp.com (Andrew Allen)
0.402 ( 1.9 / 4.6) 7 blazer@mail.nevalink.ru
0.383 ( 46.9 /122.5) 103 David Cassell <cassell@mail.cor.epa.gov>
0.369 ( 2.1 / 5.6) 5 efflandt@xnet.com
0.348 ( 4.1 / 11.8) 13 David Delikat <ddelikat@protix.com>
0.348 ( 2.2 / 6.3) 6 "Jay J" <SpamMeNOT.3pound@iname.com>
0.336 ( 3.2 / 9.5) 12 ilya@math.ohio-state.edu (Ilya Zakharevich)
0.309 ( 2.6 / 8.6) 6 "Dwight Trumbower" <dwight@trumbower.com>
0.303 ( 1.1 / 3.6) 5 Gisle Aas <gisle@aas.no>
56 posters (10%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
19 random number ( -w )
19 here docs vs qq quote operator. Just personal preference?
18 Perl as a first programming language - suitability, good books ?
18 SORT BY DATE
17 Privacy for slaves forced to use a proxy/firewall to access the net?
16 leap year?
16 Premature end of script headers
14 HELP with Subsitution
14 constructing a list of hashes
13 flocking question - worried
These threads accounted for 10.4% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
123.6 ( 0.7/122.8/100.5) 1 Trouble with DBI and Oracle - temp.mail2 (1/1)
62.4 ( 16.1/ 45.7/ 22.5) 17 Privacy for slaves forced to use a proxy/firewall to access the net?
48.5 ( 14.7/ 32.0/ 15.4) 18 Perl as a first programming language - suitability, good books ?
32.9 ( 16.3/ 13.9/ 7.5) 19 here docs vs qq quote operator. Just personal preference?
31.6 ( 14.1/ 15.3/ 6.1) 16 Premature end of script headers
30.4 ( 12.2/ 17.3/ 9.5) 14 HELP with Subsitution
28.7 ( 6.4/ 22.3/ 14.6) 8 Hotmail's Homepages
27.7 ( 12.1/ 13.9/ 7.5) 14 constructing a list of hashes
25.9 ( 13.2/ 11.6/ 6.0) 18 SORT BY DATE
25.5 ( 9.5/ 15.2/ 5.0) 13 Trouble with DBI and Oracle
These threads accounted for 15.6% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.900 ( 2.2/ 2.4) 5 Perl IDE/GUI for Linux
0.827 ( 2.7/ 3.2) 7 random number
0.825 ( 3.5/ 4.3) 9 Verifying existance of a file
0.811 ( 4.7/ 5.8) 7 Returning "undef" from a subroutine. Appears broken in my latest version.
0.776 ( 1.2/ 1.5) 5 switch statement?
0.773 ( 2.1/ 2.7) 7 using "require example.cgi" on NT
0.772 ( 3.7/ 4.8) 8 How Do I Declare A Hash Without Errors?
0.758 ( 2.5/ 3.3) 5 [Q] Help Needed on map
0.754 ( 2.1/ 2.8) 5 Could someone please tell me......
0.751 ( 7.1/ 9.4) 9 How do i write a program that will spell a word every way possible?
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.403 ( 3.5 / 8.8) 8 How to pass parameters for perl programs under ActivePerl?
0.402 ( 6.1 / 15.3) 16 Premature end of script headers
0.401 ( 4.7 / 11.8) 9 Unpack Question
0.389 ( 2.3 / 6.0) 5 wanted: elegant inverse operation for vec
0.366 ( 3.4 / 9.4) 8 perl and y2k (was Re: The millennium cometh -- eventually)
0.346 ( 1.0 / 2.9) 5 my random doesn't return number!!
0.344 ( 1.7 / 4.8) 5 Text Search Program
0.328 ( 5.0 / 15.2) 13 Trouble with DBI and Oracle
0.289 ( 2.5 / 8.5) 7 Active State 5.09 Perl processes hanging under NT 4.0
0.255 ( 1.4 / 5.4) 5 removing the \n at the end of a variable
106 threads (22%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
54 comp.lang.perl.modules
38 comp.lang.javascript
30 alt.perl
21 comp.security.firewalls
20 comp.lang.java.programmer
20 comp.os.linux.networking
20 comp.os.linux.misc
20 comp.lang.c++
20 comp.lang.c
20 comp.lang.basic.visual.misc
Top 10 Crossposters
===================
Articles Address
-------- -------
273 webmaster@cnet.com (webmaster)
21 mark@one.net (mark)
21 Fedor Solodovnik <fsolodov@ntmail.desy.de>
21 Marc LeBlanc <macjl@nb.sympatico.ca>
12 "Fox" <fox@simsoft.clara.net>
12 "Richard Taylor" <rtaylor@nbnet.nb.ca>
12 "Dru" <removethis.Dru@grange.s-gloucs.sch.uk>
12 "opus007" <startrek@techcom.net>
11 drgreer@qtiworld.com (Darren Greer)
8 foj@nym.alias.net
------------------------------
Date: Mon, 12 Apr 1999 08:15:55 -0500
From: quinn coldiron <qcoldiro@unlinfo.unl.edu>
Subject: stripping spaces out
Message-Id: <3711F20B.9F79548E@unlinfo.unl.edu>
I read the perl FAQ, and found a reg exp to strip spaces, but it only
strips spaces off the beginning and end of a string. I want to strip
ALL the spaces out of a string. Does anybody have a reg exp that will
do this?
Quinn
------------------------------
Date: Mon, 12 Apr 1999 10:43:55 -0400
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: stripping spaces out
Message-Id: <linberg-1204991043550001@ltl1.literacy.upenn.edu>
In article <3711F20B.9F79548E@unlinfo.unl.edu>, qcoldiron@yahoo.com wrote:
> I read the perl FAQ, and found a reg exp to strip spaces, but it only
> strips spaces off the beginning and end of a string. I want to strip
> ALL the spaces out of a string. Does anybody have a reg exp that will
> do this?
Reread the Camel sections on regexps; this is very basic. Here's one way
to do spaces ONLY:
$string = "this string has spaces in it\n";
print "Before: $string";
$string =~ s/ //g;
print "After: $string";
__END__
Before: this string has spaces in it
After: thisstringhasspacesinit
--
Steve Linberg, Systems Programmer &c.
National Center on Adult Literacy, University of Pennsylvania
email: <linberg@literacy.upenn.edu>
WWW: <http://www.literacyonline.org>
------------------------------
Date: Mon, 12 Apr 1999 09:58:16 -0500
From: Alejandro Eluchans <alejandro.eluchans@umb.edu>
Subject: submit a form from a script to another cgi script via socket?
Message-Id: <37120A08.5F4B844A@umb.edu>
I know how to get files via socket connection.
But does any body know how to plug into a cgi script, submit name/value
form entries, and ger the result into a script. All of this done via
PERL?
Alejandro
------------------------------
Date: 12 Apr 1999 14:42:04 GMT
From: stan@tempest.temple.edu (Stanley Horwitz)
Subject: Suit case or backpack
Message-Id: <7et0ns$2du$2@cronkite.ocis.temple.edu>
Hello all:
In May, I will be visiting Italy for the first time for a two week stay.
We will start and end our visit in Rome. After a few days inRome, we will
take a train to Florence for a visit there for four days. From Florence,
we plan to take a train down to the Amalfi Coast and stay there for a few
days before taking a train back to Rome to spend our last few days in
Italy before flying home.
I think I might be going crazy, because I cannot seem to find the backpack
I used on my previous trip to Europe. I have searched my parents' house
and my own, but to no avail. I guess maybe I lent the backpack to a friend
and than forgot about it. This backpack was kind of on the heavy side
anyway so it wasn't the most convenient backpack. Anyway, I have a very
good hard shell American Tourister suitecase with a key lock and
combination locks that I am thinking of taking with me. The suit case is a
little on the large side though, but its more than big enough for a two
week trip. I am a pretty strong guy and the suit case has wheels and a
pull cord, but I am wondering if this will be too cumbersome to bring on
the trains in Italy. I could go out and get another backpack, but I
would rather not spend the money, especially since I know that as soon
as I buy a new one, I will find my old backpack.
Does anyone have any thoughts on this matter? How is train traveling with
a suit case? I still plan to pack light.
------------------------------
Date: 12 Apr 1999 07:20:14 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: using perl to load a web page
Message-Id: <m1r9ppc44h.fsf@halfdome.holdit.com>
>>>>> "Steven" == Steven T Henderson <stevenhenderson@prodigy.net> writes:
Steven> or even better, just change the URL:
Steven> print <<RELOAD;
Steven> Content-type: text/html\n\n
Steven> <HTML><HEAD></HEAD><BODY><META HTTP-EQUIV=\"Refresh\" CONTENT=\"0;
Steven> URL=$HTML_HOME/$HTML_DEFAULT\"></BODY></HTML>
Steven> RELOAD
No. Don't. Don't. Don't use meta-refresh. It destroys your "back"
button's usefulness.
If you're doing this from a CGI program, just print the proper
"Location:" header to force a browser redirect.
Please *stop* passing along solutions that use the word "refresh"
in them. :(
(I think I'll write a script that sends anyone that uses the word
"meta" near "refresh" or "limit" near "GET" a nastygram when they
post. :-)
print "Just another Perl hacker,"
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 12 Apr 1999 07:33:37 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: which arguement to File::find??
Message-Id: <m1g165c3i6.fsf@halfdome.holdit.com>
>>>>> "Peter" == Peter Bismuti <bismuti@cs.fsu.edu> writes:
Peter> There is are built in variables to determine what the current
Peter> values of the directory and file are when using the 'find'
Peter> function, but I need to know which arguement 'find' is working
Peter> on, how can I do this??? THanks!!,
Peter> find(\&wanted,arg1,arg2,arg3.....)
Peter> sub wanted{
Peter> # which arg is 'find' currently working on?
Peter> }
Just do this:
foreach $dir (arg1, arg2, arg3,...) {
find (\&wanted, $dir);
}
And then it's working on $dir. :)
print "Just another Perl hacker,"
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 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 5359
**************************************
