Another simple one

Here is another simple one. Not much unreadable.

sub _{map
{print chr}
($_[__(111,114
,100)],10)}sub __
{join "",map
{chr($_)}@_
}map{_ $_
}qw(74
65 80
72)
[download]

Thanks..

Comment on Another simple one Download Code

Replies are listed 'Best First'.
Re: Another simple one by turo (Friar) on Jan 17, 2006 at 20:15 UTC
A little bit of salt: `perl -e 'sub _{print map{chr}(@_,10)}map{_$_}qw(74 65 80 72)'` [download] adding some pepper: `#! perl $_=q\| Just Another Perl Hacker \|; open(FH,$0); $/='';($__=<FH>)=~s/\s #//xg;$__=~s/\# #/ /xg; $__=substr ($__, 189, length$__); eval $__ and exit 0; $o=$_; $__=q\| sub _{map{print chr,chr(32)x5, chr}(@_,10)}map{ _$_ }qw\|;what = sub { print "@_\n"; }; @_ = /(\S+)/g;$_ = (join "",@_) . "(" .(join" ",(map {ord substr($_,0,1)} @_)) . ")";@_ = ($o =~ /(\S).\b/g);&what; s/(Just)(Another) (Perl)(Hacker)(.*) /$__$5/x;eval;&what;` [download] I must confess, i'm not a good cooker :-P turo `perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"'`	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Another simple one
by turo (Friar) on Jan 17, 2006 at 20:15 UTC

A little bit of salt:

perl -e 'sub _{print map{chr}(@_,10)}map{_$_}qw(74 65 80 72)'
[download]

#! perl
$_=q|
      Just
      Another
      Perl
      Hacker
|;
open(FH,$0);
$/='';($__=<FH>)=~s/\s
#//xg;$__=~s/\#
#/ /xg; $__=substr
($__, 189, length$__);
eval $__ and exit 0;
$o=$_; $__=q|
sub _{map{print
chr,chr(32)x5,
chr}(@_,10)}map{
_$_
}qw|;*what = sub
{ print "@_\n"; };
@_ = /(\S+)/g;$_ =
(join "",@_) .  "("
.(join" ",(map {ord
substr($_,0,1)} @_))
. ")";@_ = ($o =~
/(\S).*\b/g);&what;
s/(Just)(Another)
(Perl)(Hacker)(.*)
/$__$5/x;eval;&what;
[download]

perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"'

[reply]
[d/l]
[select]