[18958] in Perl-Users-Digest
Perl-Users Digest, Issue: 1153 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 18 11:10:32 2001
Date: Mon, 18 Jun 2001 08:10:12 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <992877012-v10-i1153@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 18 Jun 2001 Volume: 10 Number: 1153
Today's topics:
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Uppercase Array <blnukem@hotmail.com>
Re: Uppercase Array <pne-news-20010618@newton.digitalspace.net>
Re: Uppercase Array <blnukem@hotmail.com>
Re: Uppercase Array <Graham.T.Wood@oracle.com>
Re: using lwp ?? (Helgi Briem)
Re: What is the ideal way to parse? <krahnj@acm.org>
Re: windows 2000 <comp-lang-perl-misc@-spambreak-southcot.com>
Re: windows 2000 <cpryce@pryce.net>
Re: windows 2000 <pne-news-20010618@newton.digitalspace.net>
Re: windows 2000 <bart.lateur@skynet.be>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 18 Jun 2001 14:26:39 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <tis3svo6rs917d@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 11 Jun 2001 15:27:49 GMT and ending at
18 Jun 2001 14:16:20 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) 2001 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
faq\@(?:.*\.)?denver\.pm\.org
Totals
======
Posters: 339
Articles: 1069 (399 with cutlined signatures)
Threads: 280
Volume generated: 1829.3 kb
- headers: 863.9 kb (17,249 lines)
- bodies: 926.6 kb (31,114 lines)
- original: 544.1 kb (20,064 lines)
- signatures: 37.8 kb (999 lines)
Original Content Rating: 0.587
Averages
========
Posts per poster: 3.2
median: 1 post
mode: 1 post - 188 posters
s: 6.1 posts
Posts per thread: 3.8
median: 3.0 posts
mode: 1 post - 66 threads
s: 4.3 posts
Message size: 1752.3 bytes
- header: 827.5 bytes (16.1 lines)
- body: 887.6 bytes (29.1 lines)
- original: 521.2 bytes (18.8 lines)
- signature: 36.2 bytes (0.9 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
62 107.7 ( 52.9/ 44.3/ 29.0) "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.li>
38 52.9 ( 32.6/ 20.0/ 12.3) Bart Lateur <bart.lateur@skynet.be>
35 69.7 ( 27.0/ 42.6/ 16.1) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
33 66.5 ( 31.4/ 34.2/ 17.4) Ren Maddox <ren@tivoli.com>
26 57.8 ( 21.5/ 34.8/ 17.1) Benjamin Goldberg <goldbb2@earthlink.net>
25 56.8 ( 21.4/ 35.4/ 26.8) "Godzilla!" <godzilla@stomp.stomp.tokyo>
20 27.0 ( 11.7/ 12.2/ 6.5) Craig Berry <cberry@cinenet.net>
20 29.8 ( 16.1/ 13.1/ 3.7) "John W. Krahn" <krahnj@acm.org>
20 37.6 ( 14.4/ 23.2/ 6.2) isterin <isterin@hotmail.com>
20 29.2 ( 14.8/ 12.9/ 6.9) nobull@mail.com
These posters accounted for 28.0% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
107.7 ( 52.9/ 44.3/ 29.0) 62 "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.li>
69.7 ( 27.0/ 42.6/ 16.1) 35 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
66.5 ( 31.4/ 34.2/ 17.4) 33 Ren Maddox <ren@tivoli.com>
57.8 ( 21.5/ 34.8/ 17.1) 26 Benjamin Goldberg <goldbb2@earthlink.net>
56.8 ( 21.4/ 35.4/ 26.8) 25 "Godzilla!" <godzilla@stomp.stomp.tokyo>
52.9 ( 32.6/ 20.0/ 12.3) 38 Bart Lateur <bart.lateur@skynet.be>
38.6 ( 13.7/ 24.9/ 8.4) 15 Mark Grimshaw <m.grimshaw@salford.ac.uk>
37.6 ( 14.4/ 23.2/ 6.2) 20 isterin <isterin@hotmail.com>
31.8 ( 15.7/ 16.0/ 9.2) 19 E.Chang <echang@netstorm.net>
29.8 ( 16.1/ 13.1/ 3.7) 20 "John W. Krahn" <krahnj@acm.org>
These posters accounted for 30.0% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.4 / 1.4) 5 gamtci@mpinet.net
0.951 ( 4.3 / 4.6) 5 Ryan Travis Tate <ryantate@OCF.Berkeley.EDU>
0.758 ( 26.8 / 35.4) 25 "Godzilla!" <godzilla@stomp.stomp.tokyo>
0.735 ( 4.1 / 5.6) 7 Michael Carman <mjcarman@home.com>
0.719 ( 4.9 / 6.8) 7 "Alan J. Flavell" <flavell@mail.cern.ch>
0.708 ( 3.4 / 4.8) 7 "alan@" <alan@headru.sh>
0.701 ( 5.8 / 8.2) 9 "Stefan Weiss" <der.prinz@gmx.net>
0.700 ( 6.4 / 9.2) 9 Rolf Krahl <rolf.krahl@gmx.net>
0.674 ( 2.0 / 2.9) 6 "Leo Hemmings" <leapius@hotmail.com>
0.654 ( 29.0 / 44.3) 62 "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.li>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.401 ( 1.6 / 3.9) 5 brian d foy <comdog@panix.com>
0.401 ( 2.5 / 6.1) 12 "John Imrie" <john.imrie@pa.press.net>
0.379 ( 16.1 / 42.6) 35 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.338 ( 3.7 / 11.1) 8 Michael Budash <mbudash@sonic.net>
0.338 ( 8.4 / 24.9) 15 Mark Grimshaw <m.grimshaw@salford.ac.uk>
0.279 ( 3.7 / 13.1) 20 "John W. Krahn" <krahnj@acm.org>
0.276 ( 2.5 / 9.2) 9 Andras Malatinszky <andras@mortgagestats.com>
0.268 ( 6.2 / 23.2) 20 isterin <isterin@hotmail.com>
0.260 ( 1.6 / 6.3) 6 Steven <steve.busiello@gs.com>
0.249 ( 1.0 / 3.9) 9 buggs <buggs-clpm@splashground.de>
50 posters (14%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
20 Help with split?vvp
18 initialising multi-dimensional array
17 Limiting special characters
17 Case insensitive substitution
16 What is ${'string'} ?
13 A simple pattern match problem?
13 Sorting versions of a file, Help needed
13 Which C compiler to use for modules?
12 Can an lvalue sub also be an rvalue?
12 Table/Cell formatting with CGI.pm
These threads accounted for 14.1% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
40.8 ( 16.8/ 23.8/ 15.0) 20 Help with split?vvp
35.0 ( 15.8/ 18.5/ 9.6) 18 initialising multi-dimensional array
33.0 ( 10.7/ 22.3/ 12.2) 13 Which C compiler to use for modules?
31.9 ( 12.8/ 18.2/ 10.5) 17 Limiting special characters
28.4 ( 8.0/ 20.3/ 6.0) 9 sorting a hash on part of its value?
27.5 ( 10.7/ 16.4/ 8.8) 11 2 questions about flock
26.0 ( 14.2/ 11.2/ 6.7) 16 What is ${'string'} ?
25.2 ( 15.9/ 9.3/ 4.5) 17 Case insensitive substitution
24.9 ( 10.8/ 13.9/ 8.8) 13 Sorting versions of a file, Help needed
22.4 ( 8.1/ 14.2/ 9.7) 10 Memory Issues/File Slurping
These threads accounted for 16.1% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.830 ( 6.9/ 8.3) 10 Premature end of srcipt headers?
0.791 ( 1.2/ 1.5) 5 Calling executables
0.790 ( 7.6/ 9.7) 6 Multiplexing stdin and stderr to screen and logfile
0.769 ( 4.9/ 6.4) 8 HTML input box variables?
0.768 ( 2.1/ 2.8) 5 too late error?
0.763 ( 3.7/ 4.8) 6 Q: How to make a Perlscript Shareware?
0.730 ( 5.9/ 8.1) 5 autoload troubles
0.722 ( 2.1/ 2.8) 6 cgi browser recognition
0.712 ( 6.0/ 8.5) 7 having trouble with system
0.706 ( 3.1/ 4.4) 10 New word
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.434 ( 0.9 / 2.1) 5 perl script runs twice
0.428 ( 2.0 / 4.6) 7 Best way for batch renaming specific files
0.421 ( 2.0 / 4.7) 6 Win32::OLE Question
0.390 ( 2.3 / 6.0) 5 Mysql connect specifying port
0.387 ( 2.8 / 7.3) 9 newbie-- re:win32 system() calls -- rmdir /s/q
0.353 ( 3.4 / 9.7) 11 open two files for line processing concurrently???
0.330 ( 2.3 / 7.0) 9 a question to programmers.
0.326 ( 2.9 / 8.8) 5 how do I sort the output of this?
0.297 ( 2.6 / 8.7) 10 Ack! Newbie still suffering from C-brain!
0.294 ( 6.0 / 20.3) 9 sorting a hash on part of its value?
80 threads (28%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
53 alt.perl
25 comp.lang.perl.modules
11 comp.lang.perl.tk
10 comp.lang.perl
3 de.comp.lang.perl.cgi
3 alt.comp.perlcgi.freelance
3 alt.h2pcr2me.lang.perl
2 comp.object
1 alt.humor.best-of-usenet.d
1 comp.mail.sendmail
Top 10 Crossposters
===================
Articles Address
-------- -------
6 "Marc" <marc@hvc.rr.com>
6 E.Chang <echang@netstorm.net>
6 "Leo Hemmings" <leapius@hotmail.com>
6 Kevin Michael Vail <kevin@vaildc.net>
4 Michael =?ISO-8859-1?Q?D=F6ring?= <info@rpv.de>
4 isterin <isterin@hotmail.com>
4 Andras Malatinszky <andras@mortgagestats.com>
4 "Pat Krz" <pmg@kroazhent.com>
3 Michael Budash <mbudash@sonic.net>
3 Joe Smith <inwap@best.com>
------------------------------
Date: Mon, 18 Jun 2001 10:10:28 GMT
From: "Blnukem" <blnukem@hotmail.com>
Subject: Uppercase Array
Message-Id: <oskX6.76935$tR.8058235@news02.optonline.net>
Why don't this work? I want to upper case this first letter of every thing
in @CATEGORIES.
open (ITEM,"item.dat");
@CATEGORIES=<ITEM>;
close (ITEM);
ucfirst (@CATEGORIES);
------------------------------
Date: Mon, 18 Jun 2001 12:21:39 +0200
From: Philip Newton <pne-news-20010618@newton.digitalspace.net>
Subject: Re: Uppercase Array
Message-Id: <s7lritknbt2c47gppqrfa14imbr8bjicsg@4ax.com>
On Mon, 18 Jun 2001 10:10:28 GMT, "Blnukem" <blnukem@hotmail.com> wrote:
> Why don't this work? I want to upper case this first letter of every thing
> in @CATEGORIES.
>
> ucfirst (@CATEGORIES);
Because the syntax is 'ucfirst EXPR'. It takes a single scalar argument.
Thus, the above is equivalent to 'ucfirst("244")', if you have 244 lines
in your file.
If you want to uppercase the first letter of every line, you can use
something like
$_ = ucfirst for @CATEGORIES;
, which iterates over @CATEGORIES with foreach and calls ucfirst($_)
each time. Since foreach makes $_ an alias to the real value, this will
change the actual values.
If you want to uppercase the first letter of each word on each line,
you'd have to do a little more work. (It will also depend on your
definition of "word".)
> open (ITEM,"item.dat");
Always, always check the return value of your open calls.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.li>
Yes, that really is my address; no need to remove anything to reply.
If you're not part of the solution, you're part of the precipitate.
------------------------------
Date: Mon, 18 Jun 2001 12:53:56 GMT
From: "Blnukem" <blnukem@hotmail.com>
Subject: Re: Uppercase Array
Message-Id: <ERmX6.77779$tR.8195283@news02.optonline.net>
Thanxs Philip!
------------------------------
Date: Mon, 18 Jun 2001 15:19:10 +0100
From: Graham Wood <Graham.T.Wood@oracle.com>
Subject: Re: Uppercase Array
Message-Id: <3B2E0DDE.9F040407@oracle.com>
This is a multi-part message in MIME format.
--------------BE626C30F032394E209CF86D
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit
Blnukem wrote:
> Why don't this work? I want to upper case this first letter of every thing
> in @CATEGORIES.
>
> open (ITEM,"item.dat");
> @CATEGORIES=<ITEM>;
> close (ITEM);
>
> ucfirst (@CATEGORIES);
ucfirst doesn't act on it's argument (like chop does). You have to assign the
output of ucfirst to a variable. It also doesn't take an array argument. If
you give an array as an argument, it returns the number of elements in the
array.
You could use
@CATEGORIES = map{ucfirst} @CATEGORIES;
to uppercase all the first letters in @CATEGORIES.
Graham Wood
--------------BE626C30F032394E209CF86D
Content-Type: text/x-vcard; charset=UTF-8;
name="Graham.T.Wood.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Graham Wood
Content-Disposition: attachment;
filename="Graham.T.Wood.vcf"
begin:vcard
n:;Graham
x-mozilla-html:FALSE
adr:;;;;;;
version:2.1
email;internet:Graham.T.Wood@oracle.com
fn:Graham Wood
end:vcard
--------------BE626C30F032394E209CF86D--
------------------------------
Date: Mon, 18 Jun 2001 13:09:18 GMT
From: helgi@NOSPAMdecode.is (Helgi Briem)
Subject: Re: using lwp ??
Message-Id: <3b2dfd0e.1657680518@news.isholf.is>
On Sun, 17 Jun 2001 21:00:16 +0200, "sjaak nabuurs"
<sjaaknabuurs@hetnet.nl> wrote:
>Hello
>How to retrieve some information from other website's
>I try this but I don't know.
>(It's allway's bad luck)
>
>#!/usr/local/bin/perl
># Create a user agent object
>use LWP::UserAgent;
>$ua = new LWP::UserAgent;
>$ua->agent("AgentName/0.1 " . $ua->agent);
Add this line here:
$ua->proxy(['http'] => 'http://PROXY:PORT');
substituting the address and port of your proxy server.
<SNIP REST OF CODE>
Regards,
Helgi Briem
PS 99.9% of all LWP and PPM problems seem to boil
down to this. I don't get it.
------------------------------
Date: Mon, 18 Jun 2001 11:20:11 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: What is the ideal way to parse?
Message-Id: <3B2DE3C7.C5D77E07@acm.org>
Jenda Krynicky wrote:
>
> Store the values in a hash :
>
> $var{variable1} = "something";
> $var{variable2} = "something other"
>
> then use s/// similar to this :
>
> $line =~ s/\$([\w_][\w\d_]*)/$var{$1}/g;
^^^ ^^^^^
The \w metacharacter includes the underscore (_) character and all
alphanumerics so your regex would allow a number as the first character.
$line =~ s/\$([a-zA-Z_]\w*)/$var{$1}/g;
> # variable names contain only letters, numerals and underscore
> # and start with a letter of underscore
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
John
--
use Perl;
program
fulfillment
------------------------------
Date: Mon, 18 Jun 2001 12:04:03 GMT
From: Charlie Markwick <comp-lang-perl-misc@-spambreak-southcot.com>
Subject: Re: windows 2000
Message-Id: <3grritkkguu3r8jjfkgamohu9c9r2htbrf@4ax.com>
Can someone explain this exchange to me?
Charlie Markwick
On Sun, 17 Jun 2001 20:24:04 +0200, buggs <buggs-clpm@splashground.de>
wrote:
>Abe Timmerman wrote:
>
>>
>> *plonk*
>>
>
>*splash*
>
>Buggs
------------------------------
Date: Mon, 18 Jun 2001 08:59:17 -0500
From: Chris <cpryce@pryce.net>
Subject: Re: windows 2000
Message-Id: <B7537365.6EF6%cpryce@pryce.net>
in article 3grritkkguu3r8jjfkgamohu9c9r2htbrf@4ax.com, Charlie Markwick at
comp-lang-perl-misc@-spambreak-southcot.com wrote on 06/18/2001 7:04 AM:
> Can someone explain this exchange to me?
>
> Charlie Markwick
>
> On Sun, 17 Jun 2001 20:24:04 +0200, buggs <buggs-clpm@splashground.de>
> wrote:
>
>> Abe Timmerman wrote:
>>
>>>
>>> *plonk*
>>>
>>
>> *splash*
>>
>> Buggs
>
Yes. Buggs wanted you to run a one line command script that would format c:
(I am sure as a joke, since he knew that it wouldn't work if Perl wasn't
installed).
Abe suggested that he was acting inappropriately and put him in his
newsreader's killfile (a file that filters out posts), and publicly
announced it (the *plonk*).
Buggs reacted in like manner, and you were confused and your question went
essentially unanswered (although Bart's suggestion about ActivePerl was
informative, you should start there).
In addition to ActivePerl, you'll also need a Web server if you are using
Perl as a CGI scripting environment. I haven't tested apache on Win2k, but
there will be information at http://httpd.apache.org. Or, if you plan on
using IIS (shudder) this link to Microsoft's TechNet will help get you
started (http://www.microsoft.com/technet/iis/deploy.asp).
cp
------------------------------
Date: Mon, 18 Jun 2001 16:04:13 +0200
From: Philip Newton <pne-news-20010618@newton.digitalspace.net>
Subject: Re: windows 2000
Message-Id: <gf2sitcsbnmf1thh1597ef75354alrok04@4ax.com>
On Mon, 18 Jun 2001 08:59:17 -0500, Chris <cpryce@pryce.net> wrote:
> In addition to ActivePerl, you'll also need a Web server if you are using
> Perl as a CGI scripting environment. I haven't tested apache on Win2k, but
> there will be information at http://httpd.apache.org.
Or get IndigoPerl ( http://www.indigostar.com/indigoperl.htm ) which
comes with an Apache web server (with mod_perl, even). Possibly easier
than downloading ActivePerl and Apache separately and configuring them.
However, I have no experience with IndigoPerl.
Cheers,
philip
--
Philip Newton <nospam.newton@gmx.li>
Yes, that really is my address; no need to remove anything to reply.
If you're not part of the solution, you're part of the precipitate.
------------------------------
Date: Mon, 18 Jun 2001 14:37:53 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: windows 2000
Message-Id: <9k4sit8bht4jda715pt0rk8l1a05ahe9lr@4ax.com>
Philip Newton wrote:
>Or get IndigoPerl ( http://www.indigostar.com/indigoperl.htm ) which
>comes with an Apache web server (with mod_perl, even). Possibly easier
>than downloading ActivePerl and Apache separately and configuring them.
>However, I have no experience with IndigoPerl.
I have. Good stuff. Only, it's still 5.6.0. I don't know if 5.6.1 is in
the works.
--
Bart.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.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.
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 V10 Issue 1153
***************************************
