obfupoetry
3 direct replies — Read more / Contribute
|
by Discipulus
on Mar 21, 2016 at 05:06
|
|
|
#!/usr/bin/perl
use strict;
use warnings;
our @life = (0..70);
my $self = {
age => $life[int($#life/2)],
#
#078101108032109101122122111032100101108032099097109109
#105110032100105032110111115116114097032118105116097
#
remember => sub{scalar @_},
};
our $wood = {
dark=>1,
#109105032114105116114111118097105032112101114032117110
#097032115101108118097032111115099117114097
#
straight_way => undef,
#099104101039032108097032100105114105116116097032118105
#097032101114097032115109097114114105116097046
#
#
wild=>1, rough=>1,
stubborn=>1, inside=>[],
};
while ( $self->{'age'} ){
push @{$wood->{'inside'}},$self;
if (scalar @$wood{qw(wild rough stubborn)}) {
#065104105032113117097110116111032097032100105114032113
#117097108032101114097032101039032099111115097032100117114097
#
for (@$wood{qw(wild rough stubborn)}) {
#101115116097032115101108118097032115101108118097103103
#105097032101032097115112114097032101032102111114116101
#
$self->{'fear'}+= $$self{remember}->($_);
#099104101032110101108032112101110115105101114032114105
#110111118097032108097032112097117114097033
#
#
}
}
last;
}
END {
seek DATA,0,0;
while (<DATA>){
print "\n" if /^#$/;
s/^#//;
print map {chr 0+$_} ($_=~/\d{3}/g);
}
}
__DATA__
Enjoy!
(*)please do not reply with positivist comments about the exact first day of Spring: seasons always start in day 21: the notion was in my mind when thumbs were still there..
L*
There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.
|
AI Overlords
1 direct reply — Read more / Contribute
|
by chacham
on Mar 09, 2016 at 09:29
|
|
|
Gaming live,
One of five,
Humanity at one end.
Each AI,
Gives a try,
Lee Se-dol defends.
DeepBlue beat,
That old meet,
Over a decade has passed.
AlphaGo,
Joined the show,
Go-ing very fast.
Who's to say,
When's the day,
AI is overboard.
I, for one,
Give welcome,
To our new overlords.
|
Don't format my code
2 direct replies — Read more / Contribute
|
by dmitri
on Feb 26, 2016 at 15:35
|
|
|
If you take perltidy to my code,
Я тебя поймаю и прибью, урод!
|
Happy Monkday
2 direct replies — Read more / Contribute
|
by chacham
on Oct 27, 2015 at 10:38
|
|
|
Today when i logged in,
My clicking yet to begin,
Today is a fun day,
It said, "Happy Monkday!!1!"
I was welcomed with a grin.
To say it with such elation,
That's the points of exclamation,
Enclosing a number 1,
A shift, meant for fun,
The key to successful formation.
"You've been here 4 stimulating years."
The numeric pun, leaves me in tears,
(It'd be better to double,
But that's too much trouble),
The Monastery, where monks are your peers.
It warns me, "Don't panic!"
(Do they think that i'm manic?)
The greeting was cursory
It's just an anniversary
And the greeting is pleasantly organic.
|
My Perl
No replies — Read more | Post response
|
by Anonymous Monk
on Oct 25, 2015 at 21:39
|
|
|
|
|
Pearls of wisdom
1 direct reply — Read more / Contribute
|
by Naren87
on Sep 11, 2015 at 02:08
|
|
|
I learnt perl when I felt dumb, //
.
c++, java just made me numb, //
.
as I mastered, I got a thumb, //
.
now I am picking the PEaRLs of wisdom.
|
Idling in #perl
No replies — Read more | Post response
|
by dmitri
on Jul 28, 2015 at 22:36
|
|
|
while (each %day) {
join #perl
wait && wait && wait;
sleep 60 * 60 * int(rand(7));
}
|
How sad.
10 direct replies — Read more / Contribute
|
by BrowserUk
on Jul 01, 2015 at 01:29
|
|
|
How sad it is to see, the he that is not me, become the thing that he has long decried.
The annuated bore, crying for what went before; those lost days of his rose tinted youth.
So blind he cannot see, his own bigotry; his intolerance of those with whom he disagrees.
He thinks he is the man; he thinks he has a plan, to suppress the source of his jealousy.
Although he tries to hide, whilst he is being snide, to protect his once held reputation.
It doesn't take ESP, to see that it is he, despite his lukewarm refutation.
With his naughties: "Hate MS" meme; and linux everywhere dream; he doesn't realise, what he has become.
Despite his tender age, he's really turned the page; now both a dinosaur, and utterly dumb.
|
A familiar mantra
2 direct replies — Read more / Contribute
|
by belg4mit
on Jun 21, 2015 at 13:21
|
|
|
do{ … } || !do{ … };
--
In Bob We Trust, All Others Bring Data.
|
Perl sweet Perl
1 direct reply — Read more / Contribute
|
by hda
on Jun 16, 2015 at 15:21
|
|
|
Long ago, with Fortran 77
using old unglamorous computer
I cut my programming teeth
totally unpretentious
but nicely real and free
In discovering Perl long after
I soared high, far and glad,
with scalars, arrays and hashes,
PDL and CPAN gave me fantasy
and serious wings to fly
I then left home
don't know exactly why
flirting with other languages,
only to come back, older and tired
to my and yours faithful Perl
In coming back to this realm
among penguins and camels
I finally find the peace and light
among you wise and gentle monks
in this one, that I can truly call
my natural and only home
|
|