perl[从 1 数到 100 的循环]

1,编写一个从 1 数到 100 的循环，并且
打印所有偶数
打印所有奇数
打印所有以 1、2 或 7 结尾的数字

一开始是这样写的。

#!/usr/bin/perl


for my $i ( 1 .. 100 )
{
        if ( ( $i**2 ) % 4 == 0 )
        {
                print "Even Number".$i."\n";
        } elsif ( ($i**2 ) % 8 == 1) {
                print "Odd Number:".$i."\n";
        }

　　　　 if ( ($i % 10) =~m/1|2|7/ )
        {
                print $i."\n";
        }

}


转了一下格式。

#!/usr/bin/perl


for my $i ( 1 .. 100 )
{
        print "Even Number:$i\n" if ( $i**2 ) % 4 == 0;
        print "Odd Number:$i\n" if ($i**2 ) % 8 == 1;
        print "Consists of the end of 1,2 and 7:$i\n" if ($i % 10) =~m/1|2|7/;
}

后来发现，也可以这么写。似乎更清晰一些。

#!/usr/bin/perl


for my $i ( 1 .. 100 )
{
        push @even,$i if ( $i**2 ) % 4 == 0;
        push @Odd,$i if ($i**2 ) % 8 == 1;
        push @end,$i if ($i % 10) =~m/1|2|7/;
}

print "Even Number:\n";
print join(", ", @even), "\n\n";
print "Odd Number:\n";
print join(", ", @Odd), "\n\n";
print "Consists of the end of 1,2 and 7\n";
print join(", ", @end), "\n";

2,编写一个从 100 向后数到 1 的循环


#!/usr/bin/perl

for my $i ( reverse (0 .. 100))
{
        print $i."\n";
}