一个严格匹配ip地址的perl脚本

判断一个字符串 是否 正确的ip地址  : xxx.xxx.xxx.xxx

var =~ / ^   ( d { 1 , 3 } ) . ( d { 1 , 3 } ) . ( d { 1 , 3 } ) . ( d { 1 , 3 } ) $ /   ;

blog有显示问题,

一个从命令行第一个参数获取ip地址的脚本

#!/usr/bin/perl

if ((@ARGV > 0) && ($ARGV[0] =~ /^ (d{1,3}).(d{1,3}).(d{1,3}).(d{1,3})$/ ))
{
  $host = $ARGV[0];
  print $host;
}
else
{
   print "not a valid";
}

###########

奇怪,怎么显示不出来  (d{1,3}) 呢