正規表現

[1 正規表現 NG NG]

正規表現

[181 長いので分割。 NG NG]

… だそうです。

果たして↑の長い正規表現が >>178 さんの答えと同じものを表しているのかどうか
分かりませんけども。

>>179
有用な本と URL の紹介、ありがとうございました。


それにしても最初にパッと見て「この問題は有限個の状態で表せる」って思いつくかなぁ？
不思議だ。

[182 名無しさん＠お腹いっぱい。 NG NG]

>>181
> それにしても最初にパッと見て「この問題は有限個の状態で表せる」って思いつくかなぁ？
それはパッと見というよりは、冷静に分析してわかるものでしょ。
慣れれば一瞬で分析できるようになるかもしれんけど。

[183 名無しさん＠お腹いっぱい。 NG NG]

>>178,180
それは「aとbだけからなる文字列」について?

[184 名無しさん＠お腹いっぱい。 NG NG]

>>183 んなもん s/[ab]/[^ab]*&/ すりゃ良いだけじゃん

[185 名無しさん＠お腹いっぱい。 NG NG]

>>184
それって、正気表現でつか？

[186 名無しさん＠お腹いっぱい。 NG NG]

>>183 のために [^ab]* をはさみまくってたら、

「長すぎる行があります!」

っておこられたよ・・・

[187 名無しさん＠お腹いっぱい。 NG NG]

/[^ab]*(b|a([^ab]*(a[^ab]*a|b[^ab]*b))*[^ab]*(a[^ab]*b|b[^ab]*a))([^ab]*(a[^ab]*a|b[^ab]*b|[^ab]*(a[^ab]*b|b[^ab]*a)([^ab]*(a[^ab]*a|b[^ab]*b))*[^ab]*(a[^ab]*b|b[^ab]*a)))*/

[188 名無しさん＠お腹いっぱい。 NG NG]

>>187
それで baaabaaab がまっちすんの?

[189 名無しさん＠お腹いっぱい。 NG NG]

以下のようなデータから、著者の部分（最後の括弧から括弧まで）を
取り除きたいと思います。

木立（こだち）のなかに（夏目弱石）
山の上の芋粥（いもがゆ）（芥川蛇の介）

s/（.+?）$//;

ですとうまくいきません。perl5.6で、文字コードはeucです。
webprog板のPerl初心者スレで聞いたのですが、どうも解決しないのです。
どうしたらよいか教えていただければ幸いです。

[190 名無しさん＠お腹いっぱい。 NG NG]

>>189
セイキヒョーゲンの問題ではなくパールの問題っぽいですね。
そっちのスレ行った方がよいかも。
できるなら「うまくいきません」を再現させる
できるだけシンプルなコードを添付してほしいな

[191 名無しさん＠お腹いっぱい。 NG NG]

>>189
プログラム技術板にPerlの質問スレがある。webprogに特化したこと以外はそっ
ちの方がいい。

s/（[^（）]+?）$//;

[192 名無しさん＠お腹いっぱい。 NG NG]

Perl の正規表現では ( ) は、後で \1, \2, ... にマッチさせるための
メタ表記だから、括弧そのものにマッチさせたければ \( \) と書かなければ
ならない。(egrep や emacs とは逆)

[193 名無しさん＠お腹いっぱい。 NG NG]

>>190
では、Perlスレ行ってきます。って、unix板にはなかったんで、
プログラム板ですね。ありがとございますた。

[194 名無しさん＠お腹いっぱい。 NG NG]

あれれ板探してたら、２つもレスが。
>>191
それ、jperlなら動くんでしょうが、perl5.6ではだめでした。
>>192
いや、全角括弧なんです。

[195 名無しさん＠お腹いっぱい。 NG NG]

>>192
それは \x28 や \x29 の場合だけでしょう。
今でてきてるのは \xa1\xca と \x1a\xcb。
ちなみにperlの最短一致は
マッチの先頭位置を後ろにずらす効果がないので注意。

($b="abcabc")=~s/b.*?c$//;
print "$b\n"; # output "a"

189の要望はここで"abca"を出してほしいということで叶わない

[196 189 NG NG]

