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

本文通过具体示例介绍了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]#



评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值