作者fuu0115 (风)
看板perl
标题Re: [问题] 请问如何将比对成功的任意字串(不含空ꔠ…
时间Tue Jun 13 00:46:38 2006
※ 引述《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
1F：→ LiloHuang:PG12_7' 尾巴忘记加; 06/13 00:49
※ 编辑: fuu0115 来自: 220.135.62.188 (06/13 00:54)