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

複製代碼 代碼如下:

#!/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