Perl腳本學習心得

Perl腳本跟C語言語法比較接近。

Perl的座右銘是“辦法不止一種 （There's More Than One Way To Do It）”。

變量

變量需要使用$字符， 如下：

$pi = 3.14;
print $pi . "\n";

$arr[0] = 100;
print $arr[0] . "\n";

語句

每一句以分號結尾。

字符串

數組

下標-1表示最後一個元素，依次類推，-2是倒數第二個元素。

引用整個數組：

@arr = 5..9;

除了通過下標訪問數組，還可以通過push、pop操作符。

@arr = 5..9;
$fred = pop @arr;    #$fred變成9，@arr是(5, 6, 7, 8)
pop @arr;    #@arr是(5, 6, 7)
push @arr, 8; #@arr是(5, 6, 7, 8)   

列表

<span style="font-size:14px;">(1, 2, 3)    #包含1、2、3這三個數字的列表
(1, 2, 3,)   #末尾的逗號會被忽略
("fred", 4.5) #兩個元素，"fred"和4.5
()               #空列表，0個元素
(1..100)       #100個整數構成的列表</span>

特殊操作符

.. 範圍操作符，從左邊的數字計數到右邊的數字，只能向上計數。

reverse

#reverse 返回次序相反的列表，不改變入參
@wilma = reverse 6..10;
@fred = reverse @fred;

sort

(1..5)     #與(1, 2, 3, 4, 5)相同
(5..1)     #空列表，只能向上計數

函數

函數定義

sub marine {
    $n += 1;
    print "Hello, sailor number $n\n";
}

函數調用

&marine;

函數參數

&max(1, 2);

$_[0]表示第一個參數，以此類推，$_[1]表示第二個參數；

返回值
最後執行的表達式的值就是函數的返回值。寫不寫return都可以。

常用函數
chomp()   去掉字符串結尾的'\n'

輸入與輸出

控制結構

foreach

foreach $rock (qw/ bedrock slate lava /) {
    print "One rock is $rock.\n"; 
}
#使用默認變量$_
foreach (1..10) {
    print "I can count to $_\n";
}

正則表達式