Perl的正則表達式 - 提取函數定義參數

Question

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 

OUTPUT我需要一條線

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; 
} 

但它解壓到一切新的文件。基本上文件內容的流暢

Answer 1

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"; 
}