溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
perl 做為就像膠水一樣，將各種語言都黏貼在一起
它輕巧方便，非常適合寫小型的腳本(我暫時也沒有寫超過1000行的perl代碼
我最欣賞的是它強大的正則運算能力，尤其其中的“捕獲”操作，實在是太厲害了！
基于以上的特點，我認為perl非常適用于：
1. 文本處理 --> 強大的正則表達式
2. 各系統間的粘合 --> 膠水語言
對于正則表達式，網上已經有很多教程了，我例舉幾個我自己的practice：
1.
open (my $in, "./template.txt") or die "open error: $!"; // 打開一個文件
my @lines;
while (<$in>) //讀入一行
{
for ($_) { //其實這里用for的practice常常是用foreach來實現的
/apn_oi_replacement/ and do //如果匹配上了apn_oi_replacement，就 do something
{
push (@lines, scalar <$in> ) for (1..3); //就讀入三行
&processing_apn_oi_replacement(@lines); //對這三行進行處理
print "***" x 40 ."\n";
last; //跳出循環，相當于C中的break(后面如果有判斷就不做了)
}
}
2.
foreach(@_) //對整個數組進行遍歷
{
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: 現在只學到了一些非常基礎的文本處理方法，并且還需要加強練習，免得忘記！
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
