[13906] in Perl-Users-Digest
No subject found in mail header
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 10 17:44:59 1999
Date: Mon, 8 Nov 1999 11:57:57 -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: <942091077-v9-i1302@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 8 Nov 1999 Volume: 9 Number: 1302
Today's topics:
HUMOR: you have to see this code! <uri@sysarch.com>
Re: HUMOR: you have to see this code! <keithmur@mindspring.com>
Re: HUMOR: you have to see this code! <moseley@best.com>
Re: HUMOR: you have to see this code! <jeffp@crusoe.net>
Re: HUMOR: you have to see this code! <uri@sysarch.com>
Re: HUMOR: you have to see this code! <kperrier@blkbox.com>
Re: HUMOR: you have to see this code! <marcel.grunauer@lovely.net>
Re: HUMOR: you have to see this code! <marcel.grunauer@lovely.net>
Re: HUMOR: you have to see this code! <emschwar@rmi.net>
Re: HUMOR: you have to see this code! (Stuart Hutchison)
Re: HUMOR: you have to see this code! (Martien Verbruggen)
Re: HUMOR: you have to see this code! (Kragen Sitaker)
Re: HUMOR: you have to see this code! lee.lindley@bigfoot.com
Re: HUMOR: you have to see this code! <uri@sysarch.com>
Re: HUMOR: you have to see this code! <gellyfish@gellyfish.com>
Re: HUMOR: you have to see this code! <uri@sysarch.com>
Re: HUMOR: you have to see this code! (Philip 'Yes, that's my address' Newton)
Re: HUMOR: you have to see this code! (Martien Verbruggen)
Re: HUMOR: you have to see this code! (Russell W. Schmidt)
Re: HUMOR: you have to see this code! (Robert Schwartz)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 05 Nov 1999 12:38:59 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: HUMOR: you have to see this code!
Message-Id: <x766zg6dos.fsf@home.sysarch.com>
some twit in alt.perl whined about not being hired because he doesn't
have a degree. i replied with a mild amount of flamage. he then emailed
me a massive piece of horrible code purporting to show his skills. you
have to slum over there and see his brain fart as i posted it. it is
hysterical code! more problems and shit that you can ever imagine. i
mean it! laugh of the millennium in the clown coding game!
i didn't post it here since i wouldn't want to sully all the newbies and
regulars with a 2k line post of sidesplitting and eyepopping
wonderment. i feel like a cartoon character reading it with all the
extreme reactions only tex avery could create.
keep your comments on it to this thread and out of alt.perl so we can
share the laughter!
it's a keeper!
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Fri, 05 Nov 1999 15:49:06 -0600
From: "Keith G. Murphy" <keithmur@mindspring.com>
Subject: Re: HUMOR: you have to see this code!
Message-Id: <382350D2.6CA0DD5D@mindspring.com>
Uri Guttman wrote:
>
> some twit in alt.perl whined about not being hired because he doesn't
> have a degree. i replied with a mild amount of flamage. he then emailed
> me a massive piece of horrible code purporting to show his skills. you
> have to slum over there and see his brain fart as i posted it. it is
> hysterical code! more problems and shit that you can ever imagine. i
> mean it! laugh of the millennium in the clown coding game!
>
> i didn't post it here since i wouldn't want to sully all the newbies and
> regulars with a 2k line post of sidesplitting and eyepopping
> wonderment. i feel like a cartoon character reading it with all the
> extreme reactions only tex avery could create.
>
> keep your comments on it to this thread and out of alt.perl so we can
> share the laughter!
>
Hmmm. I don't appear to get alt.perl. I do, however, get
alt.music.perl-jam. Is that the same thing? Don't see the code.
>
> uri
>
> --
> Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
> SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
> The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
> The Best Search Engine on the Net ---------- http://www.northernlight.com
--
Everything that I've learned about computers...
I have boiled down into three principles:
Unix: You think it won't work, but if you find the right wizard,
he can make it work.
Macintosh: You think it will work, but it won't.
PC/Windows: You think it won't work, and it won't.
Philip Greenspun, "Phil and Alex's Guide to Web Publishing"
------------------------------
Date: Fri, 5 Nov 1999 14:17:10 -0800
From: Bill Moseley <moseley@best.com>
Subject: Re: HUMOR: you have to see this code!
Message-Id: <MPG.128cf73f82080d698984e@nntp1.ba.best.com>
Uri Guttman (uri@sysarch.com) seems to say...
> keep your comments on it to this thread and out of alt.perl so we can
> share the laughter!
You don't see me posting too much code here, do you??
And from your (his) post:
> flock (INDEXFILE, $LOCK_EX);
> open (INDEXFILE, ">$_[0]") || &file_open_error(">$_[0]","Writing Index",__FILE__,__LINE__);
And to think I've been flocking AFTER opening the file all this time.
How silly of me.
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Fri, 5 Nov 1999 17:40:32 -0500
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: HUMOR: you have to see this code!
Message-Id: <Pine.GSO.4.10.9911051739510.4538-100000@crusoe.crusoe.net>
On Nov 5, Bill Moseley blah blah blah:
> Uri Guttman (uri@sysarch.com) seems to say...
> > keep your comments on it to this thread and out of alt.perl so we can
> > share the laughter!
>
> > flock (INDEXFILE, $LOCK_EX);
Even funnier, the values he gives the 4 locking constants. Screw binary!
Who needs 1, 2, 4, and 8? Let's use 1, 2, 3, and 4!
--
MIDN 4/C PINYAN, USNR, NROTCURPI
jeff pinyan japhy@pobox.com
perl stuff japhy+perl@pobox.com
CPAN ID: PINYAN http://www.perl.com/CPAN/authors/id/P/PI/PINYAN/
------------------------------
Date: 05 Nov 1999 18:54:25 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: HUMOR: you have to see this code!
Message-Id: <x7ln8c4hqm.fsf@home.sysarch.com>
well, since many of you don't get alt.perl i have been asked to post the
deja link for my post. it finally got there:
http://x31.deja.com/[ST_rn=if]/threadmsg_if.xp?AN=544885205&CONTEXT=941845691.377225262&thitnum=1
this is incredible code! we should almost have a contest counting the
bugs and design and coding mistakes. cantor himself couldn't enumerate
them!
don't drive heavy machineray or do any coding after reading this. you
brain will feel like it is on megadoses of downers.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: 05 Nov 1999 18:15:11 -0600
From: Kent Perrier <kperrier@blkbox.com>
Subject: Re: HUMOR: you have to see this code!
Message-Id: <C00C97A8F2FCE20F.6C84B448F0872A99.D112A918FFCE8D79@lp.airnews.net>
Uri Guttman <uri@sysarch.com> writes:
>
> keep your comments on it to this thread and out of alt.perl so we can
> share the laughter!
Can you give us the subject of the message so it will be easer to
find at deja? Or, better yet, the date of the post. If it was
posted today, its not at deja yet.
Kent
--
"I will tell you the secret of getting rich on Wall Street... You try
to be greedy when others are fearful, and you try to be very fearful
when others are greedy."
-- Warren Buffett
------------------------------
Date: Sat, 06 Nov 1999 00:29:38 GMT
From: Marcel Grunauer <marcel.grunauer@lovely.net>
Subject: Re: HUMOR: you have to see this code!
Message-Id: <734jOO2OgupmLSNNVwM3trDxqcQt@4ax.com>
On 05 Nov 1999 12:38:59 -0500, Uri Guttman <uri@sysarch.com> wrote:
> keep your comments on it to this thread and out of alt.perl so we can
> share the laughter!
Despite him calling it a 'pre-release module', it's not actually a
module. No package (outside comments). No exports.
#package Lady_TM;
#########################################################
# CONSTANTS
#########################################################
$LOCK_SH = '1';
$LOCK_EX = '2';
$LOCK_NB = '3';
$LOCK_UN = '4';
Very portable... And even if he needs to set a list of variables to
consecutive numbers, there'd be better methods.
$lady_table_expiration_time = 1440;
#################################################
# Sub set_specified_value_in_index_table #
#################################################
sub set_specified_value_in_index_table ($$;$){
he_who_likes_long_variable_names_and_perl2english_comments.
local ($index_key,$index_value,$index_path) = @_;
if($_[2]) {
local (%TABLE)=();
&get_index_table ($_[2],\%TABLE);
$TABLE{$_[0]} = $_[1];
Didn't he just assign the elements of @_ to variables? Why use $_[2]
etc.?
He obviously doesn't use '-w', or 'strict', and doesn't know the
difference between my() and local().
if ($_[0] eq $lady_site_data_file_path)
{local ($index_path,*LADY_TABLE) = @_;}
else { local ($index_path,*TABLE) = @_;}
Eh?
if ($LADY_TABLE{"$key"}){return (1);}
else{return;}
That's one of my favorites... surely he could have used more parens,
brackets or braces in those two lines?
if ($_[2]){$sep=$_[2];}else{$sep="??";}
Oh, it's the Black Squares Daemon as foretold by Abigail. Better get
FreeBSD!
If you delete all those useless comments, shorten the variable names,
revise the "logic" of the whole thing and use a few well-known idioms,
you can probably get it down to 100 lines.
if ($c_op eq ">") {
return 0 if ($form_date > $db_date); }
if ($c_op eq "<") {
return 0 if ($form_date < $db_date); }
if ($c_op eq ">=") {
return 0 if ($form_date >= $db_date); }
if ($c_op eq "<=") {
return 0 if ($form_date <= $db_date); }
if ($c_op eq "!=") {
return 0 if ($form_date != $db_date); }
if ($c_op eq "=") {
return 0 if ($form_date == $db_date); }
And many more where they came from! Move over, Matt Wright!
if (@word_list < 1)
{
$not_found = "no";
}
No, not found? Or yes, not found? Why set a special variable anyway?
How many values below 1 can @word_list (in scalar context) have?
if ($not_found eq "yes")
{
return 1;
} else {
return 0;
}
Ah, here is the "explanation". With more verbiage...
(To Be Continued...)
--
Marcel, Perl Padawan
sub AUTOLOAD{$_=$AUTOLOAD;s;.*::;;;y;_; ;;print}&Just_Another_Perl_Hacker;
------------------------------
Date: Sat, 06 Nov 1999 00:30:39 GMT
From: Marcel Grunauer <marcel.grunauer@lovely.net>
Subject: Re: HUMOR: you have to see this code!
Message-Id: <QoQjOBnH=5adrUK+XAnBJ4h=G8QB@4ax.com>
On 05 Nov 1999 12:38:59 -0500, Uri Guttman <uri@sysarch.com> wrote:
> keep your comments on it to this thread and out of alt.perl so we can
> share the laughter!
(And Now The Conclusion)
sub print_lady_date(;$$$){
Yep, that's what you won't get with code like that. $$$, that is.
@monthdays =
("31","28","31","30","31","30","31","30","30","31","30","31");
They don't have leap years where he comes from, do they?
my $time_to_add = $years_to_add + $days_to_add +
$hours_to_add + $minutes_to_add;
my $time = int($this_time + $time_to_add);
my $this_time_years = int($this_time / 10000000);
my $this_time_days = (($this_time -
$this_time_years * 10000000) / 10000) % 365;
my $this_time_hours = ((($this_time - $this_time_years
* 10000000) - $this_time_days * 10000) / 100) % 24;
my $this_time_minutes = ((($this_time - $this_time_years
* 10000000) - $this_time_days * 10000) -
$this_time_hours * 100) % 60;
my $new_time_minutes = ($this_time_minutes +
$minutes_to_add) % 60;
# $new_time_minutes = sprintf ("%2u", $new_time_minutes);
if ($new_time_minutes < 10)
{$new_time_minutes = "0".$new_time_minutes;}
my $new_time_hours = ($this_time_hours +
$hours_to_add/100 + int(($this_time_minutes
+ $minutes_to_add) / 60)) % 24;
# $new_time_hours = sprintf ("%2u", $new_time_hours);
if ($new_time_hours < 10)
{$new_time_hours = "0".$new_time_hours;}
my $new_time_days = ($this_time_days +
($days_to_add / 10000) + int(($this_time_hours
+ $hours_to_add/100) / 24)) % 365;
# $new_time_days = sprintf ("%3u", $new_time_days);
if (($new_time_days < 100) &&
($new_time_days > 9))
{$new_time_days = "0".$new_time_days;}
if ($new_time_days < 10)
{$new_time_days = "00".$new_time_days;}
my $new_time_years = $this_time_years +
$years_to_add + int(($this_time_days +
$days_to_add / 10000) / 365);
# $new_time_years = sprintf ("%4u", $new_time_years);
$time = $new_time_years.$new_time_days.
$new_time_hours.$new_time_minutes;
*shudder* (formatting provided by yours truly)
# Author: Charles Prichard 9-14-1999
#
# PATENT PENDING
# WARNING: Copyright Notice
Patent for what? How to write crap code?
And this idiotic notice is repeated every few lines, like a bad
commercial break.
# $TABLE{$CipherText_SID}->[1] = ($s_key);
# $TABLE{$CipherText_SID}->[2] = ($x);
# $TABLE{$CipherText_SID}->[3] = ($p_key);
# $TABLE{$CipherText_SID}->[4] = ($expires);
# $TABLE{$CipherText_SID}->[5] = ($blank);
Good thing that this is commented out. Give the man a slice!
my $key = 0;
my $rkey;
my $loops = 0;
By which logic will one variable be initialized, but the two others
won't? Or is he just guessing?
Thanks, Uri!
--
Marcel, Perl Padawan
sub AUTOLOAD{$_=$AUTOLOAD;s;.*::;;;y;_; ;;print}&Just_Another_Perl_Hacker;
------------------------------
Date: 05 Nov 1999 18:11:21 -0700
From: Eric The Read <emschwar@rmi.net>
Subject: Re: HUMOR: you have to see this code!
Message-Id: <xkf1za4h1ae.fsf@valdemar.col.hp.com>
Uri Guttman <uri@sysarch.com> writes:
> this is incredible code! we should almost have a contest counting the
> bugs and design and coding mistakes. cantor himself couldn't enumerate
> them!
What about Siegel? <g,d&$>
> don't drive heavy machineray or do any coding after reading this. you
> brain will feel like it is on megadoses of downers.
Oh, God. Next time, I'll listen to you when you say that, Uri. I *was*
gonna drive home, but now I think I'll have to walk around the block a
couple of times to clear my head. I have never, and I mean *never* seen
such abysmal code since the guy who asked a graphics prof, "why not just
draw all the frames separately, and animate them with Corel Draw?"
-=Eric
--
"Cutting the space budget really restores my faith in humanity. It
eliminates dreams, goals, and ideals and lets us get straight to the
business of hate, debauchery, and self-annihilation."
-- Johnny Hart
------------------------------
Date: Fri, 5 Nov 1999 22:32:12 -0700
From: shutchis@incentre.net (Stuart Hutchison)
Subject: Re: HUMOR: you have to see this code!
Message-Id: <MPG.128d6b42cc036fb7989680@news.incentre.net>
In article <x766zg6dos.fsf@home.sysarch.com>, uri@sysarch.com says...
>
> some twit in alt.perl whined about not being hired because he doesn't
> have a degree. i replied with a mild amount of flamage. he then emailed
> me a massive piece of horrible code purporting to show his skills. you
> have to slum over there and see his brain fart as i posted it. it is
> hysterical code! more problems and shit that you can ever imagine. i
> mean it! laugh of the millennium in the clown coding game!
>
[snip]
>
> it's a keeper!
>
> uri
>
>
[delurk]
Wow. Does that stuff even run?? I'm Not A Programmer, but reading
while (!eof(INDEXFILE)){
$_ = <INDEXFILE>;
if ($_ =~ /(.+)/){$_ = $1;}
else {die "Bad data in index $_[0].";}
...
hurt like a lime green polyester sport coat. And it got better...
I'm keeping it.
Stuart Hutchison
------------------------------
Date: 6 Nov 1999 06:59:24 GMT
From: mgjv@wobbie.heliotrope.home (Martien Verbruggen)
Subject: Re: HUMOR: you have to see this code!
Message-Id: <slrn827kgm.5vv.mgjv@wobbie.heliotrope.home>
On 05 Nov 1999 12:38:59 -0500,
Uri Guttman <uri@sysarch.com> wrote:
>
> some twit in alt.perl whined about not being hired because he doesn't
> have a degree. i replied with a mild amount of flamage. he then emailed
> me a massive piece of horrible code purporting to show his skills. you
> have to slum over there and see his brain fart as i posted it. it is
> hysterical code! more problems and shit that you can ever imagine. i
> mean it! laugh of the millennium in the clown coding game!
I have never seen a collection that is so complete in showing how to
_not_ do things. All of style, logic, clarity, abstraction,
encapsulation, scoping and correctness are violated all over the place.
I'm glad you did point out somewhere else in the thread (*) that the
correlation between good programming and a programming degree is not
exactly 100%. Or the other way around. I'd be very depressed.
Martien
(*) courtesy deja, since my news server thankfully doesn't carry
alt.perl, rec.perl or news.perl)
--
Martien Verbruggen |
Interactive Media Division | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Sat, 06 Nov 1999 07:33:22 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: HUMOR: you have to see this code!
Message-Id: <6RQU3.38861$23.1763583@typ11.nn.bcandid.com>
In article <MPG.128d6b42cc036fb7989680@news.incentre.net>,
Stuart Hutchison <shutchis@incentre.net> wrote:
>Wow. Does that stuff even run?? I'm Not A Programmer, but reading
>
> while (!eof(INDEXFILE)){
> $_ = <INDEXFILE>;
> if ($_ =~ /(.+)/){$_ = $1;}
> else {die "Bad data in index $_[0].";}
>...
>
>hurt like a lime green polyester sport coat. And it got better...
One thing that tends to cause me problems when maintaining code like
this is that I tend to expect that the person did this kind of stuff
for a reason.
So I think:
- he's testing for eof before trying to read because he doesn't want to
clobber $_ if there's no data?
- he's checking for a blank line? Or maybe he's set $/ to something
weird and he wants to take the first line only of what he has read?
These are implausible, I guess.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Tue Nov 02 1999
6 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 6 Nov 1999 15:49:36 GMT
From: lee.lindley@bigfoot.com
Subject: Re: HUMOR: you have to see this code!
Message-Id: <801img$gja$1@rguxd.viasystems.com>
Uri Guttman <uri@sysarch.com> wrote:
:>this is incredible code! we should almost have a contest counting the
:>bugs and design and coding mistakes. cantor himself couldn't enumerate
:>them!
:>don't drive heavy machineray or do any coding after reading this. you
:>brain will feel like it is on megadoses of downers.
uri,
Are you sure somebody isn't trolling you with this thing? It smells
just a little bit too ripe to think that someone could have learned
Perl well enough to make that code actually work without learning
some better habits.
If he really did become this "productive" on his own in a vacuum,
then he will probably become a useful contributor to society once
somebody channels him properly. A kid who never learned how to learn
properly (the true function of school) yet still manages to figure
stuff out well enough to bend the computer to his will is not a
loser. He is just ignorant, which is a correctable condition.
Of course I didn't look at any of the dialogue, just some of the
code. If he is being an arrogant little twit, then by all means
crush him. You can't let those young wannabes beard an alpha geek in
his den! ;-)
--
// Lee.Lindley /// I used to think that being right was everything.
// @bigfoot.com /// Then I matured into the realization that getting
//////////////////// along was more important. Except on usenet.
------------------------------
Date: 06 Nov 1999 12:07:27 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: HUMOR: you have to see this code!
Message-Id: <x7puxn35ww.fsf@home.sysarch.com>
>>>>> "ll" == lee lindley <lee.lindley@bigfoot.com> writes:
ll> Are you sure somebody isn't trolling you with this thing? It smells
ll> just a little bit too ripe to think that someone could have learned
ll> Perl well enough to make that code actually work without learning
ll> some better habits.
oh, he is surreal enough! he has been sending me email about prime
number math and crytpology that he claims will make it free for everyone
without the massive prime number stuff of rsa. a real genius. he sends
his plain text encoded as base64 fro some wacko reason. it is like he
equates encoding with encrypted. he is proud not to have a degree and
yells that people should hire non-degreed hackers. he charges $100 a day
for coding, then changed it to $200.
ll> If he really did become this "productive" on his own in a vacuum,
ll> then he will probably become a useful contributor to society once
ll> somebody channels him properly. A kid who never learned how to learn
ll> properly (the true function of school) yet still manages to figure
ll> stuff out well enough to bend the computer to his will is not a
ll> loser. He is just ignorant, which is a correctable condition.
guys like him won't listen to their (hacker) betters. he screamed IT
WORKS so lay off. well it probably barely does something. my latest
favorite wierd thing is his use of a separator char. nothing odd in
that, but he uses the actual BINARY keystroke inside "" so it prints
something strange instead of a hex or octal escape! it may work, but is
it correct? that is the whole gist of his code logic.
ll> Of course I didn't look at any of the dialogue, just some of the
ll> code. If he is being an arrogant little twit, then by all means
ll> crush him. You can't let those young wannabes beard an alpha geek in
ll> his den! ;-)
my goal now is to get him to stop sending me his base64 encoded math
diatribes. 2 so far and counting. he even called it "SPAM 4 U" he
doesn't seem to read my flaming replies.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: 6 Nov 1999 17:51:12 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: HUMOR: you have to see this code!
Message-Id: <801pqg$b9d$1@gellyfish.btinternet.com>
On 06 Nov 1999 12:07:27 -0500 Uri Guttman wrote:
>
> my goal now is to get him to stop sending me his base64 encoded math
> diatribes. 2 so far and counting. he even called it "SPAM 4 U" he
> doesn't seem to read my flaming replies.
>
You dont think that this might be something to do with that .vampire thing
yesterday ? Oh BTW was that repost yours or was it the result of the
cancelling ?
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 06 Nov 1999 14:44:28 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: HUMOR: you have to see this code!
Message-Id: <x7904b2yn7.fsf@home.sysarch.com>
>>>>> "JS" == Jonathan Stowe <gellyfish@gellyfish.com> writes:
JS> On 06 Nov 1999 12:07:27 -0500 Uri Guttman wrote:
>>
>> my goal now is to get him to stop sending me his base64 encoded math
>> diatribes. 2 so far and counting. he even called it "SPAM 4 U" he
>> doesn't seem to read my flaming replies.
>>
JS> You dont think that this might be something to do with that
JS> .vampire thing yesterday ? Oh BTW was that repost yours or was it
JS> the result of the cancelling ?
definitely not me. i was as surprised as anyone. wierd.
and the wacky coder has nothing to do with that. he doesn't seem to read
misc. he posts randomly to alt.perl and alt.comp.perlcgi.freelance. the
latter group is even lamer than alt.perl. no job stuff, just random perl
crap.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Sun, 07 Nov 1999 15:51:08 GMT
From: nospam.newton@gmx.li (Philip 'Yes, that's my address' Newton)
Subject: Re: HUMOR: you have to see this code!
Message-Id: <38259b97.10704005@news.nikoma.de>
On Sat, 06 Nov 1999 00:30:39 GMT, Marcel Grunauer
<marcel.grunauer@lovely.net> wrote:
> @monthdays =
>("31","28","31","30","31","30","31","30","30","31","30","31");
>
>They don't have leap years where he comes from, do they?
And no integers, either -- just strings.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.li>
------------------------------
Date: Mon, 08 Nov 1999 02:01:32 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: HUMOR: you have to see this code!
Message-Id: <0aqV3.110$AH5.4909@nsw.nnrp.telstra.net>
On Sat, 06 Nov 1999 07:33:22 GMT,
Kragen Sitaker <kragen@dnaco.net> wrote:
> In article <MPG.128d6b42cc036fb7989680@news.incentre.net>,
> Stuart Hutchison <shutchis@incentre.net> wrote:
> >Wow. Does that stuff even run?? I'm Not A Programmer, but reading
> >
> > while (!eof(INDEXFILE)){
> > $_ = <INDEXFILE>;
> > if ($_ =~ /(.+)/){$_ = $1;}
> > else {die "Bad data in index $_[0].";}
> >...
> >
> >hurt like a lime green polyester sport coat. And it got better...
>
> One thing that tends to cause me problems when maintaining code like
> this is that I tend to expect that the person did this kind of stuff
> for a reason.
Context matters. If you see code like that in a file that otherwise
contains good code, you start thinking that there must be a catch.
However, in the context it was found in, it can only mean one thing :)
Martien
--
Martien Verbruggen |
Interactive Media Division | That's funny, that plane's dustin'
Commercial Dynamics Pty. Ltd. | crops where there ain't no crops.
NSW, Australia |
------------------------------
Date: Mon, 08 Nov 1999 14:08:45 GMT
From: idt@ornl.gov (Russell W. Schmidt)
Subject: Re: HUMOR: you have to see this code!
Message-Id: <806lh8$1gv$1@sws1.ctd.ornl.gov>
On Sat, 06 Nov 1999 00:30:39 GMT, Marcel Grunauer
<marcel.grunauer@lovely.net> wrote:
> @monthdays =
>("31","28","31","30","31","30","31","30","30","31","30","31");
>
>They don't have leap years where he comes from, do they?
Short years too - just 364 days.
--
Russ Schmidt (idt@ornl.gov)
Lockheed Martin Energy Systems, Inc.
Oak Ridge, Tennessee 37831-2009
------------------------------
Date: 8 Nov 1999 15:25:02 GMT
From: rjs@mustang.dev.elt.com (Robert Schwartz)
Subject: Re: HUMOR: you have to see this code!
Message-Id: <806q0e$fpl$1@intranet.elt.com>
In article <QoQjOBnH=5adrUK+XAnBJ4h=G8QB@4ax.com>,
Marcel Grunauer <marcel.grunauer@lovely.net> wrote:
>On 05 Nov 1999 12:38:59 -0500, Uri Guttman <uri@sysarch.com> wrote:
>
>> keep your comments on it to this thread and out of alt.perl so we can
>> share the laughter!
>
>(And Now The Conclusion)
>
>
> sub print_lady_date(;$$$){
>
>Yep, that's what you won't get with code like that. $$$, that is.
>
> @monthdays =
>("31","28","31","30","31","30","31","30","30","31","30","31");
>
>They don't have leap years where he comes from, do they?
>
Looks like their year is only 364 days, too. August has 31 days on my
calendar.
[snip]
--
Bob Schwartz
rjs@elt.com
My opinions are my own, not those of my employer.
------------------------------
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 1302
**************************************
