---

Geschrieben von _-Alex-_ am 06.02.2009 um 21:50:

  Nur Zeilensprung als Ausgabe, wieso?

Hi,

ich hab hier ein Programm, das mir nur einen Zeilensprung ausgibt. Könnt ihr mir sagen, wieso?

#!/usr/bin/perl -w
$t=0;
for($i=1;;++$i)
{
do
{
$k=1;
$v=sprintf("%.5f",$i/$k);
$t=$t+$v;
++$k;
}
while($k<=$i);
if($v==$i+1)
{
print $i, "\n";
}
}


MfG