[8387] in Perl-Users-Digest
Perl-Users Digest, Issue: 2004 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 2 17:27:23 1998
Date: Mon, 2 Mar 98 14:00:28 -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, 2 Mar 1998 Volume: 8 Number: 2004
Today's topics:
Re: Anybody want a small puzzle? (John Moreno)
Re: Anybody want a small puzzle? <uri@sysarch.com>
Re: CGI,Perl,Access (Steve Linberg)
Re: CGI,Perl,Access (Curtis)
Conflict Resolved <ptimmins@netserv.unmc.edu>
Re: Location: and targets help (Jeff Yoak)
Re: locking files in perl <barnett@houston.Geco-Prakla.slb.com>
MX name lookup (David Boldt)
Re: Never want to work there again. (SPAM but please re (RonaldWS)
Re: on the future of c.l.p.m <adavid@adavid.netinfo.net>
Perl can't load libdb.so.1 ?? (Fay-Tjung Liu)
Perl performs a second miracle. Prepare for canonizato (William Denton)
post to usenet <techsoft@abcpages.com>
Re: shift doesn't, NEXT-to-last value? <uri@sysarch.com>
Re: shift doesn't, NEXT-to-last value? (Mike Stok)
Sorting by order of array elements? <dfetter@shell4.ba.best.com>
Re: SQL sytax in Perl? Do you know.... (Curtis)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Strict (Martin Vorlaender)
Re: Telnet prompt: how type username and password autom (Nathan V. Patwardhan)
The -w switch (was Re: better way to do this?) <upsetter@shore.net>
Re: The -w switch (was Re: better way to do this?) <uri@sysarch.com>
Re: The F-able BIll GAtes (was: Re: The Ineffable Tom C (Martin Vorlaender)
Web Clients book <lyonsj@bgnet.bgsu.edu>
Re: Why doesn't "tr/\x0D//d" work? <tchrist@mox.perl.com>
Re: Winnt shell commands (Steve Linberg)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 2 Mar 1998 15:31:29 -0500
From: phenix@interpath.com (John Moreno)
Subject: Re: Anybody want a small puzzle?
Message-Id: <0F1CAD32EEAF881A.B1B02C5F3EF4CA05.11BD09C1196C7095@library-proxy.airnews.net>
<SPC@popstar.com> wrote:
> if ($deleted != "$file"){
unless $file has a numeric value this is wrong.
> $count=0;
> until ($count >= $SIZE){
> $startmarker="<!--Begin $file-->";
> if ($FILES[$count] =~ $startmarker ){
This is wrong no matter how you slice it.
> $endmarker="<!--End of $file-->";
> until ($FILES[$count] =~ $endmarker) {
Ditto.
> undef($FILES[$count]);
> $count++;
> }
> undef($FILES[$count]);
> }
> open (OUTPUT_FILE_LIST,">address/filename.html");
No check on whether the file is opened.
> print OUTPUT_FILE_LIST $FILES[$count];
> close(OUTPUT_FILE_LIST);
> $count++;
> }
-snip-
Sigs are supposed to be preceded by a line consisting of two dashes and
a space
"-- "
And should be no more than 4 lines long. Drop the dashes and you'll
be fine.
> --------------------------------------
> Steven Cook
> BSc. (Hons) Media Technology
> University of Teesside.
> http://www.geocities.com/hollywood/5085
> ----------------------------------------
>
>
> Thank you for any help you can provide.
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/ Now offering spam-free web-based newsreading
Keep a eye out for NewsReader.com - it's not a archive, it a real live
www based newsreader and for posting or reading will be a lot better
(although not of course for research as to what was said a month ago).
--
John Moreno
I am trying to convince the author of YA-NewsWatcher that the latest
version should be released to the public. He doesn't think there's much
interest in a new version. Help me prove him wrong. To do so, send me
mail <mailto:phenix@interpath.com> with a Subject of New YA. Comments
on what you like/dislike in the current version will be appreciated.
------------------------------
Date: 02 Mar 1998 15:34:01 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Anybody want a small puzzle?
Message-Id: <x7ogzozvba.fsf@sysarch.com>
i won't try to truly fix your program as it is not exactly clear what you
are trying to do. but you have MANY poor coding habits (some are not
even perl specific) that i will comment upon.
SPC@popstar.com writes:
> if ($deleted != "$file"){
is $file numeric or text? if text, the comparison should be 'ne'
also you don't need to quote standalone scalars
> $count=0;
> until ($count >= $SIZE){
this is clearer if written as while ($count < $SIZE){
also don't use all caps variable names
> $startmarker="<!--Begin $file-->";
this is an invariant value which should be moved outside the loop. it
never changes value in the loop
> if ($FILES[$count] =~ $startmarker ){
put // around the regex. this may work but it is not clear and also you
can't use regex modifiers
> $endmarker="<!--End of $file-->";
invariant again
> until ($FILES[$count] =~ $endmarker) {
> undef($FILES[$count]);
all this does is make the array entry value = undef. it does not delete
the entry. it will bite you later with warnings about undefined values
if you use the -w option (you ARE using the -w option aren't you?)
use slice if you truly want to delete and array entry, but be careful
since you are using indexing.
> $count++;
> }
> undef($FILES[$count]);
same as before
> }
> open (OUTPUT_FILE_LIST,">address/filename.html");
check the return value of open for errors and handle them
> print OUTPUT_FILE_LIST $FILES[$count];
> close(OUTPUT_FILE_LIST);
> $count++;
> }
> $deleted=$file;
> }
also look into the .. (range operator) this all could be done in much
less code which is much more clear.
something like this (untested)
@out_lines = () ;
$startmarker = "<!--Begin $file-->" ;
$endmarker = "<!--End of $file-->" ;
while( @in_lines ) {
$in_line = shift @in_lines ;
next if $in_line =~ /$startmarker/ .. $in_line =~ /$endmarker/
push @out_lines, $in_line ;
}
or even tighter using grep:
@out_lines = grep( ! /$startmarker/ .. /$endmarker/, @in_lines ) ;
study the range operator and grep to understand this code.
hope this helps,
uri
--
Uri Guttman SYStems ARCHitecture and Software Engineering
uri@sysarch.com Have Perl, Will Hack
http://www.sysarch.com (781) 643-7504 x*2 FAX: (781) 643-2710
Try the Best Search Engine on the Net --------> http://www.northernlight.com
------------------------------
Date: Mon, 02 Mar 1998 15:28:42 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: CGI,Perl,Access
Message-Id: <linberg-0203981528420001@projdirc.literacy.upenn.edu>
In article <34FAC907.353EEDA0@soi.city.ac.uk>, aitabra@soi.city.ac.uk wrote:
> I've created a small perl script which inserts data into a Microsoft
> Access Database. It works great under MS-DOS but I had this error when I
> tried to run it form the Web :
> Can't call method "Sql" without a package or object reference
>
> Could somebody help me, please.
>
> Brahim.
This is a CGI question, so it should be posed in a CGI newsgroup.
Quick answer: you don't have the SQL library you're referencing properly
available.
Head for www.perl.com and look for Tom Christiansen's "idiot's guide to
CGI programming."
_____________________________________________________________________
Steve Linberg National Center on Adult Literacy
Systems Programmer &c. University of Pennsylvania
linberg@literacy.upenn.edu http://www.literacyonline.org
------------------------------
Date: Mon, 02 Mar 1998 21:16:21 GMT
From: someguyNOSPM@knick-knack.com (Curtis)
Subject: Re: CGI,Perl,Access
Message-Id: <34fb2159.23071380@news.alt.net>
On Mon, 02 Mar 1998 14:58:16 +0000, Brahim <aitabra@soi.city.ac.uk> wrote:
>Hi,
>
>I've created a small perl script which inserts data into a Microsoft
>Access Database. It works great under MS-DOS but I had this error when I
>tried to run it form the Web :
>Can't call method "Sql" without a package or object reference
>
>Could somebody help me, please.
>
>Brahim.
You're going to have to give more information (what webserver are you using,
what OS (Win95/ NT?), etc, etc. I set up an Access database last week using
examples I found at http://www.access.digex.net/~jurlwin/ try looking there for
some help...
--Curtis
------------------------------
Date: Mon, 02 Mar 1998 11:20:11 -0600
From: Patrick Timmins <ptimmins@netserv.unmc.edu>
Subject: Conflict Resolved
Message-Id: <34FAEA4B.1F46@netserv.unmc.edu>
George Carlin was right ... anyone who drives faster than me is a nut,
and anyone who drives slower is an idiot. You all must decide which you
are by the next time I look at this newsgroup ;)
Conflict resolved.
Patrick Timmins
U. Nebraska Medical Center
------------------------------
Date: Mon, 02 Mar 1998 20:06:41 GMT
From: jeff@yoak.com (Jeff Yoak)
Subject: Re: Location: and targets help
Message-Id: <6df3sh$apl@dfw-ixnews10.ix.netcom.com>
[posted and emailed]
"Charles Jaimet" <webmaster@netminder.com> wrote:
>I'm using a perl script to redirect users from a drop down menuwith the
>following line:
>print "Location: ", $in{'url'}, "\n\n";
>But I have to specify the target frame/window in the form statement (ie. in
>HTML).
>Is there a way to set the target in PERL?
This question is more appropriate to
comp.infosystems.www.authoring.cgi . I suggest you look there as this
exact question has recently been discussed.
Cheers,
Jeff
-------------------------------
Jeff Yoak jeff@yoak.com
------------------------------
Date: Mon, 02 Mar 1998 13:29:51 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
Subject: Re: locking files in perl
Message-Id: <34FB08AF.B297D41A@houston.Geco-Prakla.slb.com>
Peter Shankey wrote:
>
> What is the basic command and syntax to lock files in perl
>
> thanks
> pete
Well:
perldoc -f flock
has lots of useful information. 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 *
* Schlumberger Geco-Prakla (281) 596-1434 (Office Number) *
* 1325 S. Dairy Ashford (281) 596-1807 (Fax) *
* Houston, TX 77077 *
------------------------------------------------------------------------
------------------------------
Date: 2 Mar 1998 20:49:13 GMT
From: dboldt@usgs.gov.NO_SPAM (David Boldt)
Subject: MX name lookup
Message-Id: <6df609$h6r$1@qvarsx.er.usgs.gov>
How might one get a canonical hostname, given an
MX record name, if "nslookup" cannot be called.
--
--david boldt <dboldt@usgs.gov.NO_SPAM>
Lottery: A tax on people who are bad at math
------------------------------
Date: 2 Mar 1998 20:09:01 GMT
From: ronaldws@aol.com (RonaldWS)
Subject: Re: Never want to work there again. (SPAM but please read anyway)
Message-Id: <19980302200901.PAA23460@ladder03.news.aol.com>
One further caveat. If you believe that your management is "looking over your"
shoulder to a greater degree that you thought legal or possible you might be
right. If you are discovering that your management is violating your civil
rights you might be right. You might want to contact myself or the local
police. Do not remain in denial too long. A sociological study once concluded
that for 10 million dollars about 1/4 of Americans surveyed said they might be
willing to abondon their family of their faith, or turn to prostiution for a
week. Be careful. Try to be happy. Write good software.
RS
------------------------------
Date: 03 Mar 1998 19:00:31 +1100
From: Anthony David <adavid@adavid.netinfo.net>
Subject: Re: on the future of c.l.p.m
Message-Id: <m3n2f8nqzk.fsf@adavid.netinfo.net>
Uri Guttman <uri@sysarch.com> writes:
> i have posted ideas on how to rebuild the quality of this group and have
> gotten very little response. my major idea was to have questions labeled
> with an experience level so you could tell whether you wanted to answer
> it. the idea being that you would support the users below you in
Unfortunately, people aren't programmable and an unmoderated newsgroup
is just that. A good newsgroup is a self-regulating entity, and they
do change over time with no hope of control by one person or group.
Having said that, from my experience, there is usually a core group
of posters that have a very strong influence on the overall "tone" of
the newsgroup. That core generally changes over time. I think what we
are seeing here is a changing of the core for c.l.p.m .
This is not something to be mourned or fretted over. Watching a child being
born is not always a peaceful experience, but the results is certainly
something to be admired.
> experience. if you know the FAQ answer or where it is, you point the
> newbie that so tom c. doesn't have to flame them. let him (and others
> like him) answer tougher problems and questions. how come i never see
> almost anyone else of intermediate perl knowledge pointing newbies to
> the sources for FAQ answers?
When I have time, I come here and try and give back a small part that
I have gained. Sometimes I do find myself adopting a harsher tone than
I would face to face with people. I don't think they would comfuse me
with TomC though:-)
> those old threads wouldn't be appropriate now. in fact i rarely see
> interesting questions that are at my level (about 6-8 on a 1-10 scale).
I think the average would be 0-2
> i have tried to raise the level by posing an interesting (to me at
> least) perl quiz. question. i got 2 (count'em TWO) responses. others
> have posted some stumpers and such. they have gotten almost NO
> response. either they are too easy for the gurus, or too hard for the
> newbies. where are the rest of us? we can't just be a group of perl
> newbies out there.
Sorry I missed them. I am really going to have to set up my own newsserver
RSN. There is always dejanews I guess.
> perl too much to see this group go to hell. i like discussing its
> features, modules, idioms, etc. let's make this group have some real
> life again.
I think this group could go to hell for a while, maybe purgatory then
heaven again.
> as for tom's rudeness, arrogance, i generally agree with his
> attitude. when you sya the same thing for the nth time, you tend to get
I sometimes wish TomC was a tad more tactful, however, he responds
to a lot of posts that I just quietly roll my eyes and say to myself
"Have some people no professional pride...?". He does have the honesty
to post his feelings.
Regards
--
Anthony David | Gambling - A discretionary tax on
Anthony David & Associates | those asleep during High School Maths
------------------------------
Date: 2 Mar 1998 20:17:27 GMT
From: ftl@shell. (Fay-Tjung Liu)
Subject: Perl can't load libdb.so.1 ??
Message-Id: <6df44n$i4s$1@news.ncal.verio.com>
Hi,
I got the following error message when I tried to run a perl script as a
regular user:
------------------------------------------------------
perl: can't load library 'lidb.so.1'
------------------------------------------------------
However when I tried to run the script as root, I got the following
warning:
------------------------------------------------------
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LC_ALL = (unset),
LANG = "EN"
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
---------------------------------------------------------
Please help
Thank you very much
Andrew
ftl <at> wco <dot> com
------------------------------
Date: 2 Mar 1998 15:13:21 -0500
From: buff@interlog.com (William Denton)
Subject: Perl performs a second miracle. Prepare for canonizaton!
Message-Id: <6df3t1$j18@shell1.interlog.com>
It first happened to me last year. I'd been working on a fairly
lengthy Perl script for most of the day, adding in piece by piece
until it was almost right where I wanted it. Then I did something
wrong and it wouldn't work. I couldn't figure out why, so I left it
overnight. The next morning ... it worked! I hadn't touched it, and
nothing about the set-up had changed.
I thought it was just an odd occurrence, a one-time thing. But then
it happened again! This weekend I was fiddling away with something at
home and got it to the point where it did everything I needed, except
actually work. I left it overnight, and, as before, the next morning
it worked.
I looked through the documentation and couldn't find anything on this
wonderful behaviour. I grepped /usr/local/lib/perl5 on "miracle" and
stringsed /usr/local/bin/perl on the same word, but nothing came up.
I'm not one to complain about Perl docs, but really, this feature
should be more widely known.
Bill
--
--
William Denton : Toronto, Ontario, Canada : buff@interlog.com
http://www.vex.net/~buff/
------------------------------
Date: Mon, 02 Mar 1998 16:22:04 -0800
From: Alexander Kovalenko <techsoft@abcpages.com>
Subject: post to usenet
Message-Id: <34FB4D2B.AFC2EDD3@abcpages.com>
anybody know how i can post a message to newsgroup by perl program?
--
With best wishes,
Alex.
------------------
To purchase your own www.yourcompany.com,
please, click here: http://www.philex.net/agents/0053/
The Best Prices on the Net!!!
19.95$ for 250Mb per month
+
many additional options.
------------------------------
Date: 02 Mar 1998 15:15:32 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: shift doesn't, NEXT-to-last value?
Message-Id: <x7pvk4zw63.fsf@sysarch.com>
jdudley@access1.digex.net (James Dudley) writes:
> Hello, all.
> I am reading the new Camel book, trying examples. I have made
> a simple example for "shift" but do not understand the results.
> (Running 5.004).
>
> ---------------------------------------
> #!/usr/bin/perl
> # Program to test push and pop
>
> @foo = ("aa","bb","cc","dd","ee");
>
> foreach $foo (@foo) {
> print "Before shift:\t@foo\n";
> shift @foo;
> print "After shift:\t@foo\n\n";
> }
> print "After loop, foo = @foo\n";
> print "\n";
you are breaking a major rule with foreach. never modify the array that
foreach is looping over. either use foreach and don't touch the array in
the loop or use while and shift like this:
while( @foo ) {
$next = shift @foo ;
print $next ;
}
this is destructive to @foo while foreach is nondestructive. they both
have their uses so learn the difference. but don't overlap your idioms.
hope this helps,
uri
--
Uri Guttman SYStems ARCHitecture and Software Engineering
uri@sysarch.com Have Perl, Will Hack
http://www.sysarch.com (781) 643-7504 x*2 FAX: (781) 643-2710
Try the Best Search Engine on the Net --------> http://www.northernlight.com
------------------------------
Date: 2 Mar 1998 20:37:00 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: shift doesn't, NEXT-to-last value?
Message-Id: <6df59c$9ci@news-central.tiac.net>
In article <6df01j$dqt@access1.digex.net>,
James Dudley <jdudley@access1.digex.net> wrote:
>Hello, all.
> I am reading the new Camel book, trying examples. I have made
>a simple example for "shift" but do not understand the results.
>(Running 5.004).
>elements in the array, returns the undefined value." But it seems
>to me that the loop I have written should work ONE more time than it
>does. What's going on with that? Thanks for your help.
It seems (I hate looking under the hood...) that the for is using an index
into the list which is shrinking e.g.
for ($i = 0; $i < @foo; $i++) {
print "i is $i, \@foo is ", scalar (@foo), "\n";
print "Before shift:\t@foo\n";
shift @foo;
print "After shift:\t@foo\n\n";
}
might help explain what you're seeing. You could say
while (@foo) {
...
}
which would keep going until @foo has no elements, or you can make a
temporary copy of the list which doesn't get mangled by the loop body e.g.
foreach $foo (@{[@foo]}) {
...
}
In general I avoid modifying data structures I'm traversing if possible...
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: 2 Mar 1998 21:40:24 GMT
From: David Fetter <dfetter@shell4.ba.best.com>
Subject: Sorting by order of array elements?
Message-Id: <6df908$a7j$1@nntp1.ba.best.com>
Kind people,
I have here a Bizarre Problem...
Suppose I have an array of arbitrary (non-list) elements like this:
# This order must be preserved:
@cannonical_order = qw(foo fie bar baz);
# Weird values for the coming hash
@weird_values = ('Fee', 'Torchiere', 'Doohickey', 'Teddy Bear');
$#canonical_order == $#weird_values or die "Something's badly wrong: $!";
# Make a hash
for $i (0..$#canonical_order) {
push @groovy_hash, $canonical_order[$i],$wierd_values[$i];
}
Now, the tricky part: I want to print out the values of the hash,
sorted by the canonical order.
Which FM's should I be R'ing?
Thanks in advance for any help, tips, pointers, etc.
--
David Fetter 888 O'Farrell Street Apt E1205
shackle@ren.glaci.com San Francisco, CA 94109-7089 USA
http://www.best.com/~dfetter +1 415 567 2690 (voice)
print unpack ("u*",q+92G5S="!!;F]T:&5R(%!E<FP@2&%C:V5R"@``+)
"It's not to control, but to protect the citizens of Singapore. In our
society, you can state your views, but they have to be correct."
Ernie Hai
Coordinator of Singapore Government Internet Project
------------------------------
Date: Mon, 02 Mar 1998 21:18:21 GMT
From: someguy@knick-knack.com (Curtis)
Subject: Re: SQL sytax in Perl? Do you know....
Message-Id: <34fc21f3.23225631@news.alt.net>
On Mon, 02 Mar 1998 16:40:44 +0200, Fain <mindmore@mindless.com> wrote:
>I'm trying to find a fast way to use SQL (postgress and mSQL in
>particular) in a perl script. This is what I have been using:
>
># Query the database (in SQL), then print to a file ($file) using -o
>
>$file = "/tmp/file.db";
>system("/dir/dir/postgres/bin/psql -p 99999 -d mydatabase -o $file -c
>\"Select * from MyClass\;\"");
>
># open $file which now contains what was gotten from the SQL Query
>open (DATA2,"$file");
> while (<DATA2>) {
> print "Print out stuff from the SQL query $_\n"; # print $file
> }
> close(DATA2);
>
>
>It works fine but its long and looks like backwards logic.
>
>Is there any other way to query a SQL database in Perl??
>Is there any way that I can eliminate having to write to another file
>and then accessing that file to print from the database???
>
>Please help me...
>
>Thanks
>- Nathan Fain
>mindmore@mindless.com
I would strongly recommend you look into using a DBI/DBD solution. Take a gander
at http://www.hermetica.com/technologia/DBI/ to get you started...
--Curtis
------------------------------
Date: 2 Mar 1998 21:40:40 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <6df90o$m5s$1@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 23 Feb 1998 15:44:33 GMT and ending at
02 Mar 1998 08:01:47 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: 550
Articles: 1222 (445 with cutlined signatures)
Threads: 445
Volume generated: 2002.3 kb
- headers: 833.8 kb (16,913 lines)
- bodies: 1076.0 kb (33,545 lines)
- original: 766.7 kb (25,185 lines)
- signatures: 91.3 kb (1,790 lines)
Original Content Rating: 0.713
Averages
========
Posts per poster: 2.2
median: 1.0 post
mode: 1 post - 378 posters
s: 4.3 posts
Posts per thread: 2.7
median: 2 posts
mode: 1 post - 164 threads
s: 3.2 posts
Message size: 1677.9 bytes
- header: 698.7 bytes (13.8 lines)
- body: 901.7 bytes (27.5 lines)
- original: 642.5 bytes (20.6 lines)
- signature: 76.5 bytes (1.5 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
59 101.9 ( 43.4/ 46.0/ 28.2) mgjv@comdyn.com.au (Martien Verbruggen)
32 57.6 ( 25.6/ 27.1/ 23.3) tchrist@mox.perl.com (Tom Christiansen)
29 55.3 ( 17.4/ 29.1/ 16.2) uri@sysarch.com
28 49.1 ( 22.2/ 20.2/ 11.3) rjk@coos.dartmouth.edu
26 49.1 ( 20.4/ 24.0/ 12.6) abigail@fnx.com
26 33.2 ( 17.9/ 15.3/ 9.2) jdporter@min.net
20 32.9 ( 12.5/ 20.4/ 14.3) cberry@cinenet.net (Craig Berry)
18 26.9 ( 9.1/ 17.5/ 13.4) aml@world.std.com (Andrew M. Langmead)
17 23.3 ( 10.4/ 12.9/ 8.4) nvp@shore.net (Nathan V. Patwardhan)
15 22.4 ( 11.2/ 7.9/ 4.1) joseph@5sigma.com
These posters accounted for 22.1% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
101.9 ( 43.4/ 46.0/ 28.2) 59 mgjv@comdyn.com.au (Martien Verbruggen)
57.6 ( 25.6/ 27.1/ 23.3) 32 tchrist@mox.perl.com (Tom Christiansen)
55.3 ( 17.4/ 29.1/ 16.2) 29 uri@sysarch.com
49.1 ( 20.4/ 24.0/ 12.6) 26 abigail@fnx.com
49.1 ( 22.2/ 20.2/ 11.3) 28 rjk@coos.dartmouth.edu
34.1 ( 1.5/ 32.5/ 32.4) 2 Y Chen <yinso@u.washington.edu>
33.2 ( 17.9/ 15.3/ 9.2) 26 jdporter@min.net
32.9 ( 12.5/ 20.4/ 14.3) 20 cberry@cinenet.net (Craig Berry)
26.9 ( 9.1/ 17.5/ 13.4) 18 aml@world.std.com (Andrew M. Langmead)
26.2 ( 14.3/ 11.9/ 2.7) 15 bill@astro.fccj.cc.fl.us
These posters accounted for 23.3% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.0 / 1.0) 6 "Mr. Adam ALLEN." <adamallen@@@mail-me.com>
1.000 ( 2.1 / 2.1) 5 Wolfgang Bergbauer <wolfgang.bergbauer@munich.netsurf.de>
0.990 ( 3.2 / 3.2) 5 fl_aggie@thepentagon.com (I R A Aggie)
0.935 ( 6.2 / 6.6) 5 Frank@but_dont_use_this.address
0.891 ( 2.5 / 2.8) 6 Tzadik Vanderhoof <stvhoof@netvision.net.il>
0.871 ( 12.4 / 14.2) 6 John Callender <jbc@west.net>
0.861 ( 4.7 / 5.4) 6 kcohen@julius.ling.ohio-state.edu (Kevin B Cohen)
0.860 ( 23.3 / 27.1) 32 tchrist@mox.perl.com (Tom Christiansen)
0.857 ( 12.2 / 14.2) 8 Greg Bacon <gbacon@cs.uah.edu>
0.814 ( 12.0 / 14.7) 10 schwern@starmedia.net
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.525 ( 12.6 / 24.0) 26 abigail@fnx.com
0.517 ( 4.1 / 7.9) 15 joseph@5sigma.com
0.510 ( 3.4 / 6.6) 5 nospam_synic@omen.net.au (peter caffin)
0.504 ( 3.1 / 6.1) 7 ilya@math.ohio-state.edu (Ilya Zakharevich)
0.416 ( 1.2 / 2.9) 5 Jarkko Hietaniemi <jhi@alpha.hut.fi>
0.399 ( 4.0 / 10.0) 11 me@here.com (steve)
0.383 ( 1.0 / 2.5) 5 star@sonic.net
0.313 ( 0.4 / 1.3) 6 lovegod@earthling.net
0.288 ( 2.1 / 7.3) 5 Fain <mindmore@mindless.com>
0.226 ( 2.7 / 11.9) 15 bill@astro.fccj.cc.fl.us
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
46 The Ineffable Tom C.
17 Killfile Triage
16 better way to do this?
15 What does this one-liner do?
15 why no Case statment?
15 Easy way to "clean" an array
15 CGI.pm a part of Perl (was Re: Cookies)
14 How do you put a string into a array?
12 Why PERL? [Re: Beginner in trouble]
12 seeking and changing /etc/passwd
These threads accounted for 14.5% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
91.0 ( 35.5/ 51.0/ 33.1) 46 The Ineffable Tom C.
34.6 ( 15.2/ 18.8/ 10.1) 17 Killfile Triage
32.6 ( 0.8/ 31.8/ 31.7) 1 using CGI.pm to refresh a frame
28.7 ( 11.2/ 15.4/ 9.1) 16 better way to do this?
26.4 ( 11.3/ 13.0/ 8.2) 15 What does this one-liner do?
24.1 ( 12.7/ 9.0/ 5.1) 15 CGI.pm a part of Perl (was Re: Cookies)
23.8 ( 10.2/ 11.6/ 8.0) 15 why no Case statment?
21.3 ( 10.0/ 10.1/ 6.2) 15 Easy way to "clean" an array
21.0 ( 3.2/ 17.2/ 11.5) 5 Conflict in this Newsgroup
20.3 ( 9.6/ 9.9/ 5.3) 14 How do you put a string into a array?
These threads accounted for 16.2% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.954 ( 2.5/ 2.7) 6 Perl on Solaris x86
0.847 ( 4.2/ 5.0) 5 Problem of passing two hashes to a function ?! Doesn't work.
0.825 ( 2.1/ 2.6) 5 Function evaluation within strings?
0.820 ( 1.6/ 1.9) 5 Stripping linefeeds
0.804 ( 4.4/ 5.5) 5 Splitting on 2 line feeds?
0.786 ( 1.6/ 2.1) 5 Replacement of characters
0.779 ( 2.8/ 3.6) 6 print and the trinary ?:
0.752 ( 1.6/ 2.1) 5 Send email from Perl on NT platform
0.747 ( 3.4/ 4.5) 5 factorial function?
0.745 ( 2.2/ 2.9) 5 convert a string to a number
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.528 ( 5.3 / 9.9) 14 How do you put a string into a array?
0.515 ( 1.9 / 3.8) 12 Why PERL? [Re: Beginner in trouble]
0.512 ( 1.8 / 3.5) 6 HELP array stuff
0.508 ( 2.4 / 4.8) 5 Need some advice
0.502 ( 2.9 / 5.8) 10 many ways but i can not find one
0.496 ( 2.2 / 4.4) 6 Year 2000
0.466 ( 1.8 / 3.9) 7 Home Page Click.
0.375 ( 0.9 / 2.4) 6 Year 10000 Compliance
0.370 ( 1.2 / 3.3) 5 How do I search a file for a SPECIFIC string?
0.298 ( 1.7 / 5.8) 6 if (-d $filename) in Win32
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
47 comp.lang.perl.modules
17 news.software.readers
14 comp.software.year-2000
13 comp.lang.perl
12 tw.bbs.comp.lang.perl
12 alt.perl
12 comp.unix.programmer
9 comp.lang.c
9 comp.lang.c++
6 sanet.unix.questions
Top 10 Crossposters
===================
Articles Address
-------- -------
44 "Mr. Adam ALLEN." <adamallen@@@mail-me.com>
20 "Hello :-)" <to1tech@ix.netcom.com>
7 nospam_synic@omen.net.au (peter caffin)
6 jackson@usenix.org (Jackson Dodd)
5 daku@nortel.ca (Mark Daku)
5 Roger Hill <hillr@bellsygma.co.uk>
5 "M.J. Pieters" <mj@atmm.nl>
5 Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
5 "Liming Wang" <wangli@nortel.ca>
4 Eli the Bearded <*@qz.little-neck.ny.us>
------------------------------
Date: Mon, 02 Mar 1998 20:52:30 +0100
From: martin@RADIOGAGA.HARZ.DE (Martin Vorlaender)
Subject: Re: Strict
Message-Id: <34fb0dfe.524144494f47414741@radiogaga.harz.de>
Francesc Guasch (frankie@etsetb.upc.es) wrote:
: Hi, I want to use strict but what if I wanted to use
: a globar variable ?
: using ::DIRLIST in a sub makes perl complain :
: Bareword "::DIRLIST" not allowed while "strict subs" in use at ./Llistes.pl
: line 8.
: Execution of ./Llistes.pl aborted due to compilation errors.
: Do I have to pass that variable to the subroutine also ?
Looks like you want to pass a filehandle?! I guess you'd have to pass it
as a parameter. perldoc perlsub shows how to do this (including examples)
in the section titled "Pass by Reference".
cu,
Martin
--
| Martin Vorlaender | VMS & WNT programmer
Ceterum censeo | work: mv@pdv-systeme.de
Redmondem delendam esse. | http://www.pdv-systeme.de/users/martinv/
| home: martin@radiogaga.harz.de
------------------------------
Date: 2 Mar 1998 20:08:17 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Telnet prompt: how type username and password automatically?
Message-Id: <6df3jh$8er@fridge.shore.net>
Namsuk Kim (a-namsuk@microsoft.com) wrote:
: I want to make a script that telnet to a unix machine(s) and logs-in
: automatically.
Use the Net::Telnet module.
--
Nathan V. Patwardhan
------------------------------
Date: 2 Mar 1998 19:48:52 GMT
From: Art Cohen <upsetter@shore.net>
Subject: The -w switch (was Re: better way to do this?)
Message-Id: <6df2f4$74e@fridge.shore.net>
Craig Berry <cberry@cinenet.net> wrote:
: jay (mocat@spamtrap.best.com) wrote:
: : Alright, with some help from you guys, and some tweaking around of my
: : own, here is what I got so far:
: :
: : #!/usr/bin/perl
: Still no -w and 'use strict'? Do you *enjoy* pain? :)
I'd like to say that I almost never use the -w switch and I don't miss it
(and I don't particularly enjoy pain).
Everybody in this newsgroup posts as if you're a total and complete moron
if you don't use the -w switch on every single perl script.
Well, guess what? One of the things I (and I suspect, a lot of other
people) like about Perl is that I don't have to pre-declare variables!
They spring into existence, pre-initialized to a null variable, whenever I
need them.
However, if I turn the -w switch on, I get warnings about them! I find
this very annoying and not particularly helpful. If I need to initialize a
variable, I do it. If I don't need to, I just use the variable name, and
Perl works the way it was designed.
Does that make me an idiot or a masochist?
--Art
National Ska/Reggae Calendar: www.ziplink.net/~upsetter/ska/calendar.html
Boston Ska Home Page: www.ziplink.net/~upsetter/ska/index.html
------------------------------
Date: 02 Mar 1998 15:51:06 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: The -w switch (was Re: better way to do this?)
Message-Id: <x7n2f8zuit.fsf@sysarch.com>
Art Cohen <upsetter@shore.net> writes:
> Well, guess what? One of the things I (and I suspect, a lot of other
> people) like about Perl is that I don't have to pre-declare variables!
> They spring into existence, pre-initialized to a null variable, whenever I
> need them.
>
> However, if I turn the -w switch on, I get warnings about them! I find
> this very annoying and not particularly helpful. If I need to initialize a
> variable, I do it. If I don't need to, I just use the variable name, and
> Perl works the way it was designed.
>
> Does that make me an idiot or a masochist?
Both :-)
i use to do that but the first time you misspell a variable and can't
find the bug, you will wish you had used -w. also it uncovers other
problems you might miss. i don't call it a production program or module
if it doesn't work under -w and usually use strict.
also look into 'use vars', it makes declaring your variables very simple
or even in a top level file, declaring them with my outside of a sub.
uri
--
Uri Guttman SYStems ARCHitecture and Software Engineering
uri@sysarch.com Have Perl, Will Hack
http://www.sysarch.com (781) 643-7504 x*2 FAX: (781) 643-2710
Try the Best Search Engine on the Net --------> http://www.northernlight.com
------------------------------
Date: Mon, 02 Mar 1998 20:54:54 +0100
From: martin@RADIOGAGA.HARZ.DE (Martin Vorlaender)
Subject: Re: The F-able BIll GAtes (was: Re: The Ineffable Tom C.
Message-Id: <34fb0e8e.524144494f47414741@radiogaga.harz.de>
Billy Chambless (billy@cast.msstate.edu) wrote:
: Randal Schwartz <merlyn@stonehenge.com> writes:
: |> [2] If I am ever forced to make a choice between learning and using
: |> win32, or leaving the computer industry, let me just say it was nice
: |> knowing all of you. :-)
: Resistance is futile.
: You will be amalgamated.
Guess it's time to put that Bill "Borg" Gates pic on my webpage...
cu,
Martin
--
| Martin Vorlaender | VMS & WNT programmer
Ceterum censeo | work: mv@pdv-systeme.de
Redmondem delendam esse. | http://www.pdv-systeme.de/users/martinv/
| home: martin@radiogaga.harz.de
------------------------------
Date: Mon, 2 Mar 1998 15:39:21 -0500
From: Jen Lyons <lyonsj@bgnet.bgsu.edu>
Subject: Web Clients book
Message-Id: <Pine.SGI.3.95.980302153732.29865C-100000@sigma.bgsu.edu>
Has anyone in this NG read the O'Reilly "Programming Web Clients with
Perl" book? (That may not be the exact title, but you know what I mean...
I think.) I've been thinking about buying it, because someone stole our
school library's copy, but I just wanted some opinions on how useful it
is. I maintain a lot of web pages, and I'm looking for ways to "automate"
them a bit as far as checking links, indexing, etc etc.
If anyone can give me an opinion, I'd appreciate it.
Thanks!
Jen
Pascal: A programming language named after a man who would turn over in his
grave if he knew about it.
------------------------------
Date: 2 Mar 1998 21:33:51 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Why doesn't "tr/\x0D//d" work?
Message-Id: <6df8jv$h6j$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, Tom.Grydeland@phys.uit.no (Tom Grydeland) writes:
:> The Camel uses this looping construct rather frequently
:Yes, that has baffled me as well.
Because Chip made it do that long after we did the Camel. I think some
better solution should have been found. I can think of a few.
Funny how people forget that text files are newline *terminated*.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
"I think I'll side with the pissheads on this one." --Larry Wall
------------------------------
Date: Mon, 02 Mar 1998 15:32:30 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: Winnt shell commands
Message-Id: <linberg-0203981532300001@projdirc.literacy.upenn.edu>
In article <6de788$655$1@nnrp1.dejanews.com>,
marco-van-der.laan@Unichema.com wrote:
<snip>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/ Now offering spam-free web-based newsreading
Since you're posting via Deja News, did you try looking there first?
Does your question have anything to do with Perl? If so, post the code
that isn't working.
Is your question a CGI question? If so, post it in a CGI newsgroup.
Is your question a Windows NT question? If so, post it in a windows newsgroup.
_____________________________________________________________________
Steve Linberg National Center on Adult Literacy
Systems Programmer &c. University of Pennsylvania
linberg@literacy.upenn.edu http://www.literacyonline.org
------------------------------
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 2004
**************************************
