トップページ⇒php
986コメント301KB

正規表現道場@2ch

■ このスレッドは過去ログ倉庫に格納されています
0001ヽ(´▽｀)ノ2001/07/26(木) 09:03ID:???
以外と毛嫌いして居る人も多そうな正規表現、
でもperlを使いのなす上で避けて通れない道だったりするかもです。
そこで、スクラップブック的に目に止まったカッコイイ正規表現を
書き留めておこうと言うスレッドです。
質問する時は言語と、得たい結果をなるべく詳しく書いてね。

取り合えず僕が知ってる有用なリンクです。
http://www.din.or.jp/~ohzaki/perl.htm
http://www.kt.rim.or.jp/~kbk/regex/regex.html

もっとｲｲ（・∀・） リンクは>>2-10さん辺りが書いてくれるカモ････
0593nobodyさん02/09/05 14:36ID:87M5TYG6
>>592
上の例だとマッチするが…
下記に確認に使ったソースを載せとく。

他に何か言い忘れてる事ある？
マッチさせたくてさせられなかった文字列はどんな？

#! /usr/local/bin/perl

print "Content-type: text/plain\n\n";

$hoge = '＞あああ　＞おおお;';
$hoge =~ s|(＞(?![^;]+＞)[^;]+);|<font color=blue>$1</font>|g;

print "$hoge";
059458102/09/05 14:40ID:qJJ4ywe1
>>592
すいません
バッチリでした。
ちょっとぜんぜん関係ないところでミスってました。

本当に申し訳ありませんが、もうひとつだけ条件追加させてください。

＞と;の間で改行したらマッチしないようにしたいです。
この場合の改行は<br>なので改行コードではないです。
だから簡単だと思ったのですが、「<br>」という文字列を丸ごと指定する方法が
わかりません。

こまった。
0595nobodyさん02/09/05 14:53ID:87M5TYG6
>>594
$hoge =~ s%(＞(?![^;]*(?:＞|<br>))[^;]*);%<font color=blue>$1</font>%ig;

どこに<br>が入ってるかわかんないので+を*に変えといた。
ので、＞;でもマッチしてしまうが。
059658102/09/05 15:11ID:qJJ4ywe1
まじで感謝です
＞;でマッチするのはぜんぜんOKです。

