Perlでは、文字列から連続する文字のペアを削除するにはどうすればよいですか？

Question

私は文字のペアを含む文字列を持っており、私はそれぞれの文字を単一の文字で置き換えたいと思います。どうやってやるの？

---

これはofficial FAQからquestionです。我々はimporting the perlfaq to Stack Overflowです。

Answer 1

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

Answer 2

（これはofficial perlfaq answerで、マイナス後続の編集）

あなたは文字のペア（または文字のランを）見つけて、単一のインスタンスでそれらを置き換えるために置換演算子を使用することができます。この置換では、文字は(.)にあります。メモリのかっこは、照合された文字をバックリファレンス\g1に格納します。これを使用して、同じものがすぐ後に続くことを要求します。文字列のその部分を$1の文字に置き換えます。

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

また、音訳演算子tr///を使用することもできます。この例では、tr///の検索リスト側には何も含まれていませんが、cオプションはそれを補完してすべてを含んでいます。置換リストには何も含まれていないので、置換は一切行われない（つまり、文字自体を置換する）ことがないため、字句解析はほとんど行われません。

私はどのように削除しますか：しかし、sオプションの重複カボチャや文字列の連続した文字は、その文字は、次の自分自身へ

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

Answer 3

これが最後の安定版リリースからperlfaq4からの答えです表示されません。連続する文字のペア？

（brian d foyによって寄贈されまし）

あなたは文字のペア（または文字のランを）見つけて、単一のインスタンスでそれらを置き換えるために置換演算子を使用することができます。この代入では、（。）に文字があります。メモリのかっこは、照合された文字をバックリファレンス\ 1に格納し、それを使用して同じものが直後にくることを要求します。文字列のその部分を$ 1の文字に置き換えます。

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

また、音訳演算子tr ///を使用することもできます。この例では、tr ///の検索リスト側には何も含まれていませんが、cオプションはそれを補完してすべてを含んでいます。置換リストには何も含まれていないので、置換は一切行われない（つまり、文字自体を置換する）ことがないため、字句解析はほとんど行われません。しかし、Sオプションのカボチャが複製され、そこではG`（中 `\のg1`）スリップ`ことをやったときに文字列の連続した文字は、その文字自体

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