正規表現道場@2ch Part3 s/煽り|荒らし/あぼーん/g
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
03/11/19 21:42ID:Kst3Nn4Sこのスレは有用そうな正規表現を紹介したり、どう表現したらいいかわからないときに質問をしたりするためのスレッドです。
質問するときは使用言語や得たい結果をなるべく詳しく書きましょう。
註：& や " を書くときには、& " と描いておきましょうね。
Perlメモ
http://www.din.or.jp/~ohzaki/perl.htm
正規表現メモ
http://www.kt.rim.or.jp/~kbk/regex/regex.html
Regex::Diagram.pm
http://www.cc.rim.or.jp/~midorin/mad-p/RegexDiagram.html
正規表現
http://www.cc.rim.or.jp/~midorin/mad-p/perl/benkyou/PRC2kRegex/
UNIX正規表現入門 目次
http://www01.u-page.so-net.ne.jp/jc4/hiroyuki/rex_index.html
Regular Expression(Riue ちゃんの正規表現講座) - Index
http://www.sixnine.net/regexp/
ほとんどは↓のリンク集にまとまっています。
正規表現最新リンク集2002
http://www2.famille.ne.jp/~akio1998/l_grep.html
過去スレ
正規表現道場@2ch
http://pc.2ch.net/test/read.cgi/php/996105815/
正規表現道場@2ch Part2
http://pc2.2ch.net/test/read.cgi/php/1038146241/
0570nobodyさん
04/08/05 23:09ID:???と、釣られてみる
0571nobodyさん
04/08/06 00:32ID:???もし不快感を催したのであれば、心からお詫び申し上げます。
しかし、私がこれを記していない事は確かです。
語調、時間差での間違いからそれは明らかです。
それを理解の上でのご返答･ご指摘宜しく御願致します。
0572nobodyさん
04/08/06 12:07ID:4bPJPC+C0574nobodyさん
04/08/06 17:13ID:???0575nobodyさん
04/08/06 22:55ID:???0577nobodyさん
04/08/07 03:48ID:???確か global の略だったと思う。
パターンにマッチしたのは全部片付けちまいな、の意。
# >>576がなんで >>121 を指してるのかが気になる。
0578nobodyさん
04/08/09 18:35ID:???$value = qq|<a href="hogehoge.html">test</a>|;
$value =~ s/<.*?>//g;
print $value;
でHTMLタグを削除できるけど、これの仕組みがわからない。
*→０回以上一致する
?→０回または１回一致する
.→？？？？？？？
エロイ人解説おながいします
0579578
04/08/09 18:44ID:???見てた解説サイトにだけちょうどなかったorz
でも*?とする意味はまだわからないでつ；
0580nobodyさん
04/08/09 18:45ID:???http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlre.html
0581578
04/08/09 19:05ID:???>>580
どうして?を付けるとそうなるのかが・・・・
例えば
$test = "<aiu>test</aiu>";
$test =~ s/<.*?>//g;
としたときに.*だけですべてをひとつの文字列として捉えそうなのに（現に?がないとそうなりますが）
?を付けるだけで・・・うまくいえないorz
?がコンパイルされる瞬間はいつなんですか？
<.*の時点で可能な限りマッチしますよね・・・っていうかその時は>これはあってもなくても<.*だけで
最後まで一致するから、じゃあ>はいつコンパイルされるんだ？？？
もしも
s/<<.*>>//g;
としたら先に<<>>を優先してあまった文字に対して.*をやるのかな？駄目だ・・これじゃ
漏れの疑問をエロイ人に理解してもらうことすらできないorz
0582nobodyさん
04/08/09 20:25ID:???*? で一塊の量指定子。量指定子としての * と量指定子としての ? を
並べて書いてるわけじゃない。
$test = "<aiu>test</aiu>"; として、
最長マッチ (<.*>) の場合:
1. $test の最初の < と パターンの < がマッチ
2. .* は「何か0文字以上を最大限」だから、aiu>test</aiu> にマッチ
3. パターンにはまだ > が残っているが、文字列は全部調べ尽くしたので
一旦マッチ失敗。
4. .* は「0文字以上」でさえあればいいので、食べちゃった文字を一文字
ずつ吐き出し、再試行できる (バックトラック) 。
5. .* にマッチした aiu>test</aiu> から最後の > を除外し、.* の次の
パターンである > と比べる。
6. $test の最後の > とパターンの > がマッチ
7. パターンが全てマッチ ( < と aiu>test</aiu と > )
最短マッチ (<.*?>) の場合:
1. $test の最初の < と パターンの < がマッチ
2. .*? は「何か0文字以上を最小限」だから、( < と a の間にある) 空文字列
にマッチ
3. a はパターン > にマッチしないので一旦マッチ失敗。
4. .*? は「0文字以上」でさえあればいいので、もっと詰め込む事もできる。
5. .*? に a を食わせる事にして、i と > を比べる。
6. 同様にパターン > が $test 中の > にぶつかるまで試行を繰り返す。
7. パターンが全てマッチ ( < と aiu と > )
0583nobodyさん
04/08/09 21:34ID:???どのようにしたらいいんでしょうか？
例）
aaabbb ERROR aaabbbccc ABC dddeee
aaabbbcc ABC cdddeee
ERROR aaabbbcccddd ABC eee
というようなテキストがあるとして
errorを含まずABCを含む行だけ（この例では2行目）を
マッチさせたいんですが。
0584nobodyさん
04/08/09 21:44ID:???http://www.din.or.jp/~ohzaki/regex.htm
^(?=.*ABC)(?:(?!ERROR).)*$
0585nobodyさん
04/08/09 21:46ID:???@match_lines = grep((!/error/i and /\bABC\b/), split /\n/, $Strings);
0586nobodyさん
04/08/09 22:00ID:???しかし、教えてくださったやり方だと、自分の使っている
エディタ（Peggy）ではできないです。
これはPerlで使える方法なのでしょうか？
（Perl知りませんが。。。もしかしたらjavaの
OROとかでも使えるのだろうか？）
ちなみに秀丸エディタでは前方一致とか後方一致で
マッチさせることができるみたいですね。
そこまでいかない普通の？正規表現しか使えない環境でこれは
実現できないものでしょうか？？
0587nobodyさん
04/08/09 22:05ID:???0588nobodyさん
04/08/09 22:22ID:???ちょっと見てみます。
でもすでにPeggyをシェアウェアとして長く使っており、
見やすい配色になれてしまったので、
今から乗り換えるつもりはないですが。。。
必要なときだけ使う形でいくしかないかな。
あ、でもこれ使用期限とかあるのかな。
0591
04/08/10 13:43ID:2tv/OiLj便乗させてください。
if ($FORM{'name'} !~ /^(\x82[\x9f-\xf1]|\x83[\x40-\x96]|[\x88-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc])*$/){ &error; }
↑
ここから漢字とひらがなも省いて「全角カタカナのみを許可」という形にするにはどうればよいでしょうか。
0592nobodyさん
04/08/10 20:24ID:???http://www.din.or.jp/~ohzaki/perl.htm#Character
0594nobodyさん
04/08/12 12:26ID:wFKNBEiY080-1234-5678
とか
03-1234-4321
とか
０８０-１２３４-５６７８
とか
08012345678
とか
０３１２３４４３２１
0595nobodyさん
04/08/12 13:04ID:???0597nobodyさん
04/08/12 14:23ID:???0599nobodyさん
04/08/12 20:02ID:???それじゃ
01-23-45
にも
0123-4567-8910
にもマッチしちゃうよ
ハイフンがない場合にはマッチしないし
0601nobodyさん
04/08/12 20:31ID:???>>594 がどこまでのものを求めているのかは知らんが、参考までに。
http://www.soumu.go.jp/joho_tsusin/top/tel_number/q_and_a-2001aug.html
http://search.cpan.org/~taniguchi/Number-Phone-JP-0.03/
http://perldoc.jp/docs/modules/Number-Phone-JP-0.03/JP.pod
0602nobodyさん
04/08/12 23:02ID:???0△△ -××× -□□□□
0△△△ -×× -□□□□
0△△△△ -× -□□□□
0△△△△△-□□□□
0から始まる9or10or11桁
ex>09012345678 (携帯は11桁？)
家電は9桁(例外)と10桁？
全角も含めると(?:\x82[\x4F-\x58])を入れてやる？
ムズイな
0606nobodyさん
04/08/12 23:30ID:???全角を半角に直すという処理をなぜ思いつかない
0607nobodyさん
04/08/13 01:10ID:???マッチした文字列をそのまま取り出す、
ということなら全角を半角に直しちゃまずいと思われ。
0610nobodyさん
04/08/13 09:57ID:???大丈夫かｺｲﾂ・・・
0611594
04/08/13 10:22ID:???0612nobodyさん
04/08/13 11:18ID:???0613nobodyさん
04/08/13 12:28ID:???http://www.din.or.jp/~ohzaki/perl.htm#JP_Z2H
半角数字だけになれば何とでもなんだろ。
0614nobodyさん
04/08/13 23:16ID:???0615nobodyさん
04/08/13 23:29ID:???この人内部エンコーディング分かってるのかな？
0616nobodyさん
04/08/14 00:05ID:???0618nobodyさん
04/08/14 02:10ID:???0621nobodyさん
04/08/14 11:16ID:???0622nobodyさん
04/08/14 11:25ID:4Tdhf0SR0624nobodyさん
04/08/14 11:42ID:???全角含めるならまず置換して
最初はゼロ、１から５桁の数字、ハイフン一かゼロ、1から4桁の数字、ハイフン一かゼロと四桁の数字が１かゼロ
でそのまま答えでてるんじゃないの？
0625nobodyさん
04/08/16 01:23ID:???もう終ってるからどうでもいいが、言葉でごちゃごちゃ言うより実際のコーディング例を書いたほうが
100倍わかりやすい。まあ今回は質問者がクソだから、コーディング例など書かないでほしいが。
0626nobodyさん
04/08/16 06:38ID:???0628nobodyさん
04/08/16 10:56ID:???という文字列があって１つ目の＠を(1)、２つ目の＠を(2)という風に
置換したいのですが、どのように記述すれば良いのか教えてもらえますと助かります。
0629628
04/08/16 11:10ID:???解決しました。お騒がせしてすみません。
0630nobodyさん
04/08/16 15:12ID:???まじかよ！？
正規表現でも実現しようぜ。
for (0..100){
unless ( $value =~ s/＠/$_/ ) { last }
}
perlならこれで動くか？なんか怖いからテストしたくないなｗ
0631nobodyさん
04/08/16 15:16ID:???＜ルール＞
１．言語特有のモジュールを使わずに実現しる。
２．処理前に配列の中に全角数字、半角数字を準備するのは禁止
おまいらこんなはちゃめちゃなルールでできるか？上司が意味不明なこと言ってきたんだよorz
0632nobodyさん
04/08/16 15:34ID:???perl ならこんな感じか。
$i = 0;
$s =~ s/＠/"(" . ++$i . ")"/eg;
print $s;
0633nobodyさん
04/08/16 15:55ID:???my $str = '１２３４５６７８９０';# EUC
$str =~ s/(?:\xA3([\xB0-\xB9]))/ chr(ord($1)-0xB0+ord('0')) /eg;
print "$str\n";
他の種類の全角文字も入る可能性があるなら、
http://www.din.or.jp/~ohzaki/perl.htm#JP_Match
を参考にするといい。
0636633
04/08/16 19:56ID:???直前までPerlのスレ見てたんで思わずPerlで書いてもた・・・
0637nobodyさん
04/08/16 21:39ID:???10個書き並べればOKじゃないかという気もする
0638nobodyさん
04/08/16 21:48ID:???>>633
0xA3B0〜0xA3B9までが０〜９なんだよ。
第1バイトが0xA3なのを確認して第2バイトから0xB0を引けばよろし。
もしくは2バイトずつのまとまりから0xA3B0を引けばよろし。
0639nobodyさん
04/08/16 21:53ID:???0640nobodyさん
04/08/20 09:23ID:???XSS対策のHTMLエスケープを1行で済ませ。もちろん消すのじゃなくて、特殊文字に置換するんだぞ。
0641nobodyさん
04/08/20 10:03ID:???（式）
無駄な部分や、非効率な部分がありましたら添削いただけるとありがたいです」って書けばいいのにね。。。)
0643nobodyさん
04/08/20 17:34ID:???「XSS対策のHTMLエスケープを1行で書くやり方を教えてください」
って言えばいいのにね・・・)
0645nobodyさん
04/08/20 19:58ID:???0646nobodyさん
04/08/20 20:13ID:???0647nobodyさん
04/08/21 19:21ID:zyqI2KUi置換ツールで正規表現を使いたいんですけど、
<h2>8/21</h2>
を
<h2 id="A21">8/21</h2>
という風に、「日付に当たる部分」を「idとして挿入する」という正規表現の書き方をお教え願えませんでしょうか？
#正規表現＝perlだと思って、ここにきたんですが、間違っていたら誘導お願いします。
0649nobodyさん
04/08/21 20:05ID:???御手数おかけしてすみません。
なんだか動作しませんでした。
ソースを確認したところ、
<h2>8/21</h2>
ではなくて、
<h2>8/21 タイトル</h2>
になっていたので、うまくいかなかったのかもしれません。
>>1から巡っていろいろ勉強してみます。
有難う御座いました。本当に感謝しています。
0655nobodyさん
04/08/23 19:59ID:???0656ピエール
04/08/23 22:11ID:aJIVYOH00657nobodyさん
04/08/24 03:13ID:???>アフォでもなんでもいいですよ。
なんでもよくない。間違いなくお前はアフォだ。リアルに言うと知恵遅れ。
自分がアフォだとも気づかずに必死に勉強とかやってるのってなんか空しいな。
まずは自分がアフォだと認識して、具体的にどの能力が劣るのかを知りなさい。
これからは質問前に自分の疑問と、どうしたいかっていうことをきちんとまとめてから
ここにきて書きはじめなさい。急がば回れってね。質問前に遠回りしてもしっかりまとめれば
誰かがちゃんと答えてくれるよ。
0659nobodyさん
04/08/24 18:23ID:5aeoylmiその際に受信ボックスから、携帯メール（docomo ezweb vodafone)をフィルタリングマネージャで
別のフォルダ（フォルダ1と仮定）に振り分けたいのですが、
その中でも彼女のメールだけさらに別フォルダ（フォルダ2）にしたいと思ってます。
つまり、
" ***@docomo.ne.jp " " ***@ezweb.ne.jp " " ***@*.vodafone.ne.jp "から来たメールは
フォルダ1に振り分けたいが、もしそれが彼女のアドレスの場合はフォルダ2に振り分ける、
といった感じです。
どのように記述したらいいのでしょうか？
以下、Beckyヘルプより引用
下記の正規表現がサポートされています。
^行頭にマッチします。
$行末にマッチします。
X|YXまたはYにマッチします。（X,Yは正規表現です)
[A-Z]AからZまでの間の文字にマッチします。(A, Zは任意の文字)
[^A-Z]AからZまでに含まれない文字にマッチします。
[ABC]A,B,Cのいずれかの文字にマッチします。 (A,B,Cは任意の文字)
[^ABC]A,B,Cのいずれでもない文字にマッチします。
.任意の一文字にマッチします。
X*Xの０以上の繰り返しにマッチします。 (Xは正規表現)
X+Xの１以上の繰り返しにマッチします。 (Xは正規表現)
X?Xまたは空文字列にマッチします。
()で囲んだ正規表現は解釈の優先順位が高くなります。
0660nobodyさん
04/08/24 19:08ID:???漏れがメル友に（ｒｙ
0661nobodyさん
04/08/24 19:25ID:???Becky!のフィルタの仕様がわかんないけど、
^From:.*kanojo.kawaiiyo.kanojo → まず大事なメルを保護
^From:.*(どこも|あう|ぼだほん)\.ne\.jp → 残りのうち携帯メルを振り分け
（中略）
どれにも当てはまらないもの → ベタな inbox に落ちる
こんな仕組みじゃないのかな。
むしろ、こちらでどうぞ。
メールソフト Becky! Part9
http://pc5.2ch.net/test/read.cgi/software/1090377005/
0663nobodyさん
04/09/03 00:28ID:V2uWGL3lこれでテーブルタグの中にあるカンマだけ</td><td>に置き換えたいのです。
どんなもんでしょう。
0664nobodyさん
04/09/03 02:17ID:???Perl なら
s{(?<=<table>)(.+?)(?=</table>)}
{ (my $str = $1) =~ s|,|</td><td>|g; $str }eg;
0666663
04/09/03 08:46ID:???とりあえず解析後回しで突っ込んでみたら完璧でした。
もしかして<table>〜</table>が複数ブロックあるとダメかなと思ったけどOK。
なんか自分ではまったく考えられない構文だったのでちょっと絶望感。
とりあえず誰かの役に立てばと、作ってたルーチン晒します。
アウトライン指定を行頭ピリオドの数で、行頭カンマをテーブルと判断して
自動整形。
アウトラインはH1は掲示板タイトルに使うし、H2は記事タイトルに使うから、
H3からね。
$comment = &sanitize($comment,3);
$comment = "\x0A$comment\x0A";
$comment =~ s/\x0A+/<\/p><p>/g;
$comment =~ s/<p>\.\.\.\.([^<]*)<\/p>/<h6>$1<\/h6>/gi;
$comment =~ s/<p>\.\.\.([^<]*)<\/p>/<h5>$1<\/h5>/gi;
$comment =~ s/<p>\.\.([^<]*)<\/p>/<h4>$1<\/h4>/gi;
$comment =~ s/<p>\.([^<]*)<\/p>/<h3>$1<\/h3>/gi;
$comment =~ s/<p>,([^<]*)<\/p>/<tr><td>$1<\/td><\/tr>/gi;
$comment =~ s/<tr>[^,],<\/tr>/<\/td><td>/gi;
$comment =~ s/<\/p><tr>(.*?)<\/tr><p>/<\/p><table><tr>$1<\/tr><\/table><p>/gi;
$comment =~ s{(?<=<table>)(.+?)(?=</table>)}{ (my $str = $1) =~ s|,|</td><td>|g; $str }eg;
$comment =~ s/(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)/<a href="$1" target="_top">$1<\/a>/gi;
$comment = "<p>$comment</p>";
$comment =~ s/<p><\/p>//gi;
0667nobodyさん
04/09/03 16:41ID:XAO5vI6Oファイルネームがfoo.cgiに関するリンクをすべて洗い出したいとき、
どのように書けばよいのでしょうか？
/<A 〜〜foo.cgi.*?>/ig
という感じになると思うのですが〜〜の部分がよくわかりません。
ちなみに、href=をつけていないのは、改行がはいっていたり、classなどよけいなタグが入っていることがあるためです。
0668667
04/09/03 16:56ID:???/<A .*HREF=.*foo.cgi.*?>/ig
でよろしいようですね。
検索結果がタグになっていたんで、Web表示だとうまく見えていませんでした。
0669nobodyさん
04/09/03 17:52ID:???よろしいかどうかは君が相手にしているデータ次第なわけで。
$_ = <<'EOF';
<a class="TRAP" name="href">foo.cgi</a>
<a
href="foo.cgi" class="OK">OK</a>
<a class="OK" href="foo.cgi">OK</a><a href="foo.cgi" class="OK">OK</a>
<a class="OK" href="foo.cgi"
>OK</a>
<a href="fooocgi">TRAP</a>
<a href="bar.cgi?href=foo.cgi">TRAP</a>
<a hreflang="ja" name="fooocgi">TRAP</a>
EOF
print '[', join("]\n[", /<A .*HREF=.*foo.cgi.*?>/ig), "]\n";
print "---\n";
print '[', join("]\n[", /<a\b[^>]*?\shref=[^>?]*?foo\.cgi[^>]*>/ig), "]\n";
まぁ解決したようなのでこれ以上は突っ込まんでおく。
0670nobodyさん
04/09/05 17:08ID:VHVjccb7どのような方法ありますか？
aaaaaa aaaaa aaaaaaaaaaaaa aaaa aaaaa
|← ここです →|
■ このスレッドは過去ログ倉庫に格納されています