正規表現道場@2ch Part2
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/11/24 22:57ID:LrbVcl3Yこのスレは有用そうな正規表現を紹介したり、どう表現したらいいかわからないときに
質問をしたりするためのスレッドです。
質問するときは使用言語や得たい結果をなるべく詳しく書きましょう。
リンクなどは>>2-5のあたりに。
0313nobodyさん
03/03/29 11:26ID:???if ( $str =~/(.+)\1/ ) {
print 'OK';
} else {
print 'NG';
}
0314nobodyさん
03/03/29 17:46ID:???0315nobodyさん
03/03/29 18:25ID:???/(.+)\1{N,}/
Nはn - 1で。
0316309
03/03/29 22:08ID:xi1Z4LcN一応サンプル
ttp://thebbs.jp/common/thetop/index.html
連続した文字に反応します。
このようにしたいんですけど。。。
0318309
03/03/31 00:38ID:rrn9gB8/すいません、>>315ｻｿのでいけました!
みなさんどうもありがとう･ﾟ･(ﾉД`)･ﾟ･
0319309
03/03/31 00:50ID:???0321nobodyさん
03/03/31 18:43ID:???$ascii = '[\x00-\x7F]';
$twoBytes = '[\x8E\xA1-\xFE][\xA1-\xFE]';
$threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]';
/((?:$ascii|$twoBytes|$threeBytes)+)\1{N,}/
0323Perl
03/04/04 15:20ID:???？x （十六進数） {,4} ;
でない #(任意の16文字) にマッチさせるにはどうしたらよいですか。
0324名無しさん＠Ｍｅａｄｏｗ
03/04/04 23:02ID:???わけわか
人にわかるように書け
0326nobodyさん？
03/04/05 04:37ID:bmLMbrZJ<b></b>タグで挟まれた文字列(レスの名前部分)だけ残す場合、どんな方法がありますか？
$str =~ /<b>([^<]+)<\/b>/; $str = $1;
$str =~ s/.*<b>([^<]+)<\/b>.*/$1/;
ってのはエレガントじゃないですよね
0327nobodyさん
03/04/05 04:47ID:???これじゃだめ？
0330Perl
03/04/05 10:26ID:???0331デフォルトの名無しさん
03/04/05 11:11ID:E+nPGg0Qわけのわかるように書け、といてるのがわからんかな。
(a) /#.{16}/ # '#'に続く任意の16文字じゃ
(b) /？[0-9]{2,4}/ # '？'に続く十進数2個～4個じゃ
(c) /？(x[0-9a-z][0-9a-z]){,4}/ # '？'に続く十六進数表記0個～4個じゃ
(a)は、(b)でも(c)でもないから、(a)がおぬしの求める解そのもの
ではないのかの。
(b)も(c)も含まぬ(a)をマッチさせたいのではないのかの。
それなら別の問い方がある。日本語をべんきょし直してこい
0332nobodyさん
03/04/05 14:40ID:7kbMg08sから最後の\n～\nを消したいのですがどうすればいいですか？
結果的に
\nああああ 2003/6/08\n\nｓｄｆｇ 2004/9/9\n
というふうにしたいのですが
0333nobodyさん
03/04/05 14:47ID:???0334nobodyさん
03/04/05 16:15ID:???join('\n',(split(/\n/,"\nああああ 2003/6/08\n\nｓｄｆｇ 2004/9/9\n\nぉいこいｊｋ\n"))[0..3])
こじつけ（ｗ
0335332
03/04/05 17:02ID:7kbMg08s0337Perl
03/04/05 22:53ID:???> (b)も(c)も含まぬ(a)をマッチさせたい
そうです。
質問者の癖に揚げ足を取っとくと、
(C)は [0-9a-fA-F]。
「純粋な正規表現」ではできないのですか？
Perlなら下記でいけそうですが。
/(?<!＆)#.{16}/
？(数字); にはマッチしなくて
？(文字); や？(;以外の任意)にはマッチ なんてできませんよね？
0338nobodyさん
03/04/05 23:36ID:???0339nobodyさん
03/04/06 00:32ID:???0340Perl
03/04/06 01:01ID:???同じpc2鯖でもweb製作は使えるのに。
テスト ＆ &です。
＆amp; &です。
＆＃ ？です。
0341nobodyさん
03/04/09 16:59ID:???どういう正規表現使ったらいいでしょうか
http://www.din.or.jp/~ohzaki/perl.htm#Mail
を見てみたのですが、ちょっと分かりませんでした…。
言語はまだ未定なのですが、perlでできればいいなと考えてます。
0342nobodyさん
03/04/09 17:12ID:???決まった場所にメールアドレスが来てない？
0344nobodyさん
03/04/09 17:33ID:???そうですね。
OEのメッセージをテキストで保存したものですが、
----↓一行目から----
送信者: <[email protected]>
宛先: <[email protected]>
件名 : テスト
日時 : 2003年4月9日 17:33
--------------------
てな感じになってます。
ヘッダ部分は決まった場所なんですが、
本文中のメアドも消したいんです。
0346nobodyさん
03/04/10 01:00ID:+Bf7VwF40347nobodyさん
03/04/10 01:08ID:???0348nobodyさん
03/04/10 01:58ID:???メールアドレスの正規表現はググればいくらでも見つかるでしょ
どっちみち、perl5.6以前は完全には表せないけどあまり支障はないと思う
0349nobodyさん
03/04/10 03:20ID:vlrWfcuj0350あぼーん
NGNG0351あぼーん
NGNG0352あぼーん
NGNG0353nobodyさん
03/04/11 04:03ID:???もまいらオススメのMail Addressの正当性チェックパターンを是非341に押しえて
ください。
教科書的には
/^[\w\-+\.]+\@[\w\-+\.]+$/i
・・・って事になるかもしれないけど、これだとage@sageでも通ってしまいまふ。
http://www.din.or.jp/~ohzaki/perl.htm#Mailは現実的じゃないし、perl上で@で
splitして要素数数えてから左辺右辺を個別に評価した方が確実なんでしょうけど、
ここは正規表現一発って事でおながいします。
0354nobodyさん
03/04/11 04:18ID:???0356nobodyさん
03/04/11 06:29ID:???0359nobodyさん
03/04/11 13:09ID:???0360nobodyさん
03/04/11 19:44ID:???0361nobodyさん
03/04/15 07:50ID:???空白と@を除く全ての1バイト文字とは違うの？
ドメインにより制限があるが、流動的になり得るので、
ドメイン別の場合分けは無意味と思う。
(1バイト文字=A-Z,a-z,0-9,キーボードから打てる記号)
0362はしのえみ好きー
03/04/15 08:10ID:???0363nobodyさん
03/04/15 12:10ID:GI84bLWkダブルコーテーションで必ず囲みたい！
"aaa → "aaa"
aaa" → "aaa"
aaa → "aaa"
どうする？正規表現！
0364nobodyさん
03/04/15 12:18ID:VH8m0AHo0365nobodyさん
03/04/15 13:14ID:x65/25rDありがとうございます。
でも実行してみたら
"aaa → ""aaa
となってしまいました。。
0366nobodyさん
03/04/15 13:20ID:???まじで？
私は、余計なかっこがついてきたよ。
だから、こう書き直したら、直ったよ。
s/^\"?([^\"]+)\"?$/\"\1\"/;
0367nobodyさん
03/04/15 14:26ID:fimoekOyありがとうございました。
直りました。
0368nobodyさん
03/04/15 18:15ID:???それから、正規表現中の"は意味は無いからエスケープする必要は無い。
で、自分ならこう書く。
s/^"?(.*?)"?$/"$1"/
0369nobodyさん
03/04/15 18:25ID:W26JC1siどうするんだろう・・・
超バッド←「超」にマッチ
超能力←「超」にマッチ
超クール←マッチしない
/超^(クール)/ じゃダメらしい・・・
unless(/超クール/){
if /超/
以外でひとつ・・・
0370nobodyさん
03/04/15 18:29ID:???0372nobodyさん
03/04/15 18:54ID:???\n{5,} マッチしませんでした
\n\n\n\n\n マッチしませんでした
どなたかお願いします・・・。
0373あぼーん
NGNG0375nobodyさん
03/04/15 19:14ID:???0376nobodyさん
03/04/15 19:41ID:???(?! ) (?= ) とか。そういうのは断り書きしたほうが委員でないか
0377nobodyさん
03/04/15 20:09ID:???何を使ってやりたいのかをちゃんと書いたほうがいいと思う
0379nobodyさん
03/04/15 23:21ID:qSlvjohaで，具体的には不等式の左辺と右辺を取り出したい。
たとえば，
$statement = q["abc de" > 123 or abcde = "zz zz"];
だと，"abc de"とabcdeが左辺，123と"zz zz"が右辺。
これを解析するために
$operand = '(?:<=|>=|>|<|=)';
$var = '(?:\w+|"[^"]*")';
$statement =~ s/($var)\s*$operand\s*($var)/(left) $1 (right) $2/g;
print $statement;
とかすると
(left) "abc de" (right) 123 or (left) abcde (right) "zz zz"
という出力が得られる。
さて，
0380nobodyさん
03/04/15 23:22ID:qSlvjoha$statement = q["abc de" > 123 or abcde = 'zz zz'];
の場合に
(left) "abc de" (right) 123 or (left) abcde (right) 'zz zz'
としたい。
$operand = '(?:<=|>=|>|<|=)';
$var = q!(?:\w+|("|')[^\1]*\1)!; #ここを変えた
$statement = q["abc de" >123 or abcde = 'zz zz'];
$statement =~ s/($var)\s*$operand\s*($var)/(left) $1 (right) $2/g;
print $statement;
だとまったく解析が成功しない。どうして？
0381nobodyさん
03/04/15 23:27ID:???本を読んで２日目です、、、急に必要になってしまいました。おやさしいかた、おしえてください。よろしくおねがいいたします。
0382nobodyさん
03/04/15 23:35ID:qSlvjohahttp://www.din.or.jp/~ohzaki/perl.htm#JP_Fold
0383nobodyさん
03/04/15 23:37ID:???$statement =~ s{
(\w+|"[^"]+"|'[^']+')
\s*
(?:[<>]=?|=)
\s*
(\w+|"[^"]+"|'[^']+')
}
{(left) $1 (right) $2}gx;
0385nobodyさん
03/04/16 13:17ID:QKerHoGZたしかPerlメモで拾った
<!(?:--[^-]*-(?:[^-]+-)*?-(?:[^>-]*(?:-[^>-]+)*?)??)*(?:>|$(?!\n)|--.*$)
では、マッチしないケースがあるみたいです。
(ここのHTMLなど：http://messages.yahoo.co.jp/yahoo/Computers___Internet/Hardware/Mobile_Phones_/index.html)
<!(?:--(?:(?!--).)*--\s*)*>
だと大丈夫なんですが、十分なんでしょうか？
他にコメントタグの記述形式があれば知りたいです。
0386nobodyさん
03/04/17 11:44ID:326c+Ekvある文字列内に、所定の単語が含まれていない 場合を判定する正規表現を書きたいです。どういう書き方が良いですか。
[^abc] ですと、a,b,cのいずれかが含まれていない、という判定になってしまいます。そうでなく、abc という文字列が含まれていない、というのを判定したいです。
0389nobodyさん
03/04/17 13:17ID:???とか
perl,rubyあたりでしかつかえんよーな・・・
0390nobodyさん
03/04/19 15:42ID:???どのようにすればいいのでしょうか？
例えば<td>などで挟まれているhttp://www*.hoge.ne.jp/*****(*は任意の数字)だけを
抽出したいのです
0391nobodyさん
03/04/19 16:06ID:9ZhNrFm80392はしのえみ好きー
03/04/19 17:08ID:???/<[^>]+>http://www\d+.hoge.ne.jp/\d+</[^>]+>/
？
0393はしのえみ好きー
03/04/19 17:08ID:???0394はしのえみ好きー
03/04/19 17:11ID:???しかもピリオドエスケープしてなかったし（もうだめぽ(´･ω･`)
<[^>]+>http://www\d+\.hoge\.ne\.jp/\d+</[^>]+>
0395nobodyさん
03/04/19 20:00ID:???0396386
03/04/19 23:46ID:???0397山崎渉
03/04/20 05:59ID:???（ ＾＾ ）＜ ぬるぽ（＾＾）
0398nobodyさん
03/04/24 17:15ID:/44ojQ66の範囲を削除したいのですが、こんなんでいいんでしょうか。
s/<script[\s.\S]\s*(.*)\s*>[\s.\S]*<\s*\/script>//gi
0399398
03/04/24 18:29ID:/44ojQ66s/<script\s*.+?>.+?\s*<\/script>//gi
これに落ち着いた感じなんですが、どうでしょうか？
0400nobodyさん
03/04/24 18:32ID:???0401nobodyさん
03/04/24 18:33ID:???か。。
0403nobodyさん
03/04/24 23:39ID:???0404nobodyさん
03/04/24 23:40ID:???0405399
03/04/25 01:34ID:fbvwVtSF>>399の記述でも、目的は達しているように見えるのですが、
ご教示頂いたものを試してみようと思います。
現在、コメントタグの削除に取り組んでいますが、
s/<!--[^>]*-->//g
これで、一応目的は達しているように見えます。
複数行またがるコメントタグも削除できているようです。
しかし、より効果的な記述方法はあるでしょうか？
0406nobodyさん
03/04/25 04:34ID:???コメントタグは < >が含まれることがある（というかブラウザー的にはエラーにならない）
のでそれじゃ駄目
あと、改行も問題有るので
s/<!--(?:(?!-->).)*)-->//gs
ぐらいにしとかにゃだめなんじゃない
0407nobodyさん
03/04/25 05:04ID:???http://www.din.or.jp/~ohzaki/perl.htm#HTML_Tag
0408405
03/04/25 10:00ID:EpsK+/d8ｸｽｺです。試してみます。
>>407
情報源、ｸｽｺです。
Perlメモは読んでまして、そこのコメントタグも試しました。
ただ、あれでは意図しない部分まで削除してしまうケースがあるようです。
0409123
03/04/25 10:36ID:HCZY3VXf※jdk1.3は正規表現はつかえないから別のライブラリを使う（以下参照）
※jdk1.4は標準でついていたのでそれを使う（使い方忘れた、自分で探せ）
String aaa = \"123456789\";
Pattern pattern_1 = compiler.compile("456",Perl5Compiler.CASE_INSENSITIVE_MASK);
aaa = Util.substitute(matcher,pattern_1,000,aaa,Util.SUBSTITUTE_ALL);
0410405
03/04/25 12:08ID:EpsK+/d8SCRIPTタグの削除も含んでます。
http://www.faqts.com/knowledge_base/view.phtml/aid/21761/fid/597
これの下の方。
/<(?:!(?:--[\s\S]*?--\s*)*(>)\s*|(?:script|style|SCRIPT|STYLE)[\s\S]*?<\/(?:script|style|SCRIPT|STYLE)>)/g;
これ使ったら、見事にうまくいったﾖｶﾝ。
0411あぼーん
NGNG0412あぼーん
NGNG0413nobodyさん
03/04/26 00:57ID:IuuTGNpAメアドの正規表現ってこんな感じでいいの(初心者でつ)?
■ このスレッドは過去ログ倉庫に格納されています