|
ActiveState Perl Haiku Contest
Winners: Haikus written in Perl
Grand Prize Winner
Name: James Tilley
Haiku:
no less can I say;
require strict, close attention
while you ... write haiku
Second
Name: Xavier Noria
Haiku:
use CPAN; tr-y- it-;
@search and study SYNOPSIS;
do it; use less bytes;
Third
Name: Duane O'Brien
Haiku:
use strict; my $winner;
while ($winner ne "duane")
{ print "duane should win.\n"; }
Dishonorable Mention
Name: Robert Dieterich
Haiku:
$my_args = shift;
system("gcc $my_args");
print "I prefer C\n";
Entries: Haikus written in Perl
Name: Jasvir Nagra
Haiku:
y? use Lisp? or C? ;
use less keystrokes, B::Concise;
bless Wall for our @perl
Name: duane o
Haiku:
foreach (@ARGV) { print
"haiku author is duane\n";
} undef(@ARGV);die;
Name: Ryan Baird
Haiku:
$a = "print 'I love Perl\n';";
$b = "print 'Obfuscation\n';";
$c = "print 'That is a great reason why\n';";
eval $b.$c.$a;
Name: Walter Weiss
Haiku:
Worship the Camel
With it we can perform tasks
To do anything
Name: Trent McGrath
Haiku:
#!/usr/bin/perl
sub the_accountants_and_project_managers_love_me
{
use strict;
my $I_have_some_good_news = 'I got some good news.';
my $I_saved_us_a_bunch_of_money_by_switching_to_perl = 'By porting the code to Perl.';
my $It_not_only_saved_my_job_but_now_even_the_CEO_loves_perl_now = 'The budget was saved.';
my @paycheck = ("$I_have_some_good_news" , "$I_saved_us_a_bunch_of_money_by_switching_to_perl" ,
"$It_not_only_saved_my_job_but_now_even_the_CEO_loves_perl_now" );
print "$paycheck[0]\n $paycheck[1]\n $paycheck[2]\n";
return $_;
}
sub i_love_perl_because_the_same_code_works_in_Windows_and_Unix
{
exit 0;
}
the_accountants_and_project_managers_love_me();
i_love_perl_because_the_same_code_works_in_Windows_and_Unix();
Name: Nozomu Yachie
Haiku:
print "I\s"; Perl();
Perl{print "deeply\s"; Perl();}
print "love Perl\.";
Name: Vladimir Kolundin
Haiku:
foreach my $prob qw.I have solution.
{$just = "put my hands on the keyboard. That's why",
print "I love Perl" }
Name: Tom Doan
Haiku:
$perl = "freedom";
while ( $perl ne "c#" ) {
print "perl's the answer!\n";
}
Name: Yoshiteru Negishi
Haiku:
for( ; ; ){
print "I Love You Perl!\n";
}
Name: Hironobu SUZUKI
Haiku:
my $sweetheart="baby";
while (<>) { $you = $_; sleep(1); $i=("kiss $you" =~ /$sweetheart/)
and die "for you"; }
Note: Replace "baby" string to your sweetheart's name.
Put perl program file name as where you want to be.
Thanks;
Name: Barry Price
Haiku:
use strict; use warnings;
BEGIN{unshift(@INC,'/home/baz');};
use Baz::WriteHaiku;
Name: Barry Price
Haiku:
use strict; use warnings;
begin{unshift(@INC,'/home/baz/');};
use Baz::WriteHaiku;
Name: juan pestanias
Haiku:
do not $fear;
tr/y /activestate/, 'perl';
package ready;
Name: juan pestanias
Haiku:
flock $java,$!;
shift and open your, 'eyes';
glob bless {perl};
Name: juan pestanias
Haiku:
y/use/java/;
foreach $day ({(wait)}){}
while($perl){'done'}
Name: Duane Bronson
Haiku:
open (your_heart,"<now");
push (my @perl_into,<your_heart>);
close(your_heart) and die;
Name: Xavier Noria
Haiku:
HEART: { sigils, flowing }
power and magic for fun;
push yourself, further
Name: Curtis Smith
Haiku:
if(not open source){
open our $minds and study;
push @Perl, join "the", $cause;}
Name: Dabe Murphy
Haiku:
use warnings; use strict;
$/ = undef;
print <>;
"Use Warnings Use Strict /
Dollar Slash Equals Undef /
Print Waka-Waka"
Name: Adrian Fitzpatrick
Haiku:
#!/usr/bin/perl
$power="perl4ever!";
print $power;
Name: Paul van Eldijk
Haiku:
Enjoy if not cold;
print "It is fun" unless not
you and I and Perl
Name: William Lieurance
Haiku:
open( THE, 'cellar' );
my $bread and $cheese = log($are_there);
chop $them; for (our @meal){}
Name: Kees Cook
Haiku:
print @_=("order ", "in ", "all things "),"\n";
print "can be realized with a ",$_="sort","\n";
eval "\@_=$_ \@_"; print @_,"\n";
Name: Kees Cook
Haiku:
$h="GABLHAAADABCDIAABIBCBIEAAMBCPMPPMOPDAGEAALBCADEAAIBCBAECAI".
"BCPAEDMIPDBAECAIBCBAECAIBCBAECIIPDBAECEIBCPAEDAIBCBAECAIBB".
"AAGAIIBAAADA";
while($h=~s/.{8}//){map{$b=($b<<4)+(ord($_)-65)}split(//,$&);
$_=unpack("b32",pack("N",$b))."\n";tr/01/ #/;print;}
Name: Jonathan Lieberman
Haiku:
@in = my ($english, $class);
$they = tell (me); not to_ever;
split /infinitives/;
Name: Jonathan Lieberman
Haiku:
#!/usr/local/bin/perl
@in = my ($english, $class);
$they = tell (me); not to_ever;
split /infinitives/;
Name: Darren Ross
Haiku:
do doit;
if( doit ) { doit; }
else { doit };
Name: Matthew Zimmerman
Haiku:
'perl -haS'; open$ed "<great";
$love= 'within'; my $heart; while ("it")
{$im;print's its madnes'}#s
Name: Ben Schuler
Haiku:
do not q/uestion it/;
while (m/y $perl may be fubar/) {
is ubiquitous;
}
Name: Justin Larue
Haiku:
open (SELF, "quine") or
die "save as quine for beauty";
while () { print $_; next;}
Name: Zach Nation
Haiku:
use strict; my $andwich;
$andwich = "tasty"; sleep 1+1;
my $upper = pack "A", $andwich;
Name: Chris McMahon
Haiku:
my $thoughts = shift || wildly;
while (my $mind ne $ver_falters) {
next $I ge $t_answers};
Name: Chris McMahon
Haiku:
my $thoughts = shift || wildly;
while (my $mind ne $ver_falters) {
next $I ge $t_answers};
Name: Sean Terrill
Haiku:
#!/usr
/local/bin/perl;
print "Perl is beauty.";
Name: Justin Larue
Haiku:
$message = "
just another perl haiku
"; print $message; exit
Name: Justin Larue
Haiku:
$i = 1;
do { print "i love thee perl" } while
(--$i)
Name: Stephen Oberholtzer
Haiku:
these haikus will parse
correctly unless 'use strict'
or you 'use warnings'
---
Lord:{bless my $code=\{'please'};
for(@it){$_->isa('great work'.
'of perl code haiku')}}
---
my $code = ('is', not sub{'-'.
'standard'}); nay(! 'my code is best')
if $you; disagree, then... leave
Name: Stephen Oberholtzer
Haiku:
Hopefully, this won't be corrupted by this tiny textarea...
------------------------
s{}{${\(<<'.')}};y/\t//d;
there are three virtues
of truly great programmers
i will list them here
they desire to
limit the total effort
that is expended
the clever coders
write stuff useful to us all
not just to themselves
they write their line noise
so that we may leave at five
not working all night
and thus they reduce
overall work that is done
themselves plus our own
their code can be seen
in many magazines and
all over the web
we all hate to wait
especially perl coders
so their code runs fast
it predicts your needs
makes the proper adjustments
to do The Right Thing
writing perl fast is
easy, you can omit the $_
(the default var rules!)
perl coders won't wait
long to find if it will work
-e does one-liners
perl coders are proud
they show off their code to us
and so make it good
to insult a perl
program is to insult the
coder who wrote it
so they code so well,
impeccably, perfectly
thus the third virtue
.
# this is the setup
# please do not treat this line noise
# as real syllables
@'=split//;@_=map{ord}split//,v22.
2.149.2.368.1.286.2.442.5.663.3.
299.3.123.2.17.1.36.2.862.3.118.2.
665.4.141.2.161.2.96.3.534.3.387.
6.30.1.584.2.0.1.48.2.253.2.95.4.0
;_:@_&&do{$%=$_[--$#_];$.=$_[--$#_
];print$'[$.++]for 1..$%;goto _};
Name: Mike Badger
Haiku:
my $Life; #Defineing my life
$Life=$me || $you #A Union of Me and you
if($ourLove); #if our love is true.
Name: Martin Heinsdorf
Haiku:
foreach $night (@hour)
{do {not sleep unless $done;}}
use perl; no problem;
Name: Brian Hodges
Haiku:
no warnings;
sub lime
{ $camel->{"expressions"} }
die "never";
Name: Nancy Milligan
Haiku:
open OYSTER; chomp;
unpack("$perfect", $gem);
seek(OYSTER, $perl, 1);
Name: Joe Murray
Haiku:
open my $camel_book
&& (seek (good, advice, ()) || die "trying");
while (my $sanity) { last S; };
Name: Stuart Whitmore
Haiku:
# Without Perl's syntax,
# flexible, giving freedom,
die "I would, today.\n";
Name: Albert Williams
Haiku:
open(FILE, "< theways");
while <FILE> { &HowDoILoveCount($_); }
print "Perl pays the bills";
Name: Avetik Topchyan
Haiku:
require Wisdom;
love(@Everybody) and bless (@Sinners, @Saints) while (@Years_Of_Life);
if ( $Death ) { die Happy() and goto HEAVEN }
Name: Carlos Bueno
Haiku:
$this = 'is grokking perl';
our $syntax = $noise = crypt $?, 1;
sleep 1 and print $noise;
-- english version --
this is grokking perl
syntax is noise, cryptic errors
sleep once and all noise
Name: Clay Alberty
Haiku:
time for each %contest;
pack 'haicu','575'
and unpack $your,%mind;
Name: Marc Mengel
Haiku:
use CPAN; use strict;
if(CPAN::Shell->install(shift())) {print "it is installed.\n";}
Name: James Smith
Haiku:
for ("TimTowdti"){
print "Your Perl is NOT\n";
} my $Perl;
Name: DZ Jay
Haiku:
use Win32;
package my_code; my($bits, $bytes);
die and !(my_code::enjoy);
Name: Francis Tremblay
Haiku:
# It's freaking cool how
# you can reverse mode and print
# use Perl. Its so cool !
#
# output: use perl freedom !
#
@Its=("fre","aking", $cool, "how");!
"you Can";$_= reverse "mode" and print
"use Perl ". $Its[! "so" . $cool] . $_ . "!";
Name: Bob Meyers
Haiku:
use strict; my @love;
my $wounds = open(FLAME, "of_passion");
foreach (<FLAME>) {push @love "fully";}
Name: Artur Cravan
Haiku:
#!/usr/bin/perl
open (IT, "< self");
while () {
push @it, $_}
close (IT);
open (IT, ">> self");
print IT join ("\n ", @it);
close (IT);
Name: Eric Jablow
Haiku:
require Lingua::
Romana::Perligata;
I egresso scribe.
Name: Matthew Gordon
Haiku:
open A, "<love_song";
for($perl && $the; $camel;$book) {};
$sing until $I || die;
Name: Carter Brown
Haiku:
@remember = ("Republican", "Democrat", "Remember"); $you = "vote"; $easy = 0; print "Doesn't matter if\n";
for ($vote=0; $vote<=1; $vote++) { print "$remember[$easy]"; if ($easy eq "0") { print ", "; } $easy++; }
$be_heard = "Vote!"; if ($remember = $vote) { print "\n$remember[$easy] $vote $be_heard\n"; }
Name: Andrew Pullin
Haiku:
#!/usr/bin/perl
#hash bang user bin perl
print ("O Worship Larry Wall\n"); #print "O Worship Larry Wall"
print ("Master Hacker\n"); #print "Master Hacker"
Name: Steven Schubiger
Haiku:
{
local $ize; my $self; join '','wondering', 'thoughts';
redo while not 'enlightened';
untie %borders and last;
}
Name: Jean Hiver
Haiku:
seek perfection, truth, beauty;
reverse logic;
study and bless sub{lime}, Perl;
Name: Alexis Sukrieh
Haiku:
use strict;
map {
print " " x (rand(10));
foreach
my $c (split(//)) {
print $c . " ";
};
print "\n";
}
qw(Et le perl est une mer oł l'amer n'est qu'un leure);
Name: Chris Wesley
Haiku:
use strict; sub par_hacks {
bless( my $self, my $perl_prowess );
return( my $old_job ); }
Name: Brett Boge
Haiku:
if ($homework && $books){
while(!sleep) {} continue {2;
chop(my $sanity);}}
Name: James Mayfield
Haiku:
"Haiku is always
legal as a Perl program
when wrapped in quote marks"
Name: Tyler Aviss
Haiku:
$haiku = $hard;
$know_line_word_count = false;
die "I tried my best";
Name: Will Preston
Haiku:
if ($death eq $truth) {
print "I love PERL\n" x 7;
} exit unless $more;
Name: Bart Grantham
Haiku:
for ( 2 .. 941 ) { $t = 1; for $P
( @S ) { $t *= $_ % $P } if ( $t ) { @S = ( @S,
$_ ); print "$_\t"; } } # primes love perl
[I sure hope that the formatting comes through the form ok.
In light of no clear rules for the 'syllables', I gave myself
the rules that any non-keyword token or any english syllable
counts as a syllable in this wacky haiku.
It's a sieve of Eratosthenes]
Name: Joe Oppegaard
Haiku:
if(open UNIX,"-|")
{print join"\n",eval,''}
else{print'("admins","glue")'}
Name: Michael Baehr
Haiku:
my $type = \%dilletante;
foreach my $phase (keys %$type) { do {
pursue ($phase) or die; } }
Name: Shane Ladd
Haiku:
print "Used to use VB\n";
print "Until Larry Wall shed his\n";
print "Holy light on me\n";
Name: Jerry Gregoire
Haiku:
study(each %problem);
while($perl) { exists $worry{not}; }
join($us) and write($perl);
Name: Aaron Pierce
Haiku:
perl \! 2>&1|perl -pe's/: /\n/;s/or/,/';perl -e'print "Perl can write haiku!\n"'
## okay, not really a haiku written in perl, but a haiku is output when run from the command line
Name: Chris Debenham
Haiku:
Hash Bang env perl enter
print quote perl rules semi-colon return
return zero semi-colon exit
Name: John Fontaine
Haiku:
if (!($i || $you) ) {
($i == $you ) and print "are one"
unless $i || $you; }
Name: Trevor Joerges
Haiku:
$disguise{'blessing'};
$ourlives{'virtue'} eq true;
!defined $reprise;
Name: Michael Miller
Haiku:
open(heart_to_perl);
chomp($those_other_languages);
print "perl is the best";
Name: Jason Santos
Haiku:
use strict; my $it = "helps";
for $it ('can', 'find', 'many', 'errors')
{ /that you might have missed/; }
Name: Francis Tremblay
Haiku:
# Perl Haiku Poetry Contest
# submitted by Francis Tremblay (francis-tremblay@[SNIP].ca)
#
# if my love is perl
# why shift love and die?, Why print ?
# Cause love makes me free !
#
# Running the script outputs:
# Cause Perl makes me free !
if (my @love=("is ","Perl")) { !(
$Why = shift( @love)) and die "?, $Why"; print !"?",
"Cause ", @love," makes me free !";};
Name: Francis Tremblay
Haiku:
# Why I love perl by Francis Tremblay
if (my @love=("is ","Perl")) { !(
$Why = shift( @love)) and die "?, $Why"; print !"?",
"Cause ", @love," makes me free !";};
Name: Jesse van Herk
Haiku:
time: while($I){ write $perl;
not 'wasted' or 'tedious';
study close or sin; }
Name: Vjacheslav Fomichev
Haiku:
listen sleep socket
close log
system shutdown
|
