a darwin japh

This guy only seems to like running under darwin. It's the first japh I've written that I've ever been "happy" with :-)

perl -e '$;=$";$_=`
"rekcah$;another$;Perl$;tsuJ"$;2>&1`;/.+:$;(
.+)\s((.+)(\s)(.+))\s(.+)(\b):/x;@_=sort{//}
split//,join$;,sort{//}($6,$3,$5,$1);$"=$7;$
_=join$",@_;m;(\w+)\s(\w+)\s(\w+)\s(\w+);sx;
print+"$1$;",(eval{@{$/}=sort{//}split$",$2;
"@{$/}"}).$;.(eval{@{$/}=sort{//}split$",$3;
"@{$/}"})."$;$4$/"'
[download]

Comment on a darwin japh Download Code

Replies are listed 'Best First'.
Re: a darwin japh by ambrus (Abbot) on Feb 17, 2004 at 20:28 UTC
Strange. It seems to work on linux (with perl 5.8.1). (Maybe you meant it works on darwin but not on windows?) Update: maybe it depends on the shell too. I have gnu bash 2.05b.0(1)-release.	[reply]
Re: Re: a darwin japh by bageler (Hermit) on Feb 17, 2004 at 20:43 UTC
I run panther on the laptop on which it was created, however testing on freebsd 4.8x and some odd flavor of linux failed :-/ well, the more the merrier! the part that i saw failing was not the sort, but had to do with the backticks.	[reply]
Re: Re: Re: a darwin japh by mpolo (Chaplain) on Feb 17, 2004 at 20:45 UTC
It works fine under Fedora Core 1 (Perl 5.8.1), at least. What was the error and perl version on the failed platform?	[reply]
Re: Re: Re: Re: a darwin japh by bageler (Hermit) on Feb 18, 2004 at 14:44 UTC
Re: a darwin japh by simonm (Vicar) on Feb 17, 2004 at 18:04 UTC
Sadly, although `This is perl, v5.6.0 built for darwin`, I'm still told that `Sort subroutine didn't return single value at - line 3.`	[reply]