Re: ping Purl Gurl? Beginner Level Perl
- From: Purl Gurl <purlgurl@xxxxxxxxxxxx>
- Date: Sun, 15 Jul 2007 13:08:00 -0700
blmblm wrote:
Purl Gurl wrote:blmblm wrote:
select STDOUT;$|=1;
@v248=(a .. z);@v216=qw(1 11 12 1 11 12 -8
18 -13 14 19 -18 14 -1 0 3 -7 4 17 18 4 11 5);
$v167="\n";$v223="\b";undef$v169;print$v167
x($v216[0]*2);for($v161=1;$v161<=$v216[20]/2;$v161++){
foreach$v182(@v216){if(($v161==1)||($v161==$v216[22])){
$v248[abs($v182)]=~tr/a-z/n-za-m/;}if($v182<0){
print" ";&D($v161**2);}print$v248[abs($v182)];
if($v182==$v216[22]){print".";&D($v161**2);}
if(($v161==1)){$v248[abs($v182)]=~tr/a-z/n-za-m/;}}
print$v223 x($v216[22]**2+5);}print$v167 x($v216[20]/2);
sub D{select$v169,$v169,$v169,.10*(shift(@_));}
"Respectfully submitted", as they say.
Ha! Ha! Now ain't you a cute ass!
* adjusts her respect-o-meter *
You just went up eight notches on my respect-o-meter.
Now you are eight out of one-hundred points.
* demure smile *
I would give you ten notches if your first appearing
sentence read, "You stupid stringless yo-yo!" or of
the same silly nature.
You do deserve to have your ego masturbated. Many, almost
all of the boys, the self-proclaimed gods of Perl, require
days and days to figure out my code. Some never could.
Sorry about the 7 bit browser versus an 8 bit browser.
This is easy to forget. You did very well substituting
in 7 bit replacements.
There are only a handful of High ASCII characters which
will work with perl core. Finding those which work and
which do not work, required a lot of trial and error.
For some functions, a set of characters will work, for
other functions, no go.
I am especially impressed with your keeping track of where
you are in those arrays. This is not easy and a single wrong
number will make all totally FUBAR. I did dumb down my code
a little bit on math functions to give you a better chance.
My code is written for two reasons. First is an exercise
in obfuscation. Yes, a bit tricky to pull out whitespace
and have code still run. Other reason is simply to annoy
those self-proclaimed gods of Perl.
Two or three times a year, the boys get to masturbating
their egos with JAPH signature code. This is unique code
which prints, "Just Another Perl Hacker." Randal Schwartz
started this years back. Randal and I go back many years
and have an exceptionally interesting past. I surprised
you have not discovered this crazy connection between
Randal and Purl Gurl Net.
To annoy those boys, I began writing obfuscated code which
prints "Purl Gurl Rocks!" in rather unique and constantly
changing ways, while code runs. This is my personal response
to their ego masturbation JAPH junkola.
Next time, I expect the first appearing line to actually
"say something" before vanishing and being replaced. Your
code performs well but is not near as fancy as mine; my
code is more active, certainly more assertive and sends
a very clear message throughout, in keeping with Rey's
comments about the two of us.
* meows *
For trivia, you do not need to flush the print buffer
with Perl. Runs fine without your first line.
<shrugs>
--
Purl Gurl
--
So many are stumped by what slips right off the top of my mind
like a man's bad fitting hairpiece.
.
- Follow-Ups:
- Re: ping Purl Gurl? Beginner Level Perl
- From: blmblm
- Re: ping Purl Gurl? Beginner Level Perl
- References:
- Interesting math
- From: Skitt
- Re: ping Purl Gurl? (was Re: Interesting math)
- From: Purl Gurl
- Re: ping Purl Gurl? (was Re: Interesting math)
- From: blmblm
- Re: ping Purl Gurl? Beginner Level Perl
- From: Purl Gurl
- Re: ping Purl Gurl? Beginner Level Perl
- From: blmblm
- Interesting math
- Prev by Date: Re: Ellefescence in the comics
- Next by Date: Re: Cherries
- Previous by thread: Re: ping Purl Gurl? Beginner Level Perl
- Next by thread: Re: ping Purl Gurl? Beginner Level Perl
- Index(es):
Relevant Pages
|
