From
[email protected] (Randal Schwartz) 1 Feb 90 22:28:58 GMT
@a=split(/(\d)/,"4Hacker,2another3Perl1Just");shift(@a);%a=@a;print "@a{1..4}";
=================================
From
[email protected] (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
[email protected] (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:
[email protected] (Randal Schwartz)
print grep(s/^\d+(.*)/$1 /, sort(split(/ /,"8hacker, 4Perl 1Just 2another")));
=================================
Date: 5 Feb 90 18:08:59 GMT
From:
[email protected] (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:
[email protected] (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:
[email protected] (Randal Schwartz)
$_="Just another Perl hacker,";for$i(1..length){print substr($_,$i-1,1);}
=================================
Date: 18 Feb 90 19:05:13 GMT
From:
[email protected] (Randal Schwartz)
print pack('C25', reverse unpack('C25', ',rekcah lreP rehtona tsuJ'));
=================================
Date: 21 Feb 90 18:13:49 GMT
From:
[email protected] (Randal Schwartz)
print reverse split(/\/*/,",rekcah lreP rehtona tsuJ");
=================================
Date: 21 Feb 90 20:51:25 GMT
From:
[email protected] (Randal Schwartz)
echo Just another Perl hacker,|perl -e 'print$1if($_=<STDIN>)=~/^(.*)/;'
=================================
Date: 23 Feb 90 19:01:21 GMT
From:
[email protected] (Randal Schwartz)
format STDOUT =
@<<< @<<<<<< @<<< @<<<<<,
$Just, $another, $Perl, $hacker
