復(fù)制代碼 代碼如下:
#!/bin/perl
print "please input some lines,then press Ctrl+Z. \n";
chomp(@s=STDIN>);
print "1234567890"x 3 ."\n";#做為輸出結(jié)果的一個(gè)標(biāo)尺
foreach $s(@s)
{
printf "%20s\n",$s;#輸出的格式為右對(duì)齊，所占空間為20個(gè)字符
}
輸出結(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個(gè)字符處
fine,thank you
#------------------------
沒(méi)有chomp的程序：
復(fù)制代碼 代碼如下:
#!/bin/perl
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個(gè)字符處
fine,thank you
來(lái)觀察下有什么不同，如果沒(méi)有用chomp，輸出的結(jié)果不僅中間有空格，并且可以發(fā)現(xiàn)最后的字符卻在第9上，相當(dāng)于在第19個(gè)字符處。這是因?yàn)閜erl把a(bǔ) newline 當(dāng)做一個(gè)字符。
第二部分：
如果我們自己指定字符串的寬度，那么程序如下：
復(fù)制代碼 代碼如下:
#!/bin/perl
print "Please input column width.\n";
chomp($width=>);#新建了一個(gè)變量。這里同樣要注意chomp的應(yīng)用，如果沒(méi)有chomp，我們會(huì)得不到我們想要的結(jié)果。
print "please input some lines,then press Ctrl+Z. \n";
chomp(@s=STDIN>);
print "1234567890"x7 ."\n";
foreach $s(@s)
{
printf "%${width}s\n",$s;在這里引用了這個(gè)變量，因?yàn)樽兞棵J(rèn)取最大的字符長(zhǎng)度，所有這里我們用{}來(lái)界定變量的名稱(chē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
下面是沒(méi)有width=>，沒(méi)有經(jīng)過(guò)chomp的話，會(huì)出現(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因?yàn)闆](méi)有去掉轉(zhuǎn)行符，所有是30+轉(zhuǎn)行符，得到了這種結(jié)果
%30
s
