perl | Función quotemeta()

La función quotemeta() en Perl escapa a todos los metacaracteres en el valor que se le pasa como parámetro.

Ejemplo:

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

Sintaxis: quotemeta(valor)

Parámetro:
valor: string que contiene metacaracteres

Retorno:
una string con todos los metacaracteres escapados

Ejemplo 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);

Producción:

Original String: 
GF*
[.]*G

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

 
Ejemplo 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);

Producción:

Original String: 
GF+n{.}/G

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