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

shenyg 发表于 2018-8-31 08:52:49

用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; $a1;$b--) {
　　if( $a % $b == 0) {
　　$c=1;
　　last;
　　}
　　}
　　print "$a" if( $c == 0 );
　　}
　　print "\n";

查看完整版本: 用perl语言求1到100之间的偶数,奇数及素数