quotemeta
quotemeta EXPR
記号類(_ A〜Z a〜z 0〜9 以外)の前にバックスラッシュ(\)を追加ししたものを返します。
EXPRを省略すると$_が対象になります。
サンプルプログラム
my $foo = 'foo@example.com'; print quotemeta $foo, "\n"; # foo\@example\.com # \Q にも同じ効果があります print "\Q$foo\E", "\n"; # foo\@example\.com
my $foo = 'foo@example.com'; print quotemeta $foo, "\n"; # foo\@example\.com # \Q にも同じ効果があります print "\Q$foo\E", "\n"; # foo\@example\.com