[11403] in Perl-Users-Digest
Perl-Users Digest, Issue: 5001 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Feb 26 16:27:31 1999
Date: Fri, 26 Feb 99 13:19:16 -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 Fri, 26 Feb 1999 Volume: 8 Number: 5001
Today's topics:
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Statistics for comp.lang.perl.misc (Ronald J Kimball)
Re: Statistics for comp.lang.perl.misc (Greg Bacon)
Re: Statistics for comp.lang.perl.misc (Abigail)
Re: Statistics for comp.lang.perl.misc (Abigail)
Re: Statistics for comp.lang.perl.misc (Ronald J Kimball)
Re: Statistics for comp.lang.perl.misc (Danny Aldham)
Statistics on what people search for.. (Roger Foss)
Re: Statistics on what people search for.. (Abigail)
Re: Statistics on what people search for.. (Michel Dalle)
Re: Statistics on what people search for.. (Bart Lateur)
Re: Statistics on what people search for.. <elaine@cts.wustl.edu>
Re: Statistics on what people search for.. (Roger Foss)
Re: Statistics on what people search for.. <jhi@alpha.hut.fi>
Re: Statistics on what people search for.. droby@copyright.com
STDIO Redirection problem on NT <kolonay@micro.ti.com>
String parsing against two seperatros <scollick@stsci.edu>
Re: String parsing against two seperatros <jglascoe@giss.nasa.gov>
Re: String parsing against two seperatros <jglascoe@giss.nasa.gov>
Re: String parsing against two seperatros (Ulrich Ottersbach)
Re: String parsing against two seperatros (Ulrich Ottersbach)
Re: tcl.so linking error? (Jim Turner)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 22 Feb 1999 15:23:31 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <7arspj$t7m$1@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 15 Feb 1999 16:51:48 GMT and ending at
23 Feb 1999 03:24:39 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\@(?:.*\.)?perl\.com
Totals
======
Posters: 351
Articles: 795 (285 with cutlined signatures)
Threads: 351
Volume generated: 1486.6 kb
- headers: 569.6 kb (11,772 lines)
- bodies: 869.1 kb (27,219 lines)
- original: 643.0 kb (21,242 lines)
- signatures: 47.1 kb (990 lines)
Original Content Rating: 0.740
Averages
========
Posts per poster: 2.3
median: 1 post
mode: 1 post - 222 posters
s: 4.7 posts
Posts per thread: 2.3
median: 2 posts
mode: 1 post - 161 threads
s: 2.2 posts
Message size: 1914.8 bytes
- header: 733.7 bytes (14.8 lines)
- body: 1119.5 bytes (34.2 lines)
- original: 828.3 bytes (26.7 lines)
- signature: 60.6 bytes (1.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
62 201.9 ( 43.6/150.2/141.4) tchrist@mox.perl.com (Tom Christiansen)
46 75.2 ( 30.6/ 35.1/ 19.2) Jonathan Stowe <gellyfish@btinternet.com>
22 41.4 ( 14.5/ 24.4/ 15.5) lr@hpl.hp.com (Larry Rosler)
18 24.4 ( 10.2/ 14.2/ 8.7) tadmc@metronet.com (Tad McClellan)
14 22.6 ( 11.8/ 10.8/ 6.7) ilya@math.ohio-state.edu (Ilya Zakharevich)
13 25.3 ( 11.6/ 10.4/ 5.2) rjk@linguist.dartmouth.edu (Ronald J Kimball)
13 30.2 ( 10.1/ 20.2/ 10.9) "Allan M. Due" <Allan@Due.net>
9 22.4 ( 7.7/ 14.7/ 9.7) Shane Nay <snay@no-junkformeprimenet.com>
9 11.7 ( 7.0/ 4.7/ 3.1) bart.lateur@skynet.be (Bart Lateur)
9 11.8 ( 7.3/ 3.9/ 2.3) Jonathan Feinberg <jdf@pobox.com>
These posters accounted for 27.0% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
201.9 ( 43.6/150.2/141.4) 62 tchrist@mox.perl.com (Tom Christiansen)
75.2 ( 30.6/ 35.1/ 19.2) 46 Jonathan Stowe <gellyfish@btinternet.com>
41.4 ( 14.5/ 24.4/ 15.5) 22 lr@hpl.hp.com (Larry Rosler)
32.1 ( 2.0/ 30.0/ 29.9) 5 Greg Bacon <gbacon@cs.uah.edu>
30.2 ( 10.1/ 20.2/ 10.9) 13 "Allan M. Due" <Allan@Due.net>
25.3 ( 11.6/ 10.4/ 5.2) 13 rjk@linguist.dartmouth.edu (Ronald J Kimball)
24.4 ( 10.2/ 14.2/ 8.7) 18 tadmc@metronet.com (Tad McClellan)
22.6 ( 11.8/ 10.8/ 6.7) 14 ilya@math.ohio-state.edu (Ilya Zakharevich)
22.4 ( 7.7/ 14.7/ 9.7) 9 Shane Nay <snay@no-junkformeprimenet.com>
15.0 ( 5.3/ 8.4/ 6.9) 8 linberg@literacy.upenn.edu (Steve Linberg)
These posters accounted for 33.0% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.995 ( 29.9 / 30.0) 5 Greg Bacon <gbacon@cs.uah.edu>
0.976 ( 5.0 / 5.1) 8 abigail@fnx.com
0.968 ( 4.6 / 4.8) 8 fl_aggie@thepentagon.com
0.942 (141.4 /150.2) 62 tchrist@mox.perl.com (Tom Christiansen)
0.815 ( 6.9 / 8.4) 8 linberg@literacy.upenn.edu (Steve Linberg)
0.761 ( 5.4 / 7.1) 5 gward@cnri.reston.va.us (Greg Ward)
0.730 ( 3.0 / 4.1) 8 jglascoe@giss.nasa.gov
0.702 ( 5.0 / 7.1) 6 alastair@calliope.demon.co.uk
0.696 ( 2.5 / 3.7) 6 slinberg@crocker.com (Steve Linberg)
0.685 ( 2.9 / 4.2) 5 Ala Qumsieh <aqumsieh@matrox.com>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.547 ( 3.9 / 7.1) 7 samc@empirewest.com (Sam Curren)
0.547 ( 2.8 / 5.1) 5 joec@impacttech.com
0.547 ( 1.2 / 2.1) 5 alecler@cam.org (Andre L.)
0.546 ( 2.7 / 5.0) 8 clay@panix.com (Clay Irving)
0.543 ( 10.9 / 20.2) 13 "Allan M. Due" <Allan@Due.net>
0.512 ( 1.6 / 3.2) 6 James Ludlow <ludlow@us.ibm.com>
0.496 ( 5.2 / 10.4) 13 rjk@linguist.dartmouth.edu (Ronald J Kimball)
0.466 ( 1.7 / 3.6) 7 Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
0.444 ( 1.2 / 2.7) 5 merlyn@stonehenge.com (Randal L. Schwartz)
0.201 ( 1.9 / 9.5) 6 Chris Morrow <morrowc@his.com>
29 posters (8%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
15 Printing all environment variables
13 String Manipulation (yet another newbie question)
11 can I run perl on Win 98??????
9 (blush) Stupid question about Perl in Win/DOS (shudder)
9 Anybody get .pl scripts to run on Win32 Perl and Apache 1.3.3. &#$%*Damn MS Windoze file associations.
9 regex poll
9 perl compiled code cacheing
8 Speed Up Perl
7 Perl, PHP, Python, ColdFusion, MS Frontpage, which one for beginner
7 Perl Editors for WinNT?
These threads accounted for 12.2% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
27.7 ( 1.9/ 25.6/ 23.5) 3 FMTEYEWTK: Sorting
25.7 ( 3.6/ 21.4/ 19.5) 6 Statistics for comp.lang.perl.misc
22.3 ( 11.6/ 10.2/ 5.0) 15 Printing all environment variables
20.2 ( 9.4/ 10.1/ 5.7) 13 String Manipulation (yet another newbie question)
18.6 ( 6.4/ 11.5/ 5.9) 9 (blush) Stupid question about Perl in Win/DOS (shudder)
18.4 ( 8.4/ 9.1/ 6.3) 9 regex poll
18.4 ( 5.9/ 12.5/ 8.4) 7 Perl, PHP, Python, ColdFusion, MS Frontpage, which one for beginner
17.4 ( 3.8/ 13.3/ 8.8) 5 delete line?
16.8 ( 2.0/ 14.6/ 13.2) 3 LDAP programming in Perl?
16.8 ( 6.8/ 9.2/ 5.7) 9 perl compiled code cacheing
These threads accounted for 13.6% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.912 ( 19.5/ 21.4) 6 Statistics for comp.lang.perl.misc
0.775 ( 6.1/ 7.9) 5 Problem: Accessing File With Perl
0.772 ( 3.7/ 4.8) 6 Perl flock question
0.761 ( 3.3/ 4.3) 5 How to Search FAQ?
0.753 ( 2.7/ 3.6) 5 Can perl read a www page
0.685 ( 6.3/ 9.1) 9 regex poll
0.671 ( 8.4/ 12.5) 7 Perl, PHP, Python, ColdFusion, MS Frontpage, which one for beginner
0.661 ( 1.8/ 2.7) 5 WWW:Search
0.661 ( 8.8/ 13.3) 5 delete line?
0.627 ( 3.6/ 5.7) 6 tie complex data in DBM files
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.541 ( 2.1 / 3.9) 8 Speed Up Perl
0.539 ( 3.0 / 5.6) 5 Help Please: CGI-String terminator problem
0.538 ( 4.3 / 8.0) 9 Anybody get .pl scripts to run on Win32 Perl and Apache 1.3.3. &#$%*Damn MS Windoze file associations.
0.535 ( 2.7 / 5.0) 6 efficient , -> TAB substitution?
0.523 ( 3.9 / 7.4) 5 Datetime manipulation in perl
0.516 ( 5.9 / 11.5) 9 (blush) Stupid question about Perl in Win/DOS (shudder)
0.488 ( 5.0 / 10.2) 15 Printing all environment variables
0.479 ( 3.2 / 6.6) 11 can I run perl on Win 98??????
0.439 ( 3.1 / 7.2) 6 Perl evangelism
0.300 ( 1.3 / 4.4) 5 Parsing
27 threads (7%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
25 comp.lang.perl.modules
14 comp.lang.perl.moderated
11 alt.perl
11 comp.lang.perl
5 de.comp.lang.perl
3 comp.os.shell
3 comp.databases.com
3 comp.os.linux
3 alt.perl.sockets
3 comp.lang.awk
Top 10 Crossposters
===================
Articles Address
-------- -------
28 haslawww@friko7.onet.pl (Best Passwords to sex pages )
6 Bosco Tsang <bosco@ipoline.com>
4 slinberg@crocker.com (Steve Linberg)
4 droby@copyright.com
3 newapps@my-dejanews.com
3 blazer@mail.nevalink.ru
3 keydet89@yahoo.com
3 backwardsentropy@my-dejanews.com
2 Hajo Pflueger <Hajo@hadiko.de>
2 Yan Ge <yage@waksman.rutgers.edu>
------------------------------
Date: Sun, 21 Feb 1999 16:42:15 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <1dnl4of.1xe3bbhjib53vN@bay3-468.quincy.ziplink.net>
Abigail <abigail@fnx.com> wrote:
> Greg Bacon (gbacon@cs.uah.edu) wrote on MCMXCIV September MCMXCIII in
> <URL:news:7a9jb4$adm$1@info.uah.edu>:
> {} Following is a summary of articles spanning a 7 day period,
> {}
> {} 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>
> {}
> {} Top 10 Crossposters
> {} ===================
> {}
> {} Articles Address
> {} -------- -------
> {}
> {} 112 haslawww@friko7.onet.pl (Best Passwords to sex pages )
>
>
> Hmmm.
Obviously, the Top 10 Crossposters list counts each cross-post/newsgroup
as a separate article, while the Top 10 Posters by Number of Posts
counts each post exactly once.
So, although haslawww@friko7.onet.pl may have posted only 4 times, for
example, he could have sent each of those 4 posts to 28 newsgroups.
28 x 4 = 112.
More stats:
> Top 10 Targets for Crossposts
> =============================
>
> Articles Newsgroup
> -------- ---------
>
> [...]
> 4 alt.2600.crackz
> 4 comp.lang.javascript
> 4 alt.cracks
> 4 alt.binaries.pictures.erotic.cowgirls
> 4 alt.binaries.pictures.erotic.female
--
#!/usr/bin/sh -- chipmunk (aka Ronald J Kimball)
perl -e'for(sort keys%main::){print if $$_ eq 1}
' -s -- -' Just' -' another ' -'Perl ' -'hacker
' http://www.ziplink.net/~rjk/ [rjk@linguist.dartmouth.edu]
------------------------------
Date: 21 Feb 1999 23:36:58 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <7aq5aq$9og$2@info.uah.edu>
In article <1dnl4of.1xe3bbhjib53vN@bay3-468.quincy.ziplink.net>,
rjk@linguist.dartmouth.edu (Ronald J Kimball) writes:
: So, although haslawww@friko7.onet.pl may have posted only 4 times, for
: example, he could have sent each of those 4 posts to 28 newsgroups.
: 28 x 4 = 112.
Precisely. I wonder if it would be better to make the crossposts
metric a vector...
Greg
--
Scotsmen wear kilts because sheep can hear zippers...
------------------------------
Date: 23 Feb 1999 16:26:52 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <7auksc$20b$1@client2.news.psi.net>
Ronald J Kimball (rjk@linguist.dartmouth.edu) wrote on MMII September
MCMXCIII in <URL:news:1dnnhca.1jhal7t1tow4rnN@bay1-200.quincy.ziplink.net>:
==
== Because, cross-posting is annoying. And the more newsgroups
== cross-posted to, the more annoying it is. Thus, someone who cross-posts
== 3 messages to 4 newsgroups is not as obnoxious as someone who
== cross-posts 3 messages to 10 newsgroups.
But both posted 3 messages to this group. We're talking about statistics
for comp.lang.perl.misc, not about alternatives to BI's on Usenet.
Abigail
--
perl -wle 'print "Prime" if (0 x shift) !~ m 0^\0?$|^(\0\0+?)\1+$0'
------------------------------
Date: 22 Feb 1999 16:16:41 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <7arvt9$f5m$1@client2.news.psi.net>
Ronald J Kimball (rjk@linguist.dartmouth.edu) wrote on MM September
MCMXCIII in <URL:news:1dnl4of.1xe3bbhjib53vN@bay3-468.quincy.ziplink.net>:
~~
~~ Obviously, the Top 10 Crossposters list counts each cross-post/newsgroup
~~ as a separate article,
That's silly. Even if something is x-posted to all the newsgroups, it's
still one posting.
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
------------------------------
Date: Mon, 22 Feb 1999 23:46:41 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <1dnnhca.1jhal7t1tow4rnN@bay1-200.quincy.ziplink.net>
Abigail <abigail@fnx.com> wrote:
> Ronald J Kimball (rjk@linguist.dartmouth.edu) wrote on MM September
> MCMXCIII in <URL:news:1dnl4of.1xe3bbhjib53vN@bay3-468.quincy.ziplink.net>:
> ~~
> ~~ Obviously, the Top 10 Crossposters list counts each cross-post/newsgroup
> ~~ as a separate article,
>
>
> That's silly. Even if something is x-posted to all the newsgroups, it's
> still one posting.
Then why do we care if something is crossposted or not?
Because, cross-posting is annoying. And the more newsgroups
cross-posted to, the more annoying it is. Thus, someone who cross-posts
3 messages to 4 newsgroups is not as obnoxious as someone who
cross-posts 3 messages to 10 newsgroups.
It's not a perfect metric, but I think it's worthwhile.
--
chipmunk (Ronald J Kimball) <rjk@linguist.dartmouth.edu>
perl -e 'print map chop, sort split shift, reverse shift
' 'j_' 'e._jP;_jr/_je=_jk{_jn*_j &_j :_j @_jr}_ja)_js$_j
~_jh]_jt,_jo+_jJ"_jr>_ju#_jt%_jl?_ja^_jc`_jh-_je|' -rjk-
------------------------------
Date: 25 Feb 1999 00:47:10 GMT
From: danny@lennon.postino.com (Danny Aldham)
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <7b26ie$uod$1@lennon.postino.com>
X-Newsreader: TIN [version 1.2 PL2]
Ronald J Kimball (rjk@linguist.dartmouth.edu) wrote:
: Then why do we care if something is crossposted or not?
: Because, cross-posting is annoying. And the more newsgroups
: cross-posted to, the more annoying it is. Thus, someone who cross-posts
: 3 messages to 4 newsgroups is not as obnoxious as someone who
: cross-posts 3 messages to 10 newsgroups.
I disagree on this. Crossposting is a _good_ thing, when compared
to multiple posts. My news software will tell me I have seen a post
in one group, and I will never see it again in any other groups. And
this is what crossposting is supposed to allow.
--
Danny Aldham Postino Dotcom E-mail for Business
www.postino.com Virtual Servers, Mail Lists, Web Databases, SQL & Perl
------------------------------
Date: Tue, 23 Feb 1999 16:53:23 +0100
From: roger.foss@oslo.itservice.telenor.no (Roger Foss)
Subject: Statistics on what people search for..
Message-Id: <MPG.113ced5b5668de449896df@134.47.108.15>
Does anyone have a perl script that can generate statistics
on which search terms are the most popular when people use
the internet?
I've got proxy log files, and perl scripts to generate
other statistics, but would like to know what people search
for when using Altavista, Yahoo etc.
If this isn't the correct newsgroup to ask for this, please
point me to the appropriate..
Thanks.
-Roger
------------------------------
Date: 24 Feb 1999 01:09:12 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Statistics on what people search for..
Message-Id: <7avjfo$ao5$7@client2.news.psi.net>
Roger Foss (roger.foss@oslo.itservice.telenor.no) wrote on MMII September
MCMXCIII in <URL:news:MPG.113ced5b5668de449896df@134.47.108.15>:
$$ Does anyone have a perl script that can generate statistics
$$ on which search terms are the most popular when people use
$$ the internet?
$$
$$ I've got proxy log files, and perl scripts to generate
$$ other statistics, but would like to know what people search
$$ for when using Altavista, Yahoo etc.
I think the Perl program isn't the problem here, but it's access to
the data. Maybe you should contact Altavista and such. They might be
able to sell you the information.
$$ If this isn't the correct newsgroup to ask for this, please
$$ point me to the appropriate..
I'd suggest biz.*
Abigail
--
perl -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
print chr 0x$& and q
qq}*excess********}'
------------------------------
Date: Wed, 24 Feb 1999 17:05:18 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: Statistics on what people search for..
Message-Id: <7b13v4$49m$1@news.mch.sbs.de>
In article <MPG.113ced5b5668de449896df@134.47.108.15>, roger.foss@oslo.itservice.telenor.no (Roger Foss) wrote:
>Does anyone have a perl script that can generate statistics
>on which search terms are the most popular when people use
>the internet?
>
>I've got proxy log files, and perl scripts to generate
>other statistics, but would like to know what people search
>for when using Altavista, Yahoo etc.
Try the CGI Resource Index at :
http://www.cgi-resources.
com/Programs_and_Scripts/Perl/Logging_Accesses_and_Statistics/
and DaveCentral at :
http://www.davecentral.com/webstat.html
I've heard some good about Relax, but never tried it myself.
>If this isn't the correct newsgroup to ask for this, please
>point me to the appropriate..
>
>Thanks.
>
>-Roger
------------------------------
Date: Wed, 24 Feb 1999 18:49:14 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Statistics on what people search for..
Message-Id: <36d4499b.5063755@news.skynet.be>
Roger Foss wrote:
>Does anyone have a perl script that can generate statistics
>on which search terms are the most popular when people use
>the internet?
print "sex\n";
Bart.
------------------------------
Date: Wed, 24 Feb 1999 15:30:11 -0500
From: Elaine Ashton <elaine@cts.wustl.edu>
Subject: Re: Statistics on what people search for..
Message-Id: <36D46153.60F94468@cts.wustl.edu>
Bart Lateur wrote:
> print "sex\n";
s/sex/pr0n/ :)
There used to be a page on altavista (forget the url) that would list
the last 50 or so queries...quite entertaining. Maybe email them and see
if they still have that on-site somewhere.
e.
------------------------------
Date: Thu, 25 Feb 1999 16:47:42 +0100
From: roger.foss@telenor.com (Roger Foss)
Subject: Re: Statistics on what people search for..
Message-Id: <MPG.113f8f0de554d3119896e0@134.47.108.15>
In article <36D46153.60F94468@cts.wustl.edu>,
elaine@cts.wustl.edu says...
> Bart Lateur wrote:
> > print "sex\n";
>
> s/sex/pr0n/ :)
>
> There used to be a page on altavista (forget the url) that would list
> the last 50 or so queries...quite entertaining. Maybe email them and see
> if they still have that on-site somewhere.
>
> e.
>
I found www.searchwords.com, which lists the top 100 terms
that people search for. It doesn't reveal its sources,
though.
And I want to know what people -in my company- search for.
------------------------------
Date: 25 Feb 1999 17:59:58 +0200
From: Jarkko Hietaniemi <jhi@alpha.hut.fi>
Subject: Re: Statistics on what people search for..
Message-Id: <oeeyalmjwxt.fsf@alpha.hut.fi>
roger.foss@telenor.com (Roger Foss) writes:
> I found www.searchwords.com, which lists the top 100 terms
> that people search for. It doesn't reveal its sources,
> though.
>
> And I want to know what people -in my company- search for.
Why?
--
$jhi++; # http://www.iki.fi/jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
------------------------------
Date: Thu, 25 Feb 1999 19:26:13 GMT
From: droby@copyright.com
Subject: Re: Statistics on what people search for..
Message-Id: <7b4848$d4g$1@nnrp1.dejanews.com>
In article <oeeyalmjwxt.fsf@alpha.hut.fi>,
Jarkko Hietaniemi <jhi@alpha.hut.fi> wrote:
>
> roger.foss@telenor.com (Roger Foss) writes:
> > I found www.searchwords.com, which lists the top 100 terms
> > that people search for. It doesn't reveal its sources,
> > though.
> >
> > And I want to know what people -in my company- search for.
>
> Why?
>
Big Brother, presumably. I can't imagine any other reason.
I suppose you could do this by forcing them through a proxy that logs
everything and writing a VERY intelligent analysis program, but it's a real
expensive solution to a non-problem.
And has nothing to do with Perl.
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 24 Feb 1999 17:40:43 -0500
From: "Paul Kolonay" <kolonay@micro.ti.com>
Subject: STDIO Redirection problem on NT
Message-Id: <7b1v5c$48n$1@tilde.csc.ti.com>
Folks,
I have this perl script that ran fine on unix....
It calls some c code that I do not own but have wrapped up
into a perl extension.
The code in the extension simply prints values returned instead
of returning them.
Since I don't own this code I ended up redirecting stdout to a file
before the call into the module and then reading the file to which
stdout was redirected so I can do somthing with the returned (printed)
value.
As I said above this worked fine on unix but on nt I always end up
with an empty file.
I have searched for problems with redirection on win32 to no avail.
Thanks for any clues.
Here is some code (which may look familier since it was mostly
lifted from the camel book):
# Redirect STDIO and STDERR. This is done in a couple
# of steps. First we save the... fill this in...
# Finally both STDERR and STDOUT are set to non buffered
# output by setting the $| variable to a non-zero value.
open(SAVEOUT,">&STDOUT") || die "Unable to reassign STDOUT";
open(SAVEERR,">&STDERR") || die "Unable to reassign STDERR";
open(STDOUT,">$pipefile") || die "Unable to reassign STDOUT to
pipefile";
open(STDERR,">&STDOUT") || die "Unable to reassign STDERR to STDOUT";
select(STDERR); $| = 1;
select(STDOUT); $| = 1;
# Now call into the extension through the wrapper code
# in ecd_wrap.c
$err = ecd::call($callstr);
# Close redirected file handles.
close(STDOUT);
close(STDERR);
# Restore STDOUT/STDERR to filehandles saved previously
open(STDOUT,">&SAVEOUT");
open(STDERR,">&SAVERR");
# Open file to which STDOUT/STDERR was redirected for processing
open(RES,$pipefile) || die "Unable to open $pipefile\n";;
# Process output from command driver which had been redirected
# into $pipefile.
while(<RES>) {
...
}
Paul Kolonay
kolonay@micro.ti.com
------------------------------
Date: Tue, 23 Feb 1999 13:52:11 -0500
From: Keith Scollick <scollick@stsci.edu>
Subject: String parsing against two seperatros
Message-Id: <36D2F8DB.ACFE4E45@stsci.edu>
I'm trying to parse a string using double quotes and space
as my seperators. The tricky part is that a space can
occur in between double quotes (and there can be more than
one set of double quotes in the string).
Examples:
1)
string -> word1 "word2 word3" word4
I want -> 1->word1 2->word2 word3 3->word4
2)
string -> "word1" word2 "word3 word4"
I want -> 1->word1 2->word2 3->word3 word4
Is there an easy/elegant solution to this, or am I stuck checking
the string character by character?
--Keith Scollick
scollick@skys.gsfc.nasa.gov
------------------------------
Date: Tue, 23 Feb 1999 14:28:50 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: Keith Scollick <scollick@stsci.edu>
Subject: Re: String parsing against two seperatros
Message-Id: <36D30172.93D945B4@giss.nasa.gov>
Keith Scollick wrote:
>
> I'm trying to parse a string using double quotes and space
> as my seperators. The tricky part is that a space can
> occur in between double quotes (and there can be more than
> one set of double quotes in the string).
>
> Examples:
> 1)
> string -> word1 "word2 word3" word4
> I want -> 1->word1 2->word2 word3 3->word4
>
> 2)
> string -> "word1" word2 "word3 word4"
> I want -> 1->word1 2->word2 3->word3 word4
>
> Is there an easy/elegant solution to this, or am I stuck checking
> the string character by character?
my @foo = grep { @{ $_ } > 0 } map { s/^ +//; s/ +$//; [ split / +/ ] } split /"/, $string;
--
"'C' is for 'Cookie'. That's good enough for me."
--Cookie Monster
------------------------------
Date: Tue, 23 Feb 1999 15:02:01 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: jglascoe@giss.nasa.gov, scollick@stsci.edu
Subject: Re: String parsing against two seperatros
Message-Id: <36D30939.A377283A@giss.nasa.gov>
Jay Glascoe wrote:
>
> my @foo = grep { @{ $_ } > 0 } map { s/^ +//; s/ +$//; [ split / +/ ] } split /"/, $string;
>
ick. That works on the given input strings, but not in general.
Mega apologies; inefficient code is forgivable, incorrect code is not.
my $string = '"one two three" a b "four five" "six"';
my @new = ();
while ($string =~ /\G\s*("([^"]*)"|([^"]+))\s*/g)
{
if ($2)
{
push @new, [ split /\s+/, $2 ];
}
else
{
push @new, split /\s+/, $3;
}
}
------------------------------
Date: Tue, 23 Feb 1999 22:13:23 +0100
From: Ulrich.Ottersbach@t-online.de (Ulrich Ottersbach)
Subject: Re: String parsing against two seperatros
Message-Id: <7av5i3$lq9$1@news03.btx.dtag.de>
Keith Scollick schrieb in Nachricht <36D2F8DB.ACFE4E45@stsci.edu>...
>I'm trying to parse a string using double quotes and space
>as my seperators. The tricky part is that a space can
>occur in between double quotes (and there can be more than
>one set of double quotes in the string).
>
>Examples:
>1)
>string -> word1 "word2 word3" word4
>I want -> 1->word1 2->word2 word3 3->word4
>
>2)
>string -> "word1" word2 "word3 word4"
>I want -> 1->word1 2->word2 3->word3 word4
>
>Is there an easy/elegant solution to this, or am I stuck checking
>the string character by character?
>
>--Keith Scollick
>scollick@skys.gsfc.nasa.gov
see perlfaq4: "How can I split a [character] delimited string except when
inside
[character]? (Comma-separated files) "
$string = 'word1 "word2 word3" word4';
use Text::ParseWords;
@new = quotewords(" ", 0, $string);
------------------------------
Date: Tue, 23 Feb 1999 22:16:24 +0100
From: Ulrich.Ottersbach@t-online.de (Ulrich Ottersbach)
Subject: Re: String parsing against two seperatros
Message-Id: <7av5i4$lq9$2@news03.btx.dtag.de>
Keith Scollick schrieb in Nachricht <36D2F8DB.ACFE4E45@stsci.edu>...
>I'm trying to parse a string using double quotes and space
>as my seperators. The tricky part is that a space can
>occur in between double quotes (and there can be more than
>one set of double quotes in the string).
>
>Examples:
>1)
>string -> word1 "word2 word3" word4
>I want -> 1->word1 2->word2 word3 3->word4
>
>2)
>string -> "word1" word2 "word3 word4"
>I want -> 1->word1 2->word2 3->word3 word4
>
>Is there an easy/elegant solution to this, or am I stuck checking
>the string character by character?
>
>--Keith Scollick
>scollick@skys.gsfc.nasa.gov
see perlfaq4: "How can I split a [character] delimited string except when
inside
[character]? (Comma-separated files) "
$string = 'word1 "word2 word3" word4';
use Text::ParseWords;
@new = quotewords(" ", 0, $string);
------------------------------
Date: 23 Feb 1999 15:14:09 GMT
From: turnerj@cliffy.lmtas.lmco.com (Jim Turner)
Subject: Re: tcl.so linking error?
Message-Id: <7augk1$20u1@news1.lmtas.lmco.com>
Jamie Kucab (jkucab@acm.org) wrote:
: Hi
:
: I'm trying to run something with 'use tk' in it. I get the following
: error at that line:
: [jkucab]$ xword.pl
: Can't load '/usr/lib/perl5/site_perl/i386-linux/auto/Tcl/Tcl.so' for
: module Tcl: /usr/lib/libtcl.so: undefined symbol: stat at
: /usr/lib/perl5/i386-linux/5.00404/DynaLoader.pm line 168.
:
: at /usr/lib/perl5/site_perl/Tcl/Tk.pm line 3
: BEGIN failed--compilation aborted at /usr/lib/perl5/site_perl/Tcl/Tk.pm
: line 3.
: BEGIN failed--compilation aborted at ./xword.pl line 3.
:
: Help?
:
: Thanks,
: Jamie
:
:
: Other info:
:
: I had to compile with -I/usr/lib/perl5/site_perl/Tcl to get perl to find
: Tk.pm.
:
: [jkucab]$ ls -l /usr/lib/perl5/site_perl/i386-linux/auto/Tcl/Tcl.so
: -r-xr-xr-x 1 root root 24974 Oct 27 20:44
: /usr/lib/perl5/site_perl/i386-linux/auto/Tcl/Tcl.so
:
: I'm running RH 5.2
:
: The first few lines of code:
: #!/usr/bin/perl -w -I/usr/lib/perl5/site_perl/Tcl
:
: use Tk;
: require LWP::UserAgent;
: use HTML::Parse;
:
: %html_action =
: (
: "</TITLE>", \&end_title,
: "<H1>", \&start_heading,
: ...
:
: [jkucab]$ perl -V
: Summary of my perl5 (5.0 patchlevel 4 subversion 4) configuration:
: Platform:
: osname=linux, osvers=2.0.34, archname=i386-linux
: uname='linux porky.redhat.com 2.0.34 #1 thu may 7 10:17:44 edt 1998
: i686 unknown '
: hint=recommended, useposix=true, d_sigaction=define
: bincompat3=y useperlio=undef d_sfio=undef
: Compiler:
: cc='cc', optimize='-O2', gccversion=2.7.2.3
: cppflags='-Dbool=char -DHAS_BOOL -I/usr/local/include'
: ccflags ='-Dbool=char -DHAS_BOOL -I/usr/local/include'
: stdchar='char', d_stdstdio=define, usevfork=false
: intsize=4, longsize=4, ptrsize=undef, doublesize=undef
: alignbytes=4, usemymalloc=n, prototype=define
: Linker and Libraries:
: ld='cc', ldflags =' -L/usr/local/lib'
: libpth=/usr/local/lib /lib /usr/lib
: libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt
: libc=, so=so
: useshrplib=false, libperl=libperl.a
: Dynamic Linking:
: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
: cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
:
:
: Characteristics of this binary (from libperl):
: Locally applied patches:
: MAINT_TRIAL_4 - 5.004_05 maintenance trial 4
: Built under linux
: Compiled at Sep 10 1998 02:16:22
: @INC:
: /usr/lib/perl5/i386-linux/5.00404
: /usr/lib/perl5
: /usr/lib/perl5/site_perl/i386-linux
: /usr/lib/perl5/site_perl
: .
First, change spelling from "use tk;" to "use Tk;", case is
very sensitive! Second, have you downloaded and installed the Perl/Tk
package? It is available on CPAN, ie.
ftp://ftp.metronet.com/pub/perl/modules/by-module/Tk
I think. If not, try ftp://ftp.metronet.com and go down from there!
Jim Turner
------------------------------
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 5001
**************************************
