Perl quotemeta()用法及代码示例

Perl中的quotemeta()函数将作为参数传递给它的值中的所有元字符转义。

例：

Input:"GF*..G" 
Output:"GF\*\.\.G"

用法： quotemeta(value)

参数：
value:包含元字符的字符串

返回：
包含所有元字符的字符串

范例1：

#!/usr/bin/perl -w 
$string = "GF*\n[.]*G"; 
  
print "Original String:\n"; 
print $string; 
  
# Applying operation on the String 
print "\n\nString after operation:\n"; 
print quotemeta($string);

输出：

Original String:
GF*
[.]*G

String after operation:
GF\*\
\[\.\]\*G

范例2：

#!/usr/bin/perl -w 
$string = "GF+n\{.}/G"; 
  
print "Original String:\n"; 
print $string; 
  
# Applying operation on the String 
print "\n\nString after operation:\n"; 
print quotemeta($string);

输出：

Original String:
GF+n{.}/G

String after operation:
GF\+n\{\.\}\/G

相关用法

注：本文由纯净天空筛选整理自Code_Mech大神的英文原创作品 Perl | quotemeta() Function。非经特殊声明，原始代码版权归原作者所有，本译文未经允许或授权，请勿转载或复制。