FlossDoc: 請協力 GPLv3 的中文翻譯工作。

FlossDoc，自由中文開源知識庫

“Write Perl script”是一篇還未完成的小作品，誠意希望您能繼續編輯或者修訂這個條目。

如果您已認識其他程式語言 (programming language) 或腳本語言 (scripting language)，這是一個非常簡短對 Perl 語法的介紹。

Hello World 程式

以下是一個很簡單的 Perl 程式。

#!/usr/bin/perl

print "Hello, world!"; # 這是注解

資料類別

Perl 和很多腳本語言一樣都屬 lossy type，並不強制分開數字、字串和物體等類型。您可以直接將字串中的數字作運算：

print "5.2" + "1.7";    # + 是數值運算
# 顯示 6.9

print "5.2" . "1.7";    # . 是字串運算
# 顯示 5.21.7

基本而言，Perl 的變數只分三類:

• 純量 (scalar) - 名稱以錢號 ($) 開頭，表示任何單一資料。例如： $num = 6.9; $string = "Hello World!!";
• 陣列 (array) - 名稱以 @ 開頭，表示包括多個純量的串列。例如： @odds = (1, 3, 5, 7, 9);
• 散列 (hash, associate array) - 名稱以百分比號 (%) 開頭，

同樣，Perl 中的變數和很多 scripting 語言一樣無需要預先宣告 (declaration)。但如果開程式開啟加上 use strict; 敘述，可以令 Perl 要求每一個變數都要變 my $a, $b; 預先宣告，減少拼錯變數名稱的機會。

詳情可以參見 perldata(1)^[1]

純量 ($scalar)

純量是 Perl 可以處理最簡單的類型，表示任何單一資料，包括數值 (numeric)、字串 (string) 和參考 (reference)。例如：

• 整數 (integer): 1, 20, -280, 031 (八進位數，相等於 25), 0xA31E (十六進位數，相等於 41758) 和 0b101101 (二進位數，相等於 45)
• 浮點數 (float): 3.141573259, 1.7E10, -2.56e15 和 10.0
• 字串 (string): '哈囉! 世界!', '12345678', "My name is $myname\n"

純量變數以錢號 ($) 開頭。

陣列 (@array)

陣列或串列 (list) 為一連純量組成 (0 個元素或以上) 組成的資料類型，例如：

(1, 2, 3)                          # 三個元素的串列
('John', "Mary", 2, 4, 'Peter')    # 五個元素的串列
()                                 # 空串列 (0 個元素的串列)

陣列變數以 @ 為開頭，可以使用 $var[$i] 存取第 $i - 1 個元表的值：

@names = ('John', 'Mary', 'Peter');
print $names[1];                   # 顯示 Mary
$names[2] = 'David';               # @names 變成 ('John', 'Mary', 'David')
@nums = (2, 1, 6, 17);
@list = (@names, @nums);           # @list 變成 ('John', 'Mary', 'David', 2, 1, 6, 17)
@words = qw(apple boy cat door);   # @words 變成 ('apple', 'boy', 'cat', 'door')
print $#words;                     # 顯示 4 (@words 的元素數目)

foreach $word ( @words ) {
    print "$word\n";
}

print pop(@words);            # 顯示 'door', @words 變成 ('apple', 'boy', 'cat')
push(@words, 'ear');          # @words 變成 ('apple', 'boy', 'cat', 'ear')
print shift(@words);          # 顯示 'apple', @words 變成 ('boy', 'cat', 'ear')
unshift(@words, 'zebra');     # @words 變成 ('zebra', 'boy', 'cat', 'ear')

注意事項：

• 取用陣列其中一個元素為純量，所以 $ 開頭。取用整個陣列則以 @ 開頭。
• 陣列變數和純量變數可以使用相同的名稱，但表示兩個獨立的變數。例如 $x 和 @x 是不同的變數。

散列 (%hash)

散列 (hash) 或叫作 associated arrays，和陣列很相似，但陣列用整數作索引，而散列則用字串作索引，稱為鍵 (key)，對應的內容為值 (value)。散列變數以百分比號 (%) 作開頭，可以用 $var{$i} 存取鍵為 $i 的值：

%scores = {
    'John Smith' => 88.2,
    'Mary Doe' => 92.5,
    'David' => 45.12
};

print $scores{'David'};      # 顯示 45.12
$scores{'peter'} = 'unknown';
print $scores{peter};        # 鍵的單引號可以省略

print "David has score\n" if exists $scores{'David'};

@names = keys(%scores);      # @names 變成 ('John Smith', 'Mary Doe', 'David', 'peter')
@scores = values(%scores);   # @scores 變成 (88.2, 92.5, 45.12, 'unknown')

while (($key, $value) = each %scores) {
    print "$key => $value\n";
}

注意事項：

• 和陣列同理，取用散列其中一個鍵的值為純量，所以 $ 一樣以開頭。取用整個散列則以 % 開頭。
• 散列變數，陣列變數和純量變數可以使用相同的名稱，但表示三個獨立的變數。例如 $x，@x 和 %x 是三個不同的變數。

內建變數

以下只是列出幾個常用的內建變數，完整的列表請參看 perlvar(1)^[2]

