テストです
テストです
#!/usr/bin/perl use strict; use warnings; print "Input Number : "; my $num = <STDIN>; my $count = 0; for(my $i = 2; $i <= $num; $i++){ my $f = 0; for(my $j= $i - 1; $j > 1; $j--){ if($i % $j == 0 && $i != 1){ $f = 1; } } if($f==0){ printf("%d\n", $i,$count++); } }