Ich liebe Perl…
Geschrieben von Mathias am Freitag, 8. Juni 2007 um 05:01
und abgelegt in der Kategorie Frickeleien, Geekstuff
sub runde
{
(my $p = ((grep /\./, @_) != 0) ? sprintf("%.2f", @_) : @_) =~ s(\.) (,);
return $p;
}
…denn welcher andere Compiler/Interpreter würde diese fünf Zeilen Code bedingungslos akzeptieren, und in welcher anderen Sprache kann man mit derartig wenig Code derartig viel bewegen?