パイプ以外をエスケープしてマッチ判定させる方法

解決済

質問者：meikenpochi
質問日時：2005/06/08 14:57
回答数：1件

|（パイプ）以外をエスケープしてマッチしているか判定をさせたいのですが、スマートな方法をご教授して頂けないでしょうか？

下記は、自分で作ってみたものですが、イマイチなので・・・

それと「?」「*」「+」「|」以外でも\Qでエスケープされない文字ってあるのでしょうか？

#!/usr/bin/perl

print "Content-type: text/html\n\n";
print<<"end";
<HTML><BODY>
end
$a = "http://www.excite.co.jp/index.html?12";
$b = "index.html?12";
$c = $a;
$c =~ s/\?/<-hatena->/g;
$c =~ s/\*/<-asuta->/g;
$c =~ s/\+/<-plus->/g;
$d=$b;
$d =~ s/\?/<-hatena->/g;
$d =~ s/\*/<-asuta->/g;
$d =~ s/\+/<-plus->/g;
if($c=~ m/$d/i){$match_j="ok";}

print<<"end";
a: $a 
b: $b 
c: $c 
d: $d
 ($c=~ /\Q$d\E/i)
 match:$match_j
</BODY></HTML>
end

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： leaz024
回答日時：2005/06/08 17:00

> |（パイプ）以外をエスケープしてマッチしているか判定をさせたい

正規表現用のエスケープ関数 quotemeta を使ってエスケープした後、| だけアンエスケープした文字列を使えばよいでしょう。

$d = quotemeta($b);
$d =~ s/\\\|/|/g;
if ($a =~ /$d/i) { $match_j = "ok" }

または | 区切りで分割し、それぞれの文字列をエスケープした後、| で連結するというのもありです。

$d = join '|', map quotemeta, split /\|/, $b;
if ($a =~ /$d/i) { $match_j = "ok" }

※共に $a は加工する必要がないので、$c は不要です。

> 「?」「*」「+」「|」以外でも\Qでエスケープされない文字ってあるのでしょうか？

「されない」ではなく「される」文字では？それらの文字は全てエスケープされますよ？
\Q や quotemeta でエスケープされないのは、\w にマッチする文字だけです。その他（\W にマッチする文字）は全てエスケープされます。