Fun with obscurity!
Here is some code I abused from Larry Wall, the
creator and all-knowing guru of perl:
#!/usr/bin/perl
@a=(Hfbebdift,Tibolmfttoftt,
Fsvtusbujpo);$b="Jfe Rfdpse"
; $b =~ y/b-z/a-z/ ; $c =
" Tif " . @a . " hsfbu sfx".
"bset pg b qsphsbnnfs".":\n"
; $c =~ y/b-z/a-z/ ; print
"\n\n$c "; for ( $i=0; $i<@a
;$i++){$a[$i]=~ y/b-y/a-z/ ;
if ( $a[$i] eq $a[-1] && 1 )
{ print "and $a[$i]" . "\. "
; } else { print "$a[$i], "
; } }print"\n\t\t--$b\n\n" ;
This obscure piece of code tells you what is does at the end, but how does
it get there?
#!/usr/bin/perl -w #
use strict ; my ( #
$bad_os,$there_joe #
) =(($^O!~ m/l in #
u x/ix), getpwuid( #
$<));my $poor_soul #
="U" . "SE L"."IN" #
."UX" ."\! "."\n"; #
print "Hello, " . #
$there_joe .". Yo" #
."u are on $^O\n"; #
warn #
$poor_soul #
if $bad_os; #
####################
#jed@linuxbuilt.com#
|