☰

Свернуть некоторые повторяющиеся части последовательных строк

tag-icon • tag-icon shell-script text-processing sed
Свернуть некоторые повторяющиеся части последовательных строк

У меня в блокноте есть такие данные:

4480-1
4480-2
4480-3
4480-15
4581-1
4581-2
4581-3
4581-4

Можно ли это сделать с помощью цикла for? С помощью sed?

Мой требуемый вывод:4480-1&-2&-3&-15&4581-1&-2&-3&-4

решение1

Это должно сработать:

awk -F- '$1!=a{printf "%s", $1} {printf "-%s&", $2} {a=$1}' file | sed 's/&$/\n/g'

Вывод:

4480-1&-2&-3&-15&4581-1&-2&-3&-4

Пояснение:

  • awk -F-разделитель - это-
  • $1!=a{printf "%s", $1}вывести первую часть 4480, если она не совпадает с последней обработанной строкой
  • {printf "-%s&", $2}распечатать вторую часть с &в конце
  • {a=$1}установите a для обработанной строки
  • sed 's/&$/\n/g'удалить последний символ, который является а &и добавить новую строку

решение2

Я не думаю, что вы сможете сделать это sedлегко. Проще с perl:

$ perl -F'-' -anle '
    $h{$F[0]} .= defined($h{$F[0]}) ? "&-".$F[1] : "-".$F[1];
    END {
        $,="&";
        print @{[map { $_.$h{$_} } sort { $a <=> $b } keys %h]}
    }
' file
4480-1&-2&-3&-15&4581-1&-2&-3&-4

решение3

Вероятно, это невозможно с sed. Я делаю с AWK. Я предполагаю одну запись на строку.

awk '
  BEGIN { FS="-"; ORS=""; left="" }

  {
    if(NR>1){print "&"}

    # Only print left part if it differs from previous line
    if ($1!=left) {
      print $1 "-" $2
      left=$1;
    } else {
      print "-" $2
    }
  }' inputfile.txt

Выходы4480-1&-2&-3&-15&4581-1&-2&-3&-4

решение4

Должно быть sed, однако вот perl:

#!/usr/bin/perl

while ( ($a,$b) = split /-/,<>) { $n->{$a}->{"-$b"}++;}

@_ = map { $_,
           map { chomp; "$_&"; } reverse sort { $a <=> $b } keys $n->{$_};
     } sort { $a <=> $b } keys $n;

@_[-1] =~ s/&$//;

print @_;

численно отсортированный вывод, независимо от порядка ввода:

4480-1&-2&-3&-15&4581-1&-2&-3&-4

Связанный контент