/home/vlad/bogdanov

« June 2004 | Main | August 2004 »

July 26, 2004

Canadian National Anthem in Perl code

I wrote the poem a while back and originally had it posted on the PerlMonks site (http://www.perlmonks.com/index.pl?node_id=170073). This is a rendition of the Canadian National Anthem in Perl code.

It compiles and hopefully even rhymes. In the future, I'd like to rewrite it to make the code print the original anthem text as well ;)

$0->{Canada};
our ($home) && !$land->native();
($love == "patriot");
foreach (thy(@sons)) {command();}

while ($hearts->glowing()) {
   $we->see("thee rise");
}

${$this->north} = strong and free();

for ($far .. $wide) {
   $0->{Canada};
   ${$we->stand} = "guard" for @thee;
}

$God->keep(our $land); glorious() && free();
$0->{Canada}, ${$we->stand} = "guard" for @thee;

$0->{Canada}, ${$we->stand} = "guard" for @thee;

Posted by vladb at 07:36 AM | Comments (0)