Как я могу проанализировать заголовочный файл C с Perl?

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

Предполагая, что вы хотите сохранить свои данные в заголовочном файле C, для решения этой проблемы вам потребуется одно из двух:

• быстрый одноразовый сценарий для точного (или близкого к точному) синтаксического анализа вводимых вами описать.
• общий, хорошо написанный скрипт, который может анализировать произвольный C и работать с множеством различных заголовков.

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

#!/usr/bin/perl -w

use strict;

open FILE, "<header.h" or die $!;
my @file = <FILE>;
close FILE or die $!;

my $in_block = 0;
my $regex = 'Some_Idx\[\]';
my $byte_line = '';
my @byte_entries;
foreach my $line (@file) {
    chomp $line;

    if ( $line =~ /$regex.*\{(.*)/ ) {
        $in_block = 1;
        my @digits = @{ match_digits($1) };
        push @digits, @byte_entries;
        next;
    }

    if ( $in_block ) {
        my @digits = @{ match_digits($line) };
        push @byte_entries, @digits;
    }

    if ( $line =~ /\}/ ) {
        $in_block = 0;
    }
}

print "const BYTE Some_Idx_Mod_mul_2[] = {\n";
print join ",", map { $_ * 2 } @byte_entries;
print "};\n";

sub match_digits {
    my $text = shift;
    my @digits;
    while ( $text =~ /(\d+),*/g ) {
        push @digits, $1;
    }

    return \@digits;
}

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

#!/usr/bin/perl -w

use strict;

open FILE, "<header.h" or die $!;
my @file = <FILE>;
close FILE or die $!;

my $in_block = 0;
my $regex = 'Some_Idx\[\]';
my $byte_line = '';
my @byte_entries;
foreach my $line (@file) {
    chomp $line;

    if ( $line =~ /$regex.*\{(.*)/ ) {
        $in_block = 1;
        my @digits = @{ match_digits($1) };
        push @digits, @byte_entries;
        next;
    }

    if ( $in_block ) {
        my @digits = @{ match_digits($line) };
        push @byte_entries, @digits;
    }

    if ( $line =~ /\}/ ) {
        $in_block = 0;
    }
}

print "const BYTE Some_Idx_Mod_mul_2[] = {\n";
print join ",", map { $_ * 2 } @byte_entries;
print "};\n";

sub match_digits {
    my $text = shift;
    my @digits;
    while ( $text =~ /(\d+),*/g ) {
        push @digits, $1;
    }

    return \@digits;
}

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

#!/usr/bin/perl -w

use strict;

open FILE, "<header.h" or die $!;
my @file = <FILE>;
close FILE or die $!;

my $in_block = 0;
my $regex = 'Some_Idx\[\]';
my $byte_line = '';
my @byte_entries;
foreach my $line (@file) {
    chomp $line;

    if ( $line =~ /$regex.*\{(.*)/ ) {
        $in_block = 1;
        my @digits = @{ match_digits($1) };
        push @digits, @byte_entries;
        next;
    }

    if ( $in_block ) {
        my @digits = @{ match_digits($line) };
        push @byte_entries, @digits;
    }

    if ( $line =~ /\}/ ) {
        $in_block = 0;
    }
}

print "const BYTE Some_Idx_Mod_mul_2[] = {\n";
print join ",", map { $_ * 2 } @byte_entries;
print "};\n";

sub match_digits {
    my $text = shift;
    my @digits;
    while ( $text =~ /(\d+),*/g ) {
        push @digits, $1;
    }

    return \@digits;
}

Разбор произвольного C немного сложен и не стоит того для многих приложений, но, возможно, вам действительно нужно это сделать. Один из приемов состоит в том, чтобы позволить GCC выполнить синтаксический анализ за вас и прочитать дерево синтаксического анализа GCC с помощью модуля CPAN с именем GCC :: TranslationUnit . Вот команда GCC для компиляции кода при условии, что у вас есть единственный файл с именем test.c:

gcc -fdump-translation-unit -c test.c

Вот код Perl для чтения в дереве синтаксического анализа:

  use GCC::TranslationUnit;

  # echo '#include <stdio.h>' > stdio.c
  # gcc -fdump-translation-unit -c stdio.c
  $node = GCC::TranslationUnit::Parser->parsefile('stdio.c.tu')->root;

  # list every function/variable name
  while($node) {
    if($node->isa('GCC::Node::function_decl') or
       $node->isa('GCC::Node::var_decl')) {
      printf "%s declared in %s\n",
        $node->name->identifier, $node->source;
    }
  } continue {
    $node = $node->chain;
  }