查看: 1158|回复: 0

Perl的基本語法

[复制链接]
  • TA的每日心情
    开心
    2016-5-12 14:23
  • 签到天数: 2 天

    [LV.1]初来乍到

    发表于 2014-4-22 10:25:52 | 显示全部楼层 |阅读模式
    参考原網址 - http://ind.ntou.edu.tw/~dada/cgi/Perlsynx.htm# c; {4 @5 ^+ h  W1 z  c

    0 C4 h' o$ z* j+ \! f/ N- D' I. B, ~9 |7 K) I, f2 s2 i2 l0 Q
    前言:  R) C5 [+ \- ^# N' M: f
    這篇文章是花了我很多時間、費了我很多心血才完成的,雖然連我自己都覺得無法達到盡善盡美的境界,但希望能幫助大家入門,稍微了解到Perl到底是個什麼樣的東西,Perl到底有那些強大的功能,那麼這篇文章的目的就達到了。 我分做資料型態控制敘述副程式I/O和檔案處理Regular ExpressionsSpectial VariablesHelp 這幾部分來講解,但只是敘述了一些Perl的基本語法而已,Perl活潑的特性和程式的技巧就無法一一詳述了,甚為缺憾。
    [size=+2](1) 資料型態(Data type):
    ; W4 h& i3 j9 H- C* aPerl的資料型態大致分為四種:ScalarScalar ArrayHash ArrayReferences, 看起來雖少但用起來卻綽綽有餘。尤其在寫Perl程式時可以不必事先宣告變數,這一點對剛學程式語言的人甚為方便, 不過為了以後程式除錯和維護方便,我建議你還是養成事先宣告變數的習慣比較好。
    [size=+1]
    [size=+1](a) Scalar:純量變數是Perl裡最基本的一種資料型態,它可以代表一個字元、字串、整數、甚至浮點數,而Perl把它們都看成是一樣的東東! 你甚至可以混著用,不可思議吧。例如:
      P8 h  [, ~' @  K( O; L. ~
    % v: P4 N2 Q. G! k[size=+1]# 井字號開頭的後面都是註解。: m: C$ u- K5 ?
    # 純量變數以$開頭。
    # d2 `1 m9 @% e# O+ ]! z# my 是一種宣告變數的方式,它可以使變數區域化。
    + t" X$ h8 u" B+ Z! f# 宣告變數時若不加 my 或 local 則Perl會把它當作全域變數使用。* V+ d( J! q, V+ o
    # 習慣上,我們會將字串用雙引號括起來,而數值就不用加引號。- t, w1 ~. \; r. c' j
    my $x="abc";# z  ~) P/ W+ e9 b: Z  Q5 e4 B; [
    my $x=123;
    : A% V: c8 J$ C$ Ymy $x=4.56;/ r& L+ |, p# M! |9 S4 H: }8 `
    ( v% H" `: p9 E8 j* [
    那麼程式怎麼判斷這是數值還是字串呢? 其實不是程式判斷,而是你自己要判斷。Perl分別提供了一堆運算子來處理數字和字串,你必須知道這個變數是數值或字串,才能使用個別的運算子來對變數做運算。我分別列出字串運算子和數值運算子,好讓大家能區分它們的不同。
    # M5 r  L2 u& k- ~; J) M
    ) w0 ?" [; j5 R3 B" Y+ g+ v4 ~! `
    ( F& v# w- O8 f2 ]' L. X◎字串運算子
    String OperatorPurpose
    xReturns a string consisting of the string on the left of the operand, repeated the number of times of the right operand.
    Concatenates the two strings on both sides of the operator.
    eqReturns True if the two operands are equivalent, False otherwise.
    neReturns True if the two operands are not equal, False otherwise.
    leReturns True if the operand on the left is stringwise less than the operand on the right of the operator. Returns False otherwise.
    ltReturns True if the operand on the left is stringwise less than or equal to the operand on the right of the operator. Returns False otherwise.
    geReturns True if the operand on the left is stringwise greater than or equal to the operand on the right of the operator. Returns False otherwise.
    gtReturns True if the operand on the left is stringwise greater than the operand on the right of the operator. Returns False otherwise.
    cmpReturns -1, 0, or 1 if the left operand is stringwise less than, equal to, or greater than the right operand.
    ,Evaluates the left operand, the evaluates the right operand. It returns the result of the right operand.
    ++Increments the string by one alphabetic value.
    9 @2 ]! C" P" X

    3 C) Y, S+ F# x1 u( r◎數值運算子
    Value OperatorPurpose
    +Computes the additive value of the two operands.
    -Computes the difference between the two operands.
    *Computes the multiplication of the two operands.
    /Computes the division between the two operands.
    %Computes the modulus(remainder) of the two operands.
    = =Returns Ture if the two operands are equivalent, False otherwise.
    !=Returns Ture if the two operands are not equal, False otherwise.
    <=Returns Ture if the operand on the left is numerically less than or equal to the operand on the right of the operator. Returns False otherwise.
    =>Returns Ture if the operand on the left is numerically greater than or equal to the operand on the right of the operator. Returns False otherwise.
    <Returns Ture if the operand on the left is numerically less than the operand on the right of the operator. Returns False otherwise.
    >Returns Ture if the operand on the left is numerically greater than the operand on the right of the operator. Returns False otherwise.
    < = >Returns -1 if the left operand is less than the right, +1 if is it greater than, and 0(False) otherwise.
    &&Performs a logical AND operation. If the left operand is True m then the right operator is not evaluated.
    ||Performs a logical OR operation. If the left operand is True m then the right operator is not evaluated.
    &Returns the valueof the two operators bitwise ANDed.
    |Returns the valueof the two operators bitwise ORed.
    ^Returns the valueof the two operators bitwise XORed.
    ++Increment operator. Increments the variable's value by 1.
    --Decrement operator. Decrements the variable's value by 1.
    **Computes the power of the left-hand value to the power of the rihght-hand value.
    +=Adds the value of the right-hand operand to the value of the left-hand operand.
    -+Subtracts the value of the right-hand operand to the value of the left-hand operand.
    *=Mlutiplies the value of the left-hand operand to the value of the right-hand operand.
    >>Shifts the left operand right by the number of bits that is specified by the right operand.
    <<Shifts the left operand left by the number of bits that is specified by the right operand.
    ~Performs a 1s complement of the operator. This is a unary operator.

    2 v+ D, T- T  L$ a8 K[size=+1]
    [size=+1](b) Scalar Array:
    純量陣列,陣列內的每一個元素都是Scalar variable。宣告及使用方式如下:
    6 l" w, Y: c' m1 u' q. w" V2 w5 }
    / e& p7 l. }- I# Y5 B[size=+1]# 純量陣列以 @ 開頭。
    * g- J' C1 _- r. Q5 w. ]8 Smy @array;- J9 [5 P, O5 N# M" _" [$ {
    my @array=qw(a b c d);# L/ g* V5 Q, f' ?7 }! i4 \

    3 M9 U) s9 P7 D0 b$ |2 t1 I+ H# qw 函數會將其後的每個元素用逗點隔開,效果就像下面這行。2 s$ q6 h0 {, q+ A/ K$ j( J6 ]
    my @array=("a","b","c","d");
    ; |$ o! B4 N3 Y/ {0 J' V- P; G+ a8 H
    # 當然你也可以一個個元素宣告,下面就是存取每一個元素的方法。
    6 w& g" h8 F9 `' j# |+ a7 v) G# 因為陣列中的每一個元素都是純量變數,所以要以 $ 開頭,
    : C( W# d! F1 _. {1 _9 K; W# 剛開始容易搞混,請注意。$ B) `) W6 f' _
    $array[0]="a"; $array[1]="b"; $array[2]="c"; $array[3]="d";/ ]; Y6 s2 @7 W" c7 ?# ?7 s
    , `+ Y& x/ h( @+ J
    # 使用for loop印出陣列內每個元素的值。8 d( L0 D! V# \- |" e2 p& g
    for($i=0; $i<=$#array; $i++) {1 h% z+ i+ [7 P
    print "$array[$i]\n";! U& |! F/ `0 j  v" G
    }
    + H+ d* t; m7 j. h# [6 w* ]

    # L( o9 m( w) p2 Z6 X看到$#array這個奇怪的東東沒? 這是Perl的一個特殊用法,代表這個陣列最後一個元素的註標。 由於Perl不必事先宣告變數,也不必預先宣告陣列的大小,甚至可以隨時增加新元素,那我們怎麼知道這個陣列到底有多大呢? 透過這個特殊變數我們可以得知這個這個陣列最後一個元素的註標,自然而然也就知道這個陣列究竟有多大了。 另外Perl只定義了一維陣列的語法,二維以上只能用指標間接來達成。
    , [$ s: t+ [: O/ u2 L7 Z
    / l% I* J" `2 H+ u9 \2 @0 B1 V% o7 [3 j+ @$ O  b2 j1 ?
    [size=+1]
    [size=+1](c) Hash Array(Associative Array):雜湊陣列也叫做相關陣列,它和一般陣列沒什麼不同,差別只是在它的索引值用的是字串,而非一般陣列所用的整數值, 因此相關陣列不像一般陣列一樣有次序的概念,它沒有所謂的第一項資料這種說法。它就相當於把一堆變數組合成一個group,然後我們可以透過索引字串存取這個group每一個元素的值。 相關陣列的宣告及使用方式如下:
    : F( ]. s/ x$ M
    9 J; h1 }1 w0 z: u/ [! B0 P! `* ^[size=+1]# 相關陣列是以 % 符號開頭的。
    7 c" |5 l# z  G7 D8 D5 B6 `my %hash;5 S. m  `( y+ r3 ]6 X" P! C

    # h4 h+ @" e, M* _4 o# => 這個符號是Perl5新增的,是為了相關陣列量身定做的,9 R0 z; S- E6 ~) \: [
    # 因為索引和元素值都是純量,若使用 => 這個符號,
    ! w* Y( R; ?5 ?, W' A. M6 _0 P# (索引=>元素值) 兩兩對應,就不容易發生失誤。
    ; U6 }5 ]# X+ z; \my %hash=("i1"=>"aaa","i2"=>"bbb","i3"=>"ccc");
    8 v5 T/ g: U+ M0 i* V( }9 R  P( W4 E9 I
    # 上面這行的效果和下面這行是一樣的。
    * }4 J9 U1 z% ]my %hash=("i1","aaa","i2","bbb","i3","ccc");. M; t4 t8 {) d/ X5 S
    7 }/ U# N8 t6 n+ p9 v0 I) X" u
    # 下面是存取每個元素的方法,注意是用大括號把索引括起來哦。
    ' O! _$ i$ `. n# E( J0 Y1 M. @# 習慣上索引值用單引號、元素值用雙引號括起來。6 j" A* j0 m5 E, b" R- e
    $hash{'i1'}="aaa"; $hash{'i2'}="bbb"; $hash{'i3'}="ccc";: q. E9 h8 P1 L+ g& m
    $ ?5 O& g+ e+ k- f2 A7 o$ R2 ?
    # 下面是使用相關陣列的三個例子:& V, s, N0 ?4 D3 G2 v0 l6 w
    foreach $key (keys %hash) {
    ' b* a, x3 y# S. wprint "$hash{$key}\n";/ N; r: o+ A/ R8 Z+ p
    }1 n; b$ ?7 J8 {4 ?$ b
    foreach $value (values %hash)5 Y$ O3 |9 u, G
    while(($key,$value)=each %hash)7 U$ {' u9 X# z0 s- J

    8 z9 }* T. s# e; R( H* x
    $ M2 ?+ @5 b  i) `
    Perl有上述三個函數可對相關陣列做運算:keys函數可取出相關變數的索引值,組成一純量陣列,注意這些由keys函數取出的索引值沒有次序性;values函數可取出相關變數的元素值;each函數則會取出(索引、元素)對。使用者可視情況而用。 " d* j' P! g7 ]

    . A4 ~" D) L2 p1 I; q- X) G
    # @5 T, ^& R- F[size=+1]
    [size=+1](d) References(Pointer):Perl 5新增了參考指標的資料型態,使Perl和C一樣可借由指標建立一些複雜的資料結構。 普通程式是用不到指標這玩意的,下面也只是簡單介紹一下,看不懂的人可不必深究。
    ! j- S1 R' H4 _: Y7 H" J⊙如何取得變數的位址? % }' x1 h' M' l2 ~
    [size=+1]- O" y6 x- G: I) G) L
    [size=+1]$scalarRef=\$scalarVar;: h! R8 o( B) p3 |4 r
    $arrayRef=\@arrayVar;) M) Z6 Q- S( b( k- x, Q
    $hashRef=\%hashVar;
    7 Q" `4 y/ r( h# F$funcRef=\&funcName;( r$ O: H3 [9 s: a4 X+ h. A& D
    ⊙如何使用指標? & ?7 u: T! b/ w! `9 O
    [size=+1][size=+1]print $$scalarRef;7 a3 |# }8 x' q/ i9 P' E- `
    print "@$arrayRef";3 I# g% g& Q5 S2 H; N; Q' G  i
    print $hashRef->{$key};
    ; A. E& H! h! R9 d" k, F3 s&$funcRef;6 o! V& i' n6 Z) c
    ⊙Anonymous Array References:(二維陣列)
    9 |! s0 m, p' ~3 C, H% V[size=+1][size=+1]$arrayRef=[[1,2,3,4],a,b,[x,y,z],c];0 X& U* Q& K3 ?  J" {( X3 R' G! V
    print "$arrayRef->[0][0]\t$arrayRef->[2]\t$arrayRef->[3][2]\n";0 {6 d$ o/ Q4 b
    ⊙Anonymous Hash References: ) [, T/ s$ Z8 a
    [size=+1][size=+1]$hashRef={a=>aa,b=>bb,c=>cc};9 j4 N# |$ n. L% q3 v/ u
    print "$hashRef->{a}\t$hashRef->{b}\t$hashRef->{c}\n";9 `' b. R* p0 v

    2 {" a5 ~9 J- J: \6 E
    1 _* k3 q& x5 i2 t4 ~. A[size=+2](2) 控制敘述(Control Statements)[size=+1]
    , O/ z+ }4 e# M- n# v[size=+1](a) Conditional Control Statements:Perl的條件控制敘述和C語言很像,讓使用者很快就能掌握它。不過Perl比C語言又另外多了些實用的語法,我用底線標出來,大家一看便知:
    + q# y$ x5 J- h! Y
    " B# I0 P9 A( f( S* ?8 M9 N[size=+1]# Expression 就是條件敘述式,Perl和C一樣沒有定義布林資料型態(Boolean data type),
    " l/ r% V; [6 N9 ~( }# 因此 0 是false、非0 是ture。另外要注意字串運算子和數值運算子要分清楚哦。
    9 p: g  n" S; B9 r* s" F8 b* L5 P# Code Segment 就是用大括號括起來的一堆指令,也就是一個Block。
    5 j9 j& w# K; A. s* m: |+ Sif (Expression) {Code Segment}, ]) y/ }& ~" V
    if (Expression) {Code Segment} else {Code Segment}0 N# j" t$ w' T) E  K
    if (Expression) {Code Segment} elsif (Expression) {Code Segment} else {Code Segment}
    , W1 B/ g& y, Y/ g, B# elsif 就是 else if7 G8 _2 W9 j& T1 ~( S* i

    # i# c5 f  V) z1 _7 Y- U2 i' \# 如果指令(statement)只有一項,我們可以使用倒裝句法,看起來比較簡潔。
    " x2 w* R5 `# w' h- hstatement if (Expression);
    % f% ~: r& h, @) [9 L- l  M$ \# unless 就是if not
    $ k5 V$ M: D# U6 e& Ystatement unless (Expression);
    5 l' a( ~$ K- g; d, w& \例:# @- J6 Q, _% v
    print "HELLO!\n" if ($name eq "friend");# ?! {& }) L: b: W
    $x-=10 if ($x == 100);
    : F7 T0 \9 W: C% _

    ! n" v, C! T) X% |看吧! C 語言有的Perl大部分都有,學過 C 的人可以毫不費力的學會Perl。
    * O9 {1 \7 I6 J6 _# M4 k[size=+1]) X1 C: M( q( e3 y" o7 t
    [size=+1](b) Loop Control Statements:Perl的迴圈控制敘述也和C語言很像,當然,照例Perl也另外多了些實用的語法:[size=+1]# 注意:純量變數前面要加個 $ 字號,這一點和C語言不一樣哦。
    ( y7 k* F  g* j! G/ l9 cfor($i=0; $i<=10; $i++) {Code Segment}$ _# J+ w5 n0 E) a& a, R% H
    7 _( Y2 v+ ]% x( `
    # foreach 是承襲UNIX的shell script來的,
    / T4 @0 e: ?) x# 第一個引數是純量變數,第二個引數要用括號括起來,裡面是一個純量陣列,: G3 y5 l, u) r, R8 N# D
    # 顧名思義它就是把陣列中的每個元素依序傳給第一個引數,直到全部傳完。
    * A7 F: c& O9 f# h* Q7 g# 它和 for($i=0; $i<=$#array; $i++) 用法雖然不同,但目的都是要取出陣列的每個元素。" Y7 Z& K1 X0 M) \5 R( [
    foreach $i (@array) {Code Segment}
    + [. v' J4 z7 Z( n" ?0 O7 q1 \4 Y0 c  O4 w- S" l" R; g5 q
    # 其實在Perl中,for和foreach是可以混著用的,就看個的人習慣了。" }/ x7 p! P* i2 x1 F1 U1 [  v
    # 下面這行就等於上面第一個敘述,不過簡潔多了,大家可以試著用用看。4 z/ B: `" d% i6 P8 F
    for $i (0..10) {Code Segment}
    ' l4 V. b( t1 _1 Z6 [2 r% C9 S1 e6 h  w; R4 t% W7 s
    # while控制迴圈和後置迴圈。9 {. r: y# l6 ~' Q0 F2 u' A9 U
    while($i<=10) {Code Segment}7 t! j8 i- a& K+ ~
    do {Code Segment} while(Expression);4 f3 [! a& t, e- D* c8 W4 P1 O5 O/ ^

      R1 [/ F2 Z& M% o! n. c. S% h7 W  w# Perl也有和C語言的break和continue一樣的指令,Perl叫它做 last 和 next (較口語化)。& `! f8 X0 Q; g9 ^; E$ n3 _/ _6 {
    # last是跳出現在所在的迴圈,next則是跳過下面的指令直接執行下一次的迴圈。
    # `$ {( R, @; [; Y: Owhile(chomp($i=<STDIN>)) {
    2 G$ X4 _$ ?6 Hnext if ($i == 5);0 n% D" a% u" u# P, F6 k  R9 N% o
    last unless ($i > 10);* {3 C; F( w+ |4 E( S8 F
    }* o+ P3 _) a- f; ~

    + A( B+ p4 S( P. Z. `% q8 A
    Perl還有提供label(標記)的語法,也就是 goto 指令,不過有經驗的programer並不喜歡用它,我也不建議大家使用,所以就此按下不講。有興趣的人請自行查閱。 還有一點值得注意的是Perl沒有提供像C語言一樣的 switch 敘述,不過Perl的pattern match的功能非常強,所以我建議你直接用 if else 敘述來做就好了。' h' ]0 j) P; Z8 P" w2 B/ {

    9 |1 W; k: e3 W# M1 v2 }' l: a
    9 l# F5 o. N" O[size=+2](3) 副程式(Subroutines)
    [size=+1]
    [size=+1](a) Syntax: sub NAME {Code}0 X$ E% G$ T: {, h% O7 w
    [size=+1]
    ! ^1 n( K4 R' d5 l! K; j9 F[size=+1](b) 呼叫副程式: &NAME(para1, para2,...)0 l1 }" F! [) A  R! b
    [size=+1]
    . k" ^; q2 l4 X0 W[size=+1](c) 參數傳遞: @_Perl和C一樣是採用Call by value的方式,不過因為Perl不用事先宣告變數,所以建立副程式的時候也不用宣告要傳遞什麼參數。 當主程式在傳遞參數給副程式時,Perl會把括號括起來的參數按順序放在一個特殊的全域變數 @_ 陣列中,然後副程式就可以隨意使用陣列 @_ 裡的參數,例如 $_[0] 是第一個參數, $_[1] 是第二個,或是用 [size=+1]my ($a1,$a2,$a3,...) = @_;來取出各個參數,當然 [size=+1]my @arg=@_; 或 [size=+1]my %arg=@_; 也是可以的。 由於Perl的語法非常活潑,使得程式在維護時特別棘手,因此寫註解成為一項很重要的工作。 我建議你最好在每個副程式前面加上對這段副程式的描述,特別是需要傳遞的參數要註明清楚。
    & `: R- B: k3 a6 e1 t[size=+1]6 {9 b; X" b# r- T6 A7 W
    [size=+1](d) Variable Localization:my or local通常我們在程式中定義的變數都是全域變數,所以在副程式中若要把變數區域化則要加上 my 或 local 關鍵字,例如: [size=+1]my $x=3;,若副程式所用的變數名不小心和主程相同,Perl會以目前正在執行的副程式裡的變數為優先。

      p8 T  M! [. f7 O/ e" ]7 I3 B/ D5 B# m& c
    [size=+2](4) I/O和檔案處理
    [size=+1]
    [size=+1](a) Syntax:open(FILEHANDLE,"Expression");& U+ z8 M' e# p' O$ z
    close(FILEHANDLE);這裡的Expression是一個敘述加上檔案名稱,若Expression只有檔案名稱沒有加上敘述,則預設是唯讀。Expressions敘述如下:
    + h, b3 S: b& i. ]
      ^! L3 y1 U+ i1 f2 Q
    ExpressionEffect
    open(FH, "<filename")Opens filename for reading.
    open(FH, "+<filename")Opens filename for both reading and writing.
    open(FH, ">filename")Opens filename for writing.
    open(FH, "+>filename")Opens filename for both reading and writing.
    open(FH, ">>filename")Appends to filename.
    open(FH, "command|")Runs the command and pipes its output to the filehandle.
    open(FH, "command|")Pipes the output along the filehandle to the command.
    open(FH, "-")Opens STDIN.
    open(FH, ">-")Opens STDOUT.
    open(FH, "<&=N")Where N is a number, this performs the equivalent of C's fdopen for reading.
    open(FH, ">&=N")Where N is a number, this performs the equivalent of C's fdopen for writing.

    : F! i* |1 T$ t# X/ P" e[size=+1]例:
    4 l( Q. k! E3 a) P2 y/ r# 開啟$filename這個檔案,若開啟失敗則印出die後面的訊息,並結束程式。
    - G6 I* S% d8 E7 @0 Fopen(FILE, $filename) || die "Can't open file $filename : $!\n";& U+ t9 I) ^4 Q0 Q
    # 下面是一個十分精簡的寫法,和 while($_=<FILE>){print "$_";} 是等效的。
    6 t- h! {4 l+ z( T. E7 k, t$ M! bprint while(<FILE>);$ q8 n" R; j  P& {5 q; i2 \
    # 檔案開啟後要記得隨手關閉,這才是寫程式的好習慣。% a8 o/ K( t+ \: G5 R
    close(FILE);
    " k& F* M9 r! B$ H/ l# $!和$_都是Perl的特殊變數,下面會介紹的。
    9 j, a6 {% n" F+ Q
    ! H+ Y" G" J% b  m: x5 L3 |
    ) E6 l2 h8 u6 I8 [* n- g3 y
    [size=+1][size=+1](b) Input:Perl沒有特別用來輸入的函數,因為Perl在執行程式時,會自動開啟標準輸入裝置,其filehandle定為STDIN,所以在Perl中要輸入資料的方法就是使用<STDIN>:[size=+1]# Perl不會自動去掉結尾的CR/LF,跟C語言不同,所以要用chomp函數幫你去掉它。& r# N# Y. w9 F  f# u2 p5 [2 E
    # 大家常常會忘記這個動作,導致結果跟你想的不一樣,要特別注意一下。6 b" z5 A1 {1 f( B2 E8 K8 h
    $input=<STDIN>; chomp $input;
    ) b4 K: |5 J% E. Q2 C+ i/ Q# 下面是較簡潔的寫法。
    3 a' I; O, q, p$ kchomp($input=<STDIN>);
    1 t- `3 r, }- S- K  T, A1 w
    ; d* ?8 Q9 S% Y
    ' }! R* S0 c& w' {
    [size=+1]
    * o! \5 Y8 T+ q$ }[size=+1](c) Output: print "variables or 字串"erl也有printf()函數,語法和C語言一模一樣,我就不多做介紹了。Perl另外有個print函數,比printf()更方便、更好用,包你愛不釋手。 Output不外乎是輸出到螢幕或檔案,用例子來說明比較容易了解。[size=+1]# 不用再指定變數的data type,這樣不是比printf()方便多了嗎?
    ( d! X- u. q$ ^+ s( aprint "Scalar value is $x\n";
    + a& F7 u/ N3 q/ Z# . 是字串加法的運算子,上下這兩行是等效的。2 E  h% F0 ?# e' s
    print "Scalar value is " . $x . "\n";$ i* L# p$ O9 W9 k5 R' j, Q
    1 Z1 x5 j8 V! p- U$ }) x+ w- ^
    # 輸出到檔案的方法。3 B8 L: D2 p+ W& f$ o% V  H
    print FILE "print $x to a file.";
    % `' w) A+ h# C. s* K% n
    : Z3 d/ ?; i- a" D2 h- Z. Z) \# k# 下面是print的特殊用法,學自shell script的用法:$ R9 ~/ G  v6 @; ^5 ]: d( z
    print<<XXX;7 e( e7 @* i5 v7 [6 K
    . x6 ~* d0 W1 r! F5 U* S
    [size=+1]這招叫做 here document,XXX可以是你取的任何識別字,在識別字之間的字都會按照你所寫的樣子輸出,就像<pre>標籤一樣。而當一行的開頭是XXX你取的這個識別字時,才會停止輸出。[size=+1]XXX% Q) P1 C4 q. _. C* j
    Perl 也有和 C 一樣以 "\" 開頭的特殊字元:
    ! v: Q, Z  S( C; B0 x      \t    tab      \n    newline      \r    return      \f    form feed      \b    backspace      \a    alarm(bell)      \e    escape      \033  octalchar      \x1b  hex char      \c[   control char      \l    lowercase next char      \u    uppercase next char      \L    lowercase till \E      \U    uppercase till \E      \E    end case modification      \Q    quoteregexp metacharacters till \E另外需要說明的是 Perl 融合了 unix shell script 的使用慣例,以雙引號("")括起來的字串會先經過展開,但反斜線(\)後面的字元則不展開,當作一般字元看待。 而以單引號('')括起來的字串完全不會展開,以反單引號(``)括起來的字串會把它當作命令列指令一樣執行,等於system()一樣。 初學者常常會搞混,但習慣之後就會覺得不這樣分清楚反而不行哩。舉個例吧:
    + t2 D* N' r6 W8 }[size=+1]
    . H4 @# Y* i0 D7 \[size=+1]$x="ls -l";print "$x";             # Output ls -lprint "\$x";            # Output $xprint '$x';             # Output $xprint `$x`;             # Output files in this directory# R6 L$ X2 M( ^+ {
    + Y% T* T( [, @5 C" J0 X

    ) B" G1 e4 Q( U[size=+2](5) Regular ExpressionsRegular Expression通常是用來尋找特定的字串樣式(pattern),也就是所謂格式辨認(pattern-matching)的功能。 它的運算子是『=~』和『!~』,可以把它念做match和not match。
    ; K6 w$ D1 v8 G" H* QSyntax: $string =~ /regular expression/expression modifier
    4 E& G: B. E, o$ x例:$sentence =~ /Hello/
    7 j& A) |4 r6 T; Q
    : ~5 p. C  t8 m9 f  b- @' ^[size=+1]" \- ]+ }) A$ e; z; S5 W& V
    [size=+1](a) Modifiers:修飾選項可有可無,它是用來對整個敘述作修正的。
    gMatch globally, i.e. find all occurrences.
    iMakes the search case-insensitive.
    mIf the string has new-line characters embedded within it, the metacharacters ^ and $ will not work correctly. This modifier tells Perl to treat this line as a multiple line.
    oOnly compile pattern once.
    sThe character . matches any character except a new line. This modifier treats this line as a single line, which allows . to match a new-line character.
    xAllows white space in the expression.
    $ p2 H  z1 z+ D$ [  W. @" t
    [size=+1]
    : Z7 B9 P2 e5 Q6 s" Q) k[size=+1](b) Metacharacter:下面這些字元都具有特殊意義,可以讓你建立更複雜的搜尋樣式(searching pattern)。
    \Tells Perl to accept the following characters as a regular character; this removes special meanings from any metacharacter.
    ^Matches the beginning of the string, unless /m is used.
    .Matches any character except a new line character, unless /s is used.
    $Matches the end of the string, unless /m is used.
    |Expresses alternation. This means the expressions will search for multiple patterns in the same string.
    ( )Groups expressions to assist in alternation and back referencing.
    [ ]Looks for a set of characters.

    7 b" P6 z" f* R: H; t( q[size=+1]0 h7 N; R, P, ]4 h& x
    [size=+1](c) Pattern Quantifier:用來表示字元的數量關係。
    *Matchs 0 or more times.
    +Matchs 1 or more times.
    ?Matchs 0 or 1 times.
    {n}Matches exactly n times.
    {n,}Matches at least n times.
    {n,m}Matches at least n times but no more than m times.
    9 x! K. Z& O* H" Z' b/ m$ W
    [size=+1]
    1 i: r( Y+ ?$ ~  r' ][size=+1](d) Character Patterns:下列的sequence用來match一些特定格式的字元:
    \rCarriage return(CR), ASCII 13(十進位)
    \nNew line, UNIX中代表ASCII 10(十進位), DOS(Windows)系統中則是ASCII 13 + ASCII 10(十進位).
    \tTab, ASCII 9(十進位)
    \wMatches an alphanumericcharacter. Alphanumeric also includes _. 即 [A-Za-z0-9_].
    \WMatches a nonalphanumeric character. 即 [^A-Za-z0-9_].
    \sMatches a white space character. This includes space, tab, FormFeed and CR/LF. 即 [\ \t\f\r\n].
    \SMatches a non-whote space character. 即 [^\ \t\f\r\n].
    \dMatches a digit. 即 [0-9].
    \DMatches a nondigit character. 即 [^0-9].
    \bMatches a word boundary.
    \BMatches a nonword boundary.
    \033octal char
    \x1Bhex char

    ! h( G% ~- a7 J+ E: p[size=+1]: g$ Q  S% Y  U- @
    [size=+1](e) Examples:Regular Expression這個東東非常強大、非常重要,但是對初學者來說簡直是個惡夢,記得我當初剛接觸時也是霧煞煞的,就算現在的我也不敢說全懂了:p 但你若了解了它的基本技巧後,包你愛不釋手,每每為它強大的功能讚歎。上面那些表格相信你也是有看沒有懂,這種東西要借由範例入門比較快,下面我列出一些基本範例,希望能幫助你了解它的基本技巧。[size=+1]/abc/3 Q# ]6 p) a# B: g/ E! L' C3 c
    找到含有abc的字串[size=+1]/^abc/找到開頭是abc的字串[size=+1]/abc$/找到結尾是abc的字串[size=+1]/a|b/找到有a或b的字串,也可以用來找整個字(word)[size=+1]/ab{2,4}c/找到a後面跟著2-4個b,再跟著c的字串,若只有/ab{2,}c/則會找二個以上的b[size=+1]/ab*c/找到a後面跟著0個或多個b,再跟著c的字串,如同/ab{0,}c/[size=+1]/ab+c/找到a後面跟著一個以上的b,再跟著c的字串,如同/ab{1,}c/[size=+1]/a.c/.可以代表任何字元,除了new line字元(\n)外。[size=+1]/[abc]/找到含有這三個字元中任何一個的字串[size=+1]/\d/找到含有數字的字串,如同/[0-9]/[size=+1]/\w/找到含有字母的字串,如同/[a-zA-Z0-9_]/[size=+1]/\s/找到含有white space的字串,如同/[ \t\r\n\f]/[size=+1]/[^abc]/找到沒有abc任一字元的字串[size=+1]/\*/找到含有字元*的字串,在反斜線"\"後面的字元Perl會把它當作普通字元看待。若你不確定這個符號是否為特殊字元,乾脆全加上\以策安全。[size=+1]/abc/i忽略abc的大小寫[size=+1]/(\d+)\.(\d+)\.(\d+)\.(\d+)/找到類似IP的字串,並將IP的四個數字分別存在$1,$2,$3,$4四個特殊變數中,以便在其後加以利用。例:[size=+1]if ($x =~ /(\d+\.\d+)\.\d+\.\d+/) {/ E( Q; h1 b, J' _8 }6 v+ A
    print "海洋大學" if ($1 eq "140.121");$ T1 f! Y( G( \% s% Y  I4 s
    }1 }: ?& w8 ^/ _( h' x( A
    ) e  B  F' @' w
    [size=+1]m//gimosxm命令可以讓你自訂pattern的分隔符號,而gimosx則是它的修飾選項,請參看(a)Modifiers。例如:[size=+1]$url="my.machine.tw:8080/cgi-bin/test.pl";: v3 E( r4 ~7 m' t5 Q
    ($host, $port, $file)=($url=~m|http://([^/:]+):{0,1}(\d*)(\S*)$|);
      g$ A+ U+ h& Z1 e) O! u! W
    [size=+1]這個Regular Expression相當複雜,主要目的是分析指定的URL,然後取得host名稱、port號碼及對應的檔案。我一項項慢慢解釋:7 x8 Z' z2 a2 [
    [size=+1]$url=~m||$ u: @7 I0 D" V' B7 |
    m後面跟著的就是分隔符號,| |裡面的就是pattern。: i  |! t4 _. e/ Q3 U/ O, x' M
    [size=+1]([^/:]+)
    ! e6 P, U# G& [( T, a# S. S3 mmatch一個字串,裡面沒有/和:字元。找到的字串存在$1中。
    - Q2 O  `4 O4 A" |9 R1 S[size=+1]:{0,1}(\d*)
    8 @& q( h# r/ Bmatch 0或1個:,後面跟著一串數字或nothing。找到的字串存在$2中,若找不到,$2就是空的。
    5 i8 m# U6 T5 `9 D% ^[size=+1](\S*)$
    0 ?0 B$ R" K$ E8 Y. i7 O1 cmatch一串非空白字元,並以找到的字串為結尾。找到的字串存在$3中。
    ( y4 f+ f, P; Q. k6 Z6 R[size=+1]()=(); H' J( ^7 n8 Z# @0 ^0 O# Z
    ($host, $port, $file)=($1, $2, $3)( p, H/ B+ p2 b
    即$host="my.machine.tw"2 V9 y3 h6 u; H: r4 A1 ]3 k
    $port=8080" ?7 l0 l1 a) m' W
    $file="/cgi-bin/test.pl"  l7 F# I: Q& c0 v" m1 e* t: n
    - k8 @2 t" p# }0 ?( z3 f  d) X

    ) i  m$ W6 p: C$ T( L: H2 L[size=+1]s/PATTERN/REPLACEMENT/egimox沒錯,這就是取代的命令。它會尋找符合PATTERN的字串,並取代成REPLACEMENT字串。它的修飾選項多了e選項,其他的和上面都一樣,我將它列表如下:
    0 v% g8 G7 e3 w, z
    eEvaluate the right side as an expression.
    gReplace globally, i.e. all occurrences.
    iDo case-insensitive pattern matching.
    mTreat string as multiple lines.
    oOnly compile pattern once.
    sTreat string as single line.
    xUse extended regular expressions.
    例:
    4 F; P+ B7 N/ ~; Z1 b; t[size=+1]$x =~ s/\s+//g
      U! I% ?; V  w9 w) {+ y把所有的white space全部去除掉
    7 B" U/ L4 e8 Y8 T[size=+1]$x =~ s/([^ ]*):*([^ ]*)/$21/0 d6 y( i/ ~: W6 ?  Q
    把用":"分開的兩個欄位互相對調6 o4 N! n( ^' s
    [size=+1]$path =~ s|/usr/bin|/usr/local/bin|7 C. y3 F$ @' I$ ?6 P
    它也可以讓你自訂分隔符號哦6 ]/ ?1 M9 H/ C, _, S
    9 M4 Q2 P5 z7 z( n6 j& d7 A
    % k- |- [* I. s2 U7 p; @- ~0 c# ]
    [size=+1]tr/SEARCHLIST/REPLACEMENTLIST/cds
    9 a( W1 r0 V& A6 |. ?這是也是取代的命令,和上一個不同的是SEARCHLIST和REPLACEMENTLIST只能是普通字串,而不是Regular Expression,所以速度比較快。它的修飾選項也比較少:1 e: Y9 y: [/ e/ O! M. [! ]3 ^
    cComplement the SEARCHLIST.
    dDelete found but unreplaced characters.
    sSquash duplicate replaced characters.
    例:1 m0 j, R$ f, \* n$ g/ j
    [size=+1]$x =~ tr/this/that/6 o! F4 ~' P0 V, N" l9 u0 ~! b# n% b
    把"this"替換成"that"
    : V  P6 C2 [( V' t# }, m[size=+1]$x =~ tr/a-z/A-Z/
    ( u# c, Q0 `2 s( f, D# D把小寫字母全部替換成大寫字母
    : C1 u1 l  E  ?0 T! J9 H[size=+1]$count = $x =~ tr/*/*/
    4 P' V4 `, g  \: [* U- `計算$x中有幾個"*"0 s( H8 C2 r' u& ^" v. M* O' a7 k

    % r! q/ f$ g  n/ ]( J- W( w3 L, ^  c/ B* m

    " C. ^) L$ P5 Z9 y1 [0 S8 m
    [size=+2](6) Spectial Variables
    Perl的特色之一就是有超過50個以上的特殊變數,這些變數都是全域變數,用來設定程式的執行環境和其它細節。 若你想深入了解Perl程式設計,那麼這些東西是不可或缺的。在這裡我只列幾個常用的特殊變數以供參考,有興趣的人請自行查閱。
    & ~4 Z5 b1 e% ]) y/ ?5 p% b" o. x9 h& S% ]5 \6 `
    $_The default input and pattern-searching space.
    $digitContains the subpattern from a successful parentheses pattern match.
    $.The current input line number of last filehandle read.
    $!Contains the current value of errno.
    $0The name of the file of the Perl script.
    @ARGVThe command line arguments issued when the script was started.
    @_The parameter array for subroutines.
    %ENVThis associative array contains your current environment.
      q! G1 a% |1 U* `

    " `. R' }' B. |- c* k$ p" `[size=+2](7) Help
    目前市面上有關Perl語言的書並不多,就算是原文書也只有那幾本聖經本。不過只要是有關CGI的書,其內容大都會提到Perl,但卻很少教到基本語法,常常使人一頭霧水。 所以我建議:如果你真的想學好Perl語言,真得想拿Perl來寫程式,那我建議你最好去買一本書來看,在觀念上會比較清楚,在實際應用上也會比較有幫助; 如果你只是想寫一些簡單的CGI程式,或只想看得懂別人所寫的CGI程式,那在網路上的資料就綽綽有餘了。 # j9 E. c- g/ t6 ^' [, N; k  G

    8 g* J" ]: i  @7 u首先你可以到各大BBS站的WWW板或program板的精華區找找,不過資料不會很多,而且有點雜亂。 再不然你可以到蕃薯藤輸入perl或cgi關鍵字找找,有不少人的homepage上有教人如何用Perl寫CGI程式,還有一堆別人已經寫好的CGI程式可以抓來用用。 說到這裡順便打一下廣告,在http://ind.ntou.edu.tw/documents下有Perl的說明文件,做得相當不錯,不過全是英文的就是了,而我這份講義打好後也會放在IND的homepage上,大家可以抓回去參考參考。
    8 Q8 ~0 V1 v- ]: \7 U2 K) s- I' |: r- U3 H5 T7 E( O- ~
    第三種資源就是Perl本身的man pages,你在IND帳號下鍵入 man perl 就可以查閱了,這份文件做得不錯,還根據Perl的各個部分寫了man pages,如Perl syntax, builtin function, regular expression, data structure等, 大家可以用man指令一一查詢,有時候在寫程式時一時忘了某個函數怎麼用,這倒是個方便又快速的查詢方法。我會把這些man pages轉成html格式,放在WWW上讓大家參考。
    & ]1 W% f- ~; I' J, d
    2 @4 U# Y5 I; N& h  s; n- |  I/ H
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    小黑屋|Archiver|手机版|香港易事泊讨论区论坛 - bbs.hkesp.com    

    © 2001-2013 Comsenz Inc.All Rights Reserved.

    Powered by Discuz! X3.2

    快速回复 返回顶部 返回列表