[18252] in Perl-Users-Digest
Perl-Users Digest, Issue: 420 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 5 14:10:57 2001
Date: Mon, 5 Mar 2001 11:10:25 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <983819425-v10-i420@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 5 Mar 2001 Volume: 10 Number: 420
Today's topics:
Re: Perl, Cookies, and Apache. (Mark W. Schumann)
pi day <russ_jones@rac.ray.com>
Re: pi day <comdog@panix.com>
Re: pi day (Greg Bacon)
Re: regexp and parenthesis ... <godzilla@stomp.stomp.tokyo>
Re: regexp and parenthesis ... <netben@free.fr>
Re: Regular Expression ERROR (Abigail)
RFC: FAQ3 update -- Using less memory <mjcarman@home.com>
Re: s/// and variables (Tad McClellan)
Re: shell environement variables <mischief@velma.motion.net>
Re: statement for(list); (Ilya Zakharevich)
Re: statement for(list); (Ilya Zakharevich)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Submitting Forms from Code <comdog@panix.com>
Warning message question <djberge@uswest.com>
Re: Warning message question (Rafael Garcia-Suarez)
Re: Warning message question (Tad McClellan)
Re: Warning message question <djberge@uswest.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 5 Mar 2001 13:08:28 -0500
From: catfood@apk.net (Mark W. Schumann)
Subject: Re: Perl, Cookies, and Apache.
Message-Id: <980kms$511@junior.apk.net>
In article <MC4o6.302324$Pm2.4386543@news20.bellglobal.com>,
Parrot <parrot0123@yahoo.ca> wrote:
>Oh yes, they read a message and find it irrelevant - high cost indeed - boy,
>that's something you could just go on a killing spree about! Gee... so it's
>wasting the time of helpers, who, in turn go back and waste even more time
>on pointless flames against the offender.
This is where the right thing to do is to write, "Ooops, sorry, I'm new
here and didn't understand the culture well enough. I'll go back to
lurking for a while to get a better idea of what the group's like."
>Don't get me wrong, I appreciate that people are willing to put so much of
>their time into helping others in the newsgroup, but if they're here to help
>they could at least have a better attitude about it. Doctors see patients
>all day long, and sometimies a hypochondriac will come in thinking he has
>some serious disease but really doesn't. Does the doctor say "Get out of
>here you idiot, you're wasting my valuable time!"
No, but the doctor gets paid for the office visit anyway. The people
answering questions here do it for free, because they like Perl and
want to help people. Goodwill for goodwill, eh?
>Of course not, and why? Because the doctor is there to help people, and
>sometimes the help a person needs isn't so much medical. The people here
>are giving Perl help for free - you'd assume that the reason they're doing
>it is because they like to help people. So why aren't they happier about
>it? Why do they find the act of giving help so stressful that the smallest
>inconsistency can unleash their wrath?
Because sometimes helping people is made more difficult than it should be.
>That's pretty much the way I feel. And I've got to tell you, if I was
>looking through messages and found one that was a little off topic but that
>I could help with anyway, I'd give my help and feel darn good about it. :)
But you didn't do that. It would have been a good idea to look through
a bunch of messages here, for a few days at least, before posting. Then
you would have noticed the pattern.
------------------------------
Date: Mon, 05 Mar 2001 09:32:09 -0600
From: Russ Jones <russ_jones@rac.ray.com>
Subject: pi day
Message-Id: <3AA3B179.8D23610@rac.ray.com>
I'm working on a web page in honor of the impending global holiday, pi
Day, March 14, so I'm looking for any Perl scripts that calculate pi
to at least millions of digits. I already have a ton of them in C and
FORTRAN, and even one in COBOL, but nothing much worth mentioning in
Perl. Anyone have anything? The more golfed the better! Full credit
(or blame) will be given for any scripts that I post.
Remember, eat a pie for pi day.
--
Russ Jones - HP OpenView IT/Operatons support
Raytheon Aircraft Company, Wichita KS
russ_jones@rac.ray.com 316-676-0747
Te audire non possum. Musa sapientum fixa est in aure. - Plautus
------------------------------
Date: Mon, 05 Mar 2001 11:24:09 -0500
From: brian d foy <comdog@panix.com>
Subject: Re: pi day
Message-Id: <comdog-D771B9.11240905032001@news.panix.com>
In article <3AA3B179.8D23610@rac.ray.com>, Russ Jones
<russ_jones@rac.ray.com> wrote:
> I'm working on a web page in honor of the impending global holiday, pi
> Day, March 14, so I'm looking for any Perl scripts that calculate pi
> to at least millions of digits. I already have a ton of them in C
see the Inline module, then. :)
http://search.cpan.org
--
brian d foy <comdog@panix.com>
------------------------------
Date: Mon, 05 Mar 2001 16:30:14 -0000
From: gbacon@HiWAAY.net (Greg Bacon)
Subject: Re: pi day
Message-Id: <ta7fomng47gs43@corp.supernews.com>
In article <3AA3B179.8D23610@rac.ray.com>,
Russ Jones <russ_jones@rac.ray.com> wrote:
: I'm working on a web page in honor of the impending global holiday, pi
: Day, March 14 [...]
Don't forget that it's also the birthday of Albert Einstein, Billy
Crystal, and noted Perl plinker Greg Bacon. Send Guinness. :-)
Greg
--
Fenster: I had a guy's fingers in my asshole tonight.
Hockney: Is it Friday already?
------------------------------
Date: Mon, 05 Mar 2001 08:27:41 -0800
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: regexp and parenthesis ...
Message-Id: <3AA3BE7D.2EA2E42C@stomp.stomp.tokyo>
ben wrote:
(snippage)
> ben wrote:
> sorry , i forgot the | in my strings.
> so my strings are : foo(bar(b)az)|
> and : foo(bar)(baz)|
Fortunate for you, your head is screwed on,
hopefully not backwards.
> > if the string is : foo(bar(b)az)
> > and what i wanted was : $1=foo , $2=(bar(b)az)
> > but then if the string is : foo(bar)(baz)
> > and what i needed was : $1=foo(bar) and $2=(baz).
You may accomplish your task of dealing with nested
characters by developing a routine which holds a set
of rules based upon your unique circumstances.
Use of a regex or regexes to accomplish this type
of task is not a wise choice.
Godzilla!
--
TEST SCRIPT:
____________
#!perl
print "Content-type: text/plain\n\n";
$string = "foo(bar(b)az)|";
chop ($string);
print "TEST ONE:\n";
&Nested_Rules;
$string = "foo(bar)(baz)|";
chop ($string);
print "TEST TWO:\n";
&Nested_Rules;
sub Nested_Rules
{
$control = $string;
$control =~ tr/a-z//d;
if (index ($control, "(())") > -1)
{
$one = substr ($string, 0, index ($string, "("), "");
$two = $string;
}
else
{
$one = substr ($string, 0, index ($string, ")(") + 1, "");
$two = $string;
}
print " One: $one\n Two: $two\n\n";
}
exit;
PRINTED RESULTS:
________________
TEST ONE:
One: foo
Two: (bar(b)az)
TEST TWO:
One: foo(bar)
Two: (baz)
------------------------------
Date: Mon, 05 Mar 2001 17:58:00 GMT
From: "ben" <netben@free.fr>
Subject: Re: regexp and parenthesis ...
Message-Id: <IsQo6.746$qM5.3329096@nnrp1.proxad.net>
Thanx for your answer.
I've got to tell you i'm quite disapointed about it.
I thaught i could do anything with regexps...
bye.
<ianb@ot.com.au> a écrit dans le message news:
97vktu$7dc$1@news.netmar.com...
> In article <eRFo6.603$SY.2534598@nnrp1.proxad.net>, ben <netben@free.fr>
> writes:
> >Hi.
> >I'm trying to do stg that's quite hard for me now:
> >my pattern is : /(.*)\((.*)\)\|/
> >
> >if the string is : foo(bar(b)az)
> >i've got : $1=foo(bar
> >and $2=(b)az)
> >
> >and what i wanted was : $1=foo , $2=(bar(b)az)
>
> If you wanted an unparenthesised chunk followed by a parenthesised
> expression which we assume is balanced, it would be possible, but
> I gather from your only other example that this is not so.
>
> >so i use : /(.*?)\((.*)\)\|/
>
> Non-greedy matching is almost never the solution to any serious regex
> problem.
>
> >but then if the string is : foo(bar)(baz)
> >i get : $1=foo
> >and : $2=(bar)(baz).
> >
> >and what i needed was : $1=foo(bar) and $2=(baz).
>
> So what you really want is the last balanced parenthesised expression
> preceded by everything before it in the string?
>
> Well, you can't, I'm afraid. Not with a single regex.
>
> There are hacks you can use, but you can't match arbitrarily deeply
> nested expressions. If you set a limit to the level of nesting
> of parentheses, you can make regexes to match such strings, but
> they're not nice to look at, and you have to ensure somehow that your
limit
> is not exceeded. The only way arbitrarily deep nesting can be described in
a
> finite space is recursively, and regexes do not allow recursive
definitions.
>
> To deal with this sort of task you need a parser, or you need to match in
> stages and balance the braces yourself.
>
>
> >i also tried /(.*)\((.*?)\)\|/ , but, of course , i get the same thing
that
> >in my first case.
>
> Unfortunately, non-greediness is still not the answer.
>
> >To resume , i'd like to get the last string between parethesis before the
|
> >, but respecting the syntax of parenthesis!
>
> >Hope it's not as hard for you as it is for me =)
>
> Unfortunately, it's impossible for both of us.
>
> Regards,
>
>
> Ian
>
>
> ----- Posted via NewsOne.Net: Free (anonymous) Usenet News via the
eb -----
> http://newsone.net/ -- Free reading and anonymous posting to 60,000+
groups
> NewsOne.Net prohibits users from posting spam. If this or other posts
> made through NewsOne.Net violate posting guidelines, email
abuse@newsone.net
------------------------------
Date: 5 Mar 2001 15:33:21 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Regular Expression ERROR
Message-Id: <slrn9a7ce1.8a8.abigail@tsathoggua.rlyeh.net>
Paul Boardman (peb@bms.umist.ac.uk) wrote on MMDCCXLIII September
MCMXCIII in <URL:news:3AA37341.A3F8DC7B@bms.umist.ac.uk>:
__ Federico Abascal wrote:
__ >
__ > What happen with this regular expression?:
__ >
__ > /^((HYPOTHETICAL)*|(PUTATIVE)*|(POSSIBLE)*)*
__ > *(\d+\.*\d*\s*KD*A*\s*(LIPO)*(GLYCO)*)*
__ > *PROTEIN *(\w{5,})*\.*(\(*FRAGMENT(S)*\)*\./
__ >
__ > In perl version "version 5.004_04 built for irix-n32" perl gives me this
__ > error
__ > message:
__ > "/^((HYPOTHETICAL)*|(PUTATIVE)*|(POSSIBLE)*)*
__ > *(\d+\.*\d*\s*KD*A*\s*(LIPO)*(GLYCO)*)*
__ > *PROTEIN *(\w{5,})*\.*(\(*FRAGMENT(S)*\)*\./: regexp *+ operand could be
__ > empty
__ > at
__ > miprograma.pl line 918."
__
__ I guess it's just pointing out that the majority of your regex doesn't
__ require a match.
__
__ I think your regex actually simplifies to /\./ as the full-stop
__ character is the only element here that requires a match. and so the
__ string "ID=88%." would match thanks to the final character of the line.
Well, yeah, but regexes do more than returning true/false. They also
set $1 and friends. And the mentioned regex gets to set a lot of those
friends on a match.
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$==-2449231+gm_julian_day+time);do{until($=<$#r){$_.=$r[$#r];$=-=$#r}for(;
!$r[--$#r];){}}while$=;$,="\x20";print+$_=>September=>MCMXCIII=>=>=>=>=>=>=>=>'
------------------------------
Date: Mon, 05 Mar 2001 08:35:41 -0600
From: Michael Carman <mjcarman@home.com>
Subject: RFC: FAQ3 update -- Using less memory
Message-Id: <3AA3A43D.8320935C@home.com>
Having recently seen yet another question on reducing memory usage
posted to c.l.p.misc, I reviewed the FAQ entry and decided that the
answer given there isn't very helpful for most people. (Or at least the
people most likely to ask this question.) Instead of grumbling about
it, I decided to fix it. In the spirit of the Perl community, I'd
appreciate any comments/additions/corrections before I submit this. The
first three paragraphs are the current text, the rest is my addendum.
[POD follows]
=head2 How can I make my Perl program take less memory?
When it comes to time-space tradeoffs, Perl nearly always prefers to
throw memory at a problem. Scalars in Perl use more memory than strings
in C, arrays take more than that, and hashes use even more. While
there's still a lot to be done, recent releases have been addressing
these issues. For example, as of 5.004, duplicate hash keys are shared
amongst all hashes using them, so require no reallocation.
In some cases, using substr() or vec() to simulate arrays can be
highly beneficial. For example, an array of a thousand booleans will
take at least 20,000 bytes of space, but it can be turned into one
125-byte bit vector for a considerable memory savings. The standard
Tie::SubstrHash module can also help for certain types of data
structure. If you're working with specialist data structures
(matrices, for instance) modules that implement these in C may use
less memory than equivalent Perl modules.
Another thing to try is learning whether your Perl was compiled with
the system malloc or with Perl's builtin malloc. Whichever one it
is, try using the other one and see whether this makes a difference.
Information about malloc is in the F<INSTALL> file in the source
distribution. You can find out whether you are using perl's malloc by
typing C<perl -V:usemymalloc>.
Of course, the best way to save memory is to not do anything to waste
it in the first place. Good programming practices can go a long way
toward this:
=over 4
=item * Don't slurp!
Don't read an entire file into memory if you can process it line
by line. Whenever possible, use this:
while (<FILE>) {
# ...
}
instead of this:
@data = <FILE>;
foreach (@data) {
# ...
}
When the files you're processing are small, it doesn't much matter which
way you do it, but it makes a huge difference when they start getting
larger. The latter method keeps eating up more and more memory, while
the former method scales to files of any size.
If you do need the whole file in memory, read it directly into the data
stucture where it will be used; that way you don't have multiple copies
of data clogging up RAM.
=item * Localize!
Don't make anything global that doesn't have to be. Use my() prodigously
to localize variables to the smallest possible scope. Memory freed by
variables that have gone out of scope can be reused elsewhere,
preventing the need for additional allocations.
=item * Pass by reference
Pass arrays and hashes by reference, not by value. For one thing, it's
the only way to pass multiple lists or hashes (or both) in a single
call/return. It also avoids creating a copy of all the contents. This
requires some judgement, however, because any changes will be propagated
back to the original data. If you really want to mangle (er, modify) a
copy, you'll have to sacrifice the memory needed to make one.
=item * Tie large variables to disk.
For "big" data stores (i.e. ones that exceed available memory) consider
using one of the DB modules to store it on disk instead of in RAM. This
will incur a penalty in access time, but that's probably better that
causing your hard disk to thrash due to massive swapping.
=back
-mjc
------------------------------
Date: Mon, 5 Mar 2001 09:24:02 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: s/// and variables
Message-Id: <slrn9a78c2.4jq.tadmc@tadmc26.august.net>
Stephane Barizien <sba@ocegr.fr> wrote:
>{Sorry folks, I haven't been able to find the answer in the myriads of
>docs and FAQs I have handy...}
>
>I have
>
>(\\d\\d\\d\\d)-(\\d\\d)-(\\d\\d) (\\d\\d):(\\d\\d):(\\d\\d)
>
>in $dateformat_re1 and
Does
print "$dateformat_re1\n";
output what you have shown above?
I doubt it. If it did, then your pattern will match only one string,
might as well use 'eq' or index() then. The only string that pattern
can match is this one (with other characters before/after):
$_ = '\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d';
I'll bet what you realy have in $dateformat_re1 is:
(\d\d\d\d)-(\d\d)-(\d\d) (\d\d):(\d\d):(\d\d)
Note that that pattern will match:
2001-03-05 09:08:00999
and
9992001-03-05 09:08:00
You probably want some sort of "anchor" in your pattern...
>$1$2$3$4$5$6
>
>in $dateformat_re2.
^^
^^
Calling something a "regular expression" when it is NOT a regular
expression is confusing. You shouldn't try and confuse yourself
like that :-)
The second part of a s/// is a *string*, not a regular expression.
The second part of a s///e is *Perl code*, not a regular expression.
Now that you know that $dateformat_re2 is a string, you should have
a look at the Perl FAQ, part 4:
"How can I expand variables in text strings?"
Which would lead to the answer ( use the 'e' option).
>How do I do:
>
>$foo =~ s/$dateformat_re1/$dateformat_re2/;
$foo =~ s/$dateformat_re1/$dateformat_re2/ee;
>--sort of, the above does NOT work. I've tried qr'ing only
>$dateformat_re1, or both $dateformat_re1 and $dateformat_re2, no
>success. The 'best' I've obtained in $foo is $1$2$3$4$5$6 (so s/// does
>match, but substitutes the wrong thing).
I would take an entirely different approach.
1) validate the data
die "invalid date/time" unless $foo =~ /^$dateformat_re1$/;
# no need for paren memories in the $dateformat_re1 pattern now...
2) strip unwanted characters
$foo =~ tr/-: //d;
>P.S. how do I protect myself against the situation where $dateformat_re1
>and/or $dateformat_re2 would contain /'s?
That situation does not cause any problems. Did you try it?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 05 Mar 2001 17:41:47 -0000
From: Chris Stith <mischief@velma.motion.net>
Subject: Re: shell environement variables
Message-Id: <ta7jurkm2k2g7e@corp.supernews.com>
BUCK NAKED1 <dennis100@webtv.net> wrote:
> passme
> Can't you also manipulate environmental variables by using an Apache
> directive?
That might be difficult in certain situations. One of those situations
is when, like much of my code, the code is being run in a non-web
situation. I'll bet since the OP is replacing a shell script that this
isn't a CGI problem (although I have seen some CGI programs written in
shell, it's not quite the norm).
Chris
--
Christopher E. Stith
Get real! This is a discussion group, not a helpdesk. You post
something, we discuss its implications. If the discussion happens to
answer a question you've asked, that's incidental. -- nobull, clp.misc
------------------------------
Date: 5 Mar 2001 16:27:01 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: statement for(list);
Message-Id: <980eol$i2r$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to Bart Lateur
<bart.lateur@skynet.be>],
who wrote in article <u8u6at41g60a4tn41nejicr5htm0fnghse@4ax.com>:
> I thought it was absolutely clear that the right side are modifiers, and
> they compromise the statement on the left of it. I think Perl even
> agrees with me. The BNF for statement modifiers is something like:
>
> STATEMENT := STATEMENT if EXPR;
> STATEMENT := STATEMENT for EXPR;
>
> etc.
How would you think so? What I see is
sideff : error
{ $$ = Nullop; }
| expr
{ $$ = $1; }
| expr IF expr
{ $$ = newLOGOP(OP_AND, 0, $3, $1); }
| expr UNLESS expr
{ $$ = newLOGOP(OP_OR, 0, $3, $1); }
| expr WHILE expr
{ $$ = newLOOPOP(OPf_PARENS, 1, scalar($3), $1); }
| expr UNTIL iexpr
{ $$ = newLOOPOP(OPf_PARENS, 1, $3, $1);}
| expr FOR expr
{ $$ = newFOROP(0, Nullch, $2,
Nullop, $3, $1, Nullop); }
> Besides, ( EXPR for @array ) doesn't have a value.
>
> print foo(qw(a b c));
> sub foo {
> 1 for @_;
> }
> -->
>
> Nada.
In debugger:
DB<1> x 3 for 2..4
0 ''
DB<2> x ()
empty array
So it produces a value.
Hope this helps,
Ilya
------------------------------
Date: 5 Mar 2001 16:31:48 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: statement for(list);
Message-Id: <980f1k$i62$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was NOT sent to Martien Verbruggen
<mgjv@tradingpost.com.au>],
who wrote in article <slrn9a6thv.9kp.mgjv@martien.heliotrope.home>:
> > $_ *= 3 if $some_condition for @a;
> >
> > Do not have any mental picture of relative precedence of 'if' vs 'for'.
>
> It's easy enough to define. process from right to left. n other words,
> the right statement becomes the outer loop/block. My example would
> become
This is not how Perl's syntax is defined. One can define the same
precedence for these operators and left associativity. Is this what
you have in mind?
> >> do_something_with($foo) for my $foo (@a);
> >
> > I'm missing it a lot too, but would hate it if it were implemented.
>
> Why would you hate it? Perlformance?
Nope. I hope you realize that by the current rules the first $foo has
nothing to do with the second one. Even for
mirror_for my $foo @a do_something_with($foo);
it would not.
Ilya
------------------------------
Date: Mon, 05 Mar 2001 16:08:53 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <ta7egl85ioth2c@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 26 Feb 2001 16:09:16 GMT and ending at
05 Mar 2001 21:59:39 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: 371
Articles: 1313 (466 with cutlined signatures)
Threads: 294
Volume generated: 2518.6 kb
- headers: 1098.2 kb (21,331 lines)
- bodies: 1353.5 kb (44,654 lines)
- original: 856.9 kb (30,719 lines)
- signatures: 65.6 kb (1,485 lines)
Original Content Rating: 0.633
Averages
========
Posts per poster: 3.5
median: 2 posts
mode: 1 post - 177 posters
s: 6.3 posts
Posts per thread: 4.5
median: 3.0 posts
mode: 1 post - 68 threads
s: 5.0 posts
Message size: 1964.2 bytes
- header: 856.4 bytes (16.2 lines)
- body: 1055.6 bytes (34.0 lines)
- original: 668.3 bytes (23.4 lines)
- signature: 51.2 bytes (1.1 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
51 84.2 ( 46.0/ 37.8/ 23.9) Bart Lateur <bart.lateur@skynet.be>
37 78.8 ( 32.5/ 42.7/ 31.8) "Godzilla!" <godzilla@stomp.stomp.tokyo>
37 86.0 ( 36.1/ 44.8/ 26.8) tadmc@augustmail.com
37 61.9 ( 28.2/ 33.7/ 14.9) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
37 91.9 ( 32.6/ 52.0/ 34.6) mgjv@tradingpost.com.au
26 41.5 ( 19.5/ 18.7/ 9.2) Jonathan Stowe <gellyfish@gellyfish.com>
26 48.0 ( 25.1/ 22.9/ 14.9) "Parrot" <parrot0123@yahoo.ca>
24 52.8 ( 26.1/ 25.9/ 18.0) "Alan J. Flavell" <flavell@mail.cern.ch>
22 31.4 ( 18.1/ 9.9/ 4.6) Gwyn Judd <tjla@guvfybir.qlaqaf.bet>
21 38.3 ( 15.0/ 21.6/ 12.6) nobull@mail.com
These posters accounted for 24.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
91.9 ( 32.6/ 52.0/ 34.6) 37 mgjv@tradingpost.com.au
86.0 ( 36.1/ 44.8/ 26.8) 37 tadmc@augustmail.com
84.2 ( 46.0/ 37.8/ 23.9) 51 Bart Lateur <bart.lateur@skynet.be>
78.8 ( 32.5/ 42.7/ 31.8) 37 "Godzilla!" <godzilla@stomp.stomp.tokyo>
61.9 ( 28.2/ 33.7/ 14.9) 37 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
52.8 ( 26.1/ 25.9/ 18.0) 24 "Alan J. Flavell" <flavell@mail.cern.ch>
48.0 ( 25.1/ 22.9/ 14.9) 26 "Parrot" <parrot0123@yahoo.ca>
41.5 ( 19.5/ 18.7/ 9.2) 26 Jonathan Stowe <gellyfish@gellyfish.com>
39.0 ( 15.8/ 23.2/ 13.3) 14 "Charles K. Clarkson" <c_clarkson@hotmail.com>
38.3 ( 15.0/ 21.6/ 12.6) 21 nobull@mail.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
----- -------------- ----- -------
0.997 ( 15.0 / 15.0) 9 Bernie Cosell <bernie@fantasyfarm.com>
0.988 ( 3.4 / 3.5) 5 Ted Fiedler <tfiedler@zen.moldsandwich.com>
0.947 ( 4.4 / 4.7) 11 BUCK NAKED1 <dennis100@webtv.net>
0.845 ( 2.3 / 2.7) 5 "Peter Søgaard" <peter.s@tjgroup.dk>
0.810 ( 6.8 / 8.4) 9 Ren Maddox <ren@tivoli.com>
0.810 ( 5.5 / 6.8) 7 "Brian J" <sorryno@email.at.all>
0.805 ( 12.2 / 15.2) 21 abigail@foad.org
0.802 ( 4.4 / 5.5) 7 The Mosquito ScriptKiddiot <anotherway83@aol.com>
0.796 ( 7.5 / 9.4) 7 Steve Wells <wells@cedarnet.org>
0.765 ( 2.2 / 2.9) 5 Peter L. Berghold <peter@uboat.berghold.net>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.444 ( 14.9 / 33.7) 37 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.439 ( 4.0 / 9.1) 9 Garry Williams <garry@zvolve.com>
0.433 ( 2.3 / 5.3) 7 Tony L. Svanstrom <tony@svanstrom.com>
0.432 ( 2.2 / 5.2) 5 "Chile" <abcd@ntlworld.com>
0.423 ( 3.6 / 8.6) 7 "Dave Brondsema" <brondsema@my-deja.com>
0.421 ( 1.4 / 3.3) 6 Eric Bohlman <ebohlman@omsdev.com>
0.416 ( 2.3 / 5.5) 9 "Peter Sundstrom" <peter.sundstrom-eds@eds.com>
0.325 ( 5.0 / 15.5) 19 "John W. Krahn" <krahnj@acm.org>
0.320 ( 4.0 / 12.4) 11 "Gregory Toomey" <gtoomey@usa.net>
0.263 ( 3.1 / 11.7) 11 Shane McDaniel <shanem@ll.mit.edu>
69 posters (18%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
33 How the CLPM turns
31 print "</tr><tr>" vs. print $tr
30 Perl, Cookies, and Apache.
29 Is Perl right for me?
29 flock and close with empty read strangeness
26 How are SOL_SOCKET and SO_REUSEADDR defined in various flavors of Unix?
22 Display Delay in Perl?
21 regex help please
19 Sorting by date
16 Problem with #! line using RedHat 7
These threads accounted for 19.5% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
69.2 ( 30.2/ 37.5/ 23.8) 31 print "</tr><tr>" vs. print $tr
63.1 ( 30.1/ 30.5/ 18.6) 29 flock and close with empty read strangeness
61.8 ( 27.0/ 31.5/ 19.2) 33 How the CLPM turns
61.1 ( 31.0/ 29.3/ 16.3) 30 Perl, Cookies, and Apache.
55.6 ( 24.6/ 30.1/ 16.4) 29 Is Perl right for me?
50.3 ( 22.3/ 26.3/ 14.8) 26 How are SOL_SOCKET and SO_REUSEADDR defined in various flavors of Unix?
39.5 ( 14.7/ 23.2/ 16.7) 16 Perl program review request
36.7 ( 12.4/ 23.6/ 13.1) 16 Perl CGI.pm RESET problem
35.8 ( 16.0/ 19.5/ 11.9) 21 regex help please
33.3 ( 13.0/ 19.3/ 10.6) 14 shell environement variables
These threads accounted for 20.1% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.868 ( 7.7/ 8.9) 6 Help deciphering Perl code
0.863 ( 1.6/ 1.8) 5 how to print a \
0.862 ( 8.0/ 9.2) 5 Customized Error Messages
0.841 ( 1.9/ 2.2) 5 milliseconds
0.840 ( 8.8/ 10.5) 10 Bug report: splice/stringification
0.819 ( 5.3/ 6.4) 5 unlink problems
0.818 ( 11.3/ 13.9) 6 command line
0.791 ( 11.7/ 14.8) 11 Opening STDERR for input
0.775 ( 4.5/ 5.8) 6 Easy REGEX question
0.770 ( 4.0/ 5.2) 6 check open files ?
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.485 ( 1.6 / 3.3) 5 OT unwanted exclamation marks
0.473 ( 3.8 / 8.1) 5 sending to sockets
0.470 ( 3.5 / 7.4) 6 Newbie question re: Perl on RedHat 7
0.466 ( 3.3 / 7.2) 11 problem with {q}?
0.462 ( 4.9 / 10.7) 9 Uploading a file
0.456 ( 4.2 / 9.2) 10 Reg. Exp. Challenge
0.432 ( 5.1 / 11.8) 15 Please Help with 10 line programm -- beginner questions
0.381 ( 6.3 / 16.5) 16 Problem with #! line using RedHat 7
0.351 ( 1.7 / 4.8) 5 compile probem (URGENT)
0.345 ( 7.8 / 22.7) 7 Global problem with array
92 threads (31%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
35 comp.lang.perl.modules
29 comp.unix.programmer
14 comp.unix.shell
12 comp.unix.solaris
12 comp.unix.questions
4 alt.drugs.hard
4 alt.flame
4 alt.2600
3 alt.perl
3 comp.lang.c
Top 10 Crossposters
===================
Articles Address
-------- -------
11 gazelle@interaccess.com
9 "Public <Anonymous_Account>" <remailer@anon.xg.nu>
6 Nate Eldredge <neldredge@hmc.edu>
6 Edouard MERCIER <emercier@net2s.com>
5 nl-pm@amsterdam.pm.org
5 abigail@foad.org
4 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
3 mayer32@relay.bfl.at
3 Duncan Bayne <dhbayne@xtra.co.nz>
3 Alan Coopersmith <alanc@alum.calberkeley.org>
------------------------------
Date: Mon, 05 Mar 2001 09:16:47 -0500
From: brian d foy <comdog@panix.com>
Subject: Re: Submitting Forms from Code
Message-Id: <comdog-539437.09164705032001@news.panix.com>
In article <slrn9a65hb.qa.tjla@thislove.dyndns.org>,
tjla@guvfybir.qlaqaf.bet (Gwyn Judd) wrote:
> I was shocked! How could Tad McClellan <tadmc@augustmail.com>
> say such a terrible thing:
> >Maybe you just need to get everyone to move closer to their CRTs?
> I think it would be a service to brian d foy if everyone went out and
> bought a bigger monitor.
as we constantly have to tell people in the CGI group -- it's not
the size of the monitor or the screen resolution that matters --
it's the size of the window :)
before anyone makes a rush on monitors, please let me call my broker :)
--
brian d foy <comdog@panix.com>
------------------------------
Date: Mon, 05 Mar 2001 10:42:45 -0600
From: Daniel Berger <djberge@uswest.com>
Subject: Warning message question
Message-Id: <3AA3C205.E74A5524@uswest.com>
Hi all,
I've got one final warning to deal with and I'm not sure what's causing
it.
I'm getting this warning:
"Value of <HANDLE> construct can be "0"; test with defined() at
/path/myModule.pm line 65535"
I do not have anywhere near 65,535 lines of code in my module, so I
can't use that to narrow
down my problem (and I'm curious about where that number came from, but
I digress).
I am creating a filehandle using "my $fh = IO::File->new(>> $file);
and later doing lots of "print $fh $some_string";
Any ideas? I would provide more code, but I'm not sure what code to
provide!
Any and all help is appreciated. Thanks in advance.
Sincerely,
Daniel Berger
------------------------------
Date: Mon, 05 Mar 2001 16:59:32 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Warning message question
Message-Id: <slrn9a7hf5.osp.rgarciasuarez@rafael.kazibao.net>
Daniel Berger wrote in comp.lang.perl.misc:
> Hi all,
>
> I've got one final warning to deal with and I'm not sure what's causing
> it.
>
> I'm getting this warning:
>
> "Value of <HANDLE> construct can be "0"; test with defined() at
> /path/myModule.pm line 65535"
This warning (as other warnings) is described and explained in the
perldiag manpage.
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Mon, 5 Mar 2001 11:38:18 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Warning message question
Message-Id: <slrn9a7g7q.4v3.tadmc@tadmc26.august.net>
Daniel Berger <djberge@uswest.com> wrote:
>
>I've got one final warning to deal with and I'm not sure what's causing
>it.
>
>I'm getting this warning:
>
>"Value of <HANDLE> construct can be "0"; test with defined() at
>/path/myModule.pm line 65535"
put
use diagnostics;
near the top of your script, and run the program again, perl
will look up the error message in perldiag.pod for you, and
output it.
The description (and the message you quote above!) says how
to fix it, use the defined() function (or upgrade, and perl
will wrap it in a defined() for you).
>I do not have anywhere near 65,535 lines of code in my module, so I
>can't use that to narrow
>down my problem (and I'm curious about where that number came from, but
>I digress).
It is a bug that has been fixed in modern perls (you have an old
version).
>I am creating a filehandle using "my $fh = IO::File->new(>> $file);
>and later doing lots of "print $fh $some_string";
The message is about _input_ on the handle, so print()s aren't
the culprits.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 05 Mar 2001 12:17:34 -0600
From: Daniel Berger <djberge@uswest.com>
Subject: Re: Warning message question
Message-Id: <3AA3D83E.13B75584@uswest.com>
Tad McClellan wrote:
> Daniel Berger <djberge@uswest.com> wrote:
> >
> >I've got one final warning to deal with and I'm not sure what's causing
> >it.
> >
> >I'm getting this warning:
> >
> >"Value of <HANDLE> construct can be "0"; test with defined() at
> >/path/myModule.pm line 65535"
>
> put
>
> use diagnostics;
>
> near the top of your script, and run the program again, perl
> will look up the error message in perldiag.pod for you, and
> output it.
>
> The description (and the message you quote above!) says how
> to fix it, use the defined() function (or upgrade, and perl
> will wrap it in a defined() for you).
>
> >I do not have anywhere near 65,535 lines of code in my module, so I
> >can't use that to narrow
> >down my problem (and I'm curious about where that number came from, but
> >I digress).
>
> It is a bug that has been fixed in modern perls (you have an old
> version).
>
> >I am creating a filehandle using "my $fh = IO::File->new(>> $file);
> >and later doing lots of "print $fh $some_string";
>
> The message is about _input_ on the handle, so print()s aren't
> the culprits.
>
> --
> Tad McClellan SGML consulting
> tadmc@augustmail.com Perl programming
> Fort Worth, Texas
Thanks for the help. I've been force to use 5.004_04. I realized that
at one point in the script that, instead of using IO::File, I did a regular
ol' open() call.
e.g.
open(FH, $file) or die "\nBlah, blah";
while($line = <FH>){ ... } # The culprit
is now:
while(defined($line=<FH>)){...} # Hooray - no more warning
Course, I should probably just replace this with IO::File anyway. :)
Thanks again for the help.
Dan
------------------------------
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 V10 Issue 420
**************************************
