[精讚] [會員登入]
3677

[PERL] split 寫法

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

此文完整連結 http://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

你可能感興趣的文章

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

PERL一次讀取檔案所有內容的方法($/) perl可以使用slurp mode一次讀完檔案所有內容的方法及一些範例

[PERL]] find 和 perl 的結合--大量檔案中文字的取代 利用PERL作大量的文件取代

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

[PERL] 10- 雜湊 Perl 的hash 指標陣列

自行撰寫syslog server建立資訊安全控管中心#3 -- 程式下載和安裝 利用PERL將syslog收攏到資料庫的程式,程式下載和安裝

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

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

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

[PERL] 12- 副程式 Perl 的副程式就是所謂的函數

我有話要說


限制:留言最高字數1000字,超過部分會被截掉。請注意:留言不可帶有網址,會被濾掉。 限制:未登入訪客,每則留言間隔需超過10分鐘,每日最多5則留言。

訪客留言

[無留言]

隨機好文

談借錢 人借錢時手心向上頭向下,人還錢時手心向下頭向上

[Freebsd] 定時測試 ADSL 是否斷線並重連 中華電信 ADSL 雖有固定 ip,可是他卻會不定時「斷線」, 使用以下的 方法可以定時測試是否斷線,以及重新撥接。

[Windows7] 移除IE10及移除IE11 Windows7 不得已的情況要移除IE11或IE10怎麼做?

TFTP Server 安裝及使用 讓設備的網路設定檔或是韌體經由TFTP拷備出來,操作的方法

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