正規表現道場@2ch Part2
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/11/24 22:57ID:LrbVcl3Yこのスレは有用そうな正規表現を紹介したり、どう表現したらいいかわからないときに
質問をしたりするためのスレッドです。
質問するときは使用言語や得たい結果をなるべく詳しく書きましょう。
リンクなどは>>2-5のあたりに。
0159nobodyさん
03/01/28 00:52ID:???$robots = "crawl4.googlebot.com";
if($robots =~ /crawl[\d]+\.googlebot\.com/ ){ print "kita----!!";}
をローカル環境でテストしてみる。
0160nobodyさん
03/01/28 16:58ID:Go6r3Mozそれから、後方一致で調べればいい。
↓普通はこう。googlebotドメインだったらいいんでしょ?
$ENV{REMOTE_HOST} =~ /\.googlebot\.com$/i
↓\dを使うなら、こう使う。\d = [0-9]なので
$ENV{REMOTE_HOST} =~ /crawl\d+\.googlebot\.com$/i
0161nobodyさん
03/01/29 11:03ID:aizQjUQ4$salt =~ s/[^\.-z]/\./go;
の [^\.-z] これって、具体的にはどれを表すんですか？
0162nobodyさん
03/01/29 13:00ID:w0j+LU9j./0123456789:;<=>?@
ABCDEFGHIJKLMNOPQRSTUVWXYZ
abcdefghijklmnopqrstuvwxyz
↑以外
0165nobodyさん
03/01/29 21:40ID:aizQjUQ4ありがとん。
0166nobodyさん
03/01/29 21:45ID:Jsuq0iRwで、$word に「エロ」を入れてやると、「トロ」という言葉にもマッチするんですが、
何故でしょうか？
0167nobodyさん
03/01/29 22:08ID:???最後の i のせい。
「エ」の２バイト目は "G"
「ト」の２バイト目は "g"
i をつけると大文字小文字を区別しなくなるので、この２つがマッチする。。
0168nobodyさん
03/01/29 22:11ID:???http://www.din.or.jp/~ohzaki/perl.htm#JP_Match
ここを読んでおけ
0169nobodyさん
03/01/29 23:18ID:???( ´_ゝ`）ﾌｰﾝ
能無し君がまだ初心者相手に威張る為ここに居たんですか。
まぁ分からない事聞かれて逆切れしてるような貴方にはここがお似合いですね。
（ ´,_ゝ`）ﾌﾟｯ
0171質問者
03/02/02 12:33ID:aPQL5QO2一回の検索で、マッチした文字列がどの条件にあたるかを知ることが出来る？
たとえば
対象文字列： abcdefg
検索語彙： (ab)|(fg)
こういうとき、"ab"と"fg"がマッチするということはわかるが
マッチした文字列がそれぞれどの条件だったのかを知りたい。
BREGEXP（Perl5）もしくはVBRegularExpressionで。
一回の検索では無理？
0173質問者
03/02/02 12:39ID:aPQL5QO2実はプログラム技術板から来た。
正規表現スレがあるのはこの板だけっぽい。
マッチ文字列を取得することは可能なのだが、
何にマッチしたのかを確かめるためにはどうすれば‥‥？
0174nobodyさん
03/02/02 12:42ID:???つぅか誘導したのはこの俺だ。
マッチさせたい文字列は自明（自分で設定したんだからな）なのだから後はifとeqで比較すればどうだ？
0175質問者
03/02/02 17:45ID:aPQL5QO2そか、どうも。
マッチした文字列を検索文字列と比較するということ？
>>171で書いた例についていえばそのとおりだが
正規表現でマッチさせたものについて知りたいので
単純にifで比較してもしょーがない。
(検索文字列が"a."などのとき、比較してもしょうがない)
かといって正規表現でテストするってのも二度手間だし。
正規表現でうまく書けば出来るとか、
普通そーゆー機能あるよ､とかいうことはないですかー？
0176nobodyさん
03/02/02 17:47ID:???$x =~ /(ab)|(cd)/;
if($1 eq "ab")
{
print("ab");
}
0177nobodyさん
03/02/02 17:56ID:???なるべく別々に処理を行うようにするけど。
VBとかの機能はマ板で訊いてください。
0179質問者
03/02/02 18:20ID:???ありがと。
もしかして知らないところで世の中便利になってて
一撃で出来るかなーと思ったのですが。
とりあえずあきらめときます。
0182nobodyさん
03/02/14 01:16ID:???0183nobodyさん
03/02/17 07:11ID:tFA1sH7Sという文字列を split して
[ 'hoge', 'piyo', 'foo\/bar', baka ]
という配列を得たいのですが、/ で split するけど \/ では split しない
ってのはどう表せますか？
0184nobodyさん
03/02/17 08:04ID:???0185nobodyさん
03/02/17 10:03ID:???バックスラッシュを一般化して使いたい場合を考えると 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ステートメントにするのもアリか。
0186183
03/02/17 11:44ID:???0187nobodyたん
03/02/18 01:11ID:???@hoge = split m[(?<!\\)/], $path;
0188nobodyさん
03/02/18 18:45ID:???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:???<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;
とか。もっと良いやり方ありそうだけど。
0190188
03/02/18 19:13ID:???あまりの睡魔に襲われて、今 コタツで寝ながら考えていたのですが、私の書き方だと strong 要素内に </p><p> がない場合を考えてないわけですよね。
本当に申し訳ございません・・・
>>189
有り難うございます。
教えて頂いた方法ですが、あとで勉強しながら考えてみます。
どうも私ではすぐには理解できそうにないもので。
とにかく有り難うございました。
0191nobodyさん
03/02/18 20:27ID:???0192nobodyさん
03/02/18 23:46ID:oZOSGD0m正規表現を勉強し始めた理由は、以下の質問からです。
192.168.1.8が、192.168.1.0/24 のネットワークアドレスに含まれているかどうかを
判定する正規表現を書くことは可能でしょうか。
よろしくおながいします。
0193nobodyさん
03/02/18 23:48ID:???0194nobodyさん
03/02/18 23:50ID:???ならtrueなのは自明だけど。
0195192
03/02/19 00:13ID:bka3cebnありがとうございます。やっぱし、正規表現よりは普通にプログラムで
やったほうが良いですか、、ちなにみJava使いです。んー、書いたことないので
なやみます。
0197nobodyさん
03/02/19 00:59ID:???0198nobodyさん
03/02/19 01:00ID:???0199nobodyさん
03/02/19 01:21ID:???0200192
03/02/19 02:16ID:bka3cebnええ、あれ、なんか、無視しちゃうような悪いことしちゃいましたか？
すいません、何かサンプル教えて下さるとうれしいす。。。
0201nobodyさん
03/02/19 02:23ID:???0202nobodyさん
03/02/19 16:59ID:oL6d+rQlという文字列があり、
name = 'hoge's name'の、内側の'だけをエスケープして置換えたいのです。
つまり
select * from testtable where name = 'hoge\'s name';
としたいのです。
ただし外側の'は必要ですのでエスケープしたくないのです。
込み入った例を書くと文字列が
name = ''''' and value = '''' の場合は、
name = '\'\'\'' and value = '\'\''
にしたいのですが、このような複雑な処理を正規表現で行うのは無理なのでしょうか？
0204nobodyさん
03/02/19 17:45ID:???> 込み入った例を書くと文字列が
> name = ''''' and value = '''' の場合は、
最大マッチでも難しそう・・・
0205nobodyさん
03/02/19 18:15ID:???SQL だと 文字リテラルのでてくる場所たくさんあるから
個数限定ってわけにもいかないし。
対になってるわけでもないし。
'' ' ' '' ' ' ' '
こんな文字列からクオートすべきのを見つけろ、ってのとかわらんもん。
どういう案件かはわかんないけど、
SQL に置き換える段階でクオートしなかったのが敗因ですね…
0206nobodyさん
03/02/21 12:55ID:6n4aSTAx了解です。
楽しようとせずSQL文を完成する前に
ひとつずつ置換えるようにします。
どうもでした。
0208nobodyさん
03/02/21 15:37ID:???0209nobodyさん
03/02/21 22:45ID:Kv1GvIlPそのなかに | があっても大丈夫ですか？
/(2ch\.net|1ch\.(com|org))/
みたいな・・
0211nobodyさん
03/02/21 23:19ID:???えっと・・あとどれをエスケープするんでしょうか？
この場合合致させたいのは
2ch.net
1ch.com
1ch.org
です
0213nobodyさん
03/02/22 10:01ID:???0214nobodyさん
03/02/22 10:12ID:???聞いた方がはやいやーってなっちゃうだろうね。
0216初心者質問者
03/02/22 17:49ID:Db6aP06Cダブルクォーテーション内部だけをマッチさせたいんですけど。
$1使わないと無理？
0219nobodyさん
03/02/24 12:33ID:fQYme6i5ある文字列から始まらない任意の文字列、というのは
どうなって書けばいいんでしょうか。
例えば、<a href...>以外のタグを見つけるといった場合ですが、
文字列a hrefから始まらない、という事で
/<[^(a href)][^>]*>/
という感じかと思ったんですが、これではダメなようなので･･･。
0221nobodyさん
03/02/24 18:51ID:???0222nobodyさん
03/02/24 22:21ID:???/<(?!a href).+?>/
0223nobodyさん
03/03/03 16:51ID:PjU+W5oKなんか「知らんヤツ書くな！！」とかで正しいのかどうか解りません。。
どなたかご教授お願いします。
言語：Perl 掲示板CGIを作っています。
やりたいこと：特定のタグ以外は無効にする。
私が考えた処理は・・・指定したタグの中身に合致しなかったら消す。
@yukotag = "('b'.'/b'.'u'.'/u')";
if ($value ne "<@yukotag>") {
$value =~ s/<(.*)>//g;
}
でもこれではそもそも動かない・・・エラーにはならないけど。
＃有効になるべきタグも消えてしまいます・
どうしたらよいのでしょう。
0224223
03/03/03 16:53ID:PjU+W5oKif ($value ne "<(b|\/b)>") {
$value =~ s/<(.*)>//g;
}
0225nobodyさん
03/03/03 16:55ID:???0226nobodyさん
03/03/03 17:27ID:???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
ではだめれすか？
0229nobodyさん
03/03/05 12:33ID:???$_ =~ /${kaigyou}{2,}/$nanika/g
0230227
03/03/05 12:37ID:???0232230
03/03/05 22:23ID:???if($a=~/\n{2,}/gs){print"OK!\n";}
?????????????????????????????
0234nobodyさん
03/03/05 23:36ID:???おいおい、「改行ニ回」ってそういう意味かよ。
上の回答者はみんな、あんたが「ふたつ（以上）連続する改行」に
マッチさせたがってると思ったんだよ、あんたの質問と例を読んで。
$a = "aaa\nddd\nfff\n";
if(($a =~ s/\n/\n/gs) >= 2) { print "OK!\n"; }
0235230
03/03/06 03:31ID:???激しく反省
0236nobodyさん
03/03/06 03:53ID:???((a.b)(c.d)(e(f(g.hij)))k) -> マッチ
((bcd))) -> だめ。
0238サチ
03/03/08 13:12ID:dLehQyhymy $count = 0;
foreach (@data) {
$count += $com =~/\Q$_\E/;
……
この ~/\Q$_\E/ ってどういう意味なのでしょうか？
厨房的な質問ですみません。
0240nobodyさん
03/03/08 13:20ID:???それは正規表現というよりPerlの作法。
\Q =英数字以外の文字の前に\を挿入する。
\E =\L,\U,\Qなどの終了
print "\Q$_\E";
とかで効果を見たほうが早いかも。
0241サチ
03/03/08 13:32ID:dLehQyhy本当にありがとうございます。
Perlの作法なのですか。
てっきり正規表現かと思ってました。(^_^;
どこかに参考となるURLありますか？
0244サチ
03/03/08 13:37ID:dLehQyhy思いまして… ごめんなさい。
0246サチ
03/03/08 13:54ID:???ありがとうございました。m(_ _)m
0247nobodyさん
03/03/08 14:56ID:???まあ、がんばれよ。
0249nobodyさん
03/03/08 15:13ID:???デスクトップリファレンスで良いかと。
0250nobodyさん
03/03/08 16:20ID:???同じオライリーなら詳説正規表現もお勧めだよ。
0251サチ
03/03/08 18:13ID:???お金がないので諦めました。
詳説正規表現ですか。。φ(．．)
0252nobodyさん
03/03/08 20:14ID:???本当に本１冊書けるし、実際に本が出てるんだよね。
それぐらい奥深いものなのかと。
0253nobodyさん
03/03/08 20:38ID:???他にも赤い表紙の奴とか、ｵﾗｲﾘｰ以外にも2、3冊ぐらい
正規表現の本を見かけたことがある。
0254177
03/03/08 20:46ID:???0255254
03/03/08 20:47ID:???0256nobodyさん
03/03/08 21:07ID:???あれ勉強してからチューンしたら性能が4割は上った。
はじめは馬鹿にしてたんだけどね。
0257nobodyさん
03/03/08 21:53ID:???正規表現はスクリプトの実行速度に影響を与えていることが
結構あったりしますので、コードチューニングには、いい本です。
しかし、入門には少々マニアックすぎるかも。
# 毒食えば皿までかな。
0258nobodyさん
03/03/09 00:39ID:???Perl5.6以降では(??{})でいけたような。
もはや「正規表現」とは言えないわけだがだいぶ前から
Perlの正規表現は厳密な意味で正規表現じゃないし
■ このスレッドは過去ログ倉庫に格納されています