|
Posted by venividicogniti on 01/23/07 21:11
#voline
# ActiveState for Win requires no bash
# salom
@venividicogniti = ();
push (@venividicogniti, "freedom");
push (@venividicogniti, "work");
push (@venividicogniti, "organisation");
@social = (2,1,0,1,2,2);
@revolution = (2,1,4,0,5,11);
open ($public_access, "<", "poem.pl");
while (<$public_access>) {print $_;}
for ($people=0; $people<=$#revolution; ++$people) {
if ($people == 0) {print "\n"};
print substr(@venividicogniti[@social[$people]], @revolution[$people],
1);
}
Judas Robinson
Judas Skelton-Robinson
Copyright
Protected under the GNU public licence
[Back to original message]
|