En Perl, ¿cómo elimino pares consecutivos de caracteres de una cadena?

Question

Tengo una cadena que contiene pares de caracteres y me gustaría reemplazar cada ejecución por un solo carácter. ¿Cómo puedo hacer eso?

---

Esta es una question del official FAQ. Somos importing the perlfaq to Stack Overflow.

Answer 1

$str=~ s/(.)\1+/$1/g; 

Answer 2

(Este es el official perlfaq answer, menos las ediciones posteriores)

Usted puede utilizar el operador de sustitución para encontrar los pares de caracteres (o series de caracteres) y reemplazarlos con una sola instancia. En esta sustitución, encontramos un personaje en (.). Los paréntesis de memoria almacenan el carácter coincidente en la referencia posterior \g1 y lo usamos para exigir que lo siga inmediatamente. Reemplazamos esa parte de la cadena con el personaje en $1.

s/(.)\g1/$1/g; # 5.10 or later 
s/(.)\1/$1/g; # earlier versions 

También podemos utilizar el operador de transliteración, tr///. En este ejemplo, el lado de la lista de búsqueda de nuestro tr/// no contiene nada, pero la opción c lo complementa así que contiene todo. La lista de reemplazo tampoco contiene nada, por lo que la transliteración es casi nula ya que no hará ningún reemplazo (o más exactamente, reemplazará al personaje consigo mismo). Sin embargo, los s calabazas opción duplicados y caracteres consecutivos en la cadena para un personaje no aparece junto a sí

my $str = 'Haarlem'; # in the Netherlands 
$str =~ tr///cs;  # Now Harlem, like in New York 

Answer 3

Ésta es la respuesta de perlfaq4 de la última versión estable:

¿Cómo se quita pares consecutivos de personajes?

(aportado por Brian D Foy)

Usted puede utilizar el operador de sustitución para encontrar los pares de caracteres (o series de caracteres) y reemplazarlos con una sola instancia. En esta sustitución, encontramos un personaje en (.). Los paréntesis de memoria almacenan el carácter coincidente en la referencia-atrás \ 1 y lo usamos para requerir que lo siga inmediatamente. Reemplazamos esa parte de la cadena con el personaje en $ 1.

s/(.)\1/$1/g; 

También podemos utilizar el operador de transliteración, tr ///. En este ejemplo, el lado de la lista de búsqueda de nuestro tr /// no contiene nada, pero la opción c complementa eso para que contenga todo. La lista de reemplazo tampoco contiene nada, por lo que la transliteración es casi nula ya que no hará ningún reemplazo (o más exactamente, reemplazará al personaje consigo mismo). Sin embargo, las calabazas opción s duplicados y caracteres consecutivos en la cadena para un personaje no aparece junto a sí

my $str = 'Haarlem'; # in the Netherlands 
$str =~ tr///cs;  # Now Harlem, like in New York