Perl：perl編程要注意的問題。

標籤：style   blog   color   io   os   使用   ar   檔案   資料   

這裡歸納一下用perl語言編程需要注意的問題。

1. 由於雜湊值是沒有先後次序的，所以雜湊函數返回的值都是經過sort的，而非雜湊賦值時的狀態。例如：

my %hash2=( ‘ten‘ => 10, ‘fiirt‘ => 1, ‘second‘ => 2, ‘third‘ => 3, ‘fouth‘ => 4);print keys %hash2;---result-----fiirtsecondthirdfouthten

 使用雜湊函數each，獲得結果也是經過sort的，例如：

my %hash2=( ‘ten‘ => 10, ‘fiirt‘ => 1, ‘second‘ => 2, ‘third‘ => 3, ‘fouth‘ => 4);while (my ($key, $value) = each %hash2) {    print "$key => $value\n";}-----result------fiirt => 1second => 2third => 3fouth => 4ten => 10

 2. Perl變數、陣列變數、雜湊變數沒有定義和undef的區別。如果沒有用my（strict的要求），則不能使用。只有定義了，但沒有賦值，其值才為undef。例如在一下例子運行錯誤。

if (%dfd) { print ‘ok‘;} else { print ‘not ok‘;}

 3. 把未定義值當成數字使用時，Perl會自動將它轉換成0。如果使用use warnings;use strict。雖然程式會報錯，雖然依舊會出結果。

print 12*$a;------result-------Name "main::a" used only once: possible typo at ts2.pl line 19.Use of uninitialized value $a in multiplication (*) at ts2.pl line 19.0[nan@localhost pl]$ fg

 4.<>在讀取檔案的時候，在最後一行讀完後，會返回undef值，其目的是為了結束迴圈之用。例如：

open FILE, "<tt.pl" or die "the file tt.pl can not be opened $!";while(<FILE>) {  print;}

但是，在<STDIN>從鍵盤讀取資料的時候，如果使用while迴圈，則無法跳出迴圈，所以最好設定一個跳出迴圈的特殊字元。例如：

while (<>) {  last if (/^EOF$/);  print;}

 

Perl：perl編程要注意的問題。