Как разделить целое число, используя условие «если»?

Question

Я искал несколько дней, пытаясь использовать awk, sed, cut и tr для возможного решения моей проблемы. У меня есть набор данных, Thats разделителями с «@», как показано ниже ...

1@2@11@11/8@11/8@11@11/2 
2@4@31 1/2@31 1/2@31/2@21@21/2 
3@10@116 1/4@98@911 3/4@410@38 1/2 
4@1@21@21/8@21/8@33@49 1/4 
5@11@74@75@67 1/2@511 1/2@511 1/2 
6@9@106@108 1/4@89 1/4@613 1/2@616 
7@7@96@118 1/4@1313 1/2@715@717 3/4 
8@12@127 3/4@129 3/4@1212 1/2@816 1/2@817 3/4 
9@6@63@ 64 1/2@79@916 1/2@918 
10@13@139 3/4@1311 1/4@1112@1017@1019 3/4 
11@3@42@42@43 1/2@1118 1/2@1126 1/4 
12@5@84 1/2@87@1011 3/4@1219 1/2@1228 1/4 
13@8@52 1/2@53 1/2@57@1324@1332 3/4 

То, что я хотел бы сделать, это разделить число строк в первом столбце (Ряды) от остальных чисел в других столбцах, начиная с столбца 3 и далее. Конечные результаты будут выглядеть так:

1@2@1@1@1@1/8@1@1/8@1@1@1@1/2 
2@4@3@1 1/2@3@1 1/2@3@1/2@2@1@2@1/2 
3@10@11@6 1/4@9@8@9@11 3/4@4@10@3@8 1/2 
4@1@2@1@2@1/8@2@1/8@3@3@4@9 1/4 
5@11@7@4@7@5@6@7 1/2@5@11 1/2@5@11 1/2 
6@9@10@6@10@8 1/4@8@9 1/4@6@13 1/2@6@16 
7@7@9@6@11@8 1/4@13@13 1/2@7@15@7@17 3/4 
8@12@12@7 3/4@12@9 3/4@12@12 1/2@8@16 1/2@8@17 3/4 
9@6@6@3@6@4 1/2@7@9@9@16 1/2@9@18 
10@13@13@9 3/4@13@11 1/4@11@12@10@17@10@19 3/4 
11@3@4@2@4@2@4@3 1/2@11@18 1/2@11@26 1/4 
12@5@8@4 1/2@8@7@10@11 3/4@12@19 1/2@12@28 1/4 
13@8@5@2 1/2@5@3 1/2@5@7@13@24@13@32 3/4 

Я думал, что могу использовать инструкцию «if». Что-то вроде «если целые числа начинаются с [2-9], а затем разделяются после одного символа, elif он начинается с [1], а длина равна 3 или более (перед пространством и дробью), а затем разделяет первые два символа». Я понятия не имею, как решить эту проблему. У меня есть тысячи похожих файлов, и мне нужно изменить структуру для всех из них, поэтому решение придется запускать через цикл.

Answer 1

Вот одно удовольствие:

perl -F@ -lape '$_ = join "@", shift(@F), shift(@F), map {s/(1\d|\d)(\d+)/$1\@$2/g; $_} @F' file 

С небольшим комментарием

perl -F@ -lape ' 
    $_ = join "@",    # join the following things, using "@" 
       shift(@F),   # the first field 
       shift(@F),   # the second field 
       map {    # then, transform the rest with this expr 
        s{    #  search for: 
         (1\d | \d) #  1 plus a digit, or a digit 
         (\d+)  #  followed by one or more digits 
        }{$1\@$2}xg; #  add an "@" in between 
        $_    #  and return the new string 
       } @F 
' file 

Варианты:

• -a и -F@ - разделить каждую строку в массив @F используя @ символ в качестве разделителя
• -l - ручка линии окончаний автоматически
• -p - автоматически распечатывает переменную $_ после обработки каждой строки

Answer 2

Вот в значительной степени транскрипция логики, как вы описали ее в awk (я добавил предположение, что начиная с 1 и имея длину 2 следует разбить после первого символа). Я также заметил, что в строке 9 было пространство после разделителя @, поэтому добавили эту возможность в разделитель полей, как вы можете видеть в блоке BEGIN --- возможно, с реальными данными, которые вам не нужны, так что просто осознанный. В конце концов, я получил ожидаемый результат, но, вероятно, вы хотите проверить это на больших наборах данных, если не будут приняты во внимание другие случаи использования.

