#!/usr/bin/perl
#chomp.cl
use strict;
use warnings;
while(my $a=<STDIN>)
{
#delete /n in every line
chomp $a;
print "your input is '$a'/n";
#exit this loop when your input is NULL
last if ($a eq '');
}
chomp()
最新推荐文章于 2023-05-24 00:11:34 发布