Jasmine
Administrator
/ Moderator
Feb 19, 2002, 10:38 AM
Post #1 of 2
(37241 views)
|
|
Illuminated Refuge
|
Can't Post
|
|
[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
|
MAIN
SEARCH
WHO'S 
LOG 