ありがとうございました！
0597nobodyさん02/09/05 16:03ID:???
2バイト目が81の文字の後に1バイト目が84の文字が続くと
＞の部分にマッチしてしまう罠。
0598nobodyさん02/09/05 17:50ID:???
>>597
（　´,_ゝ`） ﾌﾟｯ アサハカさんですね
0599nobodyさん02/09/14 03:35ID:ptF5alUd
$QUERY{'hd'}が「あ」だったら
あほ、あへへ、とかにヒットするようにしたいんですが、やり方わかりません。
if ($DB[$key] =~ /^$QUERY{'hd'}.*/) 〜
とかやってみました。ぜんぜんだめです。「{」は「\{」って書くんですか？
やってみたけどだめでした。どやってやったらいいですか。
0600名無しさん＠Ｍｅａｄｏｗ02/09/14 08:27ID:???
>>599
条件をもっと正確に書きましょう
「あほ、あへへ、とか」って？
$DB[$key]が「あ」で始まる任意の文字列にマッチする場合ということなら
if ($DB[$key] =~ /^$QUERY{'hd'}.*/) 〜
これでええです。
エラーをもっと正確に書きましょう
「ぜんぜんだめです。」って？
エラーメッセージを見ればほとんどのことは分かるんです

0601nobodyさん02/09/14 16:49ID:???
^ はいらないんじゃない？
0602名無しさん＠Ｍｅａｄｏｗ02/09/14 21:28ID:???
>>601
$ perl -e '$var="abc"; if ($var=~/b/){print "601 is an aho!\n";}'
601 is an aho!
0603名無しさん＠Ｍｅａｄｏｗ02/09/14 21:30ID:???
$ perl -e '$var="abc"; if ($var=~/^b/){print "601 is an aho!\n";} else {print "
601 is God!\n";}'
601 is God!
0604nobodyさん02/09/15 00:00ID:???
>>602 がah(略
0605名無しさん＠Ｍｅａｄｏｗ02/09/15 07:34ID:???
>>602, >>603はGod
>>604はdoah（略
0606nobodyさん02/09/16 22:01ID:l9cfV4Lx
文字列置換で置換後に\1を参照した直後に1を挿入したいのですが、\11と書いたら
だめでした。どうやって書けばいいですか。よろしくお願いします。
$error_flags = "0000000000000";
$error_flags =~ s/^(\d{1})\d{1}(\d{11})$/\11\2/g if ($QUERY{'form_v2'} eq "");
$error_flags =~ s/^(\d{2})\d{1}(\d{10})$/\11\2/g if ($QUERY{'form_v3'} eq "");
0607nobodyさん02/09/16 22:10ID:???
${1}1$2
0608nobodyさん02/09/16 22:16ID:???
おお、なるほど。そんな書き方でしたか。やってみます。
どうもありがとうございます。
0609nobodyさん02/09/17 02:24ID:QLf2zkHZ
３文字の数字のみにマッチをしているのですが、できません。

if($word=~/^[0..9]{3,3}$/){ print"ok";}

\dなど使わないでこの形式で正して下さい。
0610名無しさん＠Ｍｅａｄｏｗ02/09/17 02:42ID:???
>>609
相当の初心者さんですね
[0-9]{3}
0611nobodyさん02/09/17 03:51ID:QLf2zkHZ
>>610
できた。できた。ありがとうございます。{3,3}でもできた。
0612nobodyさん02/09/17 08:17ID:???
>>611
>{3,3}でもできた。
そりゃできるだろうけど、「3文字の数字」を探すときにわざわざ
「3文字以上3文字以下の数字」って書くのはちょっとね。
0613nobodyさん02/09/17 09:33ID:???
少し前に、Web製作板のJavaScriptスレでも同じ質問があったな…
0614nobodyさん02/09/17 11:32ID:???
>>610
なかなかの初心者さんですね
\d\d\d
0615nobodyさん02/09/17 12:25ID:???
>>614
な（略）
\d{3}
0616名無しさん＠Ｍｅａｄｏｗ02/09/17 12:33ID:???
>>614, >>615
不合格！！
よく問題を読みましょう.
\dを使わずにやれとある
0617nobodyさん02/09/17 12:37ID:???
なんてこっﾀ━━━━━(ﾟ∀ﾟ)━━━━━ｲ!!!!
0618nobodyさん02/09/18 11:38ID:???
[0-9][0-9][0-9]
0619nobodyさん02/09/18 18:06ID:???
[0123456789][0123456789][0123456789]
0620nobodyさん02/09/22 08:08ID:GGE38Iwz
初心者ですいません。

12345 や 67890 や at41n や hyrdf985 や s4r などの文字列を

12 67 at hy s4

のように先頭の２文字だけに変換させるのはどうしたらよいでしょうー。
substr使えやｺﾞﾙｧ といわずに、正規表現でやってみたいのです。
何文字あるのかわからないため、...$ などは使えないし。
s/^..// なんてやると２文字だけ消えてしまうし、、
$_ = '1234567';
/(^..)/;
ってやれば、$_ = $1 でできるかもしれないけど、こんな手間かけるのもアレやし、、

s/先頭の２文字でない文字//;

とかやりたいの。
0621名無しさん＠Ｍｅａｄｏｗ02/09/22 08:32ID:t+76B0UP
>>620
s/(^..).+/$1/
じゃ不満？
0622nobodyさん02/09/22 08:39ID:GGE38Iwz
>>621
それでもOKです、ありがとう！！！
でも、対象文字列が２文字でもOKです？
一応、対象となる文字列は「最低２文字はある」ということを前提にしてもよいです。

.+ って0文字でもよい？
0623名無しさん＠Ｍｅａｄｏｗ02/09/22 08:43ID:t+76B0UP
そならs/(^..).*/$1/だよね。
.+は1文字以上。

0624nobodyさん02/09/22 08:53ID:GGE38Iwz
>>623
そうかー、さんきゅー助かった！
迷惑ついでにもうひとつ聞くけど、
substr使うより、正規表現使ったほうが処理早い？

「何文字かの文字列を先頭の２文字だけに変換する」
という処理を数千件行うんだけど、どっちが早い？
数千件程度じゃあんまり変わらんかｗ
0625名無しさん＠Ｍｅａｄｏｗ02/09/22 09:03ID:t+76B0UP
>>624
死らん。やってみて報告キボンヌ。
$start=time();
while(<>) {
s/(^..).*/$1/; #または、substr($_, 0, 2);
}
$end=time();
print $end-$start, "\n";

0626nobodyさん02/09/22 09:11ID:GGE38Iwz
>>625
数千件と言いながら3357件しかないので、
たいして変わんなかったｗ
期待はずれｽﾏｿ

0627名無しさん＠Ｍｅａｄｏｗ02/09/22 09:12ID:t+76B0UP
>>642って書いたけど、その後の処理の内容が問題じゃん。
s///は$_が変化している。substrはそのまま。
$_にさらに処理を加えるなら、s///にしなきゃだめだけど
最初の2文字出すだけならprint substr...の方が早いっしょ。
0628nobodyさん02/09/22 09:20ID:GGE38Iwz
>>627
そかそか、勉強になった、さんくすｺ
0629nobodyさん02/09/22 19:02ID:???
正規表現は基本的に遅いよ。
他のやり方でやろうとすると数行並べなきゃならなくなるような
処理なら素直に正規表現使った方が速くなることもあるけど。

use Benchmark;
timethese(500000,{
1=>q{
$hoge = '123456789';
$hoge =~ s/^(..).*/$1/;
},
2=>q{
$hoge = '123456789';
$hoge = substr($hoge,0,2);
}
});
Benchmark: timing 500000 iterations of 1, 2...
1: 20 wallclock secs (20.69 usr + 0.00 sys = 20.69 CPU) @ 24167.43/s (n=500000)
2: 3 wallclock secs ( 3.55 usr + 0.00 sys = 3.55 CPU) @ 141003.95/s (n=500000)
0630名無しさん＠Ｍｅａｄｏｗ02/09/23 10:25ID:???
>>629
べんきょになりましたm(__)m
0631nobodyさん02/09/23 14:48ID:???
JRE32v1.17で

std::string
string
std::vector
vector

にヒットする正規表現がわかりません・・・

(std::)?string|vector

だと、std::が付いてないヤツにヒットしないです
0632nobodyさん02/09/23 14:50ID:???
(std::|)?string|vector













063363102/09/23 14:54ID:???
>632
そ・・・そんな単純な事なのか・・・
ありがとうございました
0634名無しさん＠お腹いっぱい。02/09/24 23:42ID:???

きっと誰かやってると思うんだけど、日本語を含む文字列中の , . など
区切り文字を空白に置換する正規表現を教えてください。
できれば、。「 」なんかもできるといいです。
0635nobodyさん02/09/24 23:58ID:???
>>634
tr/,./ /;
s/\x81[\x40-\x42]/ /g;#SJIS
0636nobodyさん02/09/25 00:03ID:???
s/\x81[\x40-\x42]|[^\x81-\x9f][,.]/ /g;#SJIS
0637nobodyさん02/09/25 00:11ID:???
>>636
（　´,_ゝ`） ﾌﾟｯ
063863602/09/25 00:13ID:???
あ、いろんな意味でダメだこれ。
0639名無しさん＠お腹いっぱい。02/09/25 00:16ID:???

