[8103] in Perl-Users-Digest
Perl-Users Digest, Issue: 1722 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jan 24 23:07:36 1998
Date: Sat, 24 Jan 98 20:00:19 -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, 24 Jan 1998 Volume: 8 Number: 1722
Today's topics:
Re: /x regex mystery (Brandon S. Allbery KF8NH; to reply, change "void" to "kf8nh")
Re: /x regex mystery (Abigail)
Calling CGI script from other CGI script <danielle@broken-heart.com>
Re: Calling CGI script from other CGI script (Tad McClellan)
Re: File::Find feature? How to preserve stat buffer? <merlyn@stonehenge.com>
Re: File::Find feature? How to preserve stat buffer? <tchrist@mox.perl.com>
Help! Simple script doesn't work! <smoothie@spiritone.com>
Re: Help! Simple script doesn't work! chad
Re: Help! Simple script doesn't work! (Tad McClellan)
Problem with hash of hashes (?) (Lars Kellogg-Stedman)
Re: Problem with hash of hashes (?) (Tad McClellan)
Re: Problem with hash of hashes (?) <rhodri@wildebst.demon.co.uk>
simple perl question, regx, please help. chad
Re: simple perl question, regx, please help. <rhodri@wildebst.demon.co.uk>
Re: small question about substitution. (Tad McClellan)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Survival Of perl <merlyn@stonehenge.com>
Re: Survival Of perl (Abigail)
White Hats and Black <tchrist@mox.perl.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 24 Jan 98 19:07:59 -0500
From: bsa@void.apk.net (Brandon S. Allbery KF8NH; to reply, change "void" to "kf8nh")
Subject: Re: /x regex mystery
Message-Id: <34ca82d1$6$ofn$mr2ice@speaker>
In <6aatbg$q0$1@aurwww.aur.alcatel.com>, on 01/23/98 at 08:08 PM,
klassa@aursgh.aur.alcatel.com (John M. Klassa) said:
+-----
| #!/usr/local/bin/perl -w
|
| $string = 'Tom Christiansen < tchrist@mox.perl.com >';
|
| print (($string =~ /Tom Christiansen.*perl.*com/)
| ? "yes\n" : "no\n");
|
| print (($string =~ /Tom Christiansen .* perl .* com/x)
| ? "yes\n" : "no\n");
|
| Shouldn't the /x just make the spaces around ".*" go away, effectively? Perl
| is "5.004_03" running on Solaris 5.5.1, FWIW.
+--->8
It does. It also makes the space between "Tom" and "Christiansen" go away,
causing it not to match. (/x is not psychic.)
--
use 5.004;sub AUTOLOAD{print$_{$_.++$x{$_}}}sub new{my%x;%_=map{++$a%2?$_.++$x{
$_}:$_}split(//,pack('N*',unpack('w*',unpack('u*','M@H*HP\'2"@\C`88+SE/!EA(F!'.
"A'6\$LZV0+(3;C9QRA9NAPG2&D\\G(88:KL=A0\n4AN.5W\"\"&\\[W>;H>3S>0\@A\\N\@PB\$`")
)));bless{}}$b=(new main);map{$b->_}split(//,' Brandon S. Allbery KF8NH') # :-)
------------------------------
Date: 25 Jan 1998 03:14:47 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: /x regex mystery
Message-Id: <6aean7$p49$2@client2.news.psi.net>
change "void" to "kf8nh" (bsa@void.apk.net) wrote on 1607 September 1993
in <URL: news:34ca82d1$6$ofn$mr2ice@speaker>:
++
++
++ (/x is not psychic.)
Well, it's time that it gets fixed then. Djee, isn't Perl supposed
to do want you expect it to do?
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
------------------------------
Date: Sat, 24 Jan 1998 19:32:13 -0800
From: Default <danielle@broken-heart.com>
Subject: Calling CGI script from other CGI script
Message-Id: <34CAB23C.14713E65@broken-heart.com>
I have a bullein board running.... When you read a message, it is
formatted from a *.msg [data] file into an HTML file, which is created
by a CGI script.
I would like to call a CGI Random ad generator script from
the HTML output of the Web Board (or any other posting
billboard CGI script for that matter).
When make the following HTML print command:
print "<HTML><TITLE>title of page</TITLE><BODY> ";
print " <!--#exec /cgi-bin/randon_ad_gen_script.cgi--> ";
The text is there in the Source Code, like is is on regular
.SHTML pages, but it does not actually call the CGI script (i.e.
no ad is shown online).
Do you know what the code is to call another CGI script thru
the printing of HTML code within a CGI script?
Any input on this would be greatly appreciated. Please reply
to webmaster@_nospam_whitney-fan.com
but remove the _no spam_ part first.
------------------------------
Date: Sat, 24 Jan 1998 18:40:51 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Calling CGI script from other CGI script
Message-Id: <jm1ea6.403.ln@localhost>
Default (danielle@broken-heart.com) wrote:
: Please reply
: to webmaster@_nospam_whitney-fan.com
: but remove the _no spam_ part first.
That joke is too old to be funny anymore...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 24 Jan 1998 18:49:56 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: Alexis Huxley <alexis@danae.demon.co.uk>
Subject: Re: File::Find feature? How to preserve stat buffer?
Message-Id: <8ck9bp7263.fsf@gadget.cscaper.com>
>>>>> "Alexis" == Alexis Huxley <alexis@danae.demon.co.uk> writes:
Alexis> 1 &$wanted;
Alexis> 2 if ($subcount > 0 || $dont_use_nlink) { # Seen all the subdirs?
Alexis> 3 ($dev,$ino,$mode,$nlink) = ($Is_VMS ? stat($_) : lstat($_));
Alexis> 4 if (-d _) {
Alexis> 5 # run finddir() on that subdirectory
Alexis> it can happen that
Alexis> the file tested by the '(-d _)' on line 4 may not be that operated
Alexis> upon in line 3!
Uh, who's code are you reading? Line 3 will do an lstat on non-VMS.
That's gonna set _. So line 4 is *always* gonna test the same thing
that got noticed in line 3. *Always* (well, except for a signal
handler being run, but that's another story).
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 219 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
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: 25 Jan 1998 02:25:55 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: File::Find feature? How to preserve stat buffer?
Message-Id: <6ae7rj$16j$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, Randal Schwartz <merlyn@stonehenge.com> writes:
:Uh, who's code are you reading?
Uh, whose English are you writing? :-)
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
God made machine language; all the rest is the work of man.
------------------------------
Date: 24 Jan 1998 23:16:21 GMT
From: Dave Neuer <smoothie@spiritone.com>
Subject: Help! Simple script doesn't work!
Message-Id: <34CA7976.DC3D6562@spiritone.com>
Hi,
I have successfully written several Perl scripts, including CGI scripts
which modify files. I have been working on a very simple script to be
run from the command line, which takes a single filename as an
argument. The purpose of the script is to scan a file, look for
instances where a single character is repeated 4 times and replace it
with one character (i.e. 'AAAA' becomes 'A'). Couldn't be simpler,
right?
Problem is, it's not working. Syntax checks out ok, and there are no
error messages being generated, but the files I give the script as input
are NOT being altered.
Here is the code:
#! /usr/bin/perl
$fh = shift;
open (FILE, "+<$fh")
or die "Can't open file for reading/writing: $!\n";
while (<FILE>){
$file .= $_;
}
$file =~ s/(\w)\1{3}/$1/g;
print FILE "$file";
close (FILE);
exit;
Can anyone tell me what I am doing wrong?
Thanks,
Dave N.
------------------------------
Date: 24 Jan 1998 15:19:21 -0800
From: chad
Subject: Re: Help! Simple script doesn't work!
Message-Id: <6adstp$86o@drn.zippo.com>
In article <34CA7976.DC3D6562@spiritone.com>, Dave says...
>
>Hi,
>
>I have successfully written several Perl scripts, including CGI scripts
>which modify files. I have been working on a very simple script to be
>run from the command line, which takes a single filename as an
>argument. The purpose of the script is to scan a file, look for
>instances where a single character is repeated 4 times and replace it
>with one character (i.e. 'AAAA' becomes 'A'). Couldn't be simpler,
>right?
>
>Problem is, it's not working. Syntax checks out ok, and there are no
>error messages being generated, but the files I give the script as input
>are NOT being altered.
>
>Here is the code:
>
>#! /usr/bin/perl
---^ is that a space? if so, that might be the problem.
-chad
>$fh = shift;
>
>open (FILE, "+<$fh")
> or die "Can't open file for reading/writing: $!\n";
>
>while (<FILE>){
> $file .= $_;
>}
>
>$file =~ s/(\w)\1{3}/$1/g;
>
>print FILE "$file";
>
>close (FILE);
>
>exit;
>
>Can anyone tell me what I am doing wrong?
>
>Thanks,
>Dave N.
>
------------------------------
Date: Sat, 24 Jan 1998 18:55:21 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Help! Simple script doesn't work!
Message-Id: <ph2ea6.323.ln@localhost>
Dave Neuer (smoothie@spiritone.com) wrote:
: I have successfully written several Perl scripts, including CGI scripts
: which modify files.
Me too.
: I have been working on a very simple script to be
: run from the command line, which takes a single filename as an
: argument. The purpose of the script is to scan a file, look for
: instances where a single character is repeated 4 times and replace it
: with one character (i.e. 'AAAA' becomes 'A'). Couldn't be simpler,
: right?
: Problem is, it's not working. Syntax checks out ok, and there are no
: error messages being generated, but the files I give the script as input
: are NOT being altered.
They _are_ altered when I run the exact code you gave.
All of the original data is there, followed by all the original
data with the substitution made. (ie. it doubles the number of
lines in the file)
Just like you told it to do.
You probably want to tell it to do something else...
: Here is the code:
: #! /usr/bin/perl
You should *always* use the -w switch.
ALWAYS.
Really.
[snip]
: Can anyone tell me what I am doing wrong?
Yes.
You are not reading about your Frequently Asked Question in the
Perl FAQ, part 5:
"How do I change one line in a file/
delete a line in a file/
insert a line in the middle of a file/
append to the beginning of a file?"
You might also want to look into seek() and truncate() (perlfunc)
and the -i command line switch (perlrun).
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 24 Jan 1998 19:32:37 -0500
From: lars@bu.edu (Lars Kellogg-Stedman)
Subject: Problem with hash of hashes (?)
Message-Id: <lars-2401981932450001@10.0.2.15>
Hi there,
I've run into a quandry regarding the use of hashes in perl. I've got a
variable defined something like this:
$somehash{"things"}={"car"=>"red","light"=>"green"};
So, what *is* $somehash{"things"}?
If I try using a hash function on it, like 'keys':
foreach $th (keys $somehash{"things"}) {
print "$th\n";
}
Perl tells me it's not a hash:
Type of arg 1 to keys must be hash (not hash elem)
at foo line 3, near "}) "
Okay, fine. But if try something like this:
print $somehash{"things"}{"car"};
I get what I'd expect:
red
Which is why I thought it was a hash in the first place. I've checked
through the perlfaq4 man page, which wasn't all that helpful, and I've
tried to find some examples around the 'net to no avail.
Your help would be much appreciated.
-- Lars
--
Lars Kellogg-Stedman * lars@bu.edu * (617)353-8277
Office of Information Technology, Boston University
PGP 768/4E444575 5F 6C 2C 3E 31 D4 E7 15 E4 33 10 98 6A 14 8B F6
------------------------------
Date: Sat, 24 Jan 1998 19:08:10 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Problem with hash of hashes (?)
Message-Id: <q93ea6.s43.ln@localhost>
Lars Kellogg-Stedman (lars@bu.edu) wrote:
: I've run into a quandry regarding the use of hashes in perl. I've got a
: variable defined something like this:
: $somehash{"things"}={"car"=>"red","light"=>"green"};
: So, what *is* $somehash{"things"}?
A scalar element of a hash named %somehash.
The value of that scalar is a reference to an anonymous hash.
: If I try using a hash function on it, like 'keys':
: foreach $th (keys $somehash{"things"}) {
^^^^^^^^^^^^^^^^^^^
Perl sees a hash reference here.
It does not want a hash reference, it wants a hash, so it complains.
: print "$th\n";
: }
foreach $th (keys %{$somehash{"things"}}) { # dereference it
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 25 Jan 1998 01:09:54 +0000 (GMT)
From: Rhodri James <rhodri@wildebst.demon.co.uk>
Subject: Re: Problem with hash of hashes (?)
Message-Id: <480dba0276rhodri@wildebst.demon.co.uk>
In article <lars-2401981932450001@10.0.2.15>,
Lars Kellogg-Stedman <lars@bu.edu> wrote:
> $somehash{"things"}={"car"=>"red","light"=>"green"};
> So, what *is* $somehash{"things"}?
> If I try using a hash function on it, like 'keys':
> foreach $th (keys $somehash{"things"}) {
> print "$th\n";
> }
> Perl tells me it's not a hash:
It isn't. It's a reference to an anonymous hash. What you actually want
is:
foreach $th (keys %{$somehash{'things'}})
{
&do_something_muttley($th);
}
--
Rhodri James *-* Wildebeeste herder to the masses
If you don't know who I work for, you can't misattribute my words to them
... Worse things happen in C
------------------------------
Date: 24 Jan 1998 15:12:54 -0800
From: chad
Subject: simple perl question, regx, please help.
Message-Id: <6adshm$6rv@drn.zippo.com>
what is the code for this:
$string should contain only a-z A-Z 0-9 if it contains anything else fail.
I though it was:
if($string !~ /[a-zA-Z0-9]/) { fail; } but i guess that's wrong.
thanks, chad
------------------------------
Date: Sun, 25 Jan 1998 01:15:57 +0000 (GMT)
From: Rhodri James <rhodri@wildebst.demon.co.uk>
Subject: Re: simple perl question, regx, please help.
Message-Id: <480dba9030rhodri@wildebst.demon.co.uk>
In article <6adshm$6rv@drn.zippo.com>,
chad wrote:
> what is the code for this:
> $string should contain only a-z A-Z 0-9 if it contains anything else
> fail.
if ($string =~ /[^a-zA-Z0-9]/) { fail; }
> I though it was:
> if($string !~ /[a-zA-Z0-9]/) { fail; } but i guess that's wrong.
This means "search for an alphanumeric character in $string, and if you
find one return 'false'". Instead, you want to search for 'not an
alphanumeric'.
--
Rhodri James *-* Wildebeeste herder to the masses
If you don't know who I work for, you can't misattribute my words to them
... Lucy and Ethel?
------------------------------
Date: Sat, 24 Jan 1998 16:13:03 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: small question about substitution.
Message-Id: <f1pda6.uu1.ln@localhost>
Seong Y. Kim (seong@cse.bridgeport.edu) wrote:
: $tmp = "/opt/guide/acumedia/HTML/cgibin";
: $tmp = ~ s/^\/opt\/guide\/acumedia/http:\/\/www\.seong\.com/;
brian already pointed out why that doesn't work, but you seem
to be afflicted with 'LTS' (do a word search in 'perlop').
$tmp =~ s#^/opt/guide/acumedia#http://www.seong.com#;
$tmp =~ s{^/opt/guide/acumedia}{http://www.seong.com};
Doesn't those seem a lot easier to understand?
Even with slash delimiters, you didn't need two of those backslashes
(dots are not 'special' in the replacement part)
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 24 Jan 1998 23:12:00 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <6adsg0$1q0$3@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 17 Jan 1998 23:08:47 GMT and ending at
24 Jan 1998 22:27:57 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" e-mail address and name.
- Original Content Rating is the ratio of the original content volume
to the total body volume.
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
Excluded Posters
================
perlfaq-suggestions\@mox\.perl\.com
Totals
======
Posters: 550
Articles: 1513 (608 with cutlined signatures)
Threads: 478
Volume generated: 2582.4 kb
- headers: 1046.5 kb (21,418 lines)
- bodies: 1422.5 kb (44,090 lines)
- original: 944.2 kb (32,038 lines)
- signatures: 111.9 kb (2,324 lines)
Original Content Rating: 0.664
Averages
========
Posts per poster: 2.8
median: 1.0 post
mode: 1 post - 348 posters
s: 7.2 posts
Posts per thread: 3.2
median: 2.0 posts
mode: 1 post - 146 threads
s: 3.9 posts
Message size: 1747.7 bytes
- header: 708.3 bytes (14.2 lines)
- body: 962.7 bytes (29.1 lines)
- original: 639.0 bytes (21.2 lines)
- signature: 75.7 bytes (1.5 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
112 173.5 ( 90.9/ 64.0/ 37.3) comdog@computerdog.com (brian d foy)
81 137.5 ( 68.9/ 50.7/ 32.0) Tom Phoenix <rootbeer@teleport.com>
57 90.9 ( 39.1/ 39.8/ 25.7) mgjv@comdyn.com.au (Martien Verbruggen)
35 52.8 ( 27.6/ 25.1/ 13.0) rjk@coos.dartmouth.edu
34 54.2 ( 20.2/ 34.0/ 22.4) tadmc@flash.net (Tad McClellan)
33 40.7 ( 24.5/ 15.9/ 8.5) joseph@5sigma.com
31 49.8 ( 17.2/ 29.2/ 15.7) clay@panix.com (Clay Irving)
25 124.5 ( 17.1/107.3/ 59.7) stanley@skyking.OCE.ORST.EDU (John Stanley)
25 36.5 ( 17.4/ 19.1/ 10.5) jdporter@min.net
21 63.3 ( 11.7/ 48.4/ 29.6) gbacon@cs.uah.edu (Greg Bacon)
These posters accounted for 30.0% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
173.5 ( 90.9/ 64.0/ 37.3) 112 comdog@computerdog.com (brian d foy)
137.5 ( 68.9/ 50.7/ 32.0) 81 Tom Phoenix <rootbeer@teleport.com>
124.5 ( 17.1/107.3/ 59.7) 25 stanley@skyking.OCE.ORST.EDU (John Stanley)
90.9 ( 39.1/ 39.8/ 25.7) 57 mgjv@comdyn.com.au (Martien Verbruggen)
63.3 ( 11.7/ 48.4/ 29.6) 21 gbacon@cs.uah.edu (Greg Bacon)
54.8 ( 5.9/ 48.8/ 24.1) 7 Jason Christian <jason@primal.ucdavis.edu>
54.2 ( 20.2/ 34.0/ 22.4) 34 tadmc@flash.net (Tad McClellan)
52.8 ( 27.6/ 25.1/ 13.0) 35 rjk@coos.dartmouth.edu
49.8 ( 17.2/ 29.2/ 15.7) 31 clay@panix.com (Clay Irving)
40.7 ( 24.5/ 15.9/ 8.5) 33 joseph@5sigma.com
These posters accounted for 32.6% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.3 / 1.3) 5 adam <none@nowhere.net>
1.000 ( 5.2 / 5.2) 8 gabor@vinyl.quickweb.com (Gabor)
0.990 ( 3.2 / 3.3) 5 bsa@void.apk.net (Brandon S. Allbery KF8NH; to reply, change "void" to "kf8nh")
0.978 ( 3.2 / 3.3) 5 seong@cse.bridgeport.edu
0.955 ( 1.7 / 1.8) 5 andrew.spiers@virgin.net
0.880 ( 8.2 / 9.3) 8 john -r s <johnrs@dc.net>
0.839 ( 9.9 / 11.8) 10 Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
0.815 ( 5.2 / 6.4) 6 mike@stok.co.uk (Mike Stok)
0.794 ( 7.1 / 8.9) 9 mjd@op.net (Mark-Jason Dominus)
0.791 ( 13.2 / 16.7) 15 aml@world.std.com (Andrew M. Langmead)
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.465 ( 1.9 / 4.2) 7 Cameron Dorey <camerond@mail.uca.edu>
0.456 ( 1.2 / 2.7) 6 Bob Trieger <corky@ultranet.com>
0.447 ( 1.4 / 3.1) 6 bowlin@sirius.com
0.445 ( 5.1 / 11.5) 12 Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
0.440 ( 1.6 / 3.7) 10 Remove xx to reply <xxTony.Curtis@vcpc.univie.ac.at>
0.409 ( 5.9 / 14.5) 10 Dan Boorstein <danboo@negia.net>
0.386 ( 4.1 / 10.6) 14 mbudash@sonic.net (Michael Budash)
0.383 ( 12.6 / 32.9) 8 Piers Cawley <pdcawley@bofh.org.uk>
0.374 ( 5.5 / 14.7) 15 abigail@fnx.com
0.332 ( 1.8 / 5.5) 5 ced@bcstec.ca.boeing.com (Charles DeRykus)
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
65 source into binary code
25 FAQ too big (Was: Re: PERL forking)
18 living and free software (was: Re: source into binary code)
16 Puzzling behavior of c.l.p.* readers
16 I need a man to lick me in to a frenzy!!!
15 space searching?
14 I need some help pleeze
14 Freidl's book mystery
13 @ == @, comparing arrays
13 Detecting the presence of a sub declaration
These threads accounted for 13.8% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
205.0 ( 53.1/148.1/ 79.1) 65 source into binary code
126.1 ( 12.9/111.7/ 52.0) 18 living and free software (was: Re: source into binary code)
44.4 ( 21.0/ 20.0/ 13.9) 25 FAQ too big (Was: Re: PERL forking)
27.0 ( 11.3/ 14.0/ 7.7) 16 Puzzling behavior of c.l.p.* readers
23.5 ( 8.6/ 14.5/ 6.7) 11 Parsing HTML tag parameters
22.1 ( 13.1/ 7.9/ 4.9) 16 I need a man to lick me in to a frenzy!!!
21.9 ( 9.8/ 11.7/ 7.5) 14 Freidl's book mystery
20.8 ( 10.0/ 9.9/ 5.7) 15 space searching?
20.2 ( 5.9/ 14.0/ 8.8) 7 GetOpts::Std and 'Use of Uninitialized variable' errors?
20.0 ( 9.5/ 9.6/ 6.3) 14 I need some help pleeze
These threads accounted for 20.6% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.942 ( 11.0/ 11.7) 5 Why does'nt this sub work
0.889 ( 2.6/ 2.9) 5 perl auto update:
0.888 ( 8.6/ 9.7) 5 Outlook 97 and perl scripts
0.846 ( 1.0/ 1.2) 5 Were can I get PERL
0.829 ( 1.6/ 2.0) 5 Why shift ?
0.813 ( 1.4/ 1.7) 7 How do I get the hostname?
0.806 ( 4.2/ 5.2) 5 get machine name from IP?
0.799 ( 6.8/ 8.5) 6 Byte Ordering using Perl
0.798 ( 5.0/ 6.2) 10 Switch statement in Perl-5???
0.784 ( 8.1/ 10.3) 8 PERL+ODBC vs Delphi for webwork
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.512 ( 2.1 / 4.2) 9 Logical 'and' in regex?
0.478 ( 1.3 / 2.7) 5 Multi. Data Base Entries Simotaniously
0.467 ( 2.5 / 5.4) 6 MacPerl carriage returns
0.466 ( 6.7 / 14.5) 11 Parsing HTML tag parameters
0.466 ( 52.0 /111.7) 18 living and free software (was: Re: source into binary code)
0.465 ( 3.6 / 7.7) 7 Random Access File Methods?
0.441 ( 1.1 / 2.5) 6 grabbing email adresses from webpages
0.431 ( 1.6 / 3.8) 7 automatically running a perl script
0.359 ( 2.8 / 7.7) 5 PERL forking
0.335 ( 2.6 / 7.7) 6 Oraperl and long type
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
28 comp.lang.perl.modules
25 alt.fan.e-t-b
13 comp.infosystems.www.servers.ms-windows
8 borland.public.delphi.internet
8 alt.lang.delphi
7 alt.perl
6 comp.os.ms-windows.nt.misc
5 comp.lang.perl
4 comp.sys.mac.programmer.tools
4 comp.sys.mac.scitech
Top 10 Crossposters
===================
Articles Address
-------- -------
27 jackson@usenix.org (Jackson Dodd)
15 Eli the Bearded <*@qz.to>
14 "Robert Besaw" <rbesaw@infinet.com>
7 Tim Bunce <Tim.Bunce@ig.co.uk>
6 comdog@computerdog.com (brian d foy)
6 tony@svanstrom.com (Tony L. Svanstrom)
5 Tom Phoenix <rootbeer@teleport.com>
4 scott@softbase.com
4 jefferyc@unixg.ubc.ca (Jeffery Chow)
3 Jacqui Caren <Jacqui.Caren@ig.co.uk>
------------------------------
Date: 24 Jan 1998 18:45:35 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Survival Of perl
Message-Id: <8cpvlh72dc.fsf@gadget.cscaper.com>
>>>>> "Eric" == Eric Bohlman <ebohlman@netcom.com> writes:
Eric> The majority of uses of Perl are in areas unrelated to CGI
Eric> scripting. Perl existed for several years before there even
Eric> *was* such a thing as CGI scripting. Improvements in Web
Eric> servers will probably result in less need to write custom CGI
Eric> scripts, but won't have any effect on all the other things
Eric> people use Perl for.
As I like to say in my classes, "Perl has been around for 10/4's as long
as the web."
(Basing that on Perl just passing the ten year mark, and Mosaic
first being released around four years ago.)
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 219 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
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: 25 Jan 1998 03:07:16 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Survival Of perl
Message-Id: <6aea94$p49$1@client2.news.psi.net>
Randal Schwartz (merlyn@stonehenge.com) wrote on 1608 September 1993 in
<URL: news:8cpvlh72dc.fsf@gadget.cscaper.com>:
++ >>>>> "Eric" == Eric Bohlman <ebohlman@netcom.com> writes:
++
++ Eric> The majority of uses of Perl are in areas unrelated to CGI
++ Eric> scripting. Perl existed for several years before there even
++ Eric> *was* such a thing as CGI scripting. Improvements in Web
++ Eric> servers will probably result in less need to write custom CGI
++ Eric> scripts, but won't have any effect on all the other things
++ Eric> people use Perl for.
++
++ As I like to say in my classes, "Perl has been around for 10/4's as long
++ as the web."
++
++ (Basing that on Perl just passing the ten year mark, and Mosaic
++ first being released around four years ago.)
I don't know what's more silly, that Perl is mainly used for CGI
or that Mosaic had anything to do with the beginning of the WWW.
Probably the latter.
Perl was announced in the last weeks of 1987, a mere 2 years
before the WWW was born.
With a background of system design in real-time communications and text
processing software development, in 1989 he [Tim Berners-Lee] invented
the World Wide Web, an internet-based hypermedia initiative for global
information sharing. while working at CERN, the European Particle
Physics Laboratory.
[http://www.w3.org/People/Berners-Lee/]
Next time, please say "Perl has been around just 2 years longer than the web".
Abigail
--
perl -wle\$_=\<\<EOT\;y/\\n/\ /\;print\; -eJust -eanother -ePerl -eHacker -eEOT
------------------------------
Date: 25 Jan 1998 01:48:20 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: White Hats and Black
Message-Id: <6ae5l4$smk$1@csnews.cs.colorado.edu>
__White Hats and Black__
Thursday, 22 January 1998
Tom Christiansen
tchrist@perl.com
There is no question that today was a day packed full with far more than
merely its allotted share of news. We're heard the Unibomber confess his
hideous crimes. We've watched the Pope say Mass to his faithful in one
of last remaining communist dictatorships. We've largely ignored for
a day or two the building pressure with Iraq. We've nearly overlooked
important visiting dignitaries from the ever-flammable Middle East.
We casually launched an American spacecraft in a spectacular nighttime
blast-off to meet up with our newfound non-enemies, the Russians. We've
watched Bill Gates finally blink in a game of chicken with the Attorney
General as Microsoft gave in to the government's demands in an historic
anti-trust suit, deftly and nearly belatedly dodge the falling sword of
an angry judge. And we've watched in sickened horror as the tabloidish
media frenzy threatens to unravel the American presidency.
Although some of today's stories may well eventually find their way
into future history books, not one of today's stories is so personally
relevant to those of us caught up in the Internet Revolution as the
wholly unexpected press release from Netscape Communications that not
only will they be providing their famous browser gratis as had been
anticipated for several weeks now, but that far beyond this, they are
taking the unprecedented step of releasing the full source code for
that program. This is tremendously exciting news for those of us in
the freeware community, one that lends credence to our entire ethic.
For a while, it wasn't clear what color hat Netscape was wearing. Few in
the freeware community thought that hat any lighter than a dirty grey,
only a shade better than the black hat perceived to rest upon Microsoft's
corporate head.
That's all changed now.
Netscape is shrewd, more clever by half than they let on. Why did they
do this? Who benefits and who suffers? Think back to Eric Raymond's
thesis regarding two models of software development, the Cathedral and
the Bazaar. Eric notes that under the bazaar model, all bugs are shallow,
quickly evaporating under the scrutiny of infinite eyes. Furthermore, the
wonderfully diverse environment of that bazaar fosters rich creativity.
Suffering under the ever-tightening vise of Microsoft's monopoly of
the mediocre, Netscape has hit upon a solution none of us foresaw.
Netscape's quandary was simple: how to compete against an opponent
so flush with wealth and power that it dwarfs many sovereign nations?
The answer was brilliant in its simplicity, breathtaking in its audacity.
By releasing the source code of their browser, they return the browser
from its exile back to its roots, the freeware world of open systems
that created Mosaic.
The number of programmers in the world who do not work for Bill Gates far
exceeds those who do. That's where Netscape wins. A person will do for
love -- in this case, the love of creation, the respect of one's peers
-- what they will not do for money. The gift culture of uncounted free
programmers everywhere will now turn its eye to improving and extending
Netscape's browser. The fruits of those labors will be returned back
to the world, a free gift.
For the Perl community, several intriguing possibilities immediately
come to mind. The first and most obvious of these is that the door is
now open for a Perl-augmented browser that would allow us to use Perl
with Netscape much as Java and Javascript had been used previously.
If you've every tried programming in those languages, you know why this
notion excites us. Another area for exploration may be cross-platform
graphical support. Netscape runs a common code base across Unix, Macs,
and Windows. Is this a technology that the whole net can benefit from?
It doesn't matter whether that technology is under some sort of license
to keep it freeware. After all, Perl is already freeware.
For that matter, so is Apache, the net's most popular web server. This
means that the World Wide Web's most popular web server, web browser,
and web programming language are now all available for free in full
source form. The synergistic interactions are certain to outshine all
possible closed, proprietary solutions. In their response to Netscape's
dramatic announcement today, Microsoft disingenuously asks just how easy
it will be to modify the Netscape source. The obvious answer is clear
and compelling: infinitely easier than it will be to modify Internet
Explorer's source.
Now in one bold stroke, Netscape is a contender again, one who has changed
the stakes and upped the ante in a way that Microsoft dare not follow.
Operating under a completely different set of principles than those which
dominate American corporate culture, the freeware gift culture awards
prestige and honor not by how many competitors you kill, nor by how much
money you earn, but rather by the value (usually determined by effort,
elegance, and usefulness) of what you give away. Under this ethic,
Netscape's prestige has just soared to unprecedented heights.
BIBLIOGRAPHY:
Cathedral and the Bazaar paper
http://www.ccil.org/~esr/writings/cathedral-paper-1.html
Apache Web Browser
http://www.apache.org
Perl Programming Language
http://www.perl.com
Netscape Communications
http://www.netscape.com
--
Tom Christiansen tchrist@jhereg.perl.com
Speak softly and carry a +6 two-handed sword.
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". 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 1722
**************************************
