CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Fun With Perl: Perl Poetry:
Illuminated Refuge

 



Jasmine
Administrator / Moderator

Feb 19, 2002, 10:38 AM

Post #1 of 2 (34579 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


damianus
New User

Jan 23, 2007, 3:02 AM

Post #2 of 2 (33729 views)
Re: [Jasmine] Illuminated Refuge [In reply to] Can't Post

I've seen it all now..

 
 


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives