PERL CTRL-D nicht stoppen Benutzereingabe

Question

Lernen perl Ich fand, dass in diesem Fall STRG + D nicht funktioniert, um Benutzereingaben zu stoppen. Seine Arbeit in anderen Skripten ist wahrscheinlich etwas, das mit dem Code selbst verbunden ist.

Ich habe im Internet über EOF gelesen, aber irgendetwas scheint für mich zu funktionieren.

Vielen Dank im Voraus und beste Grüße.

#!/usr/bin/perl 

print "Dime tus numeros\n"; 

@numb =<STDIN>; 


$cua = 0; 
$count = 0; 
$array = "@numb"; 

$max = @numb; #tamaño array 
$joined = join('',@numb); #metemos array en sacalar juntandolo sin espacios 
$joined = $original; #guardamos el num original 


$diff = 999 - $joined; 

for ($i=0; i<=$max;$i++){ #es <= por que el arraylenght no empieza en 0 

    $sumatotal += $numb[$i]; #vamos sumando cada elemento del array 
} 


print "Has añadido los numeros $array. \n"; 
print "Combiandose en $joined que sumados entre si dan:$sumatotal \n"; 
print "La diferencia entre $joined y 999 es $cua\n"; 

Answer 1

das Problem gefunden, For-Schleife endet nie Ursache für schlechte Erklärung der zweit i weiche sollte dies die Ausführung in einer Endlosschleife setzte $ i, sein.

for ($i=0; i<=$max;$i++)