Perl | quotemeta() Function

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-characters

Return:
a string with all meta-characters escaped



Example 1:

filter_none

edit
close

play_arrow

link
brightness_4
code

#!/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);

chevron_right


Output:

Original String: 
GF*
[.]*G

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

 
Example 2:

filter_none

edit
close

play_arrow

link
brightness_4
code

#!/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);

chevron_right


Output:

Original String: 
GF+n{.}/G

String after operation: 
GF\+n\{\.\}\/G
My Personal Notes arrow_drop_up

Recommended Posts:

    Article Tags :
    Practice Tags :


    Be the First to upvote.


    Please write to us at contribute@geeksforgeeks.org to report any issue with the above content.