가 MD5 해시를 확인하고

Question

내 간단한 펄 스크립트에 문제가 그것을 인쇄 펄 :

open IN, "<file1.txt" or die print "can't open file!"; 

while($line = <IN>){ 
    $line =~ /[a-z0-9]{32}/i; 
    my $substr = $1; 
    print $substr; 
} 

은 한 줄에 하나의 파일에 MD5 해시를 식별하고 그것을 인쇄 할 수있다

하지만 제대로 작동하지 않는, 아무것도 출력하지 않거나 뭔가 수정하면 출력이됩니다.

11111111111111111111111111111111111111111111111111 

실마리가 없습니다.

Answer 1

괄호를 사용하여 아무것도 캡처하지 않습니다.

또한 캡처 된 그룹을 사용하기 전에 정규식이 실제로 일치하는지 확인하는 것이 좋습니다.

if ($line =~ /([a-z0-9]{32})/i) { 
    print $1, "\n"; 
}