perl while 循环

最新推荐文章于 2025-01-10 23:18:05 发布

scan724

最新推荐文章于 2025-01-10 23:18:05 发布

阅读量5.1k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： Perl开发

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/39890169

Perl开发专栏收录该内容

46 篇文章 ¥39.90 ¥99.00

订阅专栏

这篇博客详细介绍了Perl编程语言中while循环的两种常见用法：读取标准输入和文件输入。通过示例代码展示了如何在遇到特定匹配项（如'END'、'fred'、'red'）时执行不同操作，以及如何使用`last`关键字跳出循环。

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

while (<STDIN>){  ###读取标准输入
if (/END/) {
last;
}
elsif (/fred/) {
print 1;
}
elsif (/red/) {
print 2;
}
}

while (<>){  ###读取文件输入
if (/END/) {
last;
}
elsif (/fred/) {
print 1;
}
elsif (/red/) {
print 2;
}
}

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

scan724

关注关注

1
点赞
踩
3

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
打赏
打赏
打赏举报

举报

专栏目录

订阅专栏

perl while continue循环

zhaoyangjian724的专栏

11-11

3245

今天发现Perl中原来还有个while-continue这样的循环。其功能是除了在while中进行last语句外，每走一次while循环，再执行紧接其后的continue语句，甚至包括next语句。并且在while(),括号中的变量是可以在continue中继续使用的，当然也包括$_。比如:!/usr/bin/perlmy tempfile=“tmp.temp_file = “tmp.$”;#后

Perl while 死循环

zhaoyangjian724的专栏

12-31

1884

