用perl語言求1到100之間的偶數,奇數及素數

 一、求1到100之間的偶數：

#!/usr/bin/perl -w

for (1..100){

  if (($_%2 eq 0)){

    print "$_ ";

  }

}

二、求1到100之間的奇數：

  if (($_%2 ne 0)){

三、求1到100之間的素數：

for($a=1; $a<100; $a++) {

        $c=0;

        for( $b = $a-1; $b>1;$b--) {

                if( $a % $b == 0) {

                         $c=1;

                         last;

                }

        }

        print "$a  " if( $c == 0 );

print "\n";