Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
perl poetry [php regular expression is based on perl]
3 views
Skip to first unread message
Lewis Robinson
Sep 5, 2011, 3:40:01 AM9/5/11
to
@espanol = ();
push (@espanol, "libertad");
push (@espanol, "trabajo");
push (@espanol, "organizacion");
@espanol[0] =~ s/^.//gi;
@espanol[0] =~ s/.{4}$//gi;
@espanol[1] =~ s/^.(r).{5}/\1/gi;
@espanol[2] =~ s/^[c-t][a-t][b-p][\raf][organizacion][nacionalidad][e-
z](.{1})([a-z]{1})([\S]{1}).{2}/\3\2\1/gi;
print "\n".@espanol[0].@espanol[1].@espanol[2]."\n\n";
push (@espanol, "libertad");
push (@espanol, "trabajo");
push (@espanol, "organizacion");
@espanol[0] =~ s/^.//gi;
@espanol[0] =~ s/.{4}$//gi;
@espanol[1] =~ s/^.(r).{5}/\1/gi;
@espanol[2] =~ s/^[c-t][a-t][b-p][\raf][organizacion][nacionalidad][e-
z](.{1})([a-z]{1})([\S]{1}).{2}/\3\2\1/gi;
print "\n".@espanol[0].@espanol[1].@espanol[2]."\n\n";
# excuse the acrostic
0 new messages