perl 计算素数（每一个取模)

 

#!/usr/bin/perl -w
my @ar;
for ($si=1; $si<=1000; $si++)
{
$number = mod($si);
if ($number==1)
{
push @ar, $si;
#print "$si\n";
}
}
print "@ar\n";
sub mod
{
my $s4 = 0;
my $s2;
for ($s2 = 1; $s2 < $_[0]; $s2++)
{
my $s3 = $_[0] % $s2;
if ($s3==0)
{
$s4++;
#print "$s4\n";
}
}
return $s4;
}