Re: [問題] 請問如何將比對成功的任意字串(不含空ꔠ…

[fuu0115 (風)]

※ 引述《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
→ LiloHuang:PG12_7' 尾巴忘記加;
※ 編輯: fuu0115         來自: 220.135.62.188       (06/13 00:54)