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+)/){