Perlについての質問箱 30箱目at TECHPerlについての質問箱 30箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト200:デフォルトの名無しさん 07/04/06 08:54:56 仕事丸投げするのはいいが、藻前さんが辞めた後にメンテする人のことも わかってやれよな。 201:デフォルトの名無しさん 07/04/06 09:31:06 括弧に量指定子使うのきめえ 202:デフォルトの名無しさん 07/04/06 10:26:07 foo,bar,bazが3文字って決まってるならこれでどうよ。 $_ = '111AAAfoofoofoobazbarZZZ222'; /AAA(?:(foo|bar|baz)(?{push(@a,substr($&,-3))}))+ZZZ/; print join(",",@a),"\n"; 203:デフォルトの名無しさん 07/04/06 11:15:13 つーか、そもそもどうしてそんなデータ構造なのかが気になる件。 204:デフォルトの名無しさん 07/04/06 11:30:16 宿題？ 205:デフォルトの名無しさん 07/04/07 13:27:01 ######################################## # データ内に改行が無ければ最初の二行は # $_ = <>; で置き換え可能 ######################################## chomp(@tmp = <>); $_ = join '', @tmp; $re = qr/foo|bar|baz/i; s!(AAA(?:$re)+ZZZ)!push @a,$1=~/($re)/g !ge; print join("-", @a); これはひどい。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch