使用替换从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 );