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