use warnings; use Net::Ping; while (1 == 1 ){ if ($#ARGV <0){ print "请输入一个参数\n"; exit(-1); } $host = $ARGV[0]; $p = Net::Ping->new("icmp"); print "$host is alive.

参与评论您还未登录，请先登录后发表或查看评论

Perl 循环语句

Gino的专栏

05-27

5318

while循环语法：while(some_expression){ statment_1; statment_2; .... }程序执行到while语句时，首先检查控制语句(some_expression)，若其值为真，就会执行循环体一次，如此反复不停的执行，知道控制语句的值为假，则停止while循环示例：#!/usr/bin/perl -w $number=10; while

perl读取文件并处理(while<>)

noticmp的专栏

09-30

2324

while(<>) { print "good! ", $_; ###默认处理$_ my @LINE=split(' '); ###打印结果用逗号隔开 $"=","; print "split ", "@LINE"; print "\n"; }

Perl 语言开发（五）：循环语句

07-04

1415

循环语句是编程语言中的重要组成部分，用于重复执行某些操作直到满足特定条件。在 Perl 语言中，循环语句同样具有重要地位，能够帮助开发者有效处理重复任务。这篇文章将详细介绍 Perl 中的各种循环语句及其应用场景，帮助读者更好地理解和使用这些控制结构。

Perl 循环

csbysj2020的博客

07-04

665

Perl 提供了多种循环结构，以满足不同的编程需求。了解和掌握这些循环结构对于编写高效、简洁的 Perl 代码至关重要。通过上述示例，我们可以看到每种循环结构的使用方法和适用场景。在实际编程中，应根据具体问题选择最合适的循环结构。

无涯教程-Perl - last 语句函数

无涯教程

08-05

403

当在循环内遇到last语句时，循环立即终止，程序控制在循环后的下一条语句处恢复。您可以为LABEL提供最后一个语句，其中LABEL是循环的标签。last语句可以在嵌套循环内使用，如果未指定LABEL，则该语句将适用于最近的循环。

Perl语言的循环实现

最新发布

2401_90032167的博客

01-10

980

本文详细介绍了Perl语言中的循环实现，包括forforeachwhileuntil等循环结构及其具体用法。通过多个案例展示了循环在数据处理、数据库操作和图形界面编程中的应用。Perl语言提供的灵活而强大的循环机制，使得程序员能够高效地处理各种任务。希望通过本文的介绍，能帮助读者更好地理解和应用Perl中的循环结构。学习并掌握循环结构是提高编程能力的重要一步，期待各位读者能够在今后的编程实践中灵活运用这些知识，以完成更多复杂的任务。

Perl for foreach while 循环

weixin_30666753的博客

12-21

173

for for(my $i=0;$i<10;$i++){ print $i; } foreach foreach my $col_id (sort {$a<=>$b;} keys %col_hash){ print $col_hash{$col_id}; } while 转载于:https://www.cnblog...

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

calf_man的专栏

12-27

446

读《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;

2 Perl - while控制结构

camper001的专栏

12-23

735

和许多的程序语言一样，Perl 也提供了循环结构◆。while 语句可以循环执行其内部的一块代码直到其条件非真： ◆基本上每个程序员都有创建过无限循环语句的经历。如果程序不停的运行，你可以像关闭系统中别的程序那样来关闭Perl 程序。通常 是使用CTRL+C；检查你的系统文档来了解具体的信息。 $count = 0; while ($count < 10) { $count + = 2; print “co

Perl入门学习（六）循环语句

m0_61544122的博客

05-16

2562

perl循环语句学习

perl while continue

zhaoyangjian724的专栏

01-23

442

今天发现Perl中原来还有个while-continue这样的循环。其功能是除了在while中进行last语句外，每走一次while循环，再执行紧接其后的continue语句，甚至包括next语句。并且在while(),括号中的变量是可以在continue中继续使用的，当然也包括$_。比如: #!/usr/bin/perl my $temp_file = "tmp.$$";#后缀是进城ID

linux perl的while循环中ctrl+c失效,perl循环控制

weixin_34706684的博客

05-14

270

if格式(类似于awk)：if(表达式){#空格可以忽略语句；}#elsif注意多了个s，elsif和else可以省略elsif(表达式){#语句块的{}必须有，可以为空语句：}else{语句；}unless格式：unless(表达式){语句;}while格式：while(表达式){语句;}do...

无涯教程-Perl - while 语句函数

无涯教程

08-05

274

只要给定条件为真，Perl编程语言中的while循环语句就会重复执行目标语句。

比较R语言、perl语言，matlab中for循环和while循环的使用

allen_jeferson的专栏

04-06

1707

作者：redcat 生物统计家园网对于海量数据的处理时代，各种语言如数据处理的，统计计算的都应该掌握一下，各取所长，达到高效的目的。对于R语言、perl语言，matlab中的for循环也是各有不同。（一）R语言 R语言和matlab中以对象处理为主，体现出强大的智能性，因此对于语言的循环设计中以操作对象为主，例如： for(i in 1:20){ cat(i); cat(

perl 里的<>和<STDIN>

本事记的富伟徐

11-13

1361

操作查看@ARGV来决定使用哪些文件。如果表为空，则使用标准输入流；否则，使用其找到的相应文件。也就是，在启动程序后，使用之前，你还有机会修改@ARGV的值。例如，下面程序可以处理3 个指定的文件，无论用户在命令行中输入了什么其它的文件： @ARGV = qw# larry mor curly #; #强制使用这三个文件 while(){ chomp; print “It was $_ t...

perl中的while处理文件

weixin_34250709的博客

05-19

1424

[root@stationx perl]# cat w.pl #!/usr/bin/perl $filename='/etc/passwd'; open(FILE,$filename)or die; while($line = <FILE>){ ($username,$secret,$uid,$gid)=split(":",$line); print ...

Perl的简单语法

海豚飞

09-19

1006

1 基本输入输出在 BASH 脚本程序中，我们用 read var 来实现从键盘的输入，用 echo $var 来实现输出。那么在 Perl 中将有一点变化。Perl 中将标准输入用关键词表示；标准输出用表示，标准错误输出用表示。故而从标准输入读取数据可以写成：$var=; # 读取一行输入，并存入变量 $var 中。@var=; # 读取多行输入，并存入数组 @var 中。

perl中while死循环怎么办

11-04

在Perl中，如果遇到`while`死循环，通常是因为循环条件一直没有改变，导致循环无法自然终止。解决这种情况通常需要检查以下几个方面： 1. **检查循环条件**：确保循环的退出条件是基于某种可以改变的真实值。例如，...