From: lijewski@theory.TC.Cornell.EDU (Mike Lijewski)
Subject: Re: Randal's sigs...
Organization: Cornell National Supercomputer Facility
Date: Tue, 14 Apr 1992 14:18:42 GMT

In article <RWK.92Apr14094845@taunton.crl.dec.com> rwk@crl.dec.com (Bob Kerns) writes:
>In article <1992Apr12.164543.28418@mtholyoke.edu> jbotz@mtholyoke.edu (Jurgen Botz) writes:
>
>   From: jbotz@mtholyoke.edu (Jurgen Botz)
>   Date: 12 Apr 92 16:45:43 GMT
>
>   In article <1992Apr10.151116.27309@cis.umassd.edu> stoodt@cis.umassd.edu (Michael Stoodt) writes:
>   >Randal, do you have a collection of your infinite variations on
>   >print "Just another Perl hacker,"


I gave a talk on Perl a while back.  Here are a bunch of .sigs, not all
Randal's, which I dug out of Tom's Perl archive. 

print unpack("u",pack("h*", <<'-- '))
9323745335d3221214b364d545a362532582521254c3640504a3625234a3655325b2060606a0
-- 


srand;eval join("",reverse sort split(/:/,(split(/\n/,<<'-- '))[rand(32)]))
nother Perl hac:,":print "Just a:ker
 hacker,":nother Perl:print "Just a
nother Perl hack:er,":print "Just a
print "Just anot:her Perl ha:":cker,
other Perl hac:ker,":print "Just an
another Perl: hacker,":print "Just 
 Perl hacker,": another:print "Just
print "Just an:other :Perl hacker,"
l hac:ker:other Per:print "Just an:,"
print "Just an:l hac:ker,":other Per
other Perl ha:cker,":print "Just an
print "Just a:nother Perl :hacker,"
acker,":other Perl h:print "Just an
nother P:print "Just a:erl hacker,"
print "Just a:l hacker,":nother Per
acker:,":nt "Just anot:pri:her Perl h
pr:Perl hacker,":her :int "Just anot
print "Just a:cker,":nother Perl ha
l hacker,:other Per:print "Just an:"
her P:not:print "Just a:erl hacker,"
":print "Just anot:her Perl hacker,
er,":her Perl hack:print "Just anot
cker,:other Perl ha:print "Just an:"
"Just another:print : Perl hacker,"
her Perl ha:print "Just an:cker,":ot
not:her Perl hacker,:print "Just a:"
print "Just a:acker,":nother Perl h
print "Just anot:,":her Perl hacker
nother :print "Just a:Perl hacker,"
oth:cker,":er Perl ha:print "Just an
 Perl hacker,":nother:print "Just a
her Perl hacker:nt "Just anot:pri:,"
-- 

print((sort (' another', ' Just', ' perl ', 'hacker,')), "\n");


@l = split (/(..)/,'1a7r4J1n0a7e7c1o8n248o1t4u8v4s7.207l27547a7n7g1h'.
'0 511e3h7.8i564t3a6P1r7p8c8e6e3c3k7e3e533r7r286r6l4 6 1 8,7l7 3,');
srand; $_=3*int(rand(2))+2; /^$_/;
foreach (split(//,&g)) {/^$_/;print &g;} print "\n";
sub g {join('',grep(s/^.//,grep(//,@l)));}


@a=split(//,",rkeacrl hher PeJust anot");print splice(@a,@a*2/3,@a*2/3+1)while@a;


for(1..32){grep((print "${_}Just another Perl hacker,$_\r"),'-','\\','|','/');}


$|=1;$_=<<'-- ';s#..#printf"%c",(fork?wait&&$?/256:exit hex($&))#eg;
4a75737420616e6f74686572205065726c206861636b65722c
-- 

@ARGV=split(/\S\n?/,<<EOF);$a+=length(shift),vec($_,$a,1)=1while@ARGV;print;
 :-)  :-)   :-)  :-)  :-)  :-) :-) :-)  :-) :-)   :-) :-) :-)    :-)  :-) :-)
 :-)       :-)   :-)     :-) :-)   :-) :-) :-)  :-) :-)  :-) :-) :-) :-)  :-)
 :-)    :-)  :-) :-) :-)     :-)  :-) :-)  :-)  :-)   :-) :-)   :-)   :-) :-)
 :-)       :-)       :-)  :-)  :-)  :-)   :-) :-)   :-)   :-) :-) :-)    :-)
 :-)  :-) :-)       :-)      :-)  :-) :-)  :-)     :-) :-)  :-) :-)    :-) :-)
  :-) :-)  :-)  :-) :-)  :-)  :-)   :-) :-)   :-)   :-) :-) :-)    :-) :-)  :-)
EOF


$_='987;s/^(\d+)/$1-1/e;$1?eval:print"Just another Perl hacker,"';eval


@L = split(/ /, <<EOL); eval '$'.pop(@L).'='.@L while @L;
zero one two three four five six seven eight nine
EOL
for (split(/\s+/,<<"EOF")) { printf "%c",$_; }
$seven$four $one$one$seven $one$one$five $one$one$six $three$two
$nine$seven $one$one$zero $one$one$one $one$one$six $one$zero$four
$one$zero$one $one$one$four $three$two $eight$zero $one$zero$one
$one$one$four $one$zero$eight $three$two $one$zero$four $nine$seven
$nine$nine $one$zero$seven $one$zero$one $one$one$four $four$four
EOF


$_ = "Just another Perl hacker,"; { redo if s/./(print $&),""/e; }


print pack('C25', grep($_ && $_ -= 256, split(/(\d\d\d)/, <<STRANGE)));
330373371372288353366367372360357370288336357370364288360353355363357370300
STRANGE