>635-636
すみません。EUC-JPなんです。
とりあえず、JIS X 208の01-03区は記号っぽいので、
tr/,./ /;
s/[\xA1-\xA3][\xA1-\xFE]/ /g;
とやってみましたが日本語が化ける場合があります。
064063702/09/25 00:25ID:???
では、わたしから

s/[.,]|\xa1[\xa2\xa3\xd6\xd7]/ /g;
0641nobodyさん02/09/25 00:42ID:???
>>640
「◆□」とかの\xa2\xa1\xa2\xa2みたいに並んだ文字で誤変換するぞ
0642nobodyさん02/09/25 00:47ID:???
区の指定と点の指定を区別せにゃならんな。
064363702/09/25 00:58ID:???
そこまで完璧に処理するとなるとオーバーヘッドがでかくなるんでないかな
一応以下のやつではどうだ？（１６進と８進がいりまじってるけどきにするな）

s/([.,]|\xa1[\xa2\xa3\xd6\xd7])|(\216[\241-\337]|\217?[\241-\376].|.|\n)/$1?' ':$2/ge;
0644nobodyさん02/09/25 01:05ID:???
この辺嫁。
http://www.din.or.jp/~ohzaki/perl.htm#JP_Match
0645名無しさん＠お腹いっぱい。02/09/25 01:50ID:???