>>195
＞perlの最短一致は
＞マッチの先頭位置を後ろにずらす効果がない

なるほど。では、>>189のコードは、

木立
山の上の芋粥

を出力してもいいはずですが、何も出力しない（何にもマッチしない）んです。
どうしてですか。よろしければ教えてくらさい。

[197 名無しさん＠お腹いっぱい。 NG NG]

s/(.+)（.+）$/\1/;

[198 189 NG NG]

>>197
これだと、

木立
山の上の芋粥

になってしまいます。求めているのは、

木立（こだち）のなかに
山の上の芋粥（いもがゆ）

です。

[199 197 NG NG]

マジ？ 手元の Perl 5.005_03 だと求めているのになるのだが・・・

[200 189 NG NG]

>>199
すみませ〜ん。
求めているものになりました。いろんなスクリプト混ざり合ってたので
混乱しました。
(.+)が最長一致するから（.+）でいいってことに気づきませんでした。

[201 名無しさん＠お腹いっぱい。 NG NG]

perlの正規表現と日本語文字列との相性の悪さを
実感する問題だったなあ

[202 192 NG NG]

本当に全角だったのか。失礼。だとすると、/（/ が EUC の 2 バイト目と
文字に一致するとは限らないので注意。全角文字の 2 バイト目と次の文字の
1 バイト目がそれぞれ \xa1 と [\xca-\xcb] にマッチする場合があるので、
文字列「検便」\b8\a1\xca\xd8 にも「（」がマッチしてしまう。

日本語 EUC の 1 文字 にマッチさせたいなら、厳密には
(\x8f?[\xa1-\xfe]{2}|\x8e[\xa1-\xfe]|[\x00-\xff])
にマッチさせなくてはならない。

Perl6 の国際化された正規表現が普及して、こんな知識は不要になって
くれれば一番いいのだが…。

[203 192 NG NG]

この例の場合、最後の括弧の中は全角ひらがなしか入らないから関係ないけどね。

[204 名無しさん＠お腹いっぱい。 NG NG]

5.8ならuse utf-8; use Encode;して適切なエンコード指定でファイル読み込ませれば解決するぞ。

[205 名無しさん＠お腹いっぱい。 NG NG]

http://61.210.205.4/
これなんだろ＠＠＠

[206 名無しさん＠お腹いっぱい。 NG NG]

WebProg板の「正規表現道場@2ch Part2」はご存知？
http://pc2.2ch.net/test/read.cgi/php/1038146241/

[207 189 NG NG]

>>206
知ってます。最近、書き込み少ないので、こっちにしました。
あっちでは、以前、いろいろ答えてあげてたんですが。
実は、他のやり方ならいろいろ考え付いたのですが、
s/（.+?）$//;
がなぜだめかが知りたくて質問したのでした。
>>195だけがその質問に答えてくれました。そいえば、それも
らくだ本で読んだ覚えあったなぁと。しかし、「最短一致がマッ
チの先頭部分を後ろにずらしてくれない」という理由ですと、
なぜ、「木立（こだち）のなかに（夏目弱石）」が、「木立」
にならないか、いまだに不明です。($b="abcabc")=~s/b.*?c$//;
で$bが'a'になるんだから、そうなってもいいはずですよね。

# でも、３つのスレで「()をエスケープしろ」っていう返事をもらったのにも
# びっくり。漏れは、navi2chなので、半角と全角は一目瞭然ですが、IEで見
# てみたら、たしかに女滋養に見えますた。

[208 名無しさん＠お腹いっぱい。 NG NG]

女滋養(;´Д｀)ﾊｧﾊｧ

[209 名無しさん＠お腹いっぱい。 NG NG]

生粋のプログラマーなら日常的に半角全角の違いがすぐ分かる環境を望む。
そうじゃない人はあまり気にしないので女痔用に見えても兵器。

[210 名無しさん＠Ｍｅａｄｏｗ NG NG]

女痔用　(´;。;△;。;)キモ!!!!!!!!!!!!!!!

[211 名無しさん＠Ｍｅａｄｏｗ NG NG]

>>207
漏れは、navi2chでも迷ったっぞい。

[212 189=207 NG NG]

