[8439] in Perl-Users-Digest
Perl-Users Digest, Issue: 2056 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 9 13:15:13 1998
Date: Mon, 9 Mar 98 10:00:29 -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 Mon, 9 Mar 1998 Volume: 8 Number: 2056
Today's topics:
Re: "require" probs... <richard.wachter@medaphis.com>
Re: Another RegExp Question <jstern@world.northgrum.com>
Re: commify (Clinton Pierce)
Re: file or folder? <barnett@houston.Geco-Prakla.slb.com>
Re: gzipped tar perl manual (I R A Aggie)
Re: Help: CGI Animation (server push) doesn't work with <craig@mathworks.com>
Re: How to double sort a hash of hashes???? (Clinton Pierce)
Re: HTML::Element/Parser/Tree help <jdporter@min.net>
Re: http 1.0/500 Server Error (Why?) <barnett@houston.Geco-Prakla.slb.com>
Re: Interactive Tutorials? <tchrist@mox.perl.com>
Interrupt HELP (PH)
Invoke an editor <natoofi@alborz.dac.neu.edu>
Re: More thoughts on c.l.p.m. <sb@sdm.de>
Re: Perl: , cgi? Books? <Dave.Cross@gb.swissbank.com>
Perl:, cgi? Books? <bchapman@best.com>
Re: Problem with filenames on NT <craig@mathworks.com>
Prototype (like push) (Paul Bardo)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Stripping (Most) HTML tags <jdporter@min.net>
Re: Stripping (Most) HTML tags <jdporter@min.net>
Re: Tom, grow up [Re: The -w switch (was Re: better way <friedman@uci.edu>
Re: Tom, grow up [Re: The -w switch (was Re: better way <tchrist@mox.perl.com>
Re: Tom, grow up [Re: The -w switch (was Re: better way <friedman@uci.edu>
Re: Tom, grow up [Re: The -w switch (was Re: better way (Chip Salzenberg)
Re: Using named array to populate radio group via cgi.p <jdporter@min.net>
Re: Using perl to do what a spreadsheet does but with a <oak@crl.OmitThis.com>
Re: Why doesn't "tr/\x0D//d" work? (Lasse =?ISO-8859-1?Q?Hiller=F8e?= Petersen)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 09 Mar 1998 10:08:41 -0500
From: Richard Wacther <richard.wachter@medaphis.com>
Subject: Re: "require" probs...
Message-Id: <350405F8.1D238A39@medaphis.com>
Randall Stephenson wrote:
> I am using another script as a library for some subs. Obviously, this
> requires (no pun intended) the "require" function. Isn't the permission
> for a required script 744? Nevertheless, I have tried every permission,
> but to no avail. I get this strange message:
>
> [name of required script] does not return true in [name of script] line
> [#]
>
> I have never gotten this with any other script, the syntax checks on
> both scripts, and I've checked everywhere for an answer, but I cannot
> find any. I really hope someone here can help because I am very
> desperate. Thank you.
>
> ----------------------------
> http://www.rtweb.net
Is the last line in your "required" file
1;
--
/ \ _-' ------------------------------------------------------+
_/| \-''- _ /
__-' { | \ Richard Wachter Voice (770) 444-4464
/ \ Medaphis IT Fax (770) 444-6464
/ "o. |o } 2700 Cumberland Parkway Pager (800) 291-7213
| \ ; Atlanta, Georgia 30339
',
\_ __\ E-Mail richard.wachter@medaphis.com
''-_ \.// http://bingo.corp.medaphis.com/
/ '-____'
/
_'
------------------------------
Date: Mon, 9 Mar 1998 16:34:10 GMT
From: Jim Stern <jstern@world.northgrum.com>
Subject: Re: Another RegExp Question
Message-Id: <35041A02.F445CB21@world.northgrum.com>
Marion King wrote:
>
> [...]
> >example line from mail-
> > From: me@this.location
> > To: You da man <you@your.location>
>
> >should set into a assoc. array like this-
> > $array{'From'} = $1...etc.
>
> > while (@data) {
Your problem isn't with the regex. It's with the 'while' condition.
'while (@data)' does _not_ set $_ to each element of @data successively.
'while (defined($_ = shift @data))' does that (destroying @data as
it goes). Or use 'while(<>)' to read and parse the data in one go.
> ># fuzzy as whether or not to use this statement
> ># $reformat{'$1'} = $2;
No. The single quotes inhibit variable substitution. You would assign
everything to the hash element whose key is the literal string '$1'.
If you're unfamiliar with Perl's treatment of single quotes you may need
to read a Perl tutorial. See the Perl FAQ for excellent book
suggestions.
--
Jim Stern -- Views here are my own, not my employer's. (Hawthorne, CA)
------------------------------
Date: 9 Mar 1998 15:21:58 GMT
From: cpierce1@cp500.fsic.ford.com (Clinton Pierce)
To: cstewart@flash.net
Subject: Re: commify
Message-Id: <6e11em$gia3@eccws1.dearborn.ford.com>
*************************************************************************
************************** FREE RANDAL **********************************
*************************************************************************
In article <34fff117.419657@news.flash.net>,
cstewart@flash.net (Chuck Stewart) writes:
> $total = 1234345
> $total=~ s/^(-?\d+)(\d{3})/$1,$2/;
>
>This will results in 1234,345
>How can I print 1,234,345
>
This is a FAQ. Section 5 "How can I output my numbers with commas added?"
try "perldoc perlfaq5" on your system, or visit www.perl.com, and scan
through the FAQ. Or go to www.dejanews.com and search for one of the
other dozens of occasions this question has been posted.
*************************************************************************
************************** FREE RANDAL **********************************
*************************************************************************
--
+------------------------------------------------------------------------+
| Clinton A. Pierce | "If you rush a Miracle Man, | http://www. |
| cpierce1@ford.com | you get rotten miracles" | dcicorp.com/ |
| fubar@ameritech.net |--Miracle Max, The Princess Bride| ~clintp |
+------------------------------------------------------------------------+
GCSd-s+:+a-C++UALIS++++P+++L++E---t++X+b+++DI++++G++e+>++h----r+++y+++>y*
------------------------------
Date: Mon, 09 Mar 1998 09:28:58 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
Subject: Re: file or folder?
Message-Id: <35040ABA.AAAC397A@houston.Geco-Prakla.slb.com>
Xaver Weibel wrote:
>
> How can I check if it is a file ore a folder in win95. I have tryed with -d
> but it doesnt function!
> --
> nweibx@abs.ascom.ch
Well, not knowing much about the win'95/perl interface stuff, I would
make the following recommendations to you:
1. What exactly have you tried?
2. How about a code snippet that exhibits the behavior you are having
trouble with?
3. Did you get an error message?
4. If so, what error message did you get?
5. Are you using the -w switch & use strict (if available on win 95) &
use diagnostics (if available on win 95)?
I'm sure someone here would be happy to provide some help, if you could
provide us a better picure of exactly where your script is falling over.
Dave
--
"Security through obscurity is no security at all."
-comp.lang.perl.misc newsgroup posting
------------------------------------------------------------------------
* Dave Barnett U.S.: barnett@houston.Geco-Prakla.slb.com *
* DAPD Software Support Eng U.K.: barnett@gatwick.Geco-Prakla.slb.com *
------------------------------------------------------------------------
------------------------------
Date: Mon, 09 Mar 1998 10:43:34 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: gzipped tar perl manual
Message-Id: <fl_aggie-0903981043350001@aggie.coaps.fsu.edu>
In article <3503F0CD.3C5E@victorex.com>, johnk@victorex.com wrote:
+ How does one open/unzip the gzipped tar file that contains the perl
+ manual in pdf format? It was downloaded from www.perl.com. I have
+ WIN95/WINNT 4.0 WS/SCO UNIX SysV Rel 3.2 Vers 4.0 systems available to
+ me.
Windoze: WinZip Classic
Unices: gunzip file.gz
James
--
Consulting Minister for Consultants, DNRC
The Bill of Rights is paid in Responsibilities - Jean McGuire
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/CPAN-local/doc/FAQs/cgi/idiots-guide.html>
------------------------------
Date: Mon, 09 Mar 1998 12:02:20 -0500
From: Craig Ciquera <craig@mathworks.com>
To: Atsushi Amemiya <a.amemiya@asahi-jc.com>
Subject: Re: Help: CGI Animation (server push) doesn't work with Internet Explorer?
Message-Id: <3504209B.9A96255C@mathworks.com>
To the best of my knowledge, Server-Push documents are not supported by Internet
Explorer.
Craig
Atsushi Amemiya wrote:
> Could anyone help me? CGI animation that works beautifully with Netscape
> doesn't work at all with Internet Explorer. Does anyone know why? I've
> attached the source code. This one works with Netscape, but it does not work
> with Internet Explorer. I would like to make it work with Internet Explorer.
> Thanks in advance.
>
> Atsushi (Strange name? I'm Japanese)
>
> #!/usr/local/bin/perl
> #
> # dynagraphic.cgi
> #
> # This application uses server push to
> # change the graphic that is displayed in
> # an HTML document.
> #
> # create array of graphics
> $|=1;
> $count=1;
> @grapharray =
> ("../mojifile/one.gif","../mojifile/two.gif","../mojifile/three.gif",
> "../mojifile/four.gif","../mojifile/five.gif");
> # as file begins with nph-
> # application needs HTTP directive
> print "HTTP/1.0 200 Okay\n";
> print "Content-type: multipart/x-mixed-replace;boundary=appboundary\n\n";
> print "--appboundary\n";
> while ($count <= 10) {
> foreach $member (@grapharray) {
> print "Content-type: image/gif\n\n";
> open(GRAPHIC, $member);
> print <GRAPHIC>;
> close(GRAPHIC);
> print "\n--appboundary\n";
> sleep 3;
> }
> $count++;
> }
--
Craig Ciquera Tel: (508) 647-7547
The Mathworks, Inc. FAX: (508) 647-7002
24 Prime Park Way, Natick MA 01760
mailto:craig@mathworks.com Web: http://www.mathworks.com
------------------------------
Date: 9 Mar 1998 15:45:02 GMT
From: cpierce1@cp500.fsic.ford.com (Clinton Pierce)
To: aahanson@students.uiuc.edu
Subject: Re: How to double sort a hash of hashes????
Message-Id: <6e12pu$gia4@eccws1.dearborn.ford.com>
*************************************************************************
************************** FREE RANDAL **********************************
*************************************************************************
In article <34FFE5E5.3D5F@students.uiuc.edu>,
Aaron Hanson <aahanson@students.uiuc.edu> writes:
>Hi all. I am in dire need of a solution to my problem. I have a hash
>of hashes in this one program, and I want to sort the hash by one
>variable, and then by another. I had tried this:
>
>foreach $var (sort
> {$data{$b}{$key1} <=> $data{$a}{$key1}}
> (sort
> {$data{$b}{$key2} <=> $data{$a}{$key2}}
> keys %data)) {
>print $var;
>}
Oh yeah. I remember this trick. It's not so bad, really. In fact, it's
almost right out of the Blue Camel (Chapter 4):
foreach $key1 ( sort { $data{$a} <=> $data{$b} } keys %data ) {
foreach $key2 ( sort keys %{ $data{$key1} } ) {
print "$key1 $key2\n";
}
}
Double check this, in case I typed bracket where I meant paren, or
dollar where I meant percent. This is from memory and my mental
compiler isn't what it should be...
*************************************************************************
************************** FREE RANDAL **********************************
*************************************************************************
--
+------------------------------------------------------------------------+
| Clinton A. Pierce | "If you rush a Miracle Man, | http://www. |
| cpierce1@ford.com | you get rotten miracles" | dcicorp.com/ |
| fubar@ameritech.net |--Miracle Max, The Princess Bride| ~clintp |
+------------------------------------------------------------------------+
GCSd-s+:+a-C++UALIS++++P+++L++E---t++X+b+++DI++++G++e+>++h----r+++y+++>y*
------------------------------
Date: Mon, 09 Mar 1998 10:26:52 -0500
From: John Porter <jdporter@min.net>
Subject: Re: HTML::Element/Parser/Tree help
Message-Id: <35040A3C.5ACB@min.net>
Don wrote:
>
> The part I now need to obtain is " This is text ". The HTML::Element
> documentation is unclear as to where this is stored (if at all)
What was your understanding of the $h->content() description?
How simple the solution is depends on a particular assumption:
is the text contained within <a></a> always one string of
plain, un-marked-up text? If it is, the solution is quite
simple: the text is the first (and only) item in the content()
of the 'a' Element, as shown below.
If there's any markup in the text, then you'll probably need
traverse() to get it all.
hth,
John Porter
> ------------------------( script )-----------------------
> #!/usr/local/bin/perl
>
> use LWP::Simple;
> use HTML::Parse;
> use HTML::Element;
> use URI::URL;
>
> print "Content-type:text/html\n\n";
>
> $html = get $ENV{'QUERY_STRING'};
> $parsed_html = HTML::Parse::parse_html($html);
>
> for ( @{ $parsed_html->extract_links(a) } ) {
my( $link, $node ) = @{$_};
my $text = ($node->content())[0];
my $url = new URI::URL $link;
my $full_url = $url->abs($ENV{'QUERY_STRING'});
print "$full_url: $text<BR>";
> }
>
> $parsed_html->delete();
------------------------------
Date: Mon, 09 Mar 1998 08:32:30 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
Subject: Re: http 1.0/500 Server Error (Why?)
Message-Id: <3503FD7E.99157AAC@houston.Geco-Prakla.slb.com>
Seb wrote:
>
> I get an http 1.0/500 Server Error everytime I try to run a .cgi. I'm
> hosted on a win95 machine with pws. I'm running Perl for Win32. Does
> anyone know what this error is? Please reply via email at:
>
> seb@cyberdream.net
>
> Seb
Well, a Server Error 500 means that something was amiss with something.
Go look at the httpd error logs and see if there is anything useful
there. No, I don't know where to look, but reading the documentation
for the httpd server you are using should tell you where to find the
system logs.
HTH.
Dave
--
"Security through obscurity is no security at all."
-comp.lang.perl.misc newsgroup posting
------------------------------------------------------------------------
* Dave Barnett U.S.: barnett@houston.Geco-Prakla.slb.com *
* DAPD Software Support Eng U.K.: barnett@gatwick.Geco-Prakla.slb.com *
------------------------------------------------------------------------
------------------------------
Date: 9 Mar 1998 15:08:40 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Interactive Tutorials?
Message-Id: <6e10lo$rse$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, rickf@icanect.net (Rick Figley) writes:
:Can anyone direct me to where I might find Interactive Tutorials? By
:interactive I mean tutorials that have me enter a given script- line by
:line to tell me where problems exist as they are entered.
The only thing that will do that is a personal trainer. Did you
try the manpages and FAQs? What about the debugger?
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
A long-forgotten loved one will appear soon. Buy the negatives
at any price.
------------------------------
Date: 9 Mar 1998 17:21:05 GMT
From: mcai3ph2@ist4.co.umist.ac.uk (PH)
Subject: Interrupt HELP
Message-Id: <6e18e1$bli$1@probity.mcc.ac.uk>
Hi everybody,
If some data comes asynchronously from the PC's serial port,
how can a Perl script notice this?
Thanks a lot,
Pablo.
------------------------------
Date: Mon, 9 Mar 1998 12:23:08 -0500
From: gambit <natoofi@alborz.dac.neu.edu>
Subject: Invoke an editor
Message-Id: <Pine.LNX.3.95.980309121641.32002G-100000@alborz.dac.neu.edu>
Hello:
How can I to invoke an Editor in the middle of a perl program?
Navid
------------------------------
Date: 9 Mar 1998 15:46:24 GMT
From: Steffen Beyer <sb@sdm.de>
Subject: Re: More thoughts on c.l.p.m.
Message-Id: <6e12sg$qq0$1@bsdti6.sdm.de>
In article <3503F225.BDDEA8DC@online.emap.com>,
Alex Schajer <alexs@online.emap.com> wrote:
> What might be a nide idea is a chat c.l.p.m for that purpose. People who have
> easy/simple questions, like 'last element in an array' or 'sorting hash
> tables' which many of the more experience perl users could answer in a second.
> This will free up the c.l.p.m group for serious discussin and debate where a
> record of the discussion is needed.
> This could be a 'drop in session' - a chat based system, similar to a
> talker/mud.
> Anyone think it's a good idea?
I do, but I think it's better to wait for the process of creating a
moderated newsgroup to complete first; two new creations at the same
time might weaken both efforts.
Yours,
--
Steffen Beyer <sb@sdm.de>
Feel free to visit my web site at http://www.engelschall.com/u/sb/
sponsored by the university of Zuerich (ETHZ) http://www.ethz.ch/
------------------------------
Date: Mon, 9 Mar 1998 16:08:38 GMT
From: David Cross <Dave.Cross@gb.swissbank.com>
To: bchapman%best.com@gpo
Subject: Re: Perl: , cgi? Books?
Message-Id: <y4d1zwbaltl.fsf@gb.swissbank.com>
Bill Chapman <bchapman@best.com> writes:
> I notice sometimes perl programs (.pl) are described as "cgi-scripts",
> but there's also something called ".cgi". What is this? Where do I
> find out about this language? Somebody please give me the lowdown on
> this stuff?
CGI is the Common Gateway Interface, It is a protocal defined to allow
web pages to be generated from programs. CGI programs (or scripts)
can be written in most programming languages, but Perl seems to be
the most common at present. Sometimes a web server is configured so that
it recognises CGI scripts from the '.cgi' extension.
You can get more information about CGI from the newsgroup
comp.infosystems.www.authoring.cgi
> I am also looking for books about Perl and CGI. I am particularly
> interested in books that have good, thorough indexes.
'perldoc perlbook' for perl books.
'CGI Programming on the World Wide Web' by Shishir Gundavaram for CGI.
> Please reply with the "Re: Both" (mail and news) button so I get your
> response right away.
Gnus doesn't have that button, but I think I figured out what you mean :-)
Dave...
--
If I wasn't so busy writing status reports,
my status report might just become a progress report.
Dave.Cross@gb.swissbank.com
------------------------------
Date: Mon, 09 Mar 1998 06:59:59 -0800
From: Bill Chapman <bchapman@best.com>
Subject: Perl:, cgi? Books?
Message-Id: <350403EF.4A4F@best.com>
I notice sometimes perl programs (.pl) are described as "cgi-scripts",
but there's also something called ".cgi". What is this? Where do I
find out about this language? Somebody please give me the lowdown on
this stuff?
I am also looking for books about Perl and CGI. I am particularly
interested in books that have good, thorough indexes.
Please reply with the "Re: Both" (mail and news) button so I get your
response right away.
Bill Chapman
------------------------------
Date: Mon, 09 Mar 1998 11:56:34 -0500
From: Craig Ciquera <craig@mathworks.com>
To: Miran Sepic <miran.sepic4@mss.tel.hr>
Subject: Re: Problem with filenames on NT
Message-Id: <35041F42.6F313DD2@mathworks.com>
I believe you are out of luck.
If you use #, $, or % characters in a filename, http will choke on them.
Some OS's won't even read files with these characters (i.e., UNIX won't read
$ in a filename).
How could it be that you MUST use these characters in the filename??
Craig
Miran Sepic wrote:
> Hello,
>
> I have a following problem. I made a CGI script that reads files from
> one directory, and puts the list of links to them on a web page. Perl
> reads the directory, and everything is OK except one. In the directory
> there are some files with characters: #, $, %. They are shown on the
> list but link to them doesn't work. Microsoft IIS server says: File Not
> Found. I think the reason is HTTP, but I must use filenames with such
> characters. Is there an idea how I can do it?
>
> Thanks, Miran
--
Craig Ciquera Tel: (508) 647-7547
The Mathworks, Inc. FAX: (508) 647-7002
24 Prime Park Way, Natick MA 01760
mailto:craig@mathworks.com Web: http://www.mathworks.com
------------------------------
Date: 9 Mar 1998 11:03:26 -0600
From: net0018@edwardjones.com (Paul Bardo)
Subject: Prototype (like push)
Message-Id: <6e17cu$f2u@ncsnews.edwardjones.com>
I am having difficulty getting a prototyped subroutine
to work the way I want/expect.
I want to prototype the function like push "(\@@)". The
following sample code shows what I have tried and the
results I got. Basically I expect #4 to have the same
results as #3 but with the prototype like #2. Is this
possible?
#!/opt/edj/cssa/languages/bin/perl -w
use strict;
sub try1 (\@) {
my $aref = shift;
print "A: @$aref\n";
}
sub try2 (\@@) {
my $aref = shift;
my @rest = @_;
print "A: @$aref\n";
print "B: @rest\n";
}
sub try3 {
my $aref = shift;
my @rest = @_;
print "A: @$aref\n";
print "B: @rest\n";
}
my @x = qw(a b c d);
my @y = qw(w x y z);
print "#1:\n"; try1 @x;
print "#2:\n"; try2 @x, "y", "z";
print "#3:\n"; try3 \@x, @y;
print "#4:\n"; try2 @x, @y;
---------------------------------------------------
#1:
A: a b c d
#2:
A: a b c d
B: y z
#3:
A: a b c d
B: w x y z
#4:
Bizarre copy of ARRAY in aassign at test.pl line 11.
I did read the prototype section of the Camel (p118-121)
and perlsub and perlfaq7, but I did not see the answer.
--
Paul J. Bardo - Network Services
paul.bardo@edwardjones.com
Edward Jones
201 Progress Parkway St. Louis, MO 63043
------------------------------
Date: 9 Mar 1998 15:08:43 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <6e10lr$5pg$1@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 02 Mar 1998 14:59:57 GMT and ending at
09 Mar 1998 07:39:44 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 (OCR) 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: 547
Articles: 1409 (505 with cutlined signatures)
Threads: 459
Volume generated: 2345.8 kb
- headers: 942.6 kb (19,187 lines)
- bodies: 1310.5 kb (40,860 lines)
- original: 928.8 kb (30,868 lines)
- signatures: 91.3 kb (1,782 lines)
Original Content Rating: 0.709
Averages
========
Posts per poster: 2.6
median: 1 post
mode: 1 post - 340 posters
s: 5.0 posts
Posts per thread: 3.1
median: 2 posts
mode: 1 post - 164 threads
s: 4.7 posts
Message size: 1704.8 bytes
- header: 685.1 bytes (13.6 lines)
- body: 952.4 bytes (29.0 lines)
- original: 675.0 bytes (21.9 lines)
- signature: 66.3 bytes (1.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
61 87.9 ( 40.6/ 47.2/ 27.0) jdporter@min.net
46 62.3 ( 29.1/ 30.6/ 22.0) Jonathan Feinberg <jdf@pobox.com>
42 81.6 ( 25.0/ 43.8/ 25.4) Uri Guttman <uri@sysarch.com>
31 54.7 ( 25.0/ 26.1/ 13.7) abigail@fnx.com
24 48.6 ( 21.4/ 27.2/ 12.1) bill@astro.fccj.cc.fl.us
22 60.2 ( 18.9/ 37.8/ 34.7) tchrist@mox.perl.com (Tom Christiansen)
21 34.0 ( 12.8/ 21.1/ 13.6) cberry@cinenet.net (Craig Berry)
20 26.1 ( 10.4/ 15.3/ 10.2) aml@world.std.com (Andrew M. Langmead)
17 23.9 ( 10.3/ 13.5/ 11.4) kcohen@julius.ling.ohio-state.edu (Kevin B Cohen)
17 38.8 ( 11.1/ 27.7/ 19.2) schwern@starmedia.net
These posters accounted for 21.4% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
87.9 ( 40.6/ 47.2/ 27.0) 61 jdporter@min.net
81.6 ( 25.0/ 43.8/ 25.4) 42 Uri Guttman <uri@sysarch.com>
62.3 ( 29.1/ 30.6/ 22.0) 46 Jonathan Feinberg <jdf@pobox.com>
60.2 ( 18.9/ 37.8/ 34.7) 22 tchrist@mox.perl.com (Tom Christiansen)
54.7 ( 25.0/ 26.1/ 13.7) 31 abigail@fnx.com
48.6 ( 21.4/ 27.2/ 12.1) 24 bill@astro.fccj.cc.fl.us
38.8 ( 11.1/ 27.7/ 19.2) 17 schwern@starmedia.net
34.0 ( 12.8/ 21.1/ 13.6) 21 cberry@cinenet.net (Craig Berry)
29.1 ( 8.6/ 15.5/ 10.5) 16 mike@stok.co.uk (Mike Stok)
28.2 ( 6.1/ 18.5/ 13.2) 8 Evan Kirshenbaum <evan@garrett.hpl.hp.com>
These posters accounted for 22.4% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 3.9 / 3.9) 5 "Eric D. Friedman" <friedman@uci.edu>
1.000 ( 7.1 / 7.1) 6 Francky Leyn <Francky.Leyn@esat.kuleuven.ac.be>
0.985 ( 5.4 / 5.5) 7 gabor@vmunix.com (Gabor)
0.966 ( 7.6 / 7.9) 13 fl_aggie@thepentagon.com (I R A Aggie)
0.917 ( 34.7 / 37.8) 22 tchrist@mox.perl.com (Tom Christiansen)
0.905 ( 2.8 / 3.1) 5 brieweb@aol.com (Brieweb)
0.888 ( 1.4 / 1.5) 11 "Mishra, Aditya" <mishra.aditya@emeryworld.com>
0.877 ( 4.7 / 5.4) 5 jbc@west.net (John Callender)
0.871 ( 10.5 / 12.1) 12 Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
0.844 ( 11.4 / 13.5) 17 kcohen@julius.ling.ohio-state.edu (Kevin B Cohen)
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.524 ( 13.7 / 26.1) 31 abigail@fnx.com
0.499 ( 2.7 / 5.4) 9 rjk@coos.dartmouth.edu
0.495 ( 1.7 / 3.3) 6 Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
0.473 ( 5.0 / 10.6) 13 ilya@math.ohio-state.edu (Ilya Zakharevich)
0.446 ( 3.7 / 8.3) 12 Eric Bohlman <ebohlman@netcom.com>
0.444 ( 12.1 / 27.2) 24 bill@astro.fccj.cc.fl.us
0.442 ( 1.9 / 4.4) 6 Steve Wells <steve@prilnari.com>
0.440 ( 5.0 / 11.3) 10 phenix@interpath.com (John Moreno)
0.391 ( 2.5 / 6.3) 8 Charles Margolin <cmargoli@world.northgrum.com>
0.123 ( 1.5 / 12.5) 7 steveh@cent.com (steve)
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
70 What is PERL? Learn JAVA instead?
45 The -w switch (was Re: better way to do this?)
25 Summing Up Array Values - How Do I?
21 "Learning Perl" or "Programming Perl"
17 QUIZ: answer and hash slice tutorial
16 Conflict in this Newsgroup
14 Length of an array?
13 Are perl $SIG{} handlers inherently unsafe?
12 line number indication in Perl
12 Q: obscuring Perl scripts?
These threads accounted for 17.4% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
158.4 ( 51.4/ 99.6/ 73.4) 70 What is PERL? Learn JAVA instead?
99.5 ( 37.6/ 57.0/ 37.4) 45 The -w switch (was Re: better way to do this?)
42.5 ( 12.1/ 29.2/ 14.4) 16 Conflict in this Newsgroup
41.2 ( 12.2/ 26.9/ 16.4) 17 QUIZ: answer and hash slice tutorial
40.1 ( 14.4/ 24.6/ 16.1) 21 "Learning Perl" or "Programming Perl"
35.3 ( 17.1/ 14.7/ 9.3) 25 Summing Up Array Values - How Do I?
30.8 ( 9.6/ 19.8/ 14.6) 13 Are perl $SIG{} handlers inherently unsafe?
26.2 ( 9.0/ 16.6/ 8.5) 12 Q: obscuring Perl scripts?
24.6 ( 8.1/ 14.4/ 12.2) 11 Displaying subdirectories and not filenames
20.5 ( 8.3/ 11.4/ 10.3) 12 line number indication in Perl
These threads accounted for 22.1% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.927 ( 2.6/ 2.8) 5 Java & Perl which run faster on Unix?
0.900 ( 10.3/ 11.4) 12 line number indication in Perl
0.851 ( 9.8/ 11.5) 9 Q: How to
0.850 ( 12.2/ 14.4) 11 Displaying subdirectories and not filenames
0.845 ( 3.3/ 3.9) 5 Help please: Conversion problems from numeric to ascii
0.814 ( 1.6/ 2.0) 6 $1 ?
0.811 ( 3.6/ 4.4) 5 is perl 4.0 y2k compliant ?
0.802 ( 4.1/ 5.1) 5 A specific regular expression...
0.799 ( 2.2/ 2.8) 5 Performance Question
0.778 ( 1.9/ 2.5) 5 Add int, convert to string, substitute. HELP!
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.512 ( 8.5 / 16.6) 12 Q: obscuring Perl scripts?
0.502 ( 1.8 / 3.6) 5 simple perl question
0.496 ( 1.2 / 2.5) 5 What am I doing wrong?
0.492 ( 14.4 / 29.2) 16 Conflict in this Newsgroup
0.482 ( 2.0 / 4.2) 7 Perl performs a second miracle. Prepare for canonizaton!
0.477 ( 1.5 / 3.0) 5 extracting a matched pattern
0.452 ( 1.6 / 3.6) 7 Matching words anywhere in strings: need \A, \Z?
0.429 ( 1.5 / 3.5) 5 Memory limitation of Perl for OS/2
0.404 ( 0.9 / 2.1) 5 Quoting ^M?
0.386 ( 3.2 / 8.4) 11 $0: which OSes?
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
33 comp.lang.perl.modules
12 comp.lang.perl
4 comp.lang.c
4 comp.software.year-2000
4 comp.lang.c++
4 alt.perl
3 comp.lanl.perl.modules
3 news.software.readers
3 comp.lang.perl.tk
3 rec.puzzles
Top 10 Crossposters
===================
Articles Address
-------- -------
10 Dale Sutcliffe <dsutclif@ucsd.edu>
8 "Mike Currie" <kidmc1@earthlink.net>
6 Steve Rountree <steve@jrnl.com>
4 odie@algonet.seREMOVE (Odie Deth)
4 Adrian Aichner <aichner@ecf.teradyne.com>
3 "Mishra, Aditya" <mishra.aditya@emeryworld.com>
3 root@ihc.com (Super-User)
3 gabriel@communitech.net
3 widsk1@hotmail.com
3 twod@not.valid
------------------------------
Date: Mon, 09 Mar 1998 11:14:35 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Stripping (Most) HTML tags
Message-Id: <3504156B.2689@min.net>
Jon Drukman wrote:
>
> Please try this script and share your findings:
>[...]
O.k. Apparently there's something screwy with HTML::Parser.
When I use (<>) in a "normal" way, i.e. something I wrote myself,
I get no problems. If $/ = undef, then <> returns a list of
strings, one per file (files specified on the cmdline).
For some reason, HTML::Parser::parse() breaks the mechanism.
I don't think I want to dive into that code at the moment.
Also, this means my idea of using the filename in $ARGV won't
work, unfortunately. So, you were right -- for this case. ???
hth,
John Porter
------------------------------
Date: Mon, 09 Mar 1998 12:28:08 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Stripping (Most) HTML tags
Message-Id: <350426A8.6DDC@min.net>
John Porter wrote:
>
> For some reason, HTML::Parser::parse() breaks the mechanism.
> I don't think I want to dive into that code at the moment.
> Also, this means my idea of using the filename in $ARGV won't
> work, unfortunately. So, you were right -- for this case. ???
The obvious reason -- which also turns out to be right, on
inspection -- is that parse() only looks at the first arg.
parse() ought to be fixed -- unless Gisle had a good reason
for only letting it take one arg.
John Porter
------------------------------
Date: 9 Mar 1998 15:06:15 GMT
From: "Eric D. Friedman" <friedman@uci.edu>
Subject: Re: Tom, grow up [Re: The -w switch (was Re: better way to do this?)]
Message-Id: <6e10h7$46k@news.service.uci.edu>
[mailed, posted]
In article <6dus00$33a$1@cyprus.atlantic.net>,
Chip Salzenberg <chip@pobox.com> wrote:
<According to John Callender <jbc@west.net>:
<I don't expect Tom to get much special treatment in the moderated group.
<There is a difference between "Perl stuff" and "stuff of possible interest
<to Perl people." The plan is for the moderated group to cover the former,
<while leaving the unmoderated group for the latter.
That's not what the charter says. It reserves a specific exclusion
for the Perl Institute that allows its board (of which Tom is
surely a member) to post unmoderated "stuff of possible interest to
Perl people." Amazingly, the charter openly acknowledges that TPI
may have a commercial interest in making such announcements, and yet
guarantees that, should a TPI-competitor someday emerge, it would
be moderated out of existence. It's positively Microsoftian!
Eric
--
Eric D. Friedman
friedman@uci.edu
------------------------------
Date: 9 Mar 1998 15:46:57 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Tom, grow up [Re: The -w switch (was Re: better way to do this?)]
Message-Id: <6e12th$sn5$2@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, "Eric D. Friedman" <friedman@uci.edu> writes:
:Amazingly, the charter openly acknowledges that TPI
:may have a commercial interest in making such announcements,
No. TPI is not a commerical enterprise. It is not for profit,
dedicated to keeping Perl free and available.
--to
--
Tom Christiansen tchrist@jhereg.perl.com
#ifdef USE_STD_STDIO /* Here is some breathtakingly efficient cheating */
--Larry Wall, from sv.c in the v5.0 perl distribution
------------------------------
Date: 9 Mar 1998 17:00:19 GMT
From: "Eric D. Friedman" <friedman@uci.edu>
Subject: Re: Tom, grow up [Re: The -w switch (was Re: better way to do this?)]
Message-Id: <6e1773$92t@news.service.uci.edu>
[courtesy cc of this posting sent to cited author via email]
In article <6e12th$sn5$2@csnews.cs.colorado.edu>,
Tom Christiansen <tchrist@mox.perl.com> wrote:
< [courtesy cc of this posting sent to cited author via email]
<
<In comp.lang.perl.misc, "Eric D. Friedman" <friedman@uci.edu> writes:
<:Amazingly, the charter openly acknowledges that TPI
<:may have a commercial interest in making such announcements,
<
<No. TPI is not a commerical enterprise. It is not for profit,
<dedicated to keeping Perl free and available.
Here is the suspicious text from the proposed charter:
"(EXCEPTION: The Perl Insitute may post commercials that its board deems
[^^^^^^^^^^^]
to be of general interest to the Perl community, such as announcements
of upcoming Perl-oriented conferences.)"
Sample problem:
TPI web pages promise that (eventually) information about Perl training
will become available through TPI. Presumably, such information would
only reflect the services offered by members of TPI (and, most
prominently, members of TPI's board who would have a conflict of
interest if they are also moderating the proposed newsgroup).
Why should TPI-endorsed "commercials" about training, conferences, and
publications (all of which generate revenue for people who also happen
to be members of TPI) have privileged access to the moderated group?
What about the guy who wants to offer training, sponsor a conference,
or advertise a book, but doesn't want to join TPI?
TPI may be a good, even noble, undertaking, but it shouldn't have
privileged commerical rights on the moderated group. Put it in the
FAQ, and put it in your .sig, but take the exception out of the
draft charter.
But this is hardly the biggest problem with Mark-Jason's charter.
See my posting to news.groups for an objection to the notion that
individual moderators get to make up the rules as they go.
Eric
--
Eric D. Friedman
friedman@uci.edu
------------------------------
Date: Mon, 09 Mar 1998 17:06:52 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: Tom, grow up [Re: The -w switch (was Re: better way to do this?)]
Message-Id: <6e17m9$4kh$1@cyprus.atlantic.net>
According to "Eric D. Friedman" <friedman@uci.edu>:
>Chip Salzenberg <chip@pobox.com> wrote:
> > I don't expect Tom to get much special treatment in the moderated group.
>
> That's not what the charter says.
Sorta. No individual get special treatment, though one group does.
> It reserves a specific exclusion for the Perl Institute that allows
> its board (of which Tom is surely a member) to post unmoderated
> "stuff of possible interest to Perl people."
Yes. But Tom isn't a special individual here, he's a member of a
special group (TPI's board). If the board as a whole disagrees with
Tom's (or any other individual's) ideas of what's appropriate to post
in clpmod, the board prevails.
> Amazingly, the charter openly acknowledges that TPI may have a
> commercial interest in making such announcements ...
TPI is a not-for-profit corporation. It cannot have competitors in
the traditional sense. And while TPI's board has special dispensation
to post articles otherwise not permitted, it does not have editorial
control over what should be rejected.
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
"I brought the atom bomb. I think it's a good time to use it." //MST3K
-> Ask me about Perl training and consulting <-
Like Perl? Want to help out? The Perl Institute: www.perl.org
------------------------------
Date: Mon, 09 Mar 1998 12:14:17 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Using named array to populate radio group via cgi.pm
Message-Id: <35042369.1EB9@min.net>
keefner wrote:
>
> Now I have a variable file to read into the array
> and am looking for advice on best to
> split
^^^^^^^ Ding Ding Ding!
> that into 2 or 3 elements and populate the radio group.
> There is a "|" delimiter that I can work with.
------------------------------
Date: 9 Mar 1998 17:46:56 GMT
From: Tony Gonzalez <oak@crl.OmitThis.com>
Subject: Re: Using perl to do what a spreadsheet does but with a plain text file as a source?
Message-Id: <6e19ug$2fp$1@nnrp1.crl.com>
Thanks folks!
That should give me some perl to begin to sink my teeth into.
It kind of makes me appreciate the work a spread sheet does but I want
to pick up some perl anyhow.
-Tony
------------------------------
Date: Mon, 09 Mar 1998 18:14:47 +0100
From: lassehp@imv.aau.dk (Lasse =?ISO-8859-1?Q?Hiller=F8e?= Petersen)
Subject: Re: Why doesn't "tr/\x0D//d" work?
Message-Id: <lassehp-0903981814470001@ra.imv.aau.dk>
In article <6dhape$act$1@csnews.cs.colorado.edu>, tchrist@mox.perl.com
(Tom Christiansen) wrote:
>You can make up any definition you want. That doesn't make it reasonable.
>Using a "text editor", I can trivially create a file with nothing but four
>^A characters in it by simply editing. That's not a text file.
>Text files consist of variable-length, newline-terminated records
>containing printable text. Those are the rules, and they're entirely
>intuitive. Please don't resort to sophistry.
Excuse me for resorting to sophistry and also for jumping into a
discussion uninvited. But as a Mac-user[1], I sometimes find myself in an
entirely counter-intuitive maze of twisted textfiles all alike, most of
them _not_ ending in that pesky last \n, which most Mac-editors do not add
by default. Wherefore I always chomp; rather than chop. When I have to
handle such files, it doesn't help me a lot to know whether a file
complies or does not comply with a certain definition of text file. I just
have to handle them in a way that doesn't miss a character because it
happens to be the last in a file while not being a newline. Even if it was
just a '0', it could mean a factor ten or more for someone.
Using "echo -n 'text' >a-file" (or perl -we 'print "text";'>a-file) I can
create a file containing just the "line" 'text' followed by no newline.
That's a text file; surely it must be: there's nothing but text in it. If
the "intuitive" output of wc is to be trusted, it contains zero lines, but
even though it seems difficult to tell the line number of the text, the
text is there, on that "nonexisting" line.
Depending on how you define printable, I might not even be able to put my
name in a text file of your definition (I love to put my name in text
files!) unless we discern between ASCII text files and ISO-8859-1 text
files. Not to mention russian text, japanese text etc. So either we have
to have many definitions of text files, or define that a text file may
contain arbitrary data. In the latter case, the definition becomes about
equal to the definition of a plain file. I think that is the best
definition.
Anyway, my point is: Perl is generally not bothered by control or 8bit
characters or by making a distinction between binary data and text in a
string. I think that is a good thing. This way _we_ don't have to bother
too much (or more than necessary) with definitions of text files. All we
have to do is teach people to always use a safe chomp to remove possibly
present, but unwanted newline line separators/terminators in the name of
cross-platform compatibility.
I am wondering why you didn't mention perlfaq5 as a reference for your
definition, although I must say I disagree with the FAQ in this case.
Anyway, perlfaq8 more or less seems to admit that there is no portable
definition. Or what do you think?
-Lasse
[1] Mac and Unix user and sysadmin, in fact. Countless are the times I
type vi editing commands in BBEdit.:wq
------------------------------
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 2056
**************************************
