-
客服电话
-
APP下载
迪恩网络APP
随时随地掌握行业动态
-
官方微信
扫描二维码
关注迪恩网络微信公众号
客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
假若我們要將比對到的字串，前後加上單引號，這裡一個特殊變數 $& 就是比對到的字串
$str = "What a wonderful wonderful world."; $str =~ s/w/'$&'/g; # $str = "What a 'w'onderful 'w'onderful 'w'orld." 假設我想把找到的結果全轉成大寫，一般的置換就傷透腦筋了，可是perl提供了不錯的解法，但是要使用函數，就得加上 e 修飾子： $str = "What a wonderful wonderful world."; $str =~ s/w\w+/uc($&)/ge; # $str = "What a WONDERFUL WONDERFUL WORLD" 如果沒加 e 修飾子，則函式會被當成字串丟出來： What a uc(wonderful) uc(wonderful) uc(world) 再來比較麻煩的是字串中的換行 \n，字串中的換行字元 '\n' 被當成是一個字元來處理，所以假設一個具有換行字元的(多行的的字串，希望比對時忽略那個換行字元，就要加上 s 修飾子： $str = "What a wonder\nful wonderful world."; $str =~ s/wonder.?ful/www/g; print $str; What a wonder ful www world What a www www world
如果我們堅持一定要和換行比對成功，則：注意沒加 s $str =~ s/wonder\nful/www/g; What a www wonderful world
另外比較少見的情形下會用到的 m 修飾子：一般比對時假設要找出字串結尾的字串，常會用變換字元 $，在帶有換行的字串中，變換字元 $只會比對最後的換行或是字串結尾。如果希望 $能取得符合帶有換行的字串中，每個換行都視為結尾的話，就要加 m。這樣形容比較抽象，看個範例：
$str = "line123\nline456\nline789";
$str =~ s/\d+$//g; <== 注意沒有加 m print $str;
line123 line456
line <==只比對最後一個
$str =~ s/\d+$//mg; <== 注意現在加了 m print $str;
line <==每個換行符號都視為結尾
line
line
寫了這麼多 s///，現在來說 tr///，tr 的語法和 s 好像一樣，其實還差異滿大的，tr 主要作為項目清單的置換： tr/原來比對清單/目的比對清單/選項 perl 的 tr把置換的功能再擴張，雖然 s很強，可是也有做不到的事，例如今天要把大寫換成小寫，「同時」小寫也換成大寫，s就一籌莫展了，但 tr 可以搞定：
$str = "Aine123\nBine789"; $str =~ tr/a-zA-Z/A-Za-z/; print $str; aINE123 bINE789 $doc="<78>Nov 3 11:20:01 163.17.44.1 crond[30367]: (root) CMD (LANG=C LC_ALL=C /usr/bin/mrtg /etc/mrtg/mrtg.cfg --lock-file /var/lock/mrtg/mrtg_l --confcache-file /var/lib/mrtg/mrtg.ok)"; print $doc=~ tr/0-9/0-9/; 結果：22 $count = $doc=~ tr/0-9/0-9/;
tr 還有一個別名，叫作 y/// 所以要把數字0和9互換，可以寫成
$doc =~ y/09/90/; 或是寫成(把 / 換成 |; $doc =~ y|09|90|;
接來看看 tr 的選項，tr 只有三個選項，英文是 perldoc 的說明，我把他的意思用我的話寫出來：c Complement the SEARCHLIST. <== 清單沒寫到的就補給他右邊清單的最後一個字元
d Delete found but unreplaced characters. <== 對照表中沒有的項目就刪掉
s Squash duplicate replaced characters. <== 連續重覆出現的字壓成一個
來看看範例：
my $text = 'good cheese'; $text =~ tr/eo/eu/s; print "$text\n"; # 結果 gud chese ， 連續重覆出現的字已被壓成一個
my $big = 'vowels are useful'; $big =~ tr/aeiou/AEI/d; # 注意看對照表左邊只有三個字母，所以如果遇到 ou，就會被刪掉 print "$big\n"; # 結果 vwEls ArE sEfl 合併以上兩個參數 my $text = 'good cheese'; $text =~ tr/eogd/eu/ds; # 寫成 ds 或sd 都可以，順序不重要 print "$text\n"; # 結果 u chese my $text = 'good cheese'; $text =~ tr/eo/_/c; #注意看對照表右邊只有二個字母，只要右邊清單沒列到的就補'_'，包括空白 print "$text\n"; # 結果 _oo____ee_e 如果右清單寫了不只一個呢？會怎樣？其實補的時候還是只會拿右清單的最後一個 $doc="<78>Nov 3 11:20:01 163.17.44.1 crond[30367]"; $doc =~ y/a-zA-Z/a-z/c; # 結果不是英文全都補了右清單的最後一個字元'z' $doc= zzzzzNovzzzzzzzzzzzzzzzzzzzzzzzzzcrondzzzzzzz |
请发表评论