>>211
はっきり言っておくんなさい。
たすかに、fontの問題かもすれんですよ。
だかーら、記号類は半角とか全角とか注釈つけとけと…
でもって、半角カタカナなんか問題ない時代になったんだなー、と。

[213 名無しさん＠お腹いっぱい。 NG NG]

半角か全角かをいちいち説明されないと違いの分からないような
素人さんにはそもそも質問なんかされてないんですよ

[214 名無しさん＠お腹いっぱい。 NG NG]

189が意図的に使い分けてるという保証もなかったわけだが。

[215 名無しさん＠お腹いっぱい。 NG NG]

>>214
はじめから euc と断ってたし、
対象テキストデータとか試しに提示したダメコード片を良く見れば、
意図的に使い分けてることは十分想像できたと思うが。
質問の仕方や内容からも半角全角混同してるようなレベルの質問とは思えなかった。

つうか、>>207 は何をいまだにハマってるんだ？
s/（.+?）$//; なら「木立」になるから問題なかろう？

[216 191=214 NG NG]

>>215
一応そう想定して答えた。

[217 名無しさん＠お腹いっぱい。 NG NG]

>>216
釈迦に説法か。ｽﾏｿ

[218 189=207 NG NG]

>>215
いえ、それが、全行出力されちゃうんです。
ちょっと、やってみていただけませんか。(インデントはわざとしません。)
---
while(<DATA>) {
chomp;
s/（.+?）$//;
print "$_\n";
}
__DATA__
木立（こだち）のなかに（夏目弱石）
山の上の芋粥（いもがゆ）（芥川蛇の介）

[219 215 NG NG]

>>218
ん〜、なんないよ (5.005_03) 。
5.6 を試す環境が無いので申し訳ないでつが、Perl のバージョンの問題？

[220 名無しさん＠お腹いっぱい。 NG NG]

>>218
5.6.0 で試したらそのまま出ますた。
これまでの経緯をちゃんと読んでないんだが、 s/（[^）]+）$//; じゃダメ？

[221 名無しさん＠お腹いっぱい。 NG NG]

>>220
それだと、 [^）] の部分は [^\xa1\xcb] なのでダメだと思われ。

>>204 の方法だとうまくいくようになるの？

[222 名無しさん＠お腹いっぱい。 NG NG]

>>218
5.8.0だと、191の式でうまくいくんだがなぁ。

while(<DATA>) {
chomp;
s/（[^（）]+）$//;
print "$_\n";
}
__DATA__
木立（こだち）のなかに（夏目弱石）
山の上の芋粥（いもがゆ）（芥川蛇の介）


木立（こだち）のなかに
山の上の芋粥（いもがゆ）

[223 189=207 NG NG]

追試どうもです。

>>219
古いマシンに5.005_03（5.005_03 built for i386-linux）もあったのでやっ
てみたら、奇妙なことに。
euc-jp-dos、shift_jis-unix → OK
euc-jp-unix、shift_jis-dos → 行全体が出てくる

v5.6.0 built for MSWin32-x86-multi-threadおよびv5.6.1 built for
cygwin-multiでは、どれでもだめです（行全体が出てくる）。文字コードutf8
にしても同じ。

>>222
こりゃもう5.8にするべきですかね。

[224 名無しさん＠お腹いっぱい。 NG NG]

>>222
いやいや、たまたまうまくいっているように見えるだけでしょ。
>>202 さんのを参考にしる。

[225 195 NG NG]

>>218
s/（.*?.）$//;
にしとけ
perlのバグだ
暇ならソースのMINMODあたり追いかけて

[226 189=207 NG NG]

>>225
ありがとん。「。」毎に改行入れようとして、s/(.+?。)//;やってみたが、こ
れすらできんかった。結局、perl5.6以上はjperlないから日本語処理を中心に
してる場合は、使えないってことかなぁ。もち、~ohzakiさんとこに書いてあ
るような注意をしたり、半角文字で置き換えたりすれば使えるげど、面どい。

[227 名無しさん＠お腹いっぱい。 NG NG]

>>226
5.8にしてEncodeつかう。

[228 名無しさん＠お腹いっぱい。 NG NG]

