輸出結(jié)果：
F:/>perl/a.pl
please input some lines,then press Ctrl+Z.
how are you
fine,thank you
^Z
123456789012345678901234567890
how are you#u在第20個字符處
fine,thank you
#------------------------
沒有chomp的程序：
print "please input some lines,then press Ctrl+Z. /n";
@s=<STDIN>;
print "1234567890"x 3 ."/n";
foreach $s(@s)
{
printf "%20s/n",$s;
}
輸出結(jié)果：
F:/>perl/a.pl
please input some lines,then press Ctrl+Z.
how are you
fine,thank you
^Z
123456789012345678901234567890
how are you#u在第19個字符處
fine,thank you
來觀察下有什么不同，如果沒有用chomp，輸出的結(jié)果不僅中間有空格，并且可以發(fā)現(xiàn)最后的字符卻在第9上，相當(dāng)于在第19個字符處。這是因為perl把a newline 當(dāng)做一個字符。
第二部分：
如果我們自己指定字符串的寬度，那么程序如下：
輸出結(jié)果：
F:/>perl/a.pl
Please input column width.
30
please input some lines,then press Ctrl+Z.
how are you
fine,thank you
^Z
1234567890123456789012345678901234567890123456789012345678901234567890
how are you
fine,thank you
下面是沒有width=<>，沒有經(jīng)過chomp的話，會出現(xiàn)如下結(jié)果：
F:/>perl/a.pl
Please input column width.
30
please input some lines,then press Ctrl+Z.
how are you
fine,thank you
^Z
1234567890123456789012345678901234567890123456789012345678901234567890
%30#這里的30因為沒有去掉轉(zhuǎn)行符，所有是30+轉(zhuǎn)行符，得到了這種結(jié)果
%30
s
新聞熱點
疑難解答
