我有一个带有函数名称的文件 FILE1。
FILE1(还有几个函数名称):
ChainCtrlBuildChain
文件 2 包含:
pChain = ChainCtrlBuildChain(pChainCtrl, pChainCtrl->ChainTable[i].col[j], pDefs);
...
if (eRetVal != kNoError)
{
ModTrace((ModT*) pChainCtrl, "ChainCtrlBuildChain: ERROR, chain init failure [chain: %4.4s inst: %d] [err: %d]\n",
...
VideoChainT* ChainCtrlBuildChain(ChainCtrlT* pChainCtrl, char* pChainName, ChainDefT* pDef)
{
...
}
我只想显示函数定义并排除函数声明。
需要输出
VideoChainT* ChainCtrlBuildChain(ChainCtrlT* pChainCtrl, char* pChainName, ChainDefT* pDef)
代码
#search for function in the file
use strict;
use warnings;
my $function_file = 'functions.txt';
my $src_file = 'ChainController.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;
}
}
}
虽然它检查(
函数名称后,但它显示函数声明和函数定义。
关于如何;
在与函数名称相同的行上进行检查的任何想法,因为只有函数声明;
在同一行中。