Re: [問題] 請問如何將比對成功的任意字串(不含空ꔠ…
※ 引述《citywall ( )》之銘言：
: 請教各位一個問題
: 目前我正在使用 perl 處理文字檔間的轉換
: 目前遇到的問題是 希望使用正規化比對之後可以把任意比對成功的子字串(不含空白)
: 寫入array裡
: 以下是範例
: #NET "XY" R124_1-1 R54_1-2 PG12_7 <--- R開頭字串長度不固定
: 我希望比對 這列文字中兩個 R開頭的非空白字串 再分別傳入陣列中
: 請問 perl 是否有提供方法可以達到這麼目的
: 謝謝
可能比較取巧的作法
假入字串間都有空白分格
$str = '#NET "XY" R124_1-1 R54_1-2 PG12_7';
@array = grep { $_ =~ m{^R} } eval "qw{$str}";
試試看合不合用吧
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.135.62.188
→
06/13 00:49, , 1F
06/13 00:49, 1F
※ 編輯: fuu0115 來自: 220.135.62.188 (06/13 00:54)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章