Разбор текстового файла и вывод его в новом формате

Я пытаюсь изучить парсеров файлов, используя сценарий оболочки, и у меня есть входной файл input.txt как

  int A[4]; /* 0 16*/ char B[15]; /* 16 31*/ /* Padding may be required here */ long int C[2]; /*32 8*/ 

Есть ли способ проанализировать приведенный выше input.txt в моем желаемом формате, который выглядит как выходной файл output.txt :

 0,int, A[4], 0, 16 1,char, B[16], 16,31 2,long int, C[2], 32, 8 

  • Идентификация генов из списка генов
  • Свернуть линию вертикально, чтобы каждое слово находилось на новой строке
  • Вывод каждого столбца N из ввода
  • Как выбрать конкретные процессы с помощью «top»?
  • Как выбрать наивысший элемент числа во многих файлах со многими массивами
  • пропустить строку, которая не содержит конкретного символа, например .colon
  • Как распечатать определенное условие столбца с помощью awk?
  • grepping для нескольких элементов
  • 3 Solutions collect form web for “Разбор текстового файла и вывод его в новом формате”

    Ваш ввод кажется C-подобным, поэтому было бы лучше теоретически разбирать его с помощью синтаксического анализатора C. Если вы используете регулярные выражения, даже для простых задач, вам приходится иметь дело с различными пространствами, многострочными входами и т. Д. Проблема в том, что C-парсеры не анализируют комментарии, и вы, очевидно, хотите это сделать.

    Вот скрипт perl, который дает ожидаемый результат для вашего образца.

     #!/usr/bin/perl -n # BEGIN { $i = 0; } if (m!^\s*(.+)\s+([^ ]+);\s*/\*\s*(\d+)\s*(\d+)\s*\*/\s*$!) { print "$i,$1,$2,$3,$4\n"; $i+=1 } 

    Если вы сохраните этот скрипт как script.pl в папке, где находится input.txt , используйте его как таковой:

     ./script.pl < input.txt > output.txt 

    Альтернатива awk без регулярного выражения:

     $ echo "int A[4]; /* 0 16*/" |awk '{gsub(/[/*;]/,"");for (i=1;i<=NF;i++) printf("%s, %s", (i==1?NR-1:""),(i==NF?$i"\n":$i))}' #Output: 0, int, A[4], 0, 16 

    Pitfall:

     $ echo "long int C[2]; /*32 8*/" |awk '{gsub(/[/*;]/,"");for (i=1;i<=NF;i++) printf("%s, %s", (i==1?NR-1:""),(i==NF?$i"\n":$i))}' #Output 0, long, int, C[2], 32, 8 
     perl -lane ' /^\s*\/\*/ and $,=",",next; print $a++,join ", ", grep /./, map { m!^/\*+\K(\S*)|([^*]*)(?=\*+/$)|(.+[^;]);?$! } @F ' 
    Linux и Unix - лучшая ОС в мире.