一、求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";