Как я могу удалить все комментарии /* */ из исходного файла C?

Почему бы просто не использовать для этого препроцессор c? Почему вы ограничиваетесь доморощенным регулярным выражением?

[Изменить] Этот подход также корректно обрабатывает сценарий Бартса printf(".../*...").

Пример:

[File: t.c]
/* This is a comment */
int main () {
    /* 
     * This
     * is 
     * a
     * multiline
     * comment
     */
    int f = 42;
    /*
     * More comments
     */
    return 0;
}

.

$ cpp -P t.c
int main () {







    int f = 42;



    return 0;
}

Или вы можете удалить пробелы и сжать все

$ cpp -P t.c | egrep -v "^[ \t]*$"
int main () {
    int f = 42;
    return 0;
}

Нет смысла заново изобретать велосипед, не так ли?

[Изменить] Если вы хотите не расширять включенные файлы и макросы с помощью этого подхода, cpp предоставляет для этого флаги. Рассмотреть возможность:

[Файл: tc]

#include <stdio.h>
int main () {
    int f = 42;
    printf("   /*  ");
    printf("   */  ");
    return 0;
}

.

$ cpp -P -fpreprocessed t.c | grep -v "^[ \t]*$"
#include <stdio.h>
int main () {
    int f = 42;
    printf("   /*  ");
    printf("   */  ");
    return 0;
}

Есть небольшая оговорка: можно избежать расширения макроса, но исходное определение макроса удалено из источника.

См. perlfaq6. Это довольно сложный сценарий.

$/ = undef;
$_ = <>;
s#/\*[^*]*\*+([^/*][^*]*\*+)*/|("(\\.|[^"\\])*"|'(\\.|[^'\\])*'|.[^/"'\\]*)#defined $2 ? $2 : ""#gse;
print;

Предупреждение: после того, как вы это сделаете, у вас есть тестовый сценарий, чтобы доказать себе, что вы только что удалили комментарии и ничего ценного? Если вы используете такое мощное регулярное выражение, я бы обеспечил какой-то тест (даже если вы просто записываете поведение до/после).

Взгляните на подпрограмму strip_comments в Inline::Filters:

sub strip_comments {
    my ($txt, $opn, $cls, @quotes) = @_;
    my $i = -1;
    while (++$i < length $txt) {
    my $closer;
        if (grep {my $r=substr($txt,$i,length($_)) eq $_; $closer=$_ if $r; $r}
        @quotes) {
        $i = skip_quoted($txt, $i, $closer);
        next;
        }
        if (substr($txt, $i, length($opn)) eq $opn) {
        my $e = index($txt, $cls, $i) + length($cls);
        substr($txt, $i, $e-$i) =~ s/[^\n]/ /g;
        $i--;
        next;
        }
    }
    return $txt;
}

Пожалуйста, не используйте для этого cpp, если вы не понимаете последствий:

$ cat t.c
#include <stdio.h>

#define MSG "Hello World"

int main(void) {
    /* ANNOY: print MSG using the puts function */
    puts(MSG);
    return 0;
}

Теперь давайте прогоним его через cpp:

$ cpp -P t.c -fpreprocessed


#include <stdio.h>



int main(void) {


    puts(MSG);
    return 0;
}

Ясно, что этот файл больше не собирается компилироваться.

Рассмотреть возможность:

printf("... /* ...");
int matrix[20];
printf("... */ ...");

Другими словами: я бы не стал использовать регулярное выражение для этой задачи, если только вы не выполняете replace-once и не уверены, что описанное выше не происходит.

Вы ДОЛЖНЫ использовать препроцессор C для этого в сочетании с другими инструментами, чтобы временно отключить определенные функции препроцессора, такие как расширение #define или #includes, все другие подходы не сработают в крайних случаях. Это будет работать для всех случаев:

[ $# -eq 2 ] && arg="$1" || arg=""
eval file="\$$#"
sed 's/a/aA/g;s/__/aB/g;s/#/aC/g' "$file" |
          gcc -P -E $arg - |
          sed 's/aC/#/g;s/aB/__/g;s/aA/a/g'

Поместите его в сценарий оболочки и вызовите его с именем файла, который вы хотите проанализировать, с необязательным префиксом, например, «-ansi», чтобы указать применяемый стандарт C.

Попробуйте это в командной строке (заменив «имена файлов» на список файлов, которые необходимо обработать):

perl -i -wpe 'BEGIN{undef $/} s!/\*.*?\*/!!sg' file-names

Эта программа изменяет файлы на месте (переписывая исходный файл с исправленным выводом). Если вы просто хотите получить вывод без изменения исходных файлов, опустите переключатель «-i».

Пояснение:

perl -- call the perl interpreter
-i      switch to 'change-in-place' mode.
-w      print warnings to STDOUT (if there are any)
 p      read the files and print $_ for each record; like while(<>){ ...; print $_;}
 e      process the following argument as a program (once for each input record)

BEGIN{undef $/} --- process whole files instead of individual lines.
s!      search and replace ...
  /\*     the starting /* marker
  .*?     followed by any text (not gredy search)
  \*/     followed by the */ marker
!!      replace by the empty string (i.e. remove comments)  
  s     treat newline characters \n like normal characters (remove multi-line comments)
   g    repeat as necessary to process all comments.

file-names   list of files to be processed.

Когда мне нужно что-то короткое и простое для CSS, я использую это:

awk -vRS='*/' '{gsub(/\/\*.*/,"")}1' FILE

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

Однако я считаю, что этот пуленепробиваемый.

Попробуйте приведенный ниже рекурсивный способ поиска и удаления комментариев типа сценария Java, комментариев типа XML и однострочных комментариев.

/* This is a multi line js comments.

Please remove me*/

для f в find pages/ -name "*.*"; do perl -i -wpe 'BEGIN{undef $/} s!/*.*?*/!!sg' $f; Готово

<!-- This is a multi line xml comments.

Please remove me -->

для f в find pages/ -name "*.*"; do perl -i -wpe 'BEGIN{undef $/} s!‹!--.*?-->!!sg' $f; Готово

//This is single line comment Please remove me.

для f в find pages/ -name "*.*"; do sed -i 's///.*//' $f; Готово

Примечание: страницы — это корневой каталог, и приведенный выше скрипт найдет и удалит все файлы, расположенные в корневом каталоге и подкаталогах.

очень упрощенный пример с использованием gawk. Пожалуйста, протестируйте много раз, прежде чем внедрять. Конечно, это не заботится о другом стиле комментариев // (в C++??)

$ more file
int matrix[20];
/* generate data */
for (index = 0 ;index < 20; index++)
matrix[index] = index + 1;
/* print original data */
for (index = 0; index < 5 ;index++)
/*
function(){
 blah blah
}
*/
float a;
float b;

$ awk -vRS='*/' '{ gsub(/\/\*.*/,"")}1' file
int matrix[20];


for (index = 0 ;index < 20; index++)
matrix[index] = index + 1;


for (index = 0; index < 5 ;index++)


float a;
float b;