>>226
> 結局、perl5.6以上はjperlないから日本語処理を中心にしてる場合は、
> 使えないってことかなぁ。

違うっしょ。

[229 189=207 NG NG]

>>227
やってみまつ。
>>228
じゃ、jperlでできるs/.+?[。！？]/$1\n/g;あたり、どやってやる？
めんどいでしょ。

[230 189=207 NG NG]

あら、s/.+?[。！？]/$&\n/g;だった。

[231 名無しさん＠お腹いっぱい。 NG NG]

>>229
あぁ、そういう話か。それはその通りですね。

でも、それは 5.8 の Encode とやらを使うと解決するってことなのでは。
っつーか、漏れは 5.8 動かせる環境無いので確認しようがないんでつが、
誰一人として Encode が一体何者なのか説明しようとしないのは何故？

[232 名無しさん＠お腹いっぱい。 NG NG]

>>231
use utf-8; use Encode;
my $ENC = 'euc-jp'; # or 'cp932'
binmode STDOUT, ":encoding($ENC)"; binmode STDIN, ":encoding($ENC)";

普通に標準入出力にアクセスすればOK。スクリプト内に日本語書くときはUTF-8で。
っていうかperldoc嫁

[233 名無しさん＠お腹いっぱい。 NG NG]

>>232
perl 5.6 では不可能ということか?

[234 189=207 NG NG]

>>232
まだ、5.8を試してないんですが、>>232って、euc-jpの端末でeuc-jpのスクリ
プト書いて、perlにutf-8で処理させるってことですね。utfサポートは、5.6
からあるので、mule-ucs＋bdfフォントで、emacs上でprocess-coding-system
（inputもoutputも）もutf-8にして、やってみたけどだめですた。

私が問題にしているのは、[]（文字クラス）や+?、*?（最短一致）がマルチバ
イトに対応しているかどうかということなのですが・・・

[235 名無しさん＠お腹いっぱい。 NG NG]

>>234 5.6時代から既に対応している

[236 189=207 NG NG]

>>235
[]（文字クラス）をテストしてみたけど、だめです。
utf-8で以下のスクリプト実行して見れ。jperlではOKですが・・・
---------
while(<DATA>) {
chomp;
while (s/.+?[。!？]//) {
print "$&\n";
}
print;
}
__DATA__
utf-8で処理させて下さいね。5.6でね。utfサポートは、
5.6からあるけど、このスクリプトだめぽ！>>235は、何が
5.6時代から既に対応しているって言ってんの？変だよ。

[237 名無しさん＠お腹いっぱい。 NG NG]

>>236 use utf8; してる?

[238 189=207 NG NG]

>>237
してなかったっす。
みなさん、ごめんなさ。

[239 名無しさん＠お腹いっぱい。 NG NG]

perl 質問スレにするなよ。

[240 名無しさん＠お腹いっぱい。 NG NG]

というわけで、これにて終了。
正規表現スレはここまでです。
あれ？

[241 名無しさん＠お腹いっぱい。 NG NG]

単語に「マッチしない」のは
どうやれば？ ^\<word\>
じゃないし。

[242 名無しさん＠お腹いっぱい。 NG NG]

>>241
そりを正規表現（だけ）で実現するのは難しいのでは？

普通は、grep なら -v とか、スクリプト言語なら !~ /word/ とかするんじゃないかと。

[243 189=207 NG NG]

>>241
perlの拡張正規表現を使えば出来るよ。
/^(?!.*word)/

[244 あぼーん NG NG]

あぼーん

[245 名無しさん＠お腹いっぱい。 NG NG]

オ来リーの者じゃありませんが・・・

『詳説 正規表現　第2版』

Jeffrey E. F. Friedl　著
田和 勝　訳

2003年5月発行 -- 5月27日発売
464ページ
本体価格5,400円
ISBN4-87311-130-7

