oracle计算1到一百偶数的和,Perl 打印在1..100内所有偶数和奇数

#!/usr/bin/perl -w

#本程序用来打印

#1-100的所有偶数

#1-100的所有奇数

#1-100里所有以1、2、7结尾的数

for(my $i=1;$i<=100;$i++){

if (!($i % 2)){

print "$i\t";

}

print "\n";

for(my $i=1;$i<=100;$i++){

if ($i % 2){

print "$i\t";

}

print "\n";

for(my $i=1;$i<=100;$i++){

if (($i % 10)==1){

print "$i\t";

};

if (($i % 10)==2){

print "$i\t";

};

if (($i % 10)==7){

print "$i\t";

};

}

print "\n";

1.奇数:

#!/usr/bin/perl -w

@input=(1..100);

@result=grep $_ % 2,@input;

print "@result\n";

2.偶数：

#!/usr/bin/perl -w

@input=(1..100);

@result=grep !($_ % 2),@input;

print "@result\n";

1.偶数

#!/usr/bin/perl -w

@a=grep {!($_%2)} 1..100;

print "@a\n";

２.奇数

#!/usr/bin/perl -w

@a=grep {$_%2} 1..100;

print "@a\n";

3. 1,2,7结尾的数

#!/usr/bin/perl -w

my @a=grep /1$|2$|7$/,1..100;

print "@a\n";

oracle计算1到一百偶数的和,Perl 打印在1..100内所有偶数和奇数相关推荐

java 遍历100以内的偶数，偶数的和，偶数的个数
题目遍历100以内的偶数,偶数的和,偶数的个数代码 package l2_for; /*遍历100以内的偶数,偶数的和,偶数的个数*/ public class ForDemo1 {public ...
Oracle计算时间差表达式
--获取两时间的相差豪秒数 select ceil((To_date('2008-05-02 00:00:00' , 'yyyy-mm-dd hh24-mi-ss') - To_date('2008 ...
oracle 求时间差年,Oracle计算时间差常用函数
两个Date类型字段:START_DATE,END_DATE,计算这两个日期的时间差(分别以天,小时,分钟,秒,毫秒): 天: sql;"> ROUND(TO_NUMBER(END_D ...
oracle计算最大与最小之间数,oracle 分析函数
oracle分析函数,主要五大类一等级函数:row_number();DENSE_RANK();Rank() 主要就是遇到相同排名时的区别, 查询各部门职位级别最高的2个人 select * fro ...
ora hash oracle官网,oracle计算hash值
oracle计算hash值 1.dbms_utility.get_hash_value( name VARCHAR2, base NUMBER, hash_size NUMBER ) 函数说明 nam ...
ORACLE计算2个时间段相差时间小时、分、秒
求分钟: SELECT CEIL((TO_DATE('2016-07-19 10:10:10' , 'YYYY-MM-DD HH24-MI-SS') - TO_DATE('2016-07-19 10: ...
Oracle计算分组分位数
我们在进行分析过程中,经常会有计算某个特征的分位数这个需求.下面为大家介绍如何在oracle计算某一列数据的分位数. 需要求分位数的表结构如下: select * from test_lizhen; ...
oracle 计算当前日期是今年的第几周的计算方法
一.oracle 计算当前日期是今年的第几周的计算方法(以周六为每周第一天为例) 完整代码: select * from ( SELECT sysdate , LEVEL 周次,(TRUNC(sysd ...
Oracle 计算两日期间隔月数
Oracle 计算两日期之间月数实际应用中,有时候会计算两日期间隔天数.月数.如直接相减,可能会出问题,如: select 202110-202106 from dual; 结果为:4 看似正确,但 ...

oracle计算1到一百偶数的和,Perl 打印在1..100内所有偶数和奇数

oracle计算1到一百偶数的和,Perl 打印在1..100内所有偶数和奇数相关推荐

最新文章

热门文章