'@Just_another_Perl_hacker=map{/^[^*].*hack/&&s,_, ,g&s,$,\,,&print}%::'
%%
From merlyn@iwarp.intel.com (Randal Schwartz) 1 Feb 90 22:28:58 GMT
@a=split(/(\d)/,"4Hacker,2another3Perl1Just");shift(@a);%a=@a;print "@a{1..4}";
%%
From Andrew.Vignaux@comp.vuw.ac.nz (Andrew Vignaux) 22 Aug 90 11:10:18 GMT
$s=(localtime(time))[0]; sub n { ($a - $b) * $s; }
print grep(s/.*\t//,sort n grep($_=++$i/-50."\t$_",split(/\n*/,<<JAPH)));
,rekcah lreP rehtona tsuJ
JAPH
%%
From merlyn@iwarp.intel.com (Randal Schwartz) 29 Aug 90 19:14:54 GMT
print pack("c*",(32..127)[42,85,83,84,0,65,78,79,84,72,69,82,0,48,69,82,76,0,72
,65,67,75,69,82,12])
%%
Date: 6 Feb 90 22:31:17 GMT
From: merlyn@iwarp.intel.com (Randal Schwartz)
print grep(s/^\d+(.*)/$1 /, sort(split(/ /,"8hacker, 4Perl 1Just 2another")));
%%
Date: 5 Feb 90 18:08:59 GMT
From: merlyn@iwarp.intel.com (Randal Schwartz)
%_=split(/(\D+)/,"7Perl6another8hacker,5Just");print"@_{5..8}";
%%
From: merlyn
print pack('C25', grep($_ && $_ -= 256, split(/(\d\d\d)/, <<STRANGE)));
330373371372288353366367372360357370288336357370364288360353355363357370300
STRANGE
%%
Date: 11 Feb 90 20:32:28 GMT
From: merlyn@iwarp.intel.com (Randal Schwartz)
for (unpack('C25', 'Just another Perl hacker,')) {
printf "%03d", $_ + 256;
}
$_="wHFG NABGURE cREY UNPXRE,";y/a-zA-Z/N-ZA-Mn-za-m/;print;
%%
Date: 15 Feb 90 23:01:59 GMT
From: merlyn@iwarp.intel.com (Randal Schwartz)
$_="Just another Perl hacker,";for$i(1..length){print substr($_,$i-1,1);}
%%
Date: 18 Feb 90 19:05:13 GMT
From: merlyn@iwarp.intel.com (Randal Schwartz)
print pack('C25', reverse unpack('C25', ',rekcah lreP rehtona tsuJ'));
%%
Date: 21 Feb 90 18:13:49 GMT
From: merlyn@iwarp.intel.com (Randal Schwartz)
print reverse split(/\/*/,",rekcah lreP rehtona tsuJ");
%%
Date: 21 Feb 90 20:51:25 GMT
From: merlyn@iwarp.intel.com (Randal Schwartz)
echo Just another Perl hacker,|perl -e 'print$1if($_=<STDIN>)=~/^(.*)/;'
%%
Date: 23 Feb 90 19:01:21 GMT
From: merlyn@iwarp.intel.com (Randal Schwartz)
format STDOUT =
@<<< @<<<<<< @<<< @<<<<<,
$Just, $another, $Perl, $hacker
.
for("Just","another","Perl","hacker"){eval"\$$_=\$_;";};write;
%%
Date: 23 Feb 90 19:04:55 GMT
From: merlyn@iwarp.intel.com (Randal Schwartz)
$,=' ';print grep(s/^.//, sort "2another","4hacker,","1Just","3Perl");
%%
Date: 23 Feb 90 23:23:53 GMT
From: merlyn@iwarp.intel.com (Randal Schwartz)
@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,1
2,1];
%%
Date: 27 Feb 90 17:33:57 GMT
From: merlyn@iwarp.intel.com (Randal Schwartz)
Subject: Re: more termcap.pl problems & a quick question
In-reply-to: pem@frankland-river.aaii.oz.au (Paul E. Maisano)
Organization: Stonehenge; netaccess via Intel, Beaverton, Oregon, USA
