正規表現道場@2ch Part2
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/11/24 22:57ID:LrbVcl3Yこのスレは有用そうな正規表現を紹介したり、どう表現したらいいかわからないときに
質問をしたりするためのスレッドです。
質問するときは使用言語や得たい結果をなるべく詳しく書きましょう。
リンクなどは>>2-5のあたりに。
0137nobodyさん
03/01/22 11:44ID:???foreach(@hoge)
{
if(/^.*key.*$/)
{
push(@a,$_);
}
}
で、良いじゃん。正規表現が合ってるかはは知らんけれど
0138nobodyさん
03/01/22 12:04ID:Lm4zDQtUgrepが使えたらこんな事はしないかと。
>>137
if等は使えないんですよ。
つまりエディタの検索、置換えに指定する事でgrepするようなものです。
0140nobodyさん
03/01/22 14:10ID:Lm4zDQtU例えですけど、メモ帳の置換えでif使えますか？
マクロじゃないですので使えないです。
0144nobodyさん
03/01/22 15:59ID:???0145nobodyさん
03/01/22 16:47ID:Lm4zDQtU何か大きく勘違いなされてるようで。
とにかく、1行(s/find/rep/)の構文だけでgrepと同じ事を出来ないかと言う事です。
スクリプトを組めるなら最初からそうしますが
制約上そのような事ができません。
0147nobodyさん
03/01/22 17:30ID:Lm4zDQtUどういう事でしょうか？
0148nobodyさん
03/01/22 17:36ID:???はじめから落ち着いて、
・一体どんなアプリケーションを作っているのか。
・一体そのアプリケーションのどの処理で悩んでいるのか。
・ifが使えない制限とは？
位は書いてくれい。
0149nobodyさん
03/01/22 17:56ID:Lm4zDQtU・使ってるソフト。
よくあるファイル一括書換えソフト。
・やりたい事
メモ帳の置換え(CTRL+H)のような感じで
検索する文字と置換えする文字を指定する事で
ファイルの内容を一気に高速で書き換えられる。
検索文字列及び置換え文字列はBREGEXP.DLLを使う事で
Perlと同等の置換えが指定できる。
その検索文字列と置換え文字列の指定方法。
・IFが使えない理由。
メモ帳のように検索文字と置換え文字を指定する事しか出来ない為。
ソフトを作ってる訳ではなく使っているだけ。
です。以上で分かって頂けるでしょうか？
0151nobodyさん
03/01/22 18:06ID:Lm4zDQtU何故無理と言い切れるのでしょうか？
0152nobodyさん
03/01/22 18:18ID:???0153nobodyさん
03/01/22 22:05ID:NkPjRdCp正規表現は、置換にも使えると聞き、検索っていうとこで、正規表現をオンにして、
自慢のコードをつっこんでみたが、ちゃんと動かないので、調べるのは面倒だから、
2chに書き込んでみた。でどうだ。
で、さらに、正規表現∈Perlだと思っている。と。
ｷﾎﾞﾝﾇって言えば仲間になるから大丈夫だと思っていたら大間違いだぞ。
0158nobodyさん
03/01/28 00:31ID:2+2ZA9Prif($ENV{'REMOTE_HOST'}=~/crawl[\d]+\.googlebot\.com/){⊥}
でいいのけ？
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))) -> だめ。
■ このスレッドは過去ログ倉庫に格納されています