用perl语言求1到100之间的偶数,奇数及素数

?一、求1到100之间的偶数：

#!/usr/bin/perl -w

for (1..100){

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

? ? print "$_ ";

? }

}

二、求1到100之间的奇数：

#!/usr/bin/perl -w

for (1..100){

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

? ? print "$_ ";

? }

}

三、求1到100之间的素数：

#!/usr/bin/perl -w

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";