[PERL] split 寫法 @新精讚

[無邊框]

6955

[PERL] split 寫法

“

Perl 將字串分開可以用 split 這個函數，此函數可以用Regex作分隔判斷

„

分享此文連結 //n.sfs.tw/10932

分享連結 [PERL] split 寫法@新精讚

(文章歡迎轉載，務必尊重版權註明連結來源)

2019-10-24 10:03:54 最後編修

2017-03-22 10:44:29 By 張○○

自動目錄

語法
把每個字母拆開
開頭有空白？
結論

Perl 將字串分開可以用 split 這個函數，此函數可以用Regex作分隔判斷，功能滿強大的。

語法

split(/型別/, 字串);

範例

@s= split(/,/, '60,70,80');

也可以把 /,/ 寫成 ',' ，結果是一樣的：
@s= split( ',', '60,70,80');

要注意如果要分格的是一個點 '.' ，例如IP，直接寫會出錯

@s= split( '.', '61.72.38.90');

因為 '.' 在正規表達式中代表「任意一個字元」，所以要加上脫逸字元 '\'

@s= split( '\.', '61.72.38.90');

把每個字母拆開

如果直接用雙斜線來分隔 // 就會每個字元每個字元分開，不過遇到中文會變亂碼，英文和數字沒這個困擾。

$m="AND3 321";
@f = split( //, $m);
print $f[0]; #A

開頭有空白？

把字串用空白分隔的話，會因為開頭是空白而造成困擾。

$m=" dns; program; !slapd ";
@f = split( /\s+/, $m);
print $f[0]; # 空值

蛋的陣列買法

這時就要用空白一格的字元 ' ' 來代替 /\s/，因為 perl 對 ' ' 有特別的待遇

@f = split( ' ', $m);
print $f[0]; # dns

但是如果想用regex同時也要解決字串前空白的問題的話，就不能兩全其美，只好先用類似 ltrim() 的函數處理掉。但是perl 沒此函數，所以自己寫：

$m =~ s/^\s+//;
@f = split( /\s+/, $m);
print $f[0];  # dns

結論

1. split 可用正規表達式超方便

2. 用空白一格' '取代\s可忽略字串前空白

3. 自己安trim 的函數也可以 [PERL] 自寫 trim, ltrim, rtrim 函數

原文 2009-11-16

END

你可能感興趣的文章

[PERL] 自寫 trim, ltrim, rtrim 函數常用的 perl 函數中沒有trim, ltrim, rtrim這三個函數，那就自己來寫，非常容易

Perl 計算經過的時間 Perl 計算程式執行經過的時間

[PERL] 21- 使用資料庫 Perl 連Mysql

[PERL] 命令列傳入參數 argv Perl 的外部傳參，是$ARGV[0]、$ARGV[1]、$ARGV[2].....

Perl 的特殊變數：$` $' $#陣列 $1 $2 .. $10 \1 \2 .. \10 介紹Perl 的 $` $' $#array $1..$10 \1..\10這些變數

PERL 正規表達式會用到的符號 PERL在比對時常常會用到符號整理

隨機好文

安裝SPHINX支援中文新版本的 sphinx 和舊版不同，網路上很多範例和教學是不能用的。此文是安裝和設定方法分享

為什麼要重造輪子？什麼輪子？造什麼輪子？我為什麼要重造輪子？

UTF-8的網頁但IE8一片空白 UTF8編碼的網頁在Firefox 正常顯示、但IE8 就是空白，IE8編碼設定是「自動偵測」可是自動偵測到的是 big5...

APACHE的記錄檔格式 LogFormat 語法在APACHE中有定義一些記錄的語法模版在 /etc/httpd/conf/httpd.conf 中： LogForm

[PHP] 檢查IP是否在某個網段內 mtachcidr 要檢查IP是否在某個網段內，要寫幾行？10行？5行？不用，只要2行。以下是我寫的 code /** * matchCI

語法
把每個字母拆開
開頭有空白？
結論

到最底端