トップページ⇒php
825コメント240KB

正規表現道場@2ch Part2

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん02/11/24 22:57ID:LrbVcl3Y
Perlに限らずスクリプト系言語で大活躍の正規表現。
このスレは有用そうな正規表現を紹介したり、どう表現したらいいかわからないときに
質問をしたりするためのスレッドです。
質問するときは使用言語や得たい結果をなるべく詳しく書きましょう。

リンクなどは>>2-5のあたりに。
0237nobodyさん03/03/06 04:34ID:???
>>236
無理。
正規文法の限界。
(文脈自由文法以上ならいける
0238サチ03/03/08 13:12ID:dLehQyhy
@data=("a","b","ゝ","⊂","≡","⌒","▼","≧","∂");
my $count = 0;
foreach (@data) {
$count += $com =~/\Q$_\E/;
……

　この　~/\Q$_\E/　ってどういう意味なのでしょうか？
　厨房的な質問ですみません。
0239nobodyさん03/03/08 13:15ID:???
>>238
(ｫと同じ意味ですよ。
0240nobodyさん03/03/08 13:20ID:???
>>238
それは正規表現というよりPerlの作法。
\Q =英数字以外の文字の前に\を挿入する。
\E =\L,\U,\Qなどの終了

print "\Q$_\E";
とかで効果を見たほうが早いかも。
0241サチ03/03/08 13:32ID:dLehQyhy
あまりに早いご返答ありがとございます。
本当にありがとうございます。
Perlの作法なのですか。
てっきり正規表現かと思ってました。(^_^;
どこかに参考となるURLありますか？
0242nobodyさん03/03/08 13:34ID:???
>>240の説明以上に何が知りたいのかと
0243nobodyさん03/03/08 13:36ID:???
>>242
$_の説明がまだだぞｗ　
0244サチ03/03/08 13:37ID:dLehQyhy
あっ、その”Perlの作法”がまとめられたﾄｺがあるのかと
思いまして…　ごめんなさい。
0245nobodyさん03/03/08 13:39ID:???
>>243
正規表現なのかと（以下略
>>244
ラクダ本
0246サチ03/03/08 13:54ID:???
これから買いに逝って来ます。
ありがとうございました。m(_ _)m
0247nobodyさん03/03/08 14:56ID:???
それを知るためだけにラクダ本を買うのか……
まあ、がんばれよ。
0248nobodyさん03/03/08 14:56ID:???
>>247
今頃びっくりのお値段に悶絶してることかと。　
0249nobodyさん03/03/08 15:13ID:???
3rd だと2冊だし。
デスクトップリファレンスで良いかと。
0250nobodyさん03/03/08 16:20ID:???
いや、これをきっかけに Perl ヲタになるやもしれん。
同じオライリーなら詳説正規表現もお勧めだよ。
0251サチ03/03/08 18:13ID:???
高かぁ～い！ヽ(`Д´)ノ
お金がないので諦めました。

詳説正規表現ですか。。φ(．．)


0252nobodyさん03/03/08 20:14ID:???
よく入門書で、「正規表現を詳しく解説してると本が１冊書ける」とか書いてるけど
本当に本１冊書けるし、実際に本が出てるんだよね。
それぐらい奥深いものなのかと。
0253nobodyさん03/03/08 20:38ID:???
俺はｿﾌﾄﾊﾞﾝｸの「正規表現の達人」持ってる。
他にも赤い表紙の奴とか、ｵﾗｲﾘｰ以外にも2、3冊ぐらい
正規表現の本を見かけたことがある。
025417703/03/08 20:46ID:???
詳細も高いって(w。
025525403/03/08 20:47ID:???
おっと、詳説でした。
0256nobodyさん03/03/08 21:07ID:???
でも詳説は勉強になったよ。
あれ勉強してからチューンしたら性能が4割は上った。
はじめは馬鹿にしてたんだけどね。
0257nobodyさん03/03/08 21:53ID:???
確かにいい本です。
正規表現はスクリプトの実行速度に影響を与えていることが
結構あったりしますので、コードチューニングには、いい本です。
しかし、入門には少々マニアックすぎるかも。
# 毒食えば皿までかな。
0258nobodyさん03/03/09 00:39ID:???
>>237
Perl5.6以降では(??{})でいけたような。
もはや「正規表現」とは言えないわけだがだいぶ前から
Perlの正規表現は厳密な意味で正規表現じゃないし
0259nobodyさん03/03/09 00:51ID:???
>>251
忘れてた。Perlに限るなら、EffectivePerl(3章)をおすすめ。
0260nobodyさん03/03/09 12:49ID:9EZ5B9RA
JavaでOMOつかってます。matchで「aaabbbcccdddd」という文字列に対し、
aもしくはdという文字列が含まれているかという判定を正規表現で書きたいのですが…
超初心者ですんません。

0261nobodyさん03/03/09 12:54ID:???
>>260
[ab]
026226003/03/09 16:47ID:???
ありが㌧㌧㌧
0263nobodyさん03/03/11 10:43ID:V1nwV3pf
「次の言語に対する正規表現を書きなさい
　0と1からなる列で0は偶数回、1は奇数回現れるもの全て。」

わからない…。ていうか可能？
0264nobodyさん03/03/11 10:58ID:???
>>263
(00)* 偶数=2n

(11)*1 奇数=2n + 1



0265nobodyさん03/03/11 11:05ID:???
>>264
ﾊｧ?10110とかもだろ
0266nobodyさん03/03/11 11:12ID:???
>>265
良かったな。
0267名無しさん＠Ｍｅａｄｏｗ03/03/11 11:16ID:wliWOweu
>>263
Perlだしゅ。正規表現じゃないな。
while(<>) {
@zero=m/0/g;
@ichi=m/1/g;
if ($#zero % 2 != 0 and $#ichi % 2 == 0) {
print;
}
}
0268nobodyさん03/03/11 11:17ID:???
>>263
その問題文、「次の言語に」って言い回しからしてなんか怪しくない？
0269nobodyさん03/03/11 11:45ID:???
>>268
どういうこと？原文ままだと

*3.7 次の言語に対する正規表現を書きなさい．
　a) 5個の母音a,e,i,o,uがこの順序でどこかに現れる英字列すべて
　b) 辞書式順序の関係に従って現れる英字列すべて
　（略）
　f) 0と1からなる列で，0は偶数回，1は奇数回，現れるものすべて
　（以下続く）

「コンパイラI 原理・技法・ツール」（通称ドラゴンブック）ていうやつの練習問題。
0270nobodyさん03/03/11 14:35ID:???
>>269
ソレ、学校の課題かなんかじゃねえの？
それなら自分でやれよ。

もし違うならｽﾏｿ
0271nobodyさん03/03/11 15:29ID:???
>>269
普通なら「次の文字列に対する～」だと思うが。
言語？
0272nobodyさん03/03/11 16:10ID:???
ところで。
オライリージャパンの「正規表現」って本読んだ。
ちょっと古めなのであれだったけど。
（\4000）

書いてある内容はあれだったけど、
説明のしかたがクソだった。

よくオライリーからあんなクソ説明本が出たもんだ。
読んでる途中で嫌になってくる。
0273nobodyさん03/03/11 18:14ID:???
>>272
ｱﾝﾀの説明も(ｒｙ
0274nobodyさん03/03/11 19:10ID:???
>>270
いや、ただ気になったので。この類の本って問題だけで答えがないってのが
多い気がする。

>>271
「言語」はあるアルファベット（文字集合）からなるものの列をいうっていうようなことが
書いてあるので、たぶんここでは文字列っていうのと同じとみていいと思う。
「言語 受理」で検索するとそれっぽいページが多くヒットするので分野によっては
普通の表現なのかも（「受理」はまぁつまり「マッチが成功する」って言う意味）。
0275nobodyさん03/03/11 23:48ID:???
あぁー分からないよぉ。。もちろんPerlの拡張正規表現は使わないんでしょ?
0276nobodyさん03/03/12 00:09ID:???
>>275
あんたが何がわからないかわからないのだが
0277nobodyさん03/03/12 00:23ID:???
>>275
使えばできる？
0278nobodyさん03/03/12 22:04ID:hmpHRxfR
２ちゃんのスレッドのソースから名前だけ取り出す正規表現ってどうすればいいですか？
0279nobodyさん03/03/12 22:31ID:wNWBQmqk
>>272
たぶんあなたのレベルの問題だと思うぞ。
あと2,3回我慢して読んでみなよ。
0280nobodyさん03/03/12 22:38ID:???
.*
と
.+?
の違いって何ですか？？
0281あぼーんNGNG
あぼーん
0282nobodyさん03/03/13 02:18ID:???
>>280
前者にヒットして後者にヒットしないものは空文字列くらいかな。
0283nobodyさん03/03/13 02:21ID:???
>>282
後者にはなんでヒットしないの？
0284nobodyさん03/03/13 02:42ID:???
>>283
そういうルールだから
0285nobodyさん03/03/13 15:28ID:???
あれ、
(x?) って (|x) の略記法だと思ったんだけど。
だから空にもマッチするんじゃないの？
0286nobodyさん03/03/13 15:44ID:???
>>285
その"?"と、>>280の"?"では意味が違います。
>>280の"?"は量指定子（この場合は"+"）の後ろにありますので、
これは「最短のマッチを選べ」という指示になります。
結果として、".+?"は「何か一文字」にマッチするということになりますね。
0287山崎渉03/03/13 16:58ID:???
（＾＾）
0288nobodyさん03/03/13 19:43ID:???
>>286
なるほど、"+?" で一つのメタ記号なんですね。ｺﾞﾐﾚｽｽﾏｿ
0289nobodyさん03/03/13 19:45ID:???
>>288
違うぞ。
0290nobodyさん03/03/14 00:04ID:???
0291nobodyさん03/03/14 00:04ID:???
0292nobodyさん03/03/14 00:04ID:???
0293nobodyさん03/03/14 00:05ID:s293/lDl
293get
0294nobodyさん03/03/14 00:23ID:???
{0,1}という意味での?と、
* +の後ろにくっつけた?は意味が違う。

だから、*? +?で１つのメタ文字として考える方が正しいといえる。
0295nobodyさん03/03/14 00:38ID:???
>>294
*?とか+?は、ﾒﾀｷｬﾗｸﾀのみで構成されているってだけの話で、
所詮は正規表現の1ﾊﾟﾀｰﾝでしかないと思ふ。
0296nobodyさん03/03/14 18:50ID:???
>>282は間違いなんですね？
0297nobodyさん03/03/14 20:20ID:???
>>296
伺う前に自分で実験しる。これ基本。
0298nobodyさん03/03/14 21:01ID:???
>>297
わかりやしたです。
0299nobodyさん03/03/15 23:25ID:???
量指定子の後ろに「?」をつけると「最短一致」
だから>>280は間違いと。やっとわかったよ。
0300nobodyさん03/03/20 21:24ID:8BKMA1mq
>>299
ちがうよ（ぷ
0301nobodyさん03/03/21 01:13ID:???
>>263 http://www.din.or.jp/~ohzaki/regex.htm#AevenBodd
0302nobodyさん03/03/26 17:02ID:4WzRK9Se
文字列の中で、「;」を消したいんだけど「<」や「>」の「;」は
そのままにしておきたいような場合はどのように表記すればいいんでしょうか？
s{[^(?:&|<|>|")];}{}g とか
s{[^&|<|>|"];}{}g とかやってみましたがうまくいかず。
どなたか助けてください。
030330203/03/26 17:16ID:4WzRK9Se
↑間違えました。

文字列の中で、「;」を消したいんだけど「&lt;」や「&gt;」の「;」は
そのままにしておきたいような場合はどのように表記すればいいんでしょうか？
s{[^(?:&amp|&lt|&gt|&quot)];}{}g とか
s{[^&amp|&lt|&gt|&quot];}{}g とかやってみましたがうまくいかず。
どなたか助けてください。
0304nobodyさん03/03/26 19:37ID:???
>>303 Perlならこれでどうだ
s/(&(amp|lt|gt);)|;/$1/g
0305nobodyさん03/03/26 19:42ID:???
s/(?<=&\w+);//g
0306nobodyさん03/03/27 01:45ID:lpoVliEY
はじめまして。正規表現覚えたての者です。
if($FORM{'pass'} =~ /[0-9]pass/)

わかると思いますが、これは$FORM{'pass'}が[0-9]passだったら○○する、という命令なんですけど、
この0から9を0から24にしたいんです。
if($FORM{'pass'} =~ /[0-24]pass/)
これじゃあ0から2と認識されてしまいました。

どうかご教授お願いします。。
0307nobodyさん03/03/27 02:14ID:DK9B1aQJ
>>306
if($FORM{'pass'} =~ /(1?[0-9]|2[0-4])pass/)
でいいんじゃないかなあ。
0308nobodyさん03/03/27 02:20ID:DK9B1aQJ
>>306
if($FORM{'pass'} =~ /(\d+)pass/ && $1<24)
とかでもできるかなあ。
0309nobodyさん03/03/28 10:31ID:q5wWnzii
なんらかの文字列がn回以上続く　という書き方はどうすればいいのでしょう？
/.{10,}/
こう書いたのですがなんでも１０回続けばマッチしてしまう（１０文字以上の長さだったらマッチ）
ｋふぉあｓｄん＠ごあｓｄんｇ＠おあんう゛ぁ＠おｓなおさｋんが＠おｓんｄｇ＠お
にマッチせず、
あいうえお！！！！！！！！！！！！！！！！
や、
あいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえお
などにマッチさせたいんですが、どういう書き方をすればいいのでしょうか？

どうぞ、よろしくお願いします。
0310nobodyさん 03/03/28 10:45ID:???
>>309意味不明
ｋふぉあｓｄん＠ごあｓｄんｇ＠おあんう゛ぁ＠おｓなおさｋんが＠おｓんｄｇ＠お

コレだって１０文字以上だろ
人間にとって意味がある文章を洗い出すって意味なら無理
0311nobodyさん03/03/28 11:26ID:???
>>309
/(.+)$1{9,}/ じゃダメ?。あんましオススメしないけど。
031230903/03/29 03:39ID:WGdDwe6j
すいません、言葉が足りなかったようですね。。。
なんらかの文字列がn回以上続く
↓
なんらかの文字列が連続でn回以上続く

「連続」で続いてないとだめなんです。
だから、
ｋふぉあｓｄん＠ごあｓｄんｇ＠おあんう゛ぁ＠おｓなおさｋんが＠おｓんｄｇ＠お
は、マッチしません。
あいうえお！！！！！！！！！！！！！！！！
は、「！」が１０個以上あるのでマッチします。
あいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえおあいうえお
は、「あいうえお」が１０個以上あるのでマッチします。

こんな表現は無理なんでしょうか？

>>311
これでは無かったです。
単にn文字以上、ではなく、連続で続くとマッチさせたいんです。
0313nobodyさん03/03/29 11:26ID:???
$str = q|ｋふぉあｓｄん＠ごあｓｄんｇ＠おあんう゛ぁ＠おｓなおさｋんが＠おｓんｄｇ＠お|;
if ( $str =~/(.+)\1/ ) {
    print 'OK';
} else {
    print 'NG';
}
0314nobodyさん03/03/29 17:46ID:???
Perlメモのやつを使えば、全角文字も1文字として扱える
0315nobodyさん03/03/29 18:25ID:???
半角しか考えないバージョンの答えはこれ。多分
/(.+)\1{N,}/

Nはn - 1で。
031630903/03/29 22:08ID:xi1Z4LcN
できないかな。。。
一応サンプル
ttp://thebbs.jp/common/thetop/index.html
連続した文字に反応します。
このようにしたいんですけど。。。
0317nobodyさん03/03/29 22:17ID:???
>>316
>>313-315を読んだか？
031830903/03/31 00:38ID:rrn9gB8/
お～!!
すいません、>>315ｻｿのでいけました!
みなさんどうもありがとう･ﾟ･(ﾉД`)･ﾟ･
031930903/03/31 00:50ID:???
あ、でも半角だけか。。。(´･ω･｀)
0320nobodyさん03/03/31 05:06ID:???
>>319
ま、当面は大丈夫じゃないの？
0321nobodyさん03/03/31 18:43ID:???
Perlメモから、文字の正規表現を持ってくればできる。EUC-JPのみ対応

$ascii = '[\x00-\x7F]';
$twoBytes = '[\x8E\xA1-\xFE][\xA1-\xFE]';
$threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]';

/((?:$ascii|$twoBytes|$threeBytes)+)\1{N,}/
0322nobodyさん03/03/31 18:46ID:???
あ、でも>>315でも2バイトの繰り返しとして判断されるから、
ちゃんと動く(ように見える)かも。ずれた時は…
0323Perl03/04/04 15:20ID:???
？ (十進数) {2,4} ;
？x （十六進数） {,4} ;
でない #(任意の16文字) にマッチさせるにはどうしたらよいですか。
0324名無しさん＠Ｍｅａｄｏｗ03/04/04 23:02ID:???
>>323
わけわか
人にわかるように書け

0325nobodyさん03/04/04 23:23ID:???
>>323
同じくわけわか
任意の16文字にマッチさせたくないものを書いて
0326nobodyさん？03/04/05 04:37ID:bmLMbrZJ
$str = '123 名前：<font color="#008800"><b> nobodyさん </b></font>' から
<b></b>タグで挟まれた文字列(レスの名前部分)だけ残す場合、どんな方法がありますか？

$str =~ /<b>([^<]+)<\/b>/; $str = $1;
$str =~ s/.*<b>([^<]+)<\/b>.*/$1/;
ってのはエレガントじゃないですよね
0327nobodyさん03/04/05 04:47ID:???
($str) = $str =~ /<b>([^<]+)<\/b>/;

これじゃだめ？
0328nobodyさん？03/04/05 05:08ID:???
>>327
配列コンテキストだとマッチした文字列の配列をを返すんですね。
なるほどサンクスです。
0329Perl03/04/05 10:25ID:???
>>323の？は、半角の＆です、、、
化けてしまった。
0330Perl03/04/05 10:26ID:???
半角の＆＃だった、ｽﾏｿ。？ &#
0331デフォルトの名無しさん03/04/05 11:11ID:E+nPGg0Q
>>330
わけのわかるように書け、といてるのがわからんかな。
(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ああああ 2003/6/08\n\nｓｄｆｇ 2004/9/9\n\nぉいこいｊｋ\n

から最後の\n～\nを消したいのですがどうすればいいですか？
結果的に
\nああああ 2003/6/08\n\nｓｄｆｇ 2004/9/9\n
というふうにしたいのですが
0333nobodyさん03/04/05 14:47ID:???
$ perl -e '$_="\nああああ 2003/6/08\n\nｓｄｆｇ 2004/9/9\n\nぉいこいｊｋ\n";s/\n[^\n]+\n$//;print'
0334nobodyさん03/04/05 16:15ID:???
>>332
join('\n',(split(/\n/,"\nああああ 2003/6/08\n\nｓｄｆｇ 2004/9/9\n\nぉいこいｊｋ\n"))[0..3])

こじつけ（ｗ
033533203/04/05 17:02ID:7kbMg08s
すいません\nは改行ではなく文字として扱いたいのですが
0336nobodyさん03/04/05 17:10ID:???
>>335
はあ？\\nでいいだろ？入門書買え
■ このスレッドは過去ログ倉庫に格納されています