テキストやデータの処理に欠かせない強力なツールとして瞬く間
に普及した「正規表現」。現在ではPerl、Java、VB.NETやC#など
数多くの言語やツールに標準で装備されています。その幅広い可
用性、柔軟性と比類ない強力さにもかかわらず、実際に正規表現
を使いこなすことは難しいです。本書は正規表現の概念を詳細に
掘り下げる一方で、数多くの言語やツールの実例を示しながら、
正規表現についての理解を深める解説書です。第2版では、豊富
な実例を使い、詳しくていねいに解説するスタイルはそのままに、
Perl5.8の新機能に加え、Javaと.NETの正規表現にもそれぞれ独
立した章を設けるなど、全編にわたって大幅に加筆がなされまし
た。正規表現の本質を読み解く決定版です。とくに正規表現を使
いこなしていると自負している人にほど読んでほしい本です。

[246 名無しさん＠お腹いっぱい。 NG NG]

あれ？今日買ってきたんだけど27日発売だったのね…

[247 名無しさん＠お腹いっぱい。 NG NG]

>>246
つーことで発売記念age

[248 名無しさん＠お腹いっぱい。 NG NG]

素数にマッチする正規表現募集。

[249 名無しさん＠お腹いっぱい。 NG NG]

>>245
第1版と比較してのレビューきぼんぬ

[250 名無しさん＠お腹いっぱい。 NG NG]

>>249
> 2003年5月発行 -- 5月27日発売
とあるからまだ無理なのでは

[251 名無しさん＠お腹いっぱい。 NG NG]

>>248
正規表現だけでなく、なんかしら言語使ってやればよい。

[252 名無しさん＠お腹いっぱい。 NG NG]

>>248
何故敢えて茨の道を行くのか？

[253 名無しさん＠お腹いっぱい。 NG NG]

>>245
これの第１版買ったのですが、いまいち難しかったです。
もっと易しい本ってないですか？

[254 名無しさん＠お腹いっぱい。 NG NG]

>>253
Ruby の初・中級者なら、「Ruby Magic―Rubyで極める正規表現」はお勧め。

[255 245 NG NG]

>>249
第1版を持ってないので比較は出来ないっす。
# 買おうと思ったら第2版が出ることを知ったので待ったのだ。

ここに特徴や目次が紹介されているので見てもらうとして
  ttp://www.oreilly.co.jp/BOOK/regex2/
  ttp://www.oreilly.co.jp/BOOK/regex2/contents.htm

まえがきから第1版との違いを判断すると
  - Unicodeのちょっとした解説
  - Perl5.003からPerl5.8対応に
  - Java1.4のjava.util.regexと、その他6つの正規表現パッケージの比較
  - .NET framework正規表現の特徴と問題点、M$のドキュメント(貧弱らしい)の補足
のように言語サポートが新しくなった/増えたって感じ。

最初はHTMLのサンプルを少々追加する程度の予定(3ヶ月の見込み)だったみたいだけど、
結局は2年の歳月をかけて全面的に加筆修正することになったそうだ。

難易度は第1版と変わらないのではないかな？
# 読み易くなってるのかもしれないけど。。
>>253の期待には応えられないと思う。
> とくに正規表現を使いこなしていると自負している人にほど読んでほしい本です。
という宣伝文句があるくらいだしね。

>>250
いや、24日に買えたのよ。

[256 名無しさん＠お腹いっぱい。 NG NG]

今日発売か。
昼休みに買ってくるか。

[257 名無しさん＠お腹いっぱい。 NG NG]

>>256さん、どうですた？

[258 249 NG NG]

>>255 さんのと、今日立ち読みした感じで、第2版も購入することにしますた。
そういえば、翻訳者 (監訳者) が変わってたんですね。

[259 名無しさん＠お腹いっぱい。 NG NG]

sed のタグ付き正規表現についてちょっと教えれ。たとえば、

