Home: Fun With Perl: Perl Poetry:
Illuminated Refuge



Jasmine
Administrator / Moderator

Feb 19, 2002, 10:38 AM


Views: 53040
Illuminated Refuge

[perl]#!/usr/bin/perl -w
use strict;


my $i = 'void';
my $meditations = path_to_enlightenment();
my $three_jewels = tell ( *REFUGE = *DATA );


MANTRA : until ( $i eq attain( 'enlightenment' ) ){

seek REFUGE, $three_jewels, 0;
study <REFUGE>;

redo MANTRA unless &$meditations > boundaries( $i );

$i = attain( 'enlightenment' )

}


sub path_to_enlightenment {

my $merit = 0;

return sub {

$merit += practice( 'perfections' );
$sentient_beings::++;

}

}

sub practice {

foreach ( 'generosity', 'morality', 'patience', 'concentration', 'wisdom',
'enthusiastic perseverance' ){
$_{$_}++;
}

return 1;

}


sub attain { return @_ }
sub boundaries { return length $_[0] }


print <<ILLUMINATED_REFUGE;

Sang-gye Cho-dang Tsog-kyi chog-nam-la
Jang-chub bar-du dag-ni kyab-su-chi
Dag-gi jin-sog gyi-pe so-nam-kyi
Dro-la pan-chir Sang-gye drub-par-shog

I take refuge in the Buddha, Dharma, and Sangha
Until I attain Enlightenment.
By merit accumulations from practicing generosity and the other perfections
May I attain Enlightenment, for the benefit of all sentient beings.

ILLUMINATED_REFUGE


__DATA__

Buddha
Dharma
Sangha[/perl]

I originally posted this at [url=http://perlmonks.org/index.pl?node_id=109146]PerlMonks


damianus
New User

Jan 23, 2007, 3:02 AM


Views: 52190
Re: [Jasmine] Illuminated Refuge

I've seen it all now..