(Note: The first three times I ran this poem, it told me I didn't have enough hubris.)#!/usr/bin/perl my @three_virtues; my $author = "Colin McMillen"; use warnings; use strict; my $laziness = int(rand(2)); my $impatience = int(rand(2)); my $hubris = int(rand(2)); code_intelligently() or die "not enough laziness"; code_quickly() or die "not enough impatience"; code_perfectly() or die "not enough hubris"; sub code_intelligently { return $laziness } sub code_quickly { return $impatience } sub code_perfectly { return $hubris }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: my @three_virtues;
by mrmick (Curate) on Jan 08, 2001 at 19:38 UTC |
Back to
Perl Poetry