[NPWP笔记]使用perl循环读取标准输入设备

本程序使用perl循环读取标准输入设备(STDIN)，直到输入的文本内容为“quit”字符串；

 

use 5.006;
use strict;
use warnings;

my $line;
while(<>)
{
    chomp;
    last if(/^quit$/i);
    print;
}