使用替换从perl的字符串中删除重复的字符

Question

如何从Perl的字符串中删除重复的字符？我尝试使用/ d，但结果与要求不符。

我已经尝试过：

$string="vvvviiiiiipppppppiiiiinnnnn";
$string=~tr/a-z/a-z/s;
print $string;  

输出：vipin，但我想要：vipn

Answer 1

my %uniq;
$string = join '', grep !$uniq{$_}++, split //, $string;

或

use List::Util ();
$string = join '', List::Util::uniqstr( split //, $string );