perl - Perl - パターンに改行が含まれています

Question

perl スクリプトで C ファイルからすべての関数を取得しようとしています。

パターン例：

function return type  
function name (function parameters)  
{  

これまでのところ、私は持っています:m/^(.*)\((.*)\)/

しかし、これはステートメントなどの内部の関数も取得するため、すべての内部関数を排除するが機能 しないため、同様ifに一致することを望んでいました。{m/^(.*)\((.*)\)/\n\{/

キャッチできるように、次の行 の\n{ ieと一致させるにはどうすればよいですか{

add(int a, int b)  
{  

...しかし、避ける、言う

if(a = b)  

Answer 1

CPANでC::Scanを見てください。

Answer 2

C ソースに一致させたいアスタリスクはありません。したがって、パターン内のアスタリスクの前にあるバックスラッシュを削除してください。

以下は、あなたが望むものに近いかもしれません:

m/^(.*?\(.*?\))\s*\n{/m