perl first day

perl 做為就像膠水一樣，將各種語(yǔ)言都黏貼在一起

它輕巧方便，非常適合寫(xiě)小型的腳本(我暫時(shí)也沒(méi)有寫(xiě)超過(guò)1000行的perl代碼

我最欣賞的是它強(qiáng)大的正則運(yùn)算能力，尤其其中的“捕獲”操作，實(shí)在是太厲害了！

基于以上的特點(diǎn)，我認(rèn)為perl非常適用于：

1. 文本處理  --> 強(qiáng)大的正則表達(dá)式

2. 各系統(tǒng)間的粘合  --> 膠水語(yǔ)言

對(duì)于正則表達(dá)式，網(wǎng)上已經(jīng)有很多教程了，我例舉幾個(gè)我自己的practice：

1.

   open (my $in, "./template.txt") or die "open error: $!";  // 打開(kāi)一個(gè)文件

   my @lines;

   while (<$in>)     //讀入一行

   {

       for ($_) {      //其實(shí)這里用for的practice常常是用foreach來(lái)實(shí)現(xiàn)的

           /apn_oi_replacement/ and do  //如果匹配上了apn_oi_replacement，就 do something

           {

               push (@lines, scalar <$in> ) for (1..3);  //就讀入三行

               &processing_apn_oi_replacement(@lines); //對(duì)這三行進(jìn)行處理

               print "***" x 40 ."\n";

               last;    //跳出循環(huán)，相當(dāng)于C中的break(后面如果有判斷就不做了)

           }

       }

2.

   foreach(@_)         //對(duì)整個(gè)數(shù)組進(jìn)行遍歷

   {

       if(/FQDN:\s+(.*?)\n/s)      //這里？表示非貪婪的匹配 /s作用是讓.*也能夠match \n

       {

           $fqdn_apn_oi_replacement = $1;

       };

       if(/requested APN:\s+(.*?)\n/s)

       {

           $requestedapn_apn_oi_replacement = $1;

       }

   }

NOTE: 現(xiàn)在只學(xué)到了一些非?；A(chǔ)的文本處理方法，并且還需要加強(qiáng)練習(xí)，免得忘記！