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

專(zhuān)注于為中小企業(yè)提供成都網(wǎng)站制作、做網(wǎng)站服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)魚(yú)臺(tái)免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了超過(guò)千家企業(yè)的穩(wěn)健成長(zhǎng)，幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

它輕巧方便，非常適合寫(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

    {

      $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í)，免得忘記！

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn，海內(nèi)外云服務(wù)器15元起步，三天無(wú)理由+7*72小時(shí)售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國(guó)服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡(jiǎn)單易用、服務(wù)可用性高、性?xún)r(jià)比高”等特點(diǎn)與優(yōu)勢(shì)，專(zhuān)為企業(yè)上云打造定制，能夠滿(mǎn)足用戶(hù)豐富、多元化的應(yīng)用場(chǎng)景需求。

分享題目：perlfirstday-創(chuàng)新互聯(lián)
地址分享：http://weahome.cn/article/dihesj.html