매직 넘버 확인

Question

찾을 매직 넘버마다 msg를 "매직 넘버 발견"msg와 함께 출력해야합니다.

.C 파일을 파싱 중입니다.

매직 넘버는 기본적으로

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

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

MY 코드

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

매직 넘버는 루프와 루프 경우 존재

, 그래서 어떤 소수가 존재하는 경우 브래킷에서 확인 할 또는 16 진수 값.

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