【Perl读书笔记】循环语句while和for

calf_man

于 2012-12-27 17:03:09 发布

阅读量445

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl

本文链接：https://blog.youkuaiyun.com/calf_man/article/details/8444483

Perl 专栏收录该内容

14 篇文章

订阅专栏

本文通过具体示例介绍了Perl中while循环和for循环的基本用法，包括如何使用last和next关键字来控制循环流程，并展示了循环输出平方数的具体实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

读《C程序员精通Perl》http://book.douban.com/subject/1232075/ 2.6节笔记

while循环：

#!/usr/bin/perl
use strict;
use warnings;

my $number = 1;
my $square;

while (1) {
        $square = $number ** 2;
        print "$number square is $square\n";
        ++$number;
        if ($number > 10) {
                last;
        }   
}

运行结果：

[root@localhost perl_practice]# ./square_while.pl
1 square is 1
2 square is 4
3 square is 9
4 square is 16
5 square is 25
6 square is 36
7 square is 49
8 square is 64
9 square is 81
10 square is 100
[root@localhost perl_practice]#

for循环

#!/usr/bin/perl
use strict;
use warnings;

my $number;
my $square;

for ($number=0; $number<=10; ++$number) {
        if ($number == 8) {
                print "number=$number, This is next\n";
                next;
        }   
        $square = $number ** 2;
        print "$number square is $square\n";
}

运行结果：

[root@localhost perl_practice]# ./square_for.pl
0 square is 0
1 square is 1
2 square is 4
3 square is 9
4 square is 16
5 square is 25
6 square is 36
7 square is 49
This is next
9 square is 81
10 square is 100
[root@localhost perl_practice]#