Perlについての質問箱 30箱目at TECHPerlについての質問箱 30箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト185:デフォルトの名無しさん 07/04/05 21:38:28 >>184 何でも一行に詰め込みゃいいってもんでもないけど… @a = splice @{[ grep length, split /(foo|bar|baz)/, 'AAAbarbarbazZZZ' ]}, 1, -1; 186:デフォルトの名無しさん 07/04/05 21:55:26 確かに一行ですが…^^;レスありがとうございます。 'AAAfooXXbarYYYYYbazZZZ' のように目的外の物が混ざっている場合 のチェックを別にしなければなりませんが。 やはり ()+ でのマッチを正規表現の修正で全部リストする無理でしょうか 187:デフォルトの名無しさん 07/04/05 22:27:05 m/AAA((?:foo|bar|baz)+)ZZZ/ とかすれば全部とれることはとれる。 リストにはならないけど。 188:デフォルトの名無しさん 07/04/05 22:29:35 >>186 > 'AAAfooXXbarYYYYYbazZZZ' のように目的外の物が混ざっている場合 その場合 @a は () とするべきか AAA foo XXbarYYYYYbazZZZ と分けるべきか AAAfooXX bar YYYYYbazZZZ と分けるべきか AAAfooXXbarYYYYY baz ZZZ と分けるべきか >>184からは読み取れないよ？ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch