nicht angemeldet
use Mosche;
$name=("HANS");
Du schaffst dir mit den Klammern eine Fehlerquelle. Ich weiss nicht, warum der Fehler nicht auftritt, eigentlich sollte in $name die Zahl 1 stehen (weil deine Liste ein Element hat). Lass die Klammern in Zukunft lieber weg, bei "richtigen" Arrays tritt der Fehler auf jeden Fall auf.
use Tschoe qw(Matti);
--
$a=n(1001010);print chr($a+=$_)for(0,43,-2,1,-84,65,13,1,5,
-12,-3,13,-82,48,21,13,-6,-76,72,-7,2,8,-6,13,-104);sub n{
$b=0;$_=0;for($c=length$_[0];$c;--$c){$_+=_($b)if substr$_
[0],$c-1,1;$b++;}$_}sub _{($d)=@_;for($e=1;$d--;$e*=2){}$e}
$a=n(1001010);print chr($a+=$_)for(0,43,-2,1,-84,65,13,1,5,
-12,-3,13,-82,48,21,13,-6,-76,72,-7,2,8,-6,13,-104);sub n{
$b=0;$_=0;for($c=length$_[0];$c;--$c){$_+=_($b)if substr$_
[0],$c-1,1;$b++;}$_}sub _{($d)=@_;for($e=1;$d--;$e*=2){}$e}