• $_ - 預設參數。任何函數沒有提供參數時會自動使用此變數作為函數，例如 print; 等於 print $_;，而 /HKD\d+\.\d{2}/ 等於 $_ =~ /HKD\d+\.\d{2}/。
• $0 - 現時執行程式的檔案路徑 (包括程式名稱)
• @ARGV - 現時執行程式的命令列參數
• @_ - 現時執行子程序的參數
• $$ - 現時執行程式的進程識別號 (PID)
• $. - 最後存取檔案標頭 (file handle) 的現時行號。

運算

值的真假:

• 0 為假，其他數值皆為真。
• '0', "0" 和空字串 、"" 為假，其他字串皆為真。
• 運算結果可以轉為 "0" 者為假，其餘皆為真。
• 未定義 undef 為假，有定意為真。

$a{'name'} = 'John Smith';
$obj = \$a;
print $obj->{'name'};

$i = 10
$i++; # 相等於 $i = $i + 1; $i 的值變成 11
print $i++ + 4; # 顯示 15,  $i 的值變成 12
print ++$i + 4; # 顯示 18,  $i 的值變成 13

$i = 20
$i--; # 相等於 $i = $i - 1; $i 的值變成 19
print $i-- + 4; # 顯示 23,  $i 的值變成 18
print --$i + 4; # 顯示 21,  $i 的值變成 17

基本語法

每一個敘述 (statement) 一定以冒號 (;) 結束。

詳情可以參見 perlsyn(1)^[3]

如果..則 (if..then)

最簡單的形式為：

if (算式) { 敘述... }

當然可以加上否則 (else) 的情況：

if (算式) { 敘述... } else { 敘述... }

否則如果 (else if) 則用 elsif:

if (算式) { 敘述... } elsif (算式) { 敘述... }...  else { 敘述... }

還有 Perl 獨有的單行式：

敘述 if 算式;

別忘了 Perl 還有 unless 敘述，相等於 if (! 算式) ...:

unless (算式) { 敘述... } else { 敘述... }

或:

敘述 unless 算式;

例如：

if (!open(FOO)) {
   die "Can't open $FOO: $!";
}
print "Basset hounds got long ears" if length $ear >= 10;
go_outside() and play() unless $is_raining;

open(FOO) or die "Can't open $FOO: $!";     # FOO or bust!
open(FOO) ? 'hi mom' : die "Can't open $FOO: $!";
# a bit exotic, that last one

注意事項：

• 是 elsif，不是 elseif，中間沒有 e 的。

while..do

while (算式) { 敘述... }

可以加上 continue 區塊 (每次完成 loop 都會執行 continue 區塊的敘述，包括 next 後):

while (算式) { 敘述... } continue { 敘述... }

單行式：

敘述 while 算式;

Perl 獨有的 until 等於 while (! 算式):

until (算式) { 敘述... }

或:

敘述 until 算式;

例如:

while (($key, $value) = each %hash) {
    print "$key = $value\n";
}
$i = $j = 0;
print $i++ while $i <= 10;
print $j++ until $j >  10;

$i = 0;
while ($i < 10) {
    print "$i\n";
} continue {
    $i++;
}
# 以上相等於 for ($i = 0; $i < 10; $i++) { print "$i\n"; }

do..while

do { 敘述... } while 算式;

do { 敘述... } until 算式;

do {
    $line = <STDIN>;
    ...
} until $line  eq ".\n";

例如:

do {
    $i++;
    print "$i\n";
} while ( $i < 100 );

for loop

C 語言的 for 形式：

for (算式; 算式; 算式) { 敘述... }

亦有方便走訪所有陣列元素的 foreach 形式

foreach 變數 ( 陣列 ) { 敘述... }

或：

敘述 foreach 陣列;

for ($i = 1; $i < 10; $i++) {
    ...
}

print "Hello $_!\n" foreach qw(world Dolly nurse);

loop 控制

• last - 跳出 loop
• next - 跳至下一次 loop 或 continue 區塊
• redo - 重新執行這一次 loop

常用函數 (function)

這裡只列出較常用的內建函數 (function)，完整列表可以參見 perlfunc(1)^[4]

如果使用時沒有提無參數，一般預設使用變數 $_。

輸出相關:

print "Hello, world\n";
print "This ", "is ", "my ", "first ", "program!\n";
print('Now is: ', localtime, "\n");

printf "Name: %s\nAge: %d\n", $name, $age;
printf("The cost is HKD%8.2f\n", $cost);

檔案/目錄相關:

檔案存取相關:

字串處理:

while ( <> ) {
   chomp;                 # 刪除尾部的新行字元 ("\n")
   @fields = split(/:/);
}

自訂函數

sub force() {
    my ($mass, $acceleration) = @_;
    return $mass * $acceleration; 
}

print "Force = %f\n", 5.0, 10;

參考資料

1. ↑ GNU/Linux Manpage: perldata(1) - Perl data types^{[SuSE][OpenSuSE]} URL: http://search.cpan.org/dist/perl/pod/perldata.pod
2. ↑ GNU/Linux Manpage: perlvar(1) - Perl predefined variables^{[SuSE][OpenSuSE]} URL: http://search.cpan.org/dist/perl/pod/perlvar.pod
3. ↑ GNU/Linux Manpage: perldata(1) - Perl syntax^{[SuSE][OpenSuSE]} URL: http://search.cpan.org/dist/perl/pod/perlsyn.pod
4. ↑ GNU/Linux Manpage: perldata(1) - Perl syntax^{[SuSE][OpenSuSE]} URL: http://search.cpan.org/dist/perl/pod/perlfunc.pod

請參看

• 編寫其他程式 - 包括 bash、PHP 和 Python

外部資料