$_="wHFG NABGURE cREY UNPXRE,";y/a-zA-Z/N-ZA-Mn-za-m/;print;

@a=split(/(\d)/,"4Hacker,2another3Perl1Just");shift(@a);%a=@a;print "@a{1..4}";


$_="Just another Perl hacker,";for$i(1..length){print substr($_,$i-1,1);}


print pack('C25', reverse unpack('C25', ',rekcah lreP rehtona tsuJ'));


print reverse split(/\/*/,",rekcah lreP rehtona tsuJ");


echo Just another Perl hacker,|perl -e 'print$1if($_=<STDIN>)=~/^(.*)/;'


%_=split(/(\D+)/,"7Perl6another8hacker,5Just");print"@_{5..8}";


print grep(s/^\d+(.*)/$1 /, sort(split(/ /,"8hacker, 4Perl 1Just 2another")));


$_ = "Just another sendmail hacker,"; s/sendmail/Perl/; print;

format STDOUT =
@<<< @<<<<<< @<<< @<<<<<,
$Just, $another, $Perl, $hacker
.
for("Just","another","Perl","hacker"){eval"\$$_=\$_;";};write;


$,=' ';print grep(s/^.//, sort "2another","4hacker,","1Just","3Perl");


print "\x4a\x75\x73\x74\x20\x61\x6e\x6f\x74\x68\x65\x72\x20\x50\x65",
"\x72\x6c\x20\x68\x61\x63\x6b\x65\x72\x2c" unless $] < 4;


@a=split(/X*/," ,JPacehklnorstu");print@a[2,15,13,14,0,4,10,11,14,7,6,12,0,3,6,12,9,0,7,4,5,8,6,12,1];


for (split(/(.)/,"Just another Perl hacker,")) {print if $_;}


@a=<;echo Just another Perl hacker,>; print join(" ",@a);


mkdir("/tmp/$$",0777); chdir "/tmp/$$";
grep(open(X,">$_"),"1Just","2another","3Perl","4hacker,");
print join(" ",grep(s/^.//,<*>)); chdir ".."; system "rm -rf $$";


$_ = <<END; s/../pack('C',hex($&))/ge; print;
4a75737420616e6f74686572205065726c206861636b65722c
END

@a=split(//,'1111211111131223311361214223121412311341121111222123616111111122'.
'21233212615112114212321211121111222123321120');for$r(@a){for(1..$r){vec($s,$i,
1)=$v;$i++;}$v^=1;}print"$s\n";


print $_ x (($_ = "just another Perl hacker,") =~ s/j/J/);


$_="kheauroes ,rJttParn lhc e";srand(1);
while($a=length){$a=rand($a);print(substr($_,$a,1));substr($_,$a,1)="";}


for($i=129600;@x=gmtime($i),(print substr('Just another Perl hacker,',$x[5]*12+$x[4]-840,1)),($i+=2639520)<66117600;){;}


%X=split(/(\d)/,'another2Perl4hacker,8Just1');sub X {$X{$a}<$X{$b}?-1:1;} print join(" ",sort X keys X);


for('Perl'){print"Just another $_ hacker,\n";}


print join('',grep(s/.*"(.)".*/$1/,split(/\n/,<<)));
Gimme a "J"!
Gimme a "u"!
Gimme an "s"!
Gimme a "t"!
Gimme a " "! :-)
Gimme an "a"!
Gimme an "n"!
Gimme an "o"!
Gimme a "t"!
Gimme an "h"!
Gimme an "e"!
Gimme an "r"!
Gimme a " "! :-)
Gimme a "P"!
Gimme an "e"!
Gimme an "r"!
Gimme an "l"!
Gimme a " "! :-)
Gimme an "h"!
Gimme an "a"!
Gimme a "c"!
Gimme a "k"!
Gimme an "e"!
Gimme an "r"!
Gimme a ","! :-)


$ENV{'MOTD'}='Just another Perl hacker,';system('printenv MOTD');


print join(' ',grep(s/.(.*)i(.*)/\2er\1/||1,sort split(/[v-z]/,"fliPweianothyo,ihack\nvJust")));


@ARGV=split(//,'Just another Perl hacker,');push(@x,'')while@x<@ARGV;
for$x($[..$#x){grep(*y=*_,$x[$x]);$y=shift;}print@x;


@X=split(//,'Just another Perl hacker,');*Y=*X;print @Y;


$_=',Pr0e=kRcza0hb 5lOr+e"PE :rBe}hRtho]nhaj nt.s[u=J@';s/../unshift(a,$&)/eg;chop(@a);print@a;


eval <<EOF;
print "Just another Perl hacker,"
EOF


sub _{print shift;"&_('@_')";}$"="','";$_=&_(split(//,"Not another perl hacker,"));$_=eval while!/''/;


$_="7072696e7420274a75737420616e6f74686572205065726c206861636b65722c27";
s/../pack('C',hex($&))/eg; eval;


print "Just another Perl hacker," if "there is nothing better to do";


grep(($_=pack('c', $_+=2), print), split(/\n/, <<EOL));
72
115
113
114
30
95
108
109
114
102
99
112
30
78
99
112
106
30
70
95
97
105
99
112
42
EOL


grep((s/(\d+)/$1+=18/e,print pack('c', $_)), split(/\*/, <<EOL));
56*99*97*98*14*79*92*93*98*86*83*96*14*62*83*96*90*14*54*79*81*89*83*96*26
EOL

-- 
Mike Lijewski  (H)607/272-0238 (W)607/254-8686
Cornell National Supercomputer Facility
ARPA: lijewski@theory.tc.cornell.edu  BITNET: mjlx@cornellf.bitnet
SMAIL:  25 Renwick Heights Road, Ithaca, NY  14850