[16318] in Perl-Users-Digest
Perl-Users Digest, Issue: 3730 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 18 11:08:21 2000
Date: Tue, 18 Jul 2000 08:08:04 -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: <963932884-v9-i3730@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 18 Jul 2000 Volume: 9 Number: 3730
Today's topics:
Re: Shortcut for non-defined variables (Anno Siegel)
Re: Shortcut for non-defined variables (Abigail)
Re: Shortcut for non-defined variables (Abigail)
Re: Shortcut for non-defined variables (James Weisberg)
Re: Shortcut for non-defined variables (Abigail)
Re: Silly Question? (Abigail)
Re: Simple IP/Domain validation???? (David Efflandt)
Small job for someone. (Danny Lipman)
Re: sound editing ()
SPAM blocking (was Re: Bizarre BEGIN block problem) (Tad McClellan)
Re: split NONSENSE (Abigail)
stat on solaris 2.6 ()
Statistics for comp.lang.perl.misc (Greg Bacon)
storing record (han)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 18 Jul 2000 10:29:43 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Shortcut for non-defined variables
Message-Id: <8l1bin$h4n$1@lublin.zrz.tu-berlin.de>
Abigail <abigail@delanet.com> wrote in comp.lang.perl.misc:
>Michael Carman (mjcarman@home.com) wrote on MMDVIII September MCMXCIII in
><URL:news:396E14D9.F47DBB77@home.com>:
>## http://www.perl.com/tchrist/defop/defconfaq.html
[...]
>If half of the arguments in that document played any role in determining
>what goes into Perl and what not, we wouldn't have had "our".
More's the pity.
Anno
------------------------------
Date: 17 Jul 2000 19:20:03 GMT
From: abigail@delanet.com.bbs@openbazaar.net (Abigail)
Subject: Re: Shortcut for non-defined variables
Message-Id: <3bRMY6$U5l@openbazaar.net>
James Weisberg (chadbour@wwa.com) wrote on MMDVIII September MCMXCIII in
<URL:news:Y6mb5.1710$IZ1.13486@iad-read.news.verio.net>:
~~ Here's an extremely simple Perl question. Is there a shorthand for
~~ the statement:
~~
~~ $val = (defined $val) ? $val : -1;
~~
~~ To me, this looks ugly. The || operator is fine for making
~~ statements like:
~~
~~ $val ||= -1;
~~
~~ but $val will be set to -1 if $val is 0, which is not what I want
~~ to do. Have I missed something? I'm surprised there is no way to do
~~ the equivalent of:
~~
~~ $val def= -1;
~~
~~ where $val is set to -1 if $val is not defined.
That has been beaten to death. Many people want it. Some people don't.
Some people deflect each discussion to try to introduce an extremely
generic operator, which, if used, is even more awkward than the defined
statement above - just to move away the discussion from introducing the
new operator.
People prefer to have the pointless 'our' (use a pragma to save one line
of typing!), incomplete Unicode support and obscure regex features.
But Larry is undecided, the pumpking is opposed, and p5p has been falling
apart due to flaming, many of which caused by this proposed operator.
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s};;;
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)}; # Perl 5.6.0 broke this...
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
------------------------------
Date: 17 Jul 2000 19:30:06 GMT
From: abigail@delanet.com.bbs@openbazaar.net (Abigail)
Subject: Re: Shortcut for non-defined variables
Message-Id: <3bRMkW$VKN@openbazaar.net>
Michael Carman (mjcarman@home.com) wrote on MMDVIII September MCMXCIII in
<URL:news:396E14D9.F47DBB77@home.com>:
##
## No, there isn't such a beast. There has been a (recurring) holy war
## about creating a '??' (hookhook) operator for just that purpose, but it
## hasn't happened. For an in-depth analysis of *why* it hasn't been
## adopted, read the following article by Tom Christiansen:
##
## http://www.perl.com/tchrist/defop/defconfaq.html
I wouldn't call that an in-depth analysis.
An emotional, political document, yes.
If half of the arguments in that document played any role in determining
what goes into Perl and what not, we wouldn't have had "our".
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
------------------------------
Date: 18 Jul 2000 00:40:01 GMT
From: chadbour@wwa.com.bbs@openbazaar.net (James Weisberg)
Subject: Re: Shortcut for non-defined variables
Message-Id: <3bRV21$UT_@openbazaar.net>
In article <slrn8msbkv.dun.abigail@alexandra.delanet.com>,
Abigail <abigail@delanet.com> wrote:
>James Weisberg (chadbour@wwa.com) wrote on MMDVIII September MCMXCIII in
><URL:news:Y6mb5.1710$IZ1.13486@iad-read.news.verio.net>:
>~~ Here's an extremely simple Perl question. Is there a shorthand for
>~~ the statement:
>~~
>~~ $val = (defined $val) ? $val : -1;
>~~
>~~ To me, this looks ugly. The || operator is fine for making
>~~ statements like:
>~~
>~~ $val ||= -1;
>~~
>~~ but $val will be set to -1 if $val is 0, which is not what I want
>~~ to do. Have I missed something? I'm surprised there is no way to do
>~~ the equivalent of:
>~~
>~~ $val def= -1;
>~~
>~~ where $val is set to -1 if $val is not defined.
>
>
>That has been beaten to death. Many people want it. Some people don't.
[...]
Sorry. Prior to posting, I didn't know this might touch off some
Perl jihad. I don't get a chance to read this newsgroup on a regular
basis.
Since my original post, as per suggestion, I took a look at the
defconfaq at www.perl.com and familiarized myself with the arguments
that surround the introduction of the ?? operator. As you might expect,
I didn't realize they were as involved as they are. On the surface,
use of a ?? as an initializer almost seems like a natural operator
given the || operator and the rich (perhaps too rich) syntactical
structure already present.
It looks to me that the majority of the debate surrounding the
introduction of the ?? operator centers on its possible misuse in
situations that are non-assigning, like "if ($a ?? $b)" and/or its
use in non-scalar context (@a = @b ?? @c). If this is the case,
then why not restrict use of ?? to only assignment-type operations
in scalar context? One could warn if used otherwise, or flat out
deny its syntax. This seems like an adequate compromise to allow
those who think that:
$a = $b ?? $c ?? $d;
is a much more elegant syntax than what Perl currently offers.
This is my opinion, but I defer to those with a much deeper insight
into the intervals of the matter. Certainly what I must write now
is not *that* unwieldy.
--
World's Greatest Living Poster
------------------------------
Date: 18 Jul 2000 02:50:03 GMT
From: abigail@delanet.com.bbs@openbazaar.net (Abigail)
Subject: Re: Shortcut for non-defined variables
Message-Id: <3bRYKR$Wfw@openbazaar.net>
James Weisberg (chadbour@wwa.com) wrote on MMDXIII September MCMXCIII in
<URL:news:nKNc5.4338$IZ1.41877@iad-read.news.verio.net>:
##
## Since my original post, as per suggestion, I took a look at the
## defconfaq at www.perl.com and familiarized myself with the arguments
## that surround the introduction of the ?? operator.
I'd say the letters 'faq' are a misnomer in the title of the document.
It's an emotional, polital document, and hilarious if the arguments are
applied to things that are getting introduced to Perl anyway. ("our", for
instance). The defconfaq mainly states opinions of one person, and is
not a peer reviewed document.
## As you might expect,
## I didn't realize they were as involved as they are. On the surface,
## use of a ?? as an initializer almost seems like a natural operator
## given the || operator and the rich (perhaps too rich) syntactical
## structure already present.
## It looks to me that the majority of the debate surrounding the
## introduction of the ?? operator centers on its possible misuse in
## situations that are non-assigning, like "if ($a ?? $b)" and/or its
## use in non-scalar context (@a = @b ?? @c).
Bogus arguments. One could misuse any binary operator in boolean context.
if ($a + $b) seldomly makes sense, but that doesn't mean + isn't useful.
The results of @a = @b || @c or @a = @a && @b aren't obvious either,
yet noone makes an issue of that. And furthermore, when was the last
time you saw a posting here that discussed problems with the use of ||
or && in list context? OTOH, people having problems with scoping aren't
uncommon, but murkying the waters with "our" wasn't a problem.
Abigail
--
map{${+chr}=chr}map{$_=>$_^ord$"}$=+$]..3*$=/2;
print "$J$u$s$t $a$n$o$t$h$e$r $P$e$r$l $H$a$c$k$e$r\n";
------------------------------
Date: 17 Jul 2000 19:40:04 GMT
From: abigail@delanet.com.bbs@openbazaar.net (Abigail)
Subject: Re: Silly Question?
Message-Id: <3bRNBA$W82@openbazaar.net>
Keith Calvert Ivey (kcivey@cpcug.org) wrote on MMDIX September MCMXCIII
in <URL:news:39701117.37152528@nntp.idsonline.com>:
:)
:) You're misunderstanding the return value of an = expression.
:) The condition $A = "" will *always* be false, because "" is
:) false. But you are, of course, right in saying that HiTekHick's
:) answer was completely wrong.
Never say always. After all, this is Perl.
#!/opt/perl/bin/perl
use strict;
sub A::TIESCALAR {bless [] => 'A'}
sub A::FETCH {1}
sub A::STORE {}
tie my $A => 'A';
if ($A = "") {
print "Yippie!\n"
}
__END__
Yippie!
Abigail
--
# Perl 5.6.0 broke this.
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
------------------------------
Date: 17 Jul 2000 02:50:15 GMT
From: efflandt@xnet.com.bbs@openbazaar.net (David Efflandt)
Subject: Re: Simple IP/Domain validation????
Message-Id: <3bQiid$UPs@openbazaar.net>
On Sat, 15 Jul 2000 19:42:37 GMT, Coy <coy@coystoys.com> wrote:
>
>"Decklin Foster" <decklin@red-bean.com> wrote in message
>news:8kqcje$34654$2@ID-10059.news.cis.dfn.de...
>: Coy <coy@coystoys.com> writes:
>:
>: > Output should be basically simple:
>: > NO or YES the domain/address is valid.
>:
>: Sure. (since you have not specified a definition of a hostname, I will
>: grab RFC2396, as it's handy:)
>
>
>:) sorry, i thought by my mentioning of :
> ./netcheck <domain.com> || <ip.addr>
>
>I have a webbased form, and users submit IP addresses
>and domain names.. I want to validate that these
>address/domains are real and answer before processing them.
You cannot really verify if an IP is online unless you know some
particular port you could connect to (see 'perldoc perlipc' for that).
For example our company smtp server and web proxy will not answer a ping
or traceroute, but you can connect to its port 25.
But you can check if a hostname can be resolved or that an IP is in the
valid range of addresses. Just be aware that some domain names alone may
not resolve, although, hostnames of boxes in that domain should:
#!/usr/bin/perl -w
use strict;
use Socket;
my $host = shift;
my $iaddr = inet_aton($host);
my $straddr = inet_ntoa($iaddr) if $iaddr;
print '', ($straddr) ? "YES" : "NO", "\n";
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://hammer.prohosting.com/~cgi-wiz/ http://cgi-help.virtualave.net/
------------------------------
Date: 18 Jul 2000 03:30:04 GMT
From: dan@dlna.com.bbs@openbazaar.net (Danny Lipman)
Subject: Small job for someone.
Message-Id: <3bRZMW$VOE@openbazaar.net>
I need a search script edited to only search on one of the fields in the
database.
The script workds now based on 9 fields in the database. It's a small
change I'm sure and it will pay small change. If you are interested contact
me.
--
Sincerely,
Danny Lipman
------------------------------
Date: 18 Jul 2000 03:00:03 GMT
From: aaronp@removeme-shore.net.bbs@openbazaar.net ()
Subject: Re: sound editing
Message-Id: <3bRYX3$UyN@openbazaar.net>
The modules didnt quite do what I needed, but I did use some perl to
patch together a bunch of little apps which do. I use the linux driver for
winradio (www.linradio.com - perl code is available for controlling it)
and pump it into my sb pro 16, yarec to record (sox rec doesnt have a
timer function), sox to convert to DAT, then some perl to parse the
headers a bit, then gnuplot to throw up a graph. I put it together in a
perl script which automatically updates a web page with the data every 4
minutes. It works well. I also found the wplot function in the wavetools
package, but its not sensitive enough for the signals I'm receiving (its
darn fast though!). You can see how it all came together to record a solar
flare today at http://www.theendoftheworld.org/flare/july17.html
Thanks to all who helped.
Aaron Price, Technical Assistant, UNIX, CGI.
American Association of Variable Star Observers
http://www.aavso.org
------------------------------
Date: 14 Jul 2000 05:10:01 GMT
From: tadmc@metronet.com.bbs@openbazaar.net (Tad McClellan)
Subject: SPAM blocking (was Re: Bizarre BEGIN block problem)
Message-Id: <3bOW3P$Urn@openbazaar.net>
On Thu, 13 Jul 2000 17:53:05 GMT, Ed Foy <ed@nospam.com> wrote:
>
>Tad McClellan wrote in message ...
>>
>>You asked me to look at that post, so I did.
>>
>>What I had to say was better said in email, so I sent you one.
^^^^^^^^^^^^^^
After pinging 'nospam.com' and 'mail.nospam.com'.
(because it looked like it might be bogus).
But it was not bogus!
There is a machine servicing that domain, so _then_ I sent an
email message.
>>It bounced.
I hope you have permission from nospam.com to be spending
_their_ cycles on _your_ bounces. But maybe that's a service
that they provide? I could not find anything to that effect
on their website...
>>So I went back to your post to find the correct email address.
I have never unmunged an address before.
When it bounces, it gets forgotten.
But I was going to make my first exception with you, because
you *asked* me to look at your post, and I wanted to let
you know that I had.
Since I could offer no help, posting it to the newsgroup would
have had no benefit.
So I needed to email it.
>>There was none.
No directions on how to change the address.
No note like "The address above does not work".
No "word directions" for making an address:
my login is 'tadmc'.
my ISP is 'metronet.com'.
put the appropriate punctuation character between them to send email.
No nothing.
>>You cannot be reached by email.
>>
>>I have a hard and fast rule about such situations.
Because you have already spent more of my question answering
time than I am willing to give. Others are waiting.
If you had
ed@nospam.com.invalid
(this one has a triple advantage.
1) people know not to try and send mail to it
2) routing knows to bounce non-existant TLDs
right away, so there is less traffic on the Internet.
3) you don't inadvertently steal someone else's resources,
by using a real domain.
)
or any other of the frequently recommended mechanisms for
avoiding fooling humans, then NONE of this would have happened.
Which is, of course, why so many of the FAQs caution against
just that.
But you did not do any of that.
You didn't do it right.
>>I gotta give you your own personal killfile entry.
>
>I also have a hard and fast rule: never put private email addresses in
>newsgroups.
You can be "reached by email" without putting your email address
in newsgroups.
They are not mutually exclusive.
And if it is the "private" part that concerns you, then get
a free throw-away email account (e.g. hotmail) to use on Usenet.
>This policy keeps the SPAM to a low roar so I spend much
>less time wading through junk mail and updating TWIT filters. It's
>called an ounce of prevention.
_I_ understand spam well enough.
But you are not spam-blocking correctly.
The primary rule is to make your address obviously (to a human)
undeliverable.
If you had done that, I would not have spent my time on trying
to send it. I would have instead spent my time answering
some other question (which may have gone unanswered).
You have hurt more than one of the posters in this newsgroup
by not following that rule.
This is not good for "community".
Nearly all of the other spam-blockers here have the courtesy
to make an effort to avoid wasting other's time (by making it
obvious that the address is undeliverable).
>>I (and probably everybody else) have no interest in potential bugs
>>in two year old software.
>That is what my ISP provides. That is what I must use until they
>upgrade. For better or worse, the real world doesn't upgrade just
>because there is something newer available.
Of course not.
They do usually upgrade when it gets to be 2 or 3 versions
behind current though.
There have been 5 major revisions since 5.004.
It has been superceded 5 times.
Or are there still companies out there using Word 2.0 or whatever?
>"Newer" doesn't mean better,
I never said, or even implied, that.
I did not say anything about quality.
I said something about the likelihood of being able to get
support and help.
If your ISP has decided to go it alone (5.004 is no longer
maintained) then so be it, they are alone.
They find and fix bugs themselves, or they live with the bugs.
(or they upgrade, which begins to not sound so bad)
>just a different set of bugs to contend with.
Err, yes. But _your_ bug (remember that, heh heh) won't be there,
because it was fixed many months ago.
So you should be _wanting_ an upgrade. It solves the problem
that is the root of this thread!
(I understand that "you wanting" and "ISP doing" are likely
not closely coupled. The ISP biz is pretty cutthroat, they
wouldn't want you jumping ship over this "unsupported software"
thing, would they?
)
>Witness: everything
>Microsoft has produced from day one.
I see their ads on TV and read about them in the paper.
But I only see them on a CRT when I want to play a shoot-em-up game.
:-)
>Does this comment mean SGML Consulting will only work with the "Latest
>and Greatest" implementation of something or reinvents the wheel because
>the original wheel doesn't use the latest set of bugs?
No.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 11 Jul 2000 17:50:02 GMT
From: abigail@delanet.com.bbs@openbazaar.net (Abigail)
Subject: Re: split NONSENSE
Message-Id: <3bMZHR$XaP@openbazaar.net>
Bart Lateur (bart.lateur@skynet.be) wrote on MMDVI September MCMXCIII in
<URL:news:begmms0m1lrckdfvrm2063av46lg1dq9ss@4ax.com>:
() Abigail wrote:
()
() >-- $\ = "\n"; $, = "\t";
() >-- for my $i (0 .. 5) {
() >-- $_ = ':' x $i;
() >-- my @a = split /:/, $_, -1;
() >-- print $i, scalar @a;
() >-- }
() >-- -->
() >-- 0 0
() >-- 1 2
() >-- 2 3
() >-- 3 4
() >-- 4 5
() >-- 5 6
() >--
() >-- There is no way to make split() return a list of one item, if the string
() >-- parts are empty strings.
() >
() >
() >Sure there is.
() >
() > @a = split /:/ => ":", 1;
() > print scalar @a;
() > __END__
() > 1
()
() I ment using -1 as a third parameter.
*shrug*. Supposed "split /:/, "", -1" returned a list of a single empty
string. Then someone would ask "there's no way to have split return an
empty list with -1 as a third parameter".
() With ":" as string, you have two emtpy strings separated by a colon. But
() a string consisting of one empty element, is a concept that split()
() isn't familiar with.
It's an arbitrary choice. Sometimes you want it to return 0 elements,
sometimes 1. You can't do both.
() This is the kludge I ended up using:
()
() @items = split /:/, "$_:", -1;
() pop @items;
Why not just:
@items = split /:/ => $_, -1;
@items = ("") unless @items?
Or in one line:
@items = split (?:? => $_, -1) ? @_ : ("");
The latter of course distroys your @_, and despite the use of ?:? indicating
you really want to split into @_, it still gives a warning of implicit split
to @_.
Abigail
--
perl -Mstrict -we '$_ = "goto M.print chop;\n=rekcaH lreP rehtona tsuJ";M1:eval'
------------------------------
Date: 17 Jul 2000 16:30:03 GMT
From: mercma@my-deja.com.bbs@openbazaar.net ()
Subject: stat on solaris 2.6
Message-Id: <3bRIDR$UGM@openbazaar.net>
Hello,
On Redhat linux (2.2.5) and HP-UX 10.20, if you do
($dev,$ino,$mode,$nlink,$uid,$gid) = stat($filename);
and $filename is a file on an NFS mounted file system $dev will return a
negative number. This is not the case on solaris 2.6 (and greater?).
Using solaris 2.6 is there a way with the stat command to check if it is
an NFS mounted file system or not?
Thanks,
Mike
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 17 Jul 2000 14:10:01 GMT
From: gbacon@cs.uah.edu.bbs@openbazaar.net (Greg Bacon)
Subject: Statistics for comp.lang.perl.misc
Message-Id: <3bREUQ$WCL@openbazaar.net>
Following is a summary of articles spanning a 7 day period,
beginning at 10 Jul 2000 15:14:17 GMT and ending at
17 Jul 2000 23:34:01 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: 593
Articles: 2050 (746 with cutlined signatures)
Threads: 506
Volume generated: 3511.7 kb
- headers: 1679.0 kb (32,590 lines)
- bodies: 1723.7 kb (60,151 lines)
- original: 1091.3 kb (41,652 lines)
- signatures: 107.0 kb (2,335 lines)
Original Content Rating: 0.633
Averages
========
Posts per poster: 3.5
median: 1 post
mode: 1 post - 338 posters
s: 7.6 posts
Posts per thread: 4.1
median: 3.0 posts
mode: 1 post - 133 threads
s: 8.7 posts
Message size: 1754.1 bytes
- header: 838.7 bytes (15.9 lines)
- body: 861.0 bytes (29.3 lines)
- original: 545.1 bytes (20.3 lines)
- signature: 53.5 bytes (1.1 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
79 161.6 ( 62.8/ 87.9/ 54.3) Tad McClellan <tadmc@metronet.com>
79 118.3 ( 68.5/ 49.8/ 25.2) Drew Simonis <care227@attglobal.net>
72 96.7 ( 61.8/ 34.3/ 21.1) Bart Lateur <bart.lateur@skynet.be>
56 100.3 ( 47.1/ 50.9/ 24.1) jason <elephant@squirrelgroup.com>
44 70.1 ( 40.5/ 29.6/ 20.1) p3rlc0dr@my-deja.com
39 54.5 ( 23.8/ 23.7/ 14.1) Craig Berry <cberry@cinenet.net>
39 76.4 ( 34.0/ 31.6/ 30.8) The WebDragon <nospam@nospam.com>
36 63.5 ( 26.8/ 29.0/ 25.6) abigail@delanet.com
33 53.1 ( 21.9/ 27.4/ 12.6) Larry Rosler <lr@hpl.hp.com>
31 60.1 ( 35.1/ 19.2/ 11.6) Keith Calvert Ivey <kcivey@cpcug.org>
These posters accounted for 24.8% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
161.6 ( 62.8/ 87.9/ 54.3) 79 Tad McClellan <tadmc@metronet.com>
118.3 ( 68.5/ 49.8/ 25.2) 79 Drew Simonis <care227@attglobal.net>
100.3 ( 47.1/ 50.9/ 24.1) 56 jason <elephant@squirrelgroup.com>
96.7 ( 61.8/ 34.3/ 21.1) 72 Bart Lateur <bart.lateur@skynet.be>
76.4 ( 34.0/ 31.6/ 30.8) 39 The WebDragon <nospam@nospam.com>
70.1 ( 40.5/ 29.6/ 20.1) 44 p3rlc0dr@my-deja.com
63.5 ( 26.8/ 29.0/ 25.6) 36 abigail@delanet.com
61.3 ( 27.3/ 24.8/ 10.3) 31 Uri Guttman <uri@sysarch.com>
60.1 ( 35.1/ 19.2/ 11.6) 31 Keith Calvert Ivey <kcivey@cpcug.org>
57.4 ( 29.8/ 27.5/ 17.2) 25 nnickee@nnickee.com
These posters accounted for 24.7% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.3 / 1.3) 5 "David Fleet" <dfleet@avaterra.com>
0.974 ( 30.8 / 31.6) 39 The WebDragon <nospam@nospam.com>
0.934 ( 3.1 / 3.3) 7 deno <jdNOjdSPAM@syncon.ie.invalid>
0.923 ( 8.8 / 9.5) 6 joerg@sql.de
0.915 ( 2.0 / 2.2) 5 kj0 <kj0@mailcity.com>
0.883 ( 25.6 / 29.0) 36 abigail@delanet.com
0.863 ( 3.6 / 4.1) 6 Jeff H <jeffahill@lucent.com>
0.823 ( 5.3 / 6.5) 6 jason iversen <jasoniversen@my-deja.com>
0.799 ( 4.6 / 5.8) 6 Mads Orbesen Troest <mads@troest.NEVERMORE.dk>
0.780 ( 4.7 / 6.1) 8 Alan Page <alandpage@aol.comnospam>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.389 ( 3.1 / 8.0) 9 "mike solomon" <mike.solomon@eps.ltd.uk>
0.385 ( 1.5 / 4.0) 8 Russ Jones <russ_jones@rac.ray.com>
0.355 ( 1.5 / 4.2) 9 Tom Briles <sariq@texas.net>
0.346 ( 2.0 / 5.8) 11 Alex Rhomberg <rhomberg@ife.ee.ethz.ch>
0.326 ( 0.9 / 2.6) 6 bmetcalf@nortelnetworks.com
0.324 ( 0.6 / 1.9) 6 =?iso-8859-1?Q?Thorbj=F8rn?= Ravn Andersen <thunderbear@bigfoot.com>
0.323 ( 1.5 / 4.6) 5 "Rodney Rindels" <rrindels@arkansas.net>
0.316 ( 2.6 / 8.3) 5 Bill Webster <billw@dal.asp.ti.com>
0.314 ( 1.3 / 4.2) 7 "Peter Sundstrom" <peter.sundstrom@eds.com>
0.245 ( 1.8 / 7.4) 11 "taboo" <taboo@doofa.net>
89 posters (15%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
165 ATTENTION PERL MACHOES!!!!!!!!!!!!!!!!!!!
39 String length?
23 Upper-to-lower case problem
22 New to perl, need help
20 Perl Expert? I need help!
20 Beyond perl? Need advice...
19 Method to obfuscate or disguise Perl source code?
19 PRINTing " "" "
19 stupid perl question
18 multidimensional associative arrays
These threads accounted for 17.8% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
291.6 (161.8/118.5/ 72.9) 165 ATTENTION PERL MACHOES!!!!!!!!!!!!!!!!!!!
74.5 ( 34.9/ 35.3/ 19.3) 39 String length?
43.6 ( 19.1/ 21.0/ 12.9) 22 New to perl, need help
41.7 ( 15.4/ 25.1/ 14.2) 17 Bizarre BEGIN block problem
39.3 ( 16.7/ 21.7/ 12.2) 20 Beyond perl? Need advice...
36.4 ( 18.1/ 17.5/ 8.5) 20 Perl Expert? I need help!
35.1 ( 17.4/ 16.9/ 10.0) 23 Upper-to-lower case problem
34.5 ( 15.2/ 18.8/ 10.2) 16 running system command as root from perl
34.5 ( 16.6/ 15.4/ 8.3) 19 Method to obfuscate or disguise Perl source code?
33.0 ( 16.3/ 14.1/ 8.0) 19 PRINTing " "" "
These threads accounted for 18.9% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.912 ( 1.9/ 2.1) 7 Perl and Mysql
0.834 ( 2.2/ 2.7) 5 off-topic, "Compiler" technology
0.828 ( 9.7/ 11.7) 9 Redirect External Program's output on Windows ?
0.828 ( 1.9/ 2.3) 5 Difference between a .cgi file and a .pl file?
0.798 ( 4.8/ 6.1) 7 programming tools and techniques
0.782 ( 1.9/ 2.5) 7 Getting a random var as output
0.778 ( 1.7/ 2.2) 5 PERL IDES
0.778 ( 5.0/ 6.4) 9 split NONSENSE
0.746 ( 5.6/ 7.5) 8 Need Help with array (should be easy!)
0.738 ( 3.4/ 4.5) 6 Read a file into a hash ?
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.462 ( 1.2 / 2.7) 5 command line input
0.460 ( 2.1 / 4.5) 5 Printing web pages
0.460 ( 2.5 / 5.4) 7 Why $|++ instead of $|=1 ?
0.447 ( 5.2 / 11.7) 14 -w and Use of uninitialized value at
0.440 ( 2.2 / 5.0) 8 Newbies cry for help
0.431 ( 1.4 / 3.2) 5 using @_ with subs (Just a quickie from a Perl Wannabe :)
0.419 ( 2.3 / 5.4) 8 Anyone have a Free Meta Crawler Script
0.370 ( 3.5 / 9.5) 13 file endings with regexps...
0.362 ( 4.2 / 11.5) 8 need post/lwp example
0.331 ( 1.0 / 2.9) 5 How can I print date on an include file
116 threads (22%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
52 alt.perl
36 comp.lang.perl
29 comp.lang.perl.modules
10 comp.lang.javascript
8 alt.html
7 alt.perl.sockets
6 alt.html.editors.toppage
5 comp.programming
5 comp.os.linux.misc
5 comp.sys.sun.apps
Top 10 Crossposters
===================
Articles Address
-------- -------
12 Greg Treece <gtreece@vhbtech.com>
8 abigail@delanet.com
8 kmhanser@my-deja.com
8 ynotssor@my-deja.com
7 brian d foy <brian@smithrenaud.com>
6 Tom <chaptera@hotmail.com>
6 "Ed Foy" <ed@nospam.com>
5 Michael Carman <mjcarman@home.com>
5 "nicolas" <webmaster@archiTacTic.com>
4 Steffen Beyer <sb@muccpu1.muc.sdm.de>
------------------------------
Date: 18 Jul 2000 08:00:11 GMT
From: lihock@pc.jaring.my.bbs@openbazaar.net (han)
Subject: storing record
Message-Id: <3bRgOB$UmG@openbazaar.net>
Is it possible that perl can do just like cobol storing the db on the index
file only?
------------------------------
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 3730
**************************************
