Napstack+2008-07-04 15:43:43--

gibt es in Perl die möglich keit sowas zu machen? (ich weiß das es genauso nich geht)

Code (perl): (dl )

               if ($Zahl % $p == 0>){

Was möchtest Du damit ausdrücken?

Die Abfrage innerhalb der inneren Schleife ist so OK.
Du musst NACH der inneren Schleife $is_prime kontrollieren, und dementsprechend reagieren (Zahl ausgeben und in Array ablegen).
Das schrieb Dir allerdings moritz 26 Beiträge zuvor.