##~~Smile
## by SamCG
open perlmonks, poetry;
read poem, deja_vu;
no strict "refs";
seek quotes, throughout, internet;
link to_initial, source;
if (madtoperl){
exists values $or_morals?
"I doubt it":
"He lies intentionally,
and conceived a "; system 'to garner xp';
1: grep /off internet/, @poem;
2: print verbatim or reverse or splice or chop up;
3: unlink credit and package as_own;
4: select title, rand words, with, '!!!';
5: send to_perlmonks, posting, of_result;
redo many times;
}
warn the_monks;
tell $perlmonks dump NODE
or
if tied credit bless node;
wait until shift of_rep;
read poetry and s/mile/ to self/;
link past_nodes, proof_of_deceit
here and here and here
Maybe this poem of yours is original, but I don't think very many believe that. Perhaps you should stop posting poetry?
-----------------
s''limp';@p=split '!','n!h!p!';s,m,s,;$s=y;$c=slice @p1;so brutally;d;$n=reverse;$c=$s**$#p;print(''.$c^chop($n))while($c/=$#p)>=1;
| [reply]
[d/l] |
## Smile, you're on PM
## A summary by Rhesa
use strict 'refs';
no warnings 'once';
our vigilant $legalist = SamCG -> seeks( 'poetic justice' );
madtoperl:
study $law{ 'Copyright' }
and
print ref $poems;
use warnings 'precedence';
$legalist -> carp(
not defined $poem->attribute
);
| [reply]
[d/l] |
#!/usr/bin/perl
use WWW::Mechanize;
my $nameis = "madtoperl";
my $earch = "Perl poems";
$earch =~ s/ /+/g;
my $wastedtime = WWW::Mechanize->new();
$wastedtime->get('http://www.google.com/search?hl=en&q=' . $earch .'&m
+eta=');
my @poems_to_steal = $wastedtime->find_all_links();
Please stop posting other peoples work and claiming that it is yours.
Martin
| [reply]
[d/l] |
if($child){
$life = 'peaceful';
}
Boy have you had a different experience of kids to me!? I'd've written:
if($child) {
$into{chaos}; $life{descends}
}
I am an acknowledged 'grumpy old sod', though.
| [reply]
[d/l]
[select] |
