IP 주소의 Regex가 일치하지 않습니다.

Question

사용자로부터 ip를 수집하고 불필요한 공백을 해킹하고 해킹하는 것을 시도했지만, 정규 표현식으로 간주하는 것으로 몇 가지 문제가 있습니다. .

my $serverIP; 

print "Enter vSphere server's IP\n"; 
while(<>){ 
    $serverIP = $_; 
    print "DEBUG <$serverIP>\n"; 
    if (/$serverIP = (\d+\.\d+\.\d+\.\d+)/){ 
    print "Match found $1\n"; 
    $serverIP = $1; 
    last; 
    } 
    else{ 
    print "Not an IP\n"; 
    print "Please enter a valid IP\n"; 
    } 
} 
print "I found $serverIP!\n"; 

나는 정규식은 간단 알고 있지만 나는 그것이

Answer 1

변경해야 가정으로는 1.1.1.1과 일치하지 않습니다

if (/$serverIP = (\d+\.\d+\.\d+\.\d+)/){ 

에 :

if ($serverIP =~ /(\d+\.\d+\.\d+\.\d+)/){