perl 字符串删除末尾几个字符_如何删除重复的字符并仅在Perl中保留唯一的字符？...

如果Perl不是必须的，你也可以使用awk。这是针对awk发布的Perl one liners的有趣基准。对于具有300万++行的文件，awk快10秒以上

$ wc -l

3210220

$ time awk 'BEGIN{FS=""}{delete _;for(i=1;i<=NF;i++){if(!_[$i]++) printf $i};print""}' file2 >/dev/null

real 1m1.761s

user 0m58.565s

sys 0m1.568s

$ time perl -n -e '%seen=();' -e 'for (split //) {print unless $seen{$_}++;}' file2 > /dev/null

real 1m32.123s

user 1m23.623s

sys 0m3.450s

$ time perl -ne '$_=reverse;s/(.)(?=.*?\1)//g;print scalar reverse;' file2 >/dev/null

real 1m17.818s

user 1m10.611s

sys 0m2.557s

$ time perl -ne'my%s;print grep!$s{$_}++,split//' file2 >/dev/null

real 1m20.347s

user 1m13.069s

sys 0m2.896s