每週小技巧

Perl:

Perl Script 讀取參數的函式可以使用 getopt()

use Getopt::Std;
getopt(Aa);

A 跟 a 分別代表程式執行時,可以使用 -A 與 -a 帶入參數。
而 $opt_A 與 $opt_a 是預設的參數變數名稱,可以用它取得帶入的參數值。
例如:
example.pl -A xxx -a 123
print $opt_A => xxx
print $opt_a => 123

Perl 讀取檔案內容到一個 Perl List:

open(FILE, "file_name");
@list_name = ;
close(FILE);

這樣預設會連換行符號也一起存到 List 的 element 中,可以使用 chomp 來切掉:

foreach my $i ($list_name)
{
chomp $i;
print "$i\n";
}

可以把 chomp 那行註解起來測試差別。

links for 2011-02-24

links for 2011-02-23