几种求质数的算法（Perl版）

质数的定义：质数只能被1或则自身整除的自然数，不包含1

例如，2是个质数，3也是个质数，而4不是质数（因为它可以被1、4和2整除），等等。

这里我们来找出1到10000之间的质数。

算法一： 一般算法

#!/usr/bin/env perlmy $start_num = 1;           # 初始数my $end_num  = 10000;        # 结尾数my $i, $j, $m;for( $i=$start_num; $i<$end_num; $i++  ) {    my $is_prime = 1;                           # 1=质数， 0=非质数    for ( $m = $i-1; $m > 1; $m-- ) {           # 1 < 被除数 < $i         if ( $i % $m == 0 ) {            $is_prime = 0;                      # 能被其他数整除，所以不是质数        }    }    if ( $is_prime ) {        print "$i is a prime.\n";    }}