檢查神奇數字

Question

我必須輸出行數爲「找到神奇數字」味精，找到每個神奇數字

我正在解析一個.C文件。

幻數基本上是

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

作爲幻數只存在於for循環，並且如果循環，所以想的，如果存在任何小數托架內，以檢查或十六進制值。

Answer 1

-再次編輯。這次對於if條件，它首先匹配成對的括號，然後在==後查找一個數字。

我已經使它更健壯，因爲它會識別多行條件測試。然而，正如其他人所說，這可能還不能覆蓋100％的可能情況。

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

輸出：

Line 2 has magic number 5 
Line 10 has magic number 8 
Line 4 has magic number 6