>>640-644
レスありがとうございます。
>>644のリンク先に書いてある方法で、
s/\G((?:$ascii|$twoBytes|$threeBytes)*?)(?:[\x20-\x2F\x3A-\x40\x5B-\x60\x7B-\x7F]|[\xA1-\xA3][\xA1-\xFE])/$1 /g;
でうまくいきそうです。
0646nobodyさん02/09/29 19:27ID:knautRXm
URLに使える文字がエスケープされていたら(%7Eとか%2Eとか)
元に戻す( ~ とか . とかに)という処理を正規表現で行えますか?
0647nobodyさん02/09/29 19:35ID:???
(ﾟдﾟ)ﾊｧ?
URLデコードで検索しろや。
0648nobodyさん02/09/29 20:32ID:knautRXm
URLデコードだとデコードしたら意味が変わる文字までデコードしちゃうじゃないですか。
安全にデコードできるパターンだけを元に戻したいんですけどそういう判定を
正規表現でできますか? という質問。
0649nobodyたん02/09/29 21:46ID:???
>>648
できる。
0650nobodyさん02/09/30 09:51ID:???
>>648
ふつーは単純にURLでコードすりゃいいだろ。
何か特殊な事情があるならやりたいことを詳しく書け！
0651nobodyさん02/09/30 12:56ID:???
>>648
指定が面倒そうだから一度エンコードしてデコードし直せば？
s/%([a-f\d]{2})/pack("H2",$1)/ieg;
s|([^\w/\.&%?~+=:@#\-])|'%'.unpack("H2",$1)|eg;
065265102/09/30 12:58ID:???
違う、デコードしてエンコードし直す、だな。
0653nobodyさん02/10/01 01:46ID:m9+B5ZAC
>>650
URLを同一性チェックのために正規化したいんです。
>>651
それだと最初はエンコードされてなかった / とか # とかも
エンコードされてしまいまつ…
0654nobodyさん02/10/01 01:57ID:???
>>653
意味わかって言ってる？
>>651のは「\w/.&%?~+=:@#-」以外の文字をエンコードするって
意味だぞ。
0655nobodyさん02/10/01 10:50ID:???
>>654
ごめん '[' とか ']' とかが、とでも読み替えてください
0656nobodyさん02/10/01 10:56ID:???
ていうか最初は %2F にエンコードされてた / が
デコードされてしまうのでやっぱり困ります。
同一視されては困るからエンコードしてるのに
区別がつかなくなっちゃう。
0657nobodyさん02/10/01 12:21ID:???
>>656
だから意味考えろって。
'[' ']'をエンコードさせたくないなら[^〜]の中に
\[\]を加えればいいだけだろ。
/はエンコードしたいなら[^〜]の中の/を外せばいいだろ。
お前の頭にゃ何が詰まってんだ？
エンコードしたくないものを[^〜]の中に並べるだけ。
>>651のはただの一例だろ。実際に何を並べるかくらい自分で考えろ。
0658nobodyさん02/10/01 12:31ID:???
>>656
同一視って、何と何が？
0659nobodyさん02/10/01 12:35ID:???
>>656まずは例を出してみようよ。この文字列を
このようにしたい、って感じで。

君の説明わかんないよ。
0660nobodyさん02/10/01 12:48ID:???
＞URLに使える文字がエスケープされていたら(%7Eとか%2Eとか)
＞元に戻す( ~ とか . とかに)という処理を正規表現で行えますか?

＞ていうか最初は %2F にエンコードされてた / が
＞デコードされてしまうのでやっぱり困ります。

このへんが特にわからないね。
URLで使える文字を戻したいんじゃ無かったのか？
0661nobodyさん02/10/01 12:59ID:???
質問しとる方も何がしたいのかわかってないんちゃうか？
0662nobodyさん02/10/01 15:00ID:???
>>657-660
最初が「/%2F」なら「//」でも「%2F%2F」でもなくて
「/%2F」のままなるようにしたいんです。文字クラスに
足したり引いたりするだけでそんなこと出来ますか?
「~%7E」は「~~」にしたいです。
そのままにしたい文字(「/」のような)と統一したい文字
「~」のような)を区別する基準は、RFC2396のunreservedに
含まれるか否かです。

たとえば「/%7Ehoge」と「/~hoge」は同じURIだから、
この変換を掛けた後はどちらも同じ文字列にしたいけど、
「a/index.html」と「a%2Findex.html」は違うURIだから
同じになっては困るということです。
0663nobodyさん02/10/01 15:42ID:???
>>662
my %reserved = map { unpack('H2',$_) =>1 } qw(; / ? : @ & = + $ ,);
s/%([0-9A-Fa-f][0-9A-Fa-f])/$reserved{lc $1}?"%$1":pack('H2', $1)/eg;
こんなとこか？
0664nobodyさん02/10/02 03:14ID:???
>a%2Findex.html
このURL自体がありえないと思う。
0665nobodyさん02/10/02 12:06ID:???
>>664
Mac OS 9のサーバなら十分にありうる。
RFC 2396的にも別に禁止されてない。
0666nobodyさん02/10/02 12:07ID:???
つか /　が気に入らないなら別の文字当てはめてみろよ。
# と %23 が同一視されたらまずいのは明らかだろ。
0667nobodyさん02/10/06 00:18ID:uZEZ57G8
もっとも後ろにある , 以降の文字列を削除する正規表現を教えてください。

例
12345,67890,12345,67890 →　12345,67890,12345
aaa3,5567,3333333,aser567　−>　aaa3,5567,3333333
dser6f,ghhs,,asfa,wfdw,,,,asf -> dser6f,ghhs,,asfa,wfdw,,,
0668nobodyさん02/10/06 00:21ID:???
s/,[^,]*$//;
0669nobodyさん02/10/06 00:36ID:???
>>668
thx
0670nobodyさん02/10/06 01:34ID:uZEZ57G8
連ｶｷｽﾏｿ。
６個目の , 以降の文字列を削除する正規表現について。

例
11111,22222,33333,44444,55555,66666,77777
　→　11111,22222,33333,44444,55555,66666

11111,222,33333,4444444,55,6 → (これはそのまま)

,,,,,,,,,,11111　→　,,,,,

この正規表現を作ってみたんですが

s/([^,]*)(,[^,]*)(,[^,]*)(,[^,]*)(,[^,]*)(,[^,]*).*/$1$2$3$4$5$6/;

もっとスマートな書き方ありませんか？
0671nobodyさん02/10/06 01:49ID:???
s/([^,]*,[^,]*,[^,]*,[^,]*,[^,]*,[^,]*.*/$1/;
0672nobodyさん02/10/06 01:49ID:???
括弧を消しすぎた
s/([^,]*,[^,]*,[^,]*,[^,]*,[^,]*,[^,]*).*/$1/;
0673nobodyさん02/10/06 02:10ID:???
s/^((?:[^,]*,){5}[^,]*).*$/$1/;
0674nobodyさん02/10/06 02:12ID:UBZ5BN7L
chop($st = $1) if $st =~ /^((.*?,){6})/;
とか。
0675名無しさん＠Ｍｅａｄｏｗ02/10/06 02:15ID:???
>>674
くそ、さき越された。早く寝ろてめえら。
0676hmk02/10/06 02:15ID:???
>>674
キャ〜カッコイイ！！
0677nobodyさん02/10/06 02:18ID:uZEZ57G8
>>674 の案を頂き。thx
0678名無しさん＠Ｍｅａｄｏｗ02/10/06 02:35ID:???
>>674
しかしだな、
$st =~ s/^((.*?,){6}).*/$1/;
の方が普通やね。やっぱ、俺の方が（略
0679nobodyさん02/10/06 02:41ID:???
>>678
末尾に残るカンマの処理はどうお考えで?
0680名無しさん＠Ｍｅａｄｏｗ02/10/06 02:53ID:???
>>679
む、やっぱ、あんた=>>674?の方が（略
0681nobodyさん02/10/06 02:57ID:QWnMytEq
サクラエディタで、JSP／ASPのスクリプト部分を色指定しようと試しているのですが巧くいきません。
<%.*%>でオーケーとか軽く考えていたのですが、.は改行文字にはマッチしないのですね。
改行文字も含めてとにかく全部マッチさせるにはどうしたらいいのでしょうか？

＃サクラスレではレスが付きませんでした(T_T)
0682nobodyさん02/10/06 03:16ID:???
>>681
改行コードに色は付きません。
改行コードの正規表現は、
windows: \r\n, unix: \n, Mac]\r
です。
0683nobodyさん02/10/06 03:17ID:???
あ、×Mac]\r -> ○Mac: \r
0684nobodyさん02/10/06 03:25ID:???
htmlで改行コードを表示するんなら、６８２、６８３で書いた
ものに代替文字を当て、そいつに色タグを付けるようにしる。
0685nobodyさん02/10/06 03:53ID:QWnMytEq
>>682
ごめんなさい、ちょっと書き方が悪かったですね。
<%.*%>と指定しても、<%と%>に挟まれた文字に色がつかないんです。
それで、改行が挟まっているのでマッチしないのか、と思い>>681を書いたのですが……

