quotemeta() function in Perl escapes all meta-characters in the value passed to it as parameter.
Example:
Input : "GF*..G" Output : "GF\*\.\.G"
Syntax: quotemeta(value)
Parameter:
value: String containing meta-charactersReturn:
a string with all meta-characters escaped
Example 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 );
|
Output:
Original String: GF* [.]*G String after operation: GF\*\ \[\.\]\*G
Example 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 );
|
Output:
Original String: GF+n{.}/G String after operation: GF\+n\{\.\}\/G