在Perl中，如何用數組中的一個元素替換重複序列？

Question

我有我讀喜歡的字符串：

a+c+c+b+v+f+d+d+d+c 

我需要的，因此在分割的+寫程序，然後刪除重複的，因此輸出爲：

acbvfdc 

我已經嘗試tr///cs;，但我想我沒有正確使用它？

Answer 1

#!/usr/bin/env perl 

use strict; use warnings; 

my @strings = qw(
    a+c+c+b+v+f+d+d+d+c 
    alpha+bravo+bravo+bravo+charlie+delta+delta+delta+echo+delta 
    foo+food 
    bark+ark 
); 

for my $s (@strings) { 
    # Thanks @ikegami 
    $s =~ s/ (?<![^+]) ([^+]+) \K (?: [+] \1)+ (?![^+]) //gx; 
    print "$s\n"; 
} 

輸出：現在

a+c+b+v+f+d+c 
alpha+bravo+charlie+delta+echo+delta 
foo+food 
bark+ark

，可以分割字符串，並且沒有使用split /[+]/, $s重複的序列，因爲的split第一個參數是一個圖案。

Answer 2

任何人都會注意到：這並沒有直接解決OP的問題，儘管在我的辯護中，這個問題措辭含糊不清。 :-)儘管如此，它回答了其他人可能具有的問題的解釋，所以我會保持原樣。

命令是否重要？如果沒有，你可以嘗試這樣的事：

use strict; 
use warnings; 
my $string = 'a+c+c+b+v+f+d+d+d+c'; 

# Extract unique 'words' 
my @words = keys %{{map {$_ => 1} split /\+/, $string}}; 

print "$_\n" for @words; 

更重要的是，使用List :: MoreUtils從CPAN（其中不保留順序）：

use strict; 
use warnings; 
use List::MoreUtils 'uniq'; 

my $string = 'a+c+c+b+v+f+d+d+d+c'; 

# Extract unique 'words' 
my @words = uniq split /\+/, $string; 

print "$_\n" for @words; 

Answer 3

my $s="a+c+c+b+v+f+d+d+d+c"; 
$s =~ tr/+//d; 
$s =~ tr/\0-\xff/\0-\xff/s; 
print "$s\n"; # => acbvfdc