私、根本的に間違っているのでしょうか？(^^;
0686nobodyさん02/10/06 04:07ID:???
>>684
そいじゃ、「改行文字も含めてとにかく全部マッチさせる」じゃなくって
「改行文字を除いた部分にマッチさせる」じゃねーかよ。日本語大丈夫？
<%.*%>の中に改行が入っているかどうかなんて見れば分かるだろ。
それが確かに原因だと確かめられてから質問しろ。改行を挟む文字列を
連結するにはどうすればいいですかってな。
質問の仕方じゃ、どっかでレスが付かなかったのも当然だよ。


0687nobodyさん02/10/06 04:31ID:???
/<%.*%>/s;
とかいうレベルの話じゃないの
0688nobodyさん02/10/06 04:34ID:???
質問の仕方じゃ→こんな質問の仕方じゃ
我はもう寝る
0689nobodyさん02/10/06 04:35ID:???
ってPerlじゃないのか
0690nobodyさん02/10/13 00:14ID:w3kn3Su/
Perlの正規表現で
0から始まらない数字だけの文字列
ってどう表現すればいいですか？
※001とか0930とかは駄目ってことです。
0691nobodyさん02/10/13 01:08ID:???
/^[1-9]\d*$/
069269002/10/13 01:19ID:w3kn3Su/
↑あーなるほど！
ありがとう！
■ このスレッドは過去ログ倉庫に格納されています