Perlについての質問箱 30箱目 at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞの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); これはひどい。

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5368日前に更新/220 KB
担当:undef