Warning: file_get_contents(/data/phpspider/zhask/data//catemap/6/multithreading/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
在perl中使用替换从字符串中删除重复字符_Perl - Fatal编程技术网
Fatal编程技术网
  • perl/
  • 在perl中使用替换从字符串中删除重复字符

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

perl

在perl中使用替换从字符串中删除重复字符,perl,Perl,如何在perl中删除字符串中的重复字符？我使用/d进行了尝试，但结果不符合要求 我已经试过了： $string="vvvviiiiiipppppppiiiiinnnnn"; $string=~tr/a-z/a-z/s; print $string; 输出：vipin，但我想要：vipn my %uniq; $string = join '', grep !$uniq{$_}++, split //, $string; 或 或 或者：1，而$string=~s，（（）.*）\2，$1或此：

如何在perl中删除字符串中的重复字符？我使用/d进行了尝试，但结果不符合要求

我已经试过了：

$string="vvvviiiiiipppppppiiiiinnnnn";
$string=~tr/a-z/a-z/s;
print $string;
输出：vipin，但我想要：vipn

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

或

或者：
1，而$string=~s，（（）.*）\2，$1或此：
1而$string=~s，（（）.*）\2，$1

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