perl的格式化輸出及chomp的重要性分析

複製代碼 代碼如下:#!/bin/perl
print "please input some lines,then press Ctrl+Z. \n";
chomp(@s=<STDIN>);
print "1234567890"x 3 ."\n";#做為輸出結果的一個尺規
foreach $s(@s)
{
printf "%20s\n",$s;#輸出的格式為靠右對齊，所佔空間為20個字元
}

輸出結果：
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的程式：

複製代碼 代碼如下:#!/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;
}

輸出結果：
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，輸出的結果不僅中間有空格，並且可以發現最後的字元卻在第9上，相當於在第19個字元處。這是因為perl把a newline 當做一個字元。

第二部分：

如果我們自己指定字串的寬度，那麼程式如下：

複製代碼 代碼如下:#!/bin/perl
print "Please input column width.\n";
chomp($width=<>);#建立了一個變數。這裡同樣要注意chomp的應用，如果沒有chomp，我們會得不到我們想要的結果。
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;在這裡引用了這個變數，因為變數名預設取最大的字元長度，所有這裡我們用{}來界定變數的名稱。
}

輸出結果：
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=<>，沒有經過chomp的話，會出現如下結果：
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因為沒有去掉轉行符，所有是30+轉行符，得到了這種結果

%30
s