[PERL] split 寫法 @新精讚

[無邊框]

2026

[PERL] split 寫法

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

此文完整連結 http://n.sfs.tw/10932

複製連結 [PERL] split 寫法@新精讚

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

2019-01-31 11:02:36 最後編修

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

Weibao Tumblr QQ FB G+ LinkedIn Line Twitter

你可能感興趣的文章

[PERL] 08-陣列 #2 --操作更多perl陣列的操作，如拆開、黏合、取出、加入等等

Freebsd11上安裝PERL模組 freebsd11+ perl module 在freebsd上安裝module還算簡單

自行撰寫syslog server建立資訊安全控管中心#2 -- 架構和作法利用PERL將syslog收攏到資料庫的程式，架構和作法

[PERL] 07-陣列 #1 -- 基本 perl的陣列

[PERL] 中文字字串拆解中文字字串拆解是門學問

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

自行撰寫syslog server建立資訊安全控管中心#4 -- 過濾條件設定利用PERL將syslog收攏到資料庫的程式，過濾條件設定

[PERL] 簡易檢查網頁記錄檔ip來源統計利用PERL來檢查網頁記錄檔ip來源統計的簡易程式

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

[PERL] 02-註解、變數和常數 perl的註解、變數和常數

我有話要說

訪客留言

[無留言]

隨機好文

使用Google尋找你的手機這近發現google竟然可以用來找android的手機，而且不需要經過什麼設定或安裝軟體。

HP SAS硬碟leds燈號說明 HP SAS硬碟leds燈號(hp g7/g6系統適用)說明

[Freebsd] 使用 ADSL 撥接上網 Freebsd上要使用 ADSL 撥接上網，該如何設定？

[bc] linux 的計算機 bc 設定小數位數、計算π、次方根 linux 的計算機 bc 設定小數位數、計算π、次方根

一個邏輯的錯誤刪了全部檔案的經驗今天本來想做一件很簡單的事，但卻足足浪費我多一倍的時間，再加上刪掉我全部的檔案，原因只是因為我自己的邏輯錯誤。