{________I'm_dreaming_of_a_White_Christmas_}
{_Just_like_the_ones_I_used_to_know__}
{____Where_the_tree_tops_glisten_}

の前後の余計な _ のトリミングをしようと思って
sed 's/{\(_*\)\(.*\)\(_*\)}/{\2}/g'
とやっても意図した結果にならない。\2 をうまくマッチさせる方法は?

まぁこの例なら簡単に逃げられる - たとえば sed 's/{_*/{/;s/_*}/}/' -
わけだが、apache の log とかの簡単なパース(並び替えとかそんな程度)を
タグ付き正規表現でさくっと処理できれば楽でうれしい。よろしく。

[260 名無しさん＠お腹いっぱい。 NG NG]

二個目の*がlongest matchしようとして
3個目の*にmatchさせたいであろう_まで持っていってしまうのが原因。

sed -e 's/{_*\(.*[^_]\)_*}/\1/'

[261 名無しさん＠お腹いっぱい。 NG NG]

'<,'>s@^@//@

[262 名無しさん＠お腹いっぱい。 NG NG]

最少マッチって perl とか ruby にしかない?
sed, grep 等の伝統的 tool にはないの?

[263 名無しさん＠お腹いっぱい。 NG NG]

>>262
ないよ

[264 名無しさん＠お腹いっぱい。 NG NG]

>>262
grepに最小一致の機能があったとして
それの魅力はイッタイ何なのだろうか？

[265 あぼーん NG NG]

あぼーん

[266 262 NG NG]

確かに sed では使っても grep では使わないかも。
いや、でも後方参照する時に必要なこともありえますね。

[267 名無しさん＠お腹いっぱい。 NG NG]

>>257
昼休みにいきつけの書店にいったが売ってなかったんで。
帰りに別の書店で買った。
でもまだ読んでない…
通勤時間に読むっつーてもあれを毎日持ち歩くのは
重たいしなぁ。

[268 名無しさん＠お腹いっぱい。 NG NG]

文字列中、丸括弧(全角、半角問わず)で閉じられた部分を取り出す表現を考えているけど、うまくマッチしてくれない。
(丸括弧の中に丸括弧は含まない。Perlの正規表現を使用)

$string = '（22（１）';
if($string =~ /[(（]([^()（）]*)[)）]/){
print $1;
}
else{
print "No match..";
}

この場合は"１"がマッチするのを期待しているのだけど、なぜか"22"の部分がマッチした。
ＯＳ(UNIX/WinXP)、Perlのバージョン(5.0/5.8)の異なる環境で同じことを確認したけど、結果は変わらず。
さらに、文字コード(Shift-JIS/EUC)の違いでも、結果は変わらなかった。

"１"をマッチさせる別の表現はないですかね？

＃ 全角"（"の中にどうも半角")"の文字が隠れてるのかなぁ？(あくまでも推測)

[269 名無しさん＠お腹いっぱい。 NG NG]

>>268
おめな、2byte文字と1byte文字が同じに扱われると思ってるらしいな。たぶん、
文系のドキュソだな。しかも、すぐ上で2byte文字コードの話出てたの見てね
えな。こいう、初心者質問は、webprogのPerl初心者スレ逝け。

[270 名無しさん＠お腹いっぱい。 NG NG]

>>268
Perl5.8.0 + UTF8 でやったら １ になったよ。

[271 名無しさん＠お腹いっぱい。 NG NG]

[ ] のなかに '-' と ']' の両方を入れたい場合はどうすればいいのですか？

[272 名無しさん＠お腹いっぱい。 NG NG]

>>271
何で?

[273 名無しさん＠お腹いっぱい。 NG NG]

>>271
[]-]

[274 名無しさん＠お腹いっぱい。 NG NG]

>>271
!.-[

[275 名無しさん＠お腹いっぱい。 NG NG]

保守

[276 名無しさん＠お腹いっぱい。 NG NG]

regexp ml盛り上がってますね。読んでて楽しい。

[277 名無しさん＠お腹いっぱい。 NG NG]

このスレはいつからまともな人たちをヲチするようになったのですか？

[278 名無しさん＠お腹いっぱい。 NG NG]

すいません、テキストファイルの中の .bananaなどの単語（行頭ではなく）の先頭が
ドットがあるものだけをgrepで抜き出したいのですが、jp.appleのような単語までひっかかって
しまい上手く絞り込めません。

アドバイスをお願いします！！

[279 名無しさん＠お腹いっぱい。 NG NG]

>>278
\b?\.\w+?
で、どうじゃろ？

[280 名無しさん＠お腹いっぱい。 NG NG]

>>279
すいません、なんか上手くいかないです。
ls -laでディレクトリ内の全ファイルを表示して、grepで隠しファイルだけを抽出したかったのですが。