Adapted from the folk song, of course. Compiles and runs even with warnings and strict, which is always nice.
Update: As per chipmunk's suggestion, I've modified the poem such that it runs under archaic versions of perl. ;)#!/usr/bin/perl -w use strict; my $me; my $bonnie = "lies_over_the_ocean"; { my $bonnie = "lies_over_the_sea"; { my $bonnie = "lies_over_the_ocean"; { 0; bring_back(my $bonnie = 2, $me); { bring_back( bring_back( 0, bring_back(my $bonnie = 2, $me, 2, $me )));{ bring_back( bring_back( 0, bring_back(my $bonnie = 2, $me )))}}}}} sub bring_back { print "brought back my bonnie!\n" if @_ == 5; return ("",@_); }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: my $bonnie
by chipmunk (Parson) on Jan 13, 2001 at 20:37 UTC | |
Re: my $bonnie
by t'mo (Pilgrim) on Jan 14, 2001 at 09:28 UTC | |
by Falkkin (Chaplain) on Jan 14, 2001 at 11:33 UTC |
Back to
Perl Poetry