no warnings; require 5.7.5; sub haiku { $word = shift; join $word x 5 . "\n" , shift, $word x 2, shift, shift; } print haiku('foo ');
When's the last time you used duct tape on a duct? --Larry Wall
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Just Another Perl Haiku-er
by tobyink (Canon) on Nov 28, 2012 at 13:03 UTC | |
Re: Just Another Perl Haiku-er
by Anonymous Monk on Jun 30, 2019 at 07:40 UTC |
Back to
Perl Poetry