[17010] in Perl-Users-Digest
Perl-Users Digest, Issue: 4422 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 25 11:10:24 2000
Date: Mon, 25 Sep 2000 08:10:10 -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: <969894610-v9-i4422@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 25 Sep 2000 Volume: 9 Number: 4422
Today's topics:
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: system() not working as expected. new to perl tjmurphy9677@my-deja.com
Re: system() not working as expected. new to perl tjmurphy9677@my-deja.com
Top of Page Printing <wchong@pacific.net.sg>
Re: when is a DBM worth it <rwoodman@verio.net>
Re: when is a DBM worth it <rwoodman@verio.net>
Re: when is a DBM worth it (Tony L. Svanstrom)
Re: Win32 and Serial Comunications (Bbirthisel)
Re: Windows 98 / Active Perl / CGI <flavell@mail.cern.ch>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 25 Sep 2000 14:32:49 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <ssuoghl8lu4i54@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 18 Sep 2000 15:33:35 GMT and ending at
25 Sep 2000 14:09:26 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) 2000 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
Totals
======
Posters: 496
Articles: 1603 (744 with cutlined signatures)
Threads: 425
Volume generated: 2837.5 kb
- headers: 1302.1 kb (25,620 lines)
- bodies: 1417.7 kb (47,362 lines)
- original: 912.1 kb (32,969 lines)
- signatures: 116.2 kb (3,102 lines)
Original Content Rating: 0.643
Averages
========
Posts per poster: 3.2
median: 1.0 post
mode: 1 post - 274 posters
s: 6.5 posts
Posts per thread: 3.8
median: 3 posts
mode: 1 post - 105 threads
s: 4.6 posts
Message size: 1812.6 bytes
- header: 831.8 bytes (16.0 lines)
- body: 905.6 bytes (29.5 lines)
- original: 582.7 bytes (20.6 lines)
- signature: 74.2 bytes (1.9 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
85 163.5 ( 64.3/ 81.8/ 76.4) abigail@foad.org
56 93.3 ( 36.5/ 50.4/ 26.6) Larry Rosler <lr@hpl.hp.com>
42 69.3 ( 34.8/ 33.4/ 17.6) Ren Maddox <ren.maddox@tivoli.com>
38 55.0 ( 34.6/ 20.2/ 12.2) Bart Lateur <bart.lateur@skynet.be>
31 67.1 ( 27.5/ 33.5/ 20.7) mgjv@tradingpost.com.au
28 43.5 ( 20.9/ 20.4/ 11.9) nobull@mail.com
26 44.6 ( 20.2/ 20.5/ 10.0) Gwyn Judd <tjla@guvfybir.qlaqaf.bet>
26 44.7 ( 24.4/ 12.5/ 6.0) Uri Guttman <uri@sysarch.com>
24 38.9 ( 19.3/ 16.6/ 5.9) Jonathan Stowe <gellyfish@gellyfish.com>
24 64.3 ( 21.9/ 33.4/ 22.8) "Godzilla!" <godzilla@stomp.stomp.tokyo>
These posters accounted for 23.7% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
163.5 ( 64.3/ 81.8/ 76.4) 85 abigail@foad.org
93.3 ( 36.5/ 50.4/ 26.6) 56 Larry Rosler <lr@hpl.hp.com>
69.3 ( 34.8/ 33.4/ 17.6) 42 Ren Maddox <ren.maddox@tivoli.com>
67.1 ( 27.5/ 33.5/ 20.7) 31 mgjv@tradingpost.com.au
64.3 ( 21.9/ 33.4/ 22.8) 24 "Godzilla!" <godzilla@stomp.stomp.tokyo>
55.0 ( 34.6/ 20.2/ 12.2) 38 Bart Lateur <bart.lateur@skynet.be>
51.2 ( 27.6/ 14.9/ 7.1) 21 Tony L. Svanstrom <tony@svanstrom.com>
44.7 ( 24.4/ 12.5/ 6.0) 26 Uri Guttman <uri@sysarch.com>
44.6 ( 20.2/ 20.5/ 10.0) 26 Gwyn Judd <tjla@guvfybir.qlaqaf.bet>
43.5 ( 20.9/ 20.4/ 11.9) 28 nobull@mail.com
These posters accounted for 24.5% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 2.4 / 2.4) 5 BUCK NAKED1 <dennis100@webtv.net>
1.000 ( 6.1 / 6.1) 8 David Steuber <nospam@david-steuber.com>
1.000 ( 2.8 / 2.8) 5 Carfield Yim <carfield@my-deja.com>
0.968 ( 13.2 / 13.6) 6 Hugo Bouckaert <hugo@fractalgraphics.com.au>
0.933 ( 76.4 / 81.8) 85 abigail@foad.org
0.900 ( 4.1 / 4.6) 7 rathmore@tierceron.com
0.842 ( 3.4 / 4.0) 7 "FX" <FX@hasnomail.com>
0.838 ( 6.6 / 7.9) 6 Alone <Alone@Work.com>
0.829 ( 2.1 / 2.6) 5 grymoire@my-deja.com
0.799 ( 6.0 / 7.5) 6 Jim Cook <jcook@strobedata.com>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.421 ( 2.0 / 4.6) 8 jerome.oneil@360.com
0.419 ( 6.3 / 15.1) 17 jason <elephant@squirrelgroup.com>
0.415 ( 1.4 / 3.4) 5 Marvin <ales.romaniuk@zag.si>
0.415 ( 1.2 / 2.9) 5 Tony Curtis <tony_curtis32@yahoo.com>
0.376 ( 3.4 / 9.1) 9 Jim Mauldin <mauldin@netstorm.net>
0.371 ( 2.4 / 6.5) 5 hiroshiishii@my-deja.com
0.357 ( 5.9 / 16.6) 24 Jonathan Stowe <gellyfish@gellyfish.com>
0.313 ( 1.6 / 5.1) 6 Clay Irving <clay@panix.com>
0.287 ( 2.3 / 7.9) 7 Dave O'Brien <david.obrien@ssmb.com.au>
0.237 ( 1.6 / 6.9) 9 Tom Briles <sariq@texas.net>
71 posters (14%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
59 Candidate for the top ten perl mistakes list
33 Pure perl encrypt/decryption?
26 2 Questions
25 Newbie - averages...
22 "not in string" - how to do it?
20 Range operator with "... /^$/"
18 Interpolation on the fly
18 Shortest code for Fibonacci?
15 Regular Expressions: Counting matches?
15 I need help with arrays.
These threads accounted for 15.7% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
101.3 ( 56.2/ 38.0/ 21.8) 59 Candidate for the top ten perl mistakes list
61.9 ( 29.7/ 30.0/ 13.7) 26 2 Questions
57.6 ( 29.0/ 25.6/ 18.7) 33 Pure perl encrypt/decryption?
40.0 ( 16.6/ 22.5/ 13.1) 20 Range operator with "... /^$/"
37.9 ( 20.2/ 15.0/ 7.1) 22 "not in string" - how to do it?
34.9 ( 19.4/ 13.3/ 7.8) 25 Newbie - averages...
34.8 ( 14.2/ 18.0/ 13.6) 18 Interpolation on the fly
34.7 ( 17.8/ 15.7/ 12.2) 18 Shortest code for Fibonacci?
32.7 ( 15.5/ 15.0/ 7.4) 15 - For this type of use (see msg), should I favor Perl or PHP3?
27.2 ( 12.0/ 12.0/ 6.4) 13 vertical text renderer
These threads accounted for 16.3% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.945 ( 5.6/ 5.9) 5 Levels of Perl Programmer
0.914 ( 5.9/ 6.4) 7 Time Zone conversion
0.835 ( 3.0/ 3.6) 6 How to use perl to read content of a gdbm file?
0.777 ( 12.2/ 15.7) 18 Shortest code for Fibonacci?
0.773 ( 6.9/ 8.9) 9 Parse::RecDescent: Problem with a Grammar
0.771 ( 8.0/ 10.3) 8 Teaching Perl
0.757 ( 13.6/ 18.0) 18 Interpolation on the fly
0.757 ( 5.9/ 7.9) 7 Can I dynamically create hashes?
0.749 ( 2.7/ 3.6) 6 Regex standards: ranges
0.748 ( 5.0/ 6.7) 5 100 levels deep in subroutine calls!
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.434 ( 2.7 / 6.1) 7 Rant: Re: An identd faking ident.
0.433 ( 2.4 / 5.4) 6 perl/dbi/mysql problem
0.431 ( 1.2 / 2.8) 5 best way to compare $var against <DATA>
0.420 ( 2.6 / 6.2) 7 Hash jelp for Newbie
0.412 ( 4.2 / 10.1) 8 Split NS Log File
0.389 ( 1.9 / 4.8) 7 Can you store a condition in a variable?
0.346 ( 2.1 / 6.2) 6 dir list of unique items
0.324 ( 2.0 / 6.1) 6 Time help
0.324 ( 2.5 / 7.6) 6 Auto-Execute Perl in HTML ???
0.312 ( 2.9 / 9.3) 6 MSXML.dll
105 threads (24%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
31 alt.perl
27 comp.lang.perl.modules
26 comp.lang.basic.visual.misc
26 comp.lang.basic.misc
26 alt.comp.lang.learn.c-c++
26 alt.lang.basic
26 alt.comp.lang.borland-delphi
20 comp.lang.perl
7 comp.lang.perl.tk
5 alt.comp.lang.superlang
Top 10 Crossposters
===================
Articles Address
-------- -------
20 "Bruce Roberts" <no.junk.please.ber@attcanada.net>
10 comeau@comeaucomputing.com
10 Uri Guttman <uri@sysarch.com>
10 "KBH" <KBH@nomail.com>
10 "Jürgen Exner" <juex@deja.com>
7 Jeff Zucker <jeff@vpservices.com>
6 filosmith@my-deja.com
6 nobull@mail.com
5 *frankie*@centurytel.net
5 "William K Loppa" <chimo@mailandnews.com>
------------------------------
Date: Mon, 25 Sep 2000 10:48:46 GMT
From: tjmurphy9677@my-deja.com
Subject: Re: system() not working as expected. new to perl
Message-Id: <8qnaia$37s$1@nnrp1.deja.com>
thanks for help - gave me good new ideas on how to go about fixing the
problem. in the end i found that the problem was caused by me having
file1 open. i closed file1 before i performed the system call - and it
worked.
In article <39cb8350.198c$328@news.op.net>,
mjd@plover.com (Mark-Jason Dominus) wrote:
> In article <8qf4fh$5g1$1@nnrp1.deja.com>, <tjmurphy9677@my-deja.com>
wrote:
> >system("uuencode file1 file2 | mail -s summary
> >tony.murphy@start.de") i get a mail as expected
> >with a file - but there is no data in the file.
>
> Perhaps the perl program has not been executed in the same directory
> as 'file1', and you did not provide a complete path to the file?
>
> Try doing this instead:
>
> system("uuencode file1 file2 2>&1 | mail -s summary tony....");
>
> The 2>&1 will redirect the error output of the uuencode command into
> the mail command. Then if uuencode fails, you will get a mail message
> explaining why.
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 10:54:11 GMT
From: tjmurphy9677@my-deja.com
Subject: Re: system() not working as expected. new to perl
Message-Id: <8qnasd$3oa$1@nnrp1.deja.com>
problem was caused by file1 been open while i was performing system
call. closed file1 and it worked ok
In article <8qf4fg$5fv$1@nnrp1.deja.com>,
tjmurphy9677@my-deja.com wrote:
> when i call
> system("uuencode file1 file2 | mail -s summary
> tony.murphy@start.de") i get a mail as expected
> with a file - but there is no data in the file.
>
> what should happen is file1 is uuencoded and the
> encoded data is placed in file2, file2 is then
> piped to mail and sent to my email address.
>
> I have run the command outside of perl and it
> works ok.
>
> running perl script on reliant unix
> mail::sender module isn't installed on the
> machine - so trying to use unix utilities to the
> work.
>
> any help appreciated.
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 20:52:51 +0800
From: Kenny <wchong@pacific.net.sg>
Subject: Top of Page Printing
Message-Id: <39CF4AA2.B2AEF2D@pacific.net.sg>
I have one report format in my script with top of page format created as
well.
When I tried to generate 2 reports of different names, the first report
is okay.
However, the second report is created without the top of page format.
Could someone assist me on this? Thank you.
Extract of my script:
for ($i = 1; $i <= $nosp; $i++)
{
$spfile = "file" . $i . ".REV";
open(revrpt,">$spfile");
:
:
:
write revrpt;
close(revrpt);
}
format revrpt_TOP =
:
:
:
.
format revrpt =
:
:
:
.
------------------------------
Date: Mon, 25 Sep 2000 08:08:51 -0500
From: Randall Woodman <rwoodman@verio.net>
Subject: Re: when is a DBM worth it
Message-Id: <39CF4E62.6055C7E@verio.net>
In my experience, I find perl to be fast enough for most problems. Even if
you are talking about a few thousand users, you will find perl and a flat
file will work just as fast as using a DBM. Then again, that depends on how
efficient you write your code. :-) Want to see how fast perl can be? Go
visit my site. http://www.taglinesgalore.com/ I have almost 300,000
taglines there and they are searchable. All of them are kept in flat
files. For this application, perl and flat files works just fine.
Your milage may vary.
Alex Hart wrote:
> I'm writing a program where each user has several setting. The number of
> fields varies, but is always less than 100 or so. Is the overhead
> associated with a database worth it for this many fields? Will a flat
> file be more efficient? I'm hoping someone who understands these isues
> can help shed some light on it for me.
>
> Bottom line : Is there a minimum number of fields or complexity before a
> DBM is worth using.
>
> Thanks already.
>
> - Alex
------------------------------
Date: Mon, 25 Sep 2000 08:09:26 -0500
From: Randall Woodman <rwoodman@verio.net>
Subject: Re: when is a DBM worth it
Message-Id: <39CF4E86.EE9EBCC8@verio.net>
In my experience, I find perl to be fast enough for most problems. Even if
you are talking about a few thousand users, you will find perl and a flat
file will work just as fast as using a DBM. Then again, that depends on how
efficient you write your code. :-) Want to see how fast perl can be? Go
visit my site. http://www.taglinesgalore.com/ I have almost 300,000
taglines there and they are searchable. All of them are kept in flat
files. For this application, perl and flat files works just fine.
Your milage may vary.
Alex Hart wrote:
> I'm writing a program where each user has several setting. The number of
> fields varies, but is always less than 100 or so. Is the overhead
> associated with a database worth it for this many fields? Will a flat
> file be more efficient? I'm hoping someone who understands these isues
> can help shed some light on it for me.
>
> Bottom line : Is there a minimum number of fields or complexity before a
> DBM is worth using.
>
> Thanks already.
>
> - Alex
------------------------------
Date: Mon, 25 Sep 2000 15:18:37 +0200
From: tony@svanstrom.com (Tony L. Svanstrom)
Subject: Re: when is a DBM worth it
Message-Id: <1ehit54.tv2iac13cssmkN%tony@svanstrom.com>
Randall Woodman <rwoodman@verio.net> wrote:
> In my experience, I find perl to be fast enough for most problems. Even
> if you are talking about a few thousand users, you will find perl and a
> flat file will work just as fast as using a DBM. Then again, that depends
> on how efficient you write your code. :-) Want to see how fast perl can
> be? Go visit my site. http://www.taglinesgalore.com/ I have almost
> 300,000 taglines there and they are searchable. All of them are kept in
> flat files. For this application, perl and flat files works just fine.
That's almost cheating, because that thing is easier to write using a
simple flat file-DB. :)
/Tony
--
/\___/\ Who would you like to read your messages today? /\___/\
\_@ @_/ Protect your privacy: <http://www.pgpi.com/> \_@ @_/
--oOO-(_)-OOo---------------------------------------------oOO-(_)-OOo--
on the verge of frenzy - i think my mask of sanity is about to slip
---ôôô---ôôô-----------------------------------------------ôôô---ôôô---
\O/ \O/ ©99-00 <http://www.svanstrom.com/?ref=news> \O/ \O/
------------------------------
Date: 25 Sep 2000 10:28:41 GMT
From: bbirthisel@aol.com (Bbirthisel)
Subject: Re: Win32 and Serial Comunications
Message-Id: <20000925062841.09025.00000429@ng-ff1.aol.com>
Hi Dani,
The Win32::SerialPort module from CPAN is frequently used for things like this.
=bill
Making computers work in Manufacturing for over 25 years (inquiries welcome)
------------------------------
Date: Mon, 25 Sep 2000 11:53:50 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Windows 98 / Active Perl / CGI
Message-Id: <Pine.GHP.4.21.0009251147350.19401-100000@hpplus03.cern.ch>
On Mon, 25 Sep 2000 oi03_2000@my-deja.com wrote:
> I searched for three hours in the
> discussion group but could not find a good answer.
Well, I've seen what I'd consider a good answer, often enough.
> I'm running Windows 98, personal web server.
That's your problem, then.
> I've downloaded Active perl (I'm a beginning Perl programmer) and
> installed it successfully.
That's OK, but almost any choice of web server would be better than
the one you have made. If you want to go for a transferrable skill,
choose Apache. There are simpler choices, though, if a simple server
meets your requirements.
> Question is what do I have to do to get this
> working?
Your problem is almost certainly either with the CGI or with the
peculiarities of your chosen server, rather than with Perl. The CGI
authoring group, or the ms-windows servers group, might be more
comfortable places to seek help.
You haven't mentioned CGI.pm, so I will. Use it, until you understand
why. Perhaps you'll still choose to use it afterwards: many do.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 4422
**************************************
