regex - マジックナンバーをチェック

Question

見つかったすべてのマジック番号に対して、「マジック番号が見つかりました」というメッセージで行番号として出力を与える必要があります

.C ファイルを解析しています。

マジックナンバーは基本的に

if(list == 5)          // here 5 is magic number

for(int i = 0; i<6; i++)        //here 6 is magic number

マイコード

use strict;
use warnings;
my $input = $ARGV[0];
open(FILE, $input) or die $!;                                          
my @lines = <FILE>;
my $count = 0; 

foreach(@lines){
     $count++;
 if($_ =~ 'for\('){                       # I want to check within for( )
        if($_ =~ '#####'){                  # how do the check for numbers
           print "magic number found at line:".$count;
   }
  }
     elif($_ =~ 'if\('){                       # I want to check within if( )
        if($_ =~ '#####'){                  
           print "magic number found at line:".$count;
  }
 }
}

マジック ナンバーは for ループと if ループにのみ存在するため、括弧内に10 進数または 16 進数の値が存在するかどうかを確認します。