check for magic numbers - regex

Question

I have to give output as line number with "magic number found" msg, for every magic number found
I am parsing a .C file.
magic number is basically
if(list == 5) // here 5 is magic number
for(int i = 0; i<6; i++) //here 6 is magic number
MY CODE
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;
}
}
}
As magic number exists only in for loop and if loop, so i want to check within bracket if there exist any decimal or hexadecimal value.

Answer 1

-Edited again. This time as for if condition, it first matches paired parentheses, and then looks for a number after ==.
I've made it more robust, for that it will recognise multiline condition testing. However, as other said, this might still not cover 100% of the possible cases.
use 5.14.0;
use warnings;
my $data = join '', <DATA>;
my $if = qr/if \s* ( \( (?: [^()]++ | (?-1) )*+ \) ) /spx; # matching paired parenthesis
my $for = qr/for (\s*\(.*?;.*?) (\d+) \s*? ; /spx; #(\d+) is for the Magic Number
for($data){
while (/$if/g){
my $pat = ${^MATCH};
my $line =()= ${^PREMATCH} =~ /\n/g;
# assumes a magic number exists only when '==' is present
if ($pat =~ /(.* == \s* )([0-9a-fA-F.]+)\s*\)/x){
my $mn = $2;
my $condition = $1;
$line += () = $condition =~ /\n/g;
say "Line ", $line + 1," has magic number $mn";
}
}
while (/$for/g){
my $mn = $2; #Magic Number
my $condition = $1; #For counting \n in the MATCH.
my $line =()= ${^PREMATCH} =~ /\n/g; #Counting \n in the PREMATCH.
$line += () = $condition =~ /\n/g;
say "Line ", $line + 1," has magic number $mn";
}
}
__DATA__
if(list ==
5) // here 5 is magic number
for(int i = 0; i<6
;
i++
) //here 6 is magic number
if(list ==
8) // here 8 is magic number
if (IsMirrorSubChainEnable())
{
err = ChainCtrlSetMirrorSC(pChainCtrl, pNewRouteInfo);
}
ModCallCallbacks((ModT *)pChainCtrl, kDoneVinResetCallback, NULL, 0);
Output:
Line 2 has magic number 5
Line 10 has magic number 8
Line 4 has magic number 6