У меня есть файл с одним столбцом с именами, которые повторяются по несколько раз каждый. Я хочу сжать каждый повтор в одно, сохраняя при этом любые другие повторения с тем же именем, которые не соседствуют с другими повторениями с тем же именем.
Например, я хочу повернуть левую сторону к правой стороне:
Golgb1 Golgb1
Golgb1 Akna
Golgb1 Spata20
Golgb1 Golgb1
Golgb1 Akna
Akna
Akna
Akna
Spata20
Spata20
Spata20
Golgb1
Golgb1
Golgb1
Akna
Akna
Akna
Это то, что я использовал: perl -ne 'print if ++$k{$_}==1' file.txt > file2.txt
однако, этот метод держит только одного представителя слева (т.е. Golb1 и Akna не повторяются).
Есть ли способ сохранить уникальные имена для каждого блока, сохраняя имена, которые повторяются в нескольких несмежных блоках?