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

正規表現道場@2ch Part2

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

リンクなどは>>2-5のあたりに。
0175質問者03/02/02 17:45ID:aPQL5QO2
>>174
そか、どうも。

マッチした文字列を検索文字列と比較するということ?
>>171で書いた例についていえばそのとおりだが
正規表現でマッチさせたものについて知りたいので
単純にifで比較してもしょーがない。
(検索文字列が"a."などのとき、比較してもしょうがない)
かといって正規表現でテストするってのも二度手間だし。
正規表現でうまく書けば出来るとか、
普通そーゆー機能あるよ、とかいうことはないですかー?
0176nobodyさん03/02/02 17:47ID:???
?

$x =~ /(ab)|(cd)/;

if($1 eq "ab")
{
print("ab");
}
0177nobodyさん03/02/02 17:56ID:???
perlなら、もう一度マッチングさせるかな。
なるべく別々に処理を行うようにするけど。
VBとかの機能はマ板で訊いてください。
0178nobodyさん03/02/02 17:58ID:???
>>177
>マ板で訊いてください。

・・・なぜ!?
0179質問者03/02/02 18:20ID:???
>>176-177
ありがと。
もしかして知らないところで世の中便利になってて
一撃で出来るかなーと思ったのですが。
とりあえずあきらめときます。
018017703/02/02 18:57ID:???
>>178
ム板だった。
素で間違えた(w
0181nobodyさん03/02/02 21:59ID:???
>>180
いや、いいんでないの?w
0182nobodyさん03/02/14 01:16ID:???
もげ
0183nobodyさん03/02/17 07:11ID:tFA1sH7S
/hoge/piyo/foo\/bar/baka/
という文字列を split して
[ 'hoge', 'piyo', 'foo\/bar', baka ]
という配列を得たいのですが、/ で split するけど \/ では split しない
ってのはどう表せますか?
0184nobodyさん03/02/17 08:04ID:???
[^\\]\/
0185nobodyさん03/02/17 10:03ID:???
>>184
バックスラッシュを一般化して使いたい場合を考えると split するより

my $path ='/hoge/piyo/foo\\/bar/baka/';
my @nodes;

foreach my $elem ( $path =~m%(?:^|\G/)((?:\\.|[^/])+)%g ){
$elem =~s/\\(.)/$1/g; # バックスラッシュを取り除く場合。
push( @nodes, $elem );
}

みたいなのの方がいいと思う。
これだと

/hoge/piyo/foo\/bar\\/baka/ => ['hoge','piyo','foo/bar\','baka']

みたいなのにも対応出来るし。

s///g 使って無理矢理1ステートメントにするのもアリか。
018618303/02/17 11:44ID:???
ありがとうございました
0187nobodyたん03/02/18 01:11ID:???
FYI
@hoge = split m[(?<!\\)/], $path;
0188nobodyさん03/02/18 18:45ID:???
strong 要素内の“</p><p>”を取り除くため、以下のように書いてみたんです。

while ($value =~ /(<strong>.*?)<\/p><p>(.*?<\/strong>)/)
{
$value =~ s/(<strong>.*?)<\/p><p>(.*?<\/strong>)/\1\2/g;
}

※ $value に HTML が入っている。

初めはこれでも問題なかったんですけど、例えば、

$value = "<p><strong>あ</strong></p><p><strong>い</strong></p><p><strong>う</strong>";

のとき、置換後の $value は、

$value = "<p><strong>あ</strong><strong>い</strong><strong>う</strong>";

となってしまいます。この書き方で大丈夫だと思っていたのに、どうなってるんでしょうか・・・
0189nobodyさん03/02/18 18:57ID:???
>>188
<strong>.*?</p><p>.*?</strong> だと、

<strong> => <strong>
あ</strong> => .*?
</p><p> => </p><p>
<strong>い => .*?
</strong> => </strong>

ってマッチしちゃうよ。

$value =~s{<strong>(.*?)</strong>}{
my $tmp =$1;
$tmp =~s|</p><p>||g;
"<strong>$tmp</strong>";
}ge;

とか。もっと良いやり方ありそうだけど。

019018803/02/18 19:13ID:???
ごめんなさいごめんなさい。もの凄く馬鹿なことを書いてしまいました。
あまりの睡魔に襲われて、今 コタツで寝ながら考えていたのですが、私の書き方だと strong 要素内に </p><p> がない場合を考えてないわけですよね。
本当に申し訳ございません・・・

>>189
有り難うございます。
教えて頂いた方法ですが、あとで勉強しながら考えてみます。
どうも私ではすぐには理解できそうにないもので。

とにかく有り難うございました。
0191nobodyさん03/02/18 20:27ID:???
眠い時って、まともなprog書くの無理だよな。
0192nobodyさん03/02/18 23:46ID:oZOSGD0m
正規表現を初めて2日目です(ごめんなさい)文字列の置換だとか検索に感動してます(申し訳ない)。
正規表現を勉強し始めた理由は、以下の質問からです。
192.168.1.8が、192.168.1.0/24 のネットワークアドレスに含まれているかどうかを
判定する正規表現を書くことは可能でしょうか。
よろしくおながいします。
0193nobodyさん03/02/18 23:48ID:???
人間用表記から、ビット列に直して、ビット演算で適当にやったほうが速いような気がするぞう。
0194nobodyさん03/02/18 23:50ID:???
>192.168.1.8が、192.168.1.0/24 のネットワークアドレスに含まれているかどうかを

ならtrueなのは自明だけど。
019519203/02/19 00:13ID:bka3cebn
>>193
ありがとうございます。やっぱし、正規表現よりは普通にプログラムで
やったほうが良いですか、、ちなにみJava使いです。んー、書いたことないので
なやみます。
0196nobodyさん03/02/19 00:49ID:???
>>195
無視された・・・Java.util.regex使いなのに無視された。
0197nobodyさん03/02/19 00:59ID:???
ビットマスクが8の倍数なら正規表現でも簡単だけど・・
0198nobodyさん03/02/19 01:00ID:???
あぁ。サブネットマスクだった。
0199nobodyさん03/02/19 01:21ID:???
正規表現雑技団とかでやりそうなネタだな。
020019203/02/19 02:16ID:bka3cebn
>>196
ええ、あれ、なんか、無視しちゃうような悪いことしちゃいましたか?
すいません、何かサンプル教えて下さるとうれしいす。。。
0201nobodyさん03/02/19 02:23ID:???
これがスッキリとした正規表現で書けるっていうなら見物だな。
0202nobodyさん03/02/19 16:59ID:oL6d+rQl
select * from testtable where name = 'hoge's name';
という文字列があり、
name = 'hoge's name'の、内側の'だけをエスケープして置換えたいのです。

つまり
select * from testtable where name = 'hoge\'s name';
としたいのです。
ただし外側の'は必要ですのでエスケープしたくないのです。

込み入った例を書くと文字列が
name = ''''' and value = '''' の場合は、
name = '\'\'\'' and value = '\'\''

にしたいのですが、このような複雑な処理を正規表現で行うのは無理なのでしょうか?
0203nobodyさん03/02/19 17:09ID:???
>>202
最大マッチで検索。
0204nobodyさん03/02/19 17:45ID:???
>>202
> 込み入った例を書くと文字列が
> name = ''''' and value = '''' の場合は、

最大マッチでも難しそう・・・
0205nobodyさん03/02/19 18:15ID:???
無理だろう、これは。

SQL だと 文字リテラルのでてくる場所たくさんあるから
個数限定ってわけにもいかないし。

対になってるわけでもないし。

'' ' ' '' ' ' ' '

こんな文字列からクオートすべきのを見つけろ、ってのとかわらんもん。

どういう案件かはわかんないけど、
SQL に置き換える段階でクオートしなかったのが敗因ですね…
0206nobodyさん03/02/21 12:55ID:6n4aSTAx
>>203-205
了解です。
楽しようとせずSQL文を完成する前に
ひとつずつ置換えるようにします。

どうもでした。
0207nobodyさん03/02/21 15:31ID:???
>>206
お役にたてず申し分けない。
0208nobodyさん03/02/21 15:37ID:???
せめて一行に一回しか出て来ないとか、''の両端は必ず空白とかの目印があればいけそうだけど。
0209nobodyさん03/02/21 22:45ID:Kv1GvIlP
初歩的なあれですが、()のなかに()があって、
そのなかに | があっても大丈夫ですか?
/(2ch\.net|1ch\.(com|org))/
みたいな・・
0210nobodyさん03/02/21 22:52ID:???
>>209
.に行っているように\でエスケープしてください。
0211nobodyさん03/02/21 23:19ID:???
>>209
えっと・・あとどれをエスケープするんでしょうか?
この場合合致させたいのは
2ch.net
1ch.com
1ch.org
です
0212nobodyさん03/02/21 23:26ID:???
>>211
基礎から勉強し直せ。
0213nobodyさん03/02/22 10:01ID:???
てゆーか、それくらいとっとと自分で試してみればいいのに。
0214nobodyさん03/02/22 10:12ID:???
でもまあ、サーバー上でしか実験出来ないような環境作っちゃった場合は
聞いた方がはやいやーってなっちゃうだろうね。

0215nobodyさん03/02/22 10:46ID:???
>>214
>でもまあ、サーバー上でしか実験出来ないような環境作っちゃった

それ、何もしてないってことじゃん。
0216初心者質問者03/02/22 17:49ID:Db6aP06C
ダブルクオーテーションで括られた文字列の、
ダブルクォーテーション内部だけをマッチさせたいんですけど。
$1使わないと無理?
0217nobodyさん03/02/22 17:53ID:???
>>216
"が偶数回出てきてる行は囲まれてるな。
0218nobodyさん03/02/22 18:52ID:???
>>214
ActivePerlでもなんでも入れれば一発だろうにな。
怠惰な奴は嫌われる。
0219nobodyさん03/02/24 12:33ID:fQYme6i5
質問です。
ある文字列から始まらない任意の文字列、というのは
どうなって書けばいいんでしょうか。
例えば、<a href...>以外のタグを見つけるといった場合ですが、
文字列a hrefから始まらない、という事で
/<[^(a href)][^>]*>/
という感じかと思ったんですが、これではダメなようなので・・・。
0220nobodyさん03/02/24 18:33ID:???
>>219
!~ /^ある文字列から始まらない任意の文字列/
0221nobodyさん03/02/24 18:51ID:???
この場合、否定先読み、否定後読みを使うんじゃないかね?
0222nobodyさん03/02/24 22:21ID:???
Perl5の場合は、正規表現の拡張構文を使うとこんな感じ。

/<(?!a href).+?>/
0223nobodyさん03/03/03 16:51ID:PjU+W5oK
前スレに似たような質問を見つけて読んだけど・・・
なんか「知らんヤツ書くな!!」とかで正しいのかどうか解りません。。
どなたかご教授お願いします。

言語:Perl 掲示板CGIを作っています。
やりたいこと:特定のタグ以外は無効にする。
私が考えた処理は・・・指定したタグの中身に合致しなかったら消す。
@yukotag = "('b'.'/b'.'u'.'/u')";
if ($value ne "<@yukotag>") {
$value =~ s/<(.*)>//g;
}
でもこれではそもそも動かない・・・エラーにはならないけど。
#有効になるべきタグも消えてしまいます・
どうしたらよいのでしょう。
022422303/03/03 16:53ID:PjU+W5oK
もう一個考えた・・

if ($value ne "<(b|\/b)>") {
$value =~ s/<(.*)>//g;
}
0225nobodyさん03/03/03 16:55ID:???
全てのタグをエンティティに変換し、その後許可タグだけ戻すのが王道。
0226nobodyさん03/03/03 17:27ID:???
>>223-224
Perlを基礎から勉強してください。
基本的な考え方は>>225の通り。こんな感じで。

@yukotag = ('a','u');
$value =~ s/<(\/?.*?)>/<$1>/g;
map { $value =~ s/<(\/?$_.*?)>/<$1>/ig } @yukotag;
0227nobodyさん03/03/05 12:28ID:vWidvRyz
改行二回にマッチさせたいんだけど

$_=~/\n{2,}/g

ではだめれすか?
0228nobodyさん03/03/05 12:30ID:???
>>227
ダメだったんですか?
0229nobodyさん03/03/05 12:33ID:???
my $kaigyou = '(?:・r・n|・r|・n)'
$_ =~ /${kaigyou}{2,}/$nanika/g
023022703/03/05 12:37ID:???
マッチしませんれした
0231nobodyさん03/03/05 20:15ID:???
>>230
$_ =~ /\n{2,}/gs;
023223003/03/05 22:23ID:???
$a="aaa\nddd\nfff\n";
if($a=~/\n{2,}/gs){print"OK!\n";}

?????????????????????????????

0233nobodyさん03/03/05 23:11ID:???
>>232
Safariかよ。
0234nobodyさん03/03/05 23:36ID:???
>>232
おいおい、「改行ニ回」ってそういう意味かよ。
上の回答者はみんな、あんたが「ふたつ(以上)連続する改行」に
マッチさせたがってると思ったんだよ、あんたの質問と例を読んで。

$a = "aaa\nddd\nfff\n";
if(($a =~ s/\n/\n/gs) >= 2) { print "OK!\n"; }
023523003/03/06 03:31ID:???
スマソ
激しく反省
0236nobodyさん03/03/06 03:53ID:???
ネストした括弧へのマッチを一つの正規表現で表すことってできるかな。

((a.b)(c.d)(e(f(g.hij)))k) -> マッチ
((bcd))) -> だめ。

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
$_の説明がまだだぞw 
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:???
よく入門書で、「正規表現を詳しく解説してると本が1冊書ける」とか書いてるけど
本当に本1冊書けるし、実際に本が出てるんだよね。
それぐらい奥深いものなのかと。
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:???
ありが�d�d�d
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名無しさん@Meadow03/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
アンタの説明も(ry
0274nobodyさん03/03/11 19:10ID:???
>>270
いや、ただ気になったので。この類の本って問題だけで答えがないってのが
多い気がする。

>>271
「言語」はあるアルファベット(文字集合)からなるものの列をいうっていうようなことが
書いてあるので、たぶんここでは文字列っていうのと同じとみていいと思う。
「言語 受理」で検索するとそれっぽいページが多くヒットするので分野によっては
普通の表現なのかも(「受理」はまぁつまり「マッチが成功する」って言う意味)。
■ このスレッドは過去ログ倉庫に格納されています