Perl/正規表現のエスケープの変更点

追加された行はこの色です。
削除された行はこの色です。
Perl/正規表現のエスケープへ行く。
Perl/正規表現のエスケープの差分を削除

#navi(Perl)

#html{{
<script type="text/javascript">
function doEscape()
{
	<!-- \ * . + ? ^ $ | / () {} [] をエスケープする。-->
	var srcStr = document.escForm.srcText.value;
	var pattern;
	if ( document.escForm.cbxSlash.checked == true ) {
		pattern = /[\\\*\.\+\?\^\$\|\/\(\)\{\}\[\]]/g
	} else {
		pattern = /[\\\*\.\+\?\^\$\|\(\)\{\}\[\]]/g
	};
	var escStr = srcStr.replace(pattern, function(p){return "\\"+p} );
	document.escForm.dest.value = escStr;
}
</script>
<br>
<form name="escForm">
<table>
<tr>
<td>元の文字列</td><td><textarea rows="1" cols="80" name="srcText">test\ test/ test$ {} {} () ...</textarea></td>
</tr>
<tr>
<td></td><td><input type="button" value="エスケープする↓" onClick="doEscape()"></td>
</tr>
<tr>
<td>エスケープ後</td><td><textarea rows="1" cols="80" name="dest"></textarea><td>
</tr>
</table>
<input type="checkbox" name="cbxSlash" checked> / (スラッシュ)をエスケープ対象にする。
</form>
}}

#vote(参考になった[0],参考にならなかった[0])
#vote(参考になった[1],参考にならなかった[0])

Perl/正規表現のエスケープ の変更点

Perl/正規表現のエスケープの変更点