0

ファイル（FILE）にテキストとして「ChainCtrlBuildChain」という関数名があります。

A c file(FILE1) with content

VideoChainT* ChainCtrlBuildChain(ChainCtrlT* pChainCtrl, char* pChainName, ChainDefT* pDef)
            {
          ...
            {
 ModTrace((ModT*) pChainCtrl, "ChainCtrlBuildChain: ERROR, chain init failure [chain: %4.4s inst: %d] [err: %d]\n",
                        ...
            }

私のコード:

my @Array=<FILE>;
my @Array1=<FILE1>;

foreach my $text (@Array1){
if (index($text, $Array[0]) !=-1)
{
print "$text \n";
}
}

次の出力が得られます。

VideoChainT* ChainCtrlBuildChain(ChainCtrlT* pChainCtrl, char* pChainName, ChainDefT* pDef)
ModTrace((ModT*) pChainCtrl, "ChainCtrlBuildChain: ERROR, chain init failure [chain: %4.4s inst: %d] [err: %d]\n",

代わりにこれが欲しい：

VideoChainT* ChainCtrlBuildChain(ChainCtrlT* pChainCtrl, char* pChainName, ChainDefT* pDef)

入力ファイルはユーザーによるものであり、修正されていないため、一般化する必要があります。

私が考えていた

if (index($text, $Array[0]) != -1 && index('**WHAT SHOULD I WRITE SO THAT IT SKIPS ANY ARGUMENTS PRESENT AND JUST CHECKS WHETHER ITS A FUNCTION DEFINITION OR NOT**')!= -1)
4

1 に答える 1

1

(関数名に加えて関数定義に十分なものを使用して満足している場合、これは機能するはずです：

#!/usr/bin/perl

use warnings;
use strict;

my $function_file = 'functions.txt';
my $src_file = 'src.c';

open(my $ff,'<',$function_file) or die "Cant open $function_file: $!\n";
open(my $sf,'<',$src_file) or die "Cant open $src_file: $!\n";

my @array = <$ff>;
my @array2 = <$sf>;

close($ff);
close($sf);

foreach my $func (@array){
    chomp $func;
    foreach my $src_line (@array2){
        if ($src_line =~ /$func\(/){
            print $src_line;
        }
    }
}

ところで: 3-arg オープンを使用すれば、perl ライフの負担が軽減されます!

于 2013-08-01T11:10:20.830 に答える