替代匹配函数 perl [关闭]

Question

我有一个文件，每行都有一个数字。

1
7
9
15
22
29
30
30  <--
30  <--
30  <--
40
42
49
50
50  <--
50  <--
55

我不能让数字出现多次。当发现重复时，应将其替换为下一个未使用的号码。

1
7
9
15
22
29
30
31  <--
32  <--
33  <--
40
42
49
50
51  <--
52  <--
55

如果我将表中的一列放入 perl、awk sed bash 脚本...我怎么能想出那个解决方案？任何想法都会很棒......

Answer 1

这是一个 bash 4 解决方案，问题是 bash 没有内置排序。

编辑 想跟cmets，也许这就是必需品？

declare -A assoc
while read key
do
    while [[ -n ${assoc[$key]} ]]
    do
        (( key++ ))
    done  

    assoc[$key]=1

done < vector.txt

oldIFS="$IFS"
IFS=$'\n'
echo "${!assoc[*]}" | sort -n > out.txt
IFS="$oldIFS"

vector.txt的内容：

1
7
9
15
22
29
30
30
30
30
40
42
49
50
50
50
55

out.txt的内容：

1
7
9
15
22
29
30
31
32
33
40
42
49
50
51
52
55

做同样事情的 Perl 解决方案：

use strict;
use warnings;

my %assoc;
my $fname = 'vector.txt';

open(my $in, $fname) or die "Unable to open '$fname': $!";
while (my $key = <$in>) {

    chomp($key);
    $key++ while exists $assoc{$key};
    $assoc{$key} = undef;

}
close $in;

my @output = sort {$a <=> $b} keys(%assoc);
local $" = "\n";
open(my $out, '>', 'out.txt') or die "Unable to open 'out.txt': $!";
print $out "@output\n";
close $out;

Answer 2

在 R 中使用 unique：

> v<-c(1,7,9,15,22,29,30,30,30,30,40,42,49,50,50,50,55)
> unique(v)

[1]  1  7  9 15 22 29 30 40 42 49 50 55

或者在 perl 脚本中，使用哈希：

my @list = qw(1 7 9 15 22 29 30 30 30 30 40 42 49 50 50 50 55);

my %nums;

$nums{$_}++ foreach @list;

say foreach sort {$a <=> $b } keys %nums;