本程序使用perl循环读取标准输入设备(STDIN),直到输入的文本内容为“quit”字符串;
use 5.006;
use strict;
use warnings;
my $line;
while(<>)
{
chomp;
last if(/^quit$/i);
print;
}
本程序采用Perl语言实现从标准输入设备循环读取文本内容的功能,直至遇到quit字符串为止。程序通过使用strict和warnings模块来增强代码的安全性和可读性。
本程序使用perl循环读取标准输入设备(STDIN),直到输入的文本内容为“quit”字符串;
use 5.006;
use strict;
use warnings;
my $line;
while(<>)
{
chomp;
last if(/^quit$/i);
print;
}
1389
997
2076

被折叠的 条评论
为什么被折叠?