RDW #5 - Rätsel der Woche 5 - #85513 (Allgemeines zu Perl)

FtR

2004-08-09 03:01

User since
2003-08-20
39 Artikel
BenutzerIn
[default_avatar]

[E|B
,08.08.2004, 14:04]Naja, mit schummeln meine ich, dass ich die Funktion im Script halt nicht dort selber aufrufe, sondern über die Command Line. :D
Geht das? Da hätte ich im Script selber dann nämlich die besagten 8 Zeichen gespart.

naja dann komm ich mit
12 zeichen hin

-script-
$a=<>;`P $a`;
----

--P--
der Algo
---

Code: ()

1
2

print&f(($_=(3x3)."3+33")=~s=3(?![^3]|$)=&f=eg);
sub f{eval(@_?$_:"'$&+'x3");}