$ cat jd.awk 
BEGIN { FS = " *@ *"; OFS = "@" } 

{ 
    for (i=3; i<=NF; ++i) { 
     # if integers start with [2-9] then split after one character 
     if (substr($i, 1, 1) ~ /[2-9]/) { 
      $i = substr($i, 1, 1) "@" substr($i, 2) 
     } 
     else { 
      split($i, parts, "[ /]") 

      # else if it starts with [1] and length is equal to 2 
      # (before the space and fraction) then split the first character 
      if (substr($i, 1, 1) == "1" && length(parts[1]) == 2) { 
       $i = substr($i, 1, 1) "@" substr($i, 2) 
      } 

      # else if it starts with [1] and length is equal to 3 or more 
      # (before the space and fraction) then split the firsts two characters. 
      else if (substr($i, 1, 1) == "1" && length(parts[1]) >= 3) { 
       $i = substr($i, 1, 2) "@" substr($i, 3) 
      } 
     } 
    } 
    print 
} 

$ cat jd.txt 
1@2@11@11/8@11/8@11@11/2 
2@4@31 1/2@31 1/2@31/2@21@21/2 
3@10@116 1/4@98@911 3/4@410@38 1/2 
4@1@21@21/8@21/8@33@49 1/4 
5@11@74@75@67 1/2@511 1/2@511 1/2 
6@9@106@108 1/4@89 1/4@613 1/2@616 
7@7@96@118 1/4@1313 1/2@715@717 3/4 
8@12@127 3/4@129 3/4@1212 1/2@816 1/2@817 3/4 
9@6@63@ 64 1/2@79@916 1/2@918 
10@13@139 3/4@1311 1/4@1112@1017@1019 3/4 
11@3@42@42@43 1/2@1118 1/2@1126 1/4 
12@5@84 1/2@87@1011 3/4@1219 1/2@1228 1/4 
13@8@52 1/2@53 1/2@57@1324@1332 3/4 


$ awk -f jd.awk jd.txt 
1@2@1@1@1@1/8@1@1/8@1@1@1@1/2 
2@4@3@1 1/2@3@1 1/2@3@1/2@2@1@2@1/2 
3@10@11@6 1/4@9@8@9@11 3/4@4@10@3@8 1/2 
4@1@2@1@2@1/8@2@1/8@3@3@4@9 1/4 
5@11@7@4@7@5@6@7 1/2@5@11 1/2@5@11 1/2 
6@9@10@6@10@8 1/4@8@9 1/4@6@13 1/2@6@16 
7@7@9@6@11@8 1/4@13@13 1/2@7@15@7@17 3/4 
8@12@12@7 3/4@12@9 3/4@12@12 1/2@8@16 1/2@8@17 3/4 
9@6@6@3@6@4 1/2@7@9@9@16 1/2@9@18 
10@13@13@9 3/4@13@11 1/4@11@12@10@17@10@19 3/4 
11@3@4@2@4@2@4@3 1/2@11@18 1/2@11@26 1/4 
12@5@8@4 1/2@8@7@10@11 3/4@12@19 1/2@12@28 1/4 
13@8@5@2 1/2@5@3 1/2@5@7@13@24@13@32 3/4 

Answer 3

Это может работать для вас (GNU СЭД):

sed -r 's/^(([^@]*@){2})/\1\n/;ta;:a;/\n[0-9]?$/s/\n//;t;/\n(1[0-9]|[0-9])([0-9][0-9]?)/s//\1@\2\n/;ta;/\n([0-9]?[^0-9\n]) ?/s//\1\n/;ta' file 

Это вставляет новую строку, следующую за вторым полем, а затем совпадения и циклы шаблонов, каждый последующий матч перемещает новую строку вперед, пока конец строки при удалении новой строки.

Answer 4

Благодарим вас за все ваши быстрые ответы.
Они помогли мне разобрать мои наборы данных, которые необходимо выполнить перед загрузкой. Решение, которое я закончил использовать, было основано на жемчуге из-за простоты. Еще раз спасибо за ваши ответы.