eErrorT ChainCtrlExit (ChainCtrlT * pChainCtrl)
ChanT* ChainCtrlGetBitStreamChan (ChainCtrlT * pChainCtrl,
char * name
)
eErrorT ChainCtrlInit (ChainCtrlT * pChainCtrl,
char * name,
int instance,
void * pOwner
)
int SymContDecNamesCount = (sizeof(SymContDecNames)/sizeof(SymContDecNames[0]))
char* SymContEncNames[]
int SymContEncNamesCount = (sizeof(SymContEncNames)/sizeof(SymContEncNames[0]))
I want to extarct only function arguments ...that is
输出我需要仅提取一行中的函数定义参数
ChainCtrlT * pChainCtrl
ChainCtrlT * pChainCtrl, char * name
ChainCtrlT * pChainCtrl, char * name, int instance, void * pOwner
我的代码
open(FILE, "< functions2.txt") or die $!;
open(FILE1, "> functions3.txt") or die $!;
my @Array1=<FILE>;
foreach my $text (@Array1){
$text =~ /\((.+)\)/;
print FILE1 $text;
}
但它正在将所有内容提取到新文件中。基本上是文件内容的重复
最佳答案
open(my $FILE, "<", "functions2.txt") or die $!;
open(my $FILE1, ">", "functions3.txt") or die $!;
my $s = do { local $/; <$FILE>; };
while ($s =~ /^ \S+ \s+ \S+ \s* \( (.+?) \) /xsmg) {
my $arg = $1;
$arg =~ tr|\r\n||d;
print $FILE1 "$arg\n";
}
关于regex - perl regex - 提取函数定义参数，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/19024229/