Perl, PHP и другие технологии web-программирования

study, write, study,
do review (each word) if time.
close book. sleep? what's that?

sleep, close together,
sort of sin each spring & wait;
50% die

 not exp log srand xor s qq qx xor
 s x x length uc ord and print chr
 ord for qw q join use sub tied qx
 xor eval xor print qq q q xor int
 eval lc q m cos and print chr ord
 for qw y abs ne open tied hex exp
 ref y m xor scalar srand print qq
 q q xor int eval lc qq y sqrt cos
 and print chr ord for qw x printf
 each return local x y or print qq
 s s and eval q s undef or oct xor
 time xor ref print chr int ord lc
 foreach qw y hex alarm chdir kill
 exec return y s gt sin sort split
 
Результатом выполнения будет фраза "just another perl hacker".

#!/usr/bin/perl
 
APPEAL:
 
listen (please, please);
 
open yourself, wide;
 
join (you, me),
 
connect (us,together),
 
tell me.
 
do something if distressed;
 
@dawn, dance;
 
@evening, sing;
 
read (books,$poems,stories) until peaceful;
 
study if able;
 
write me if-you-please;
 
sort your feelings, reset goals, seek (friends, family, anyone);
 
do*not*die (like this)
 
if sin abounds;
 
keys (hidden), open (locks, doors), tell secrets;
 
do not, I-beg-you, close them, yet.
 
accept (yourself, changes),
 
bind (grief, despair);
 
require truth, goodness if-you-will, each moment;
 
select (always), length(of-days)
 
# listen (a perl poem)
 
# Sharon Hopkins
 
# rev. June 19, 1995