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