正規表現道場@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/
0557nobodyさん
04/08/01 15:25ID:???$a%2000
じゃダメなのか？
0558nobodyさん
04/08/01 15:30ID:???? 'つるー'
: 'ふおるす';
でもやっぱり $a % 2000 だよなぁ。。。＠こっちの方が遅かったりして。
0560nobodyさん
04/08/01 16:44ID:???特に速度が肝にならないのであれば、
「意味」がわかりやすいコードを採用するべきだと思う。
なのでふつーは $a % 2000 とするんじゃないかな。
0562nobodyさん
04/08/03 16:53ID:???log.apディレクトリ以外にアクセスした場合にのみ、転送させたいのですが
正規表現がよくわからずお手上げ状態です。
どなたかヒントだけでもいいので教えていただけないでしょうか
0563nobodyさん
04/08/03 16:58ID:9nB7Zn3+0565nobodyさん
04/08/03 17:08ID:9nB7Zn3+こうか？
0567nobodyさん
04/08/05 19:56ID:???Perlで＆を＆amp;
に変えた後
if(＄message =~ /http:\/\/([a−zA−Z0−9￥.￥／￥−＋＃＿？〜＆￥％＝＾￥＠：￥；]+)/i){
＄1 ＝〜 s／amp￥；／／g；
}
で＆amp;から＆に直しました。。
しかし＄１の行でエラーが出ます。
さて、どうしてですか？
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:aJIVYOH0■ このスレッドは過去ログ倉庫に格納されています