
Jasmine
Administrator
/ Moderator
Feb 19, 2002, 10:38 AM
Post #1 of 2
(54253 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
|