IP地址的正则表达式不匹配

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

我知道正则表达式很简单但它与1.1.1.1不匹配,因为我认为它应该

Answer 1

更改:

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

至:

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