PROSAGA码农传奇-perl-使用perl验证电话号码

<div class =“post-text”itemprop =“text”>
  
    可能值得解释原始版本的错误。你有两张支票。第一个 （
     <code>
 length($name)==10
 </code>
    ）很好。问题出在第二个问题上。
  
  <BLOCKQUOTE>
     <pre>
 <code>
 $name==~ m{/[^7-9]/}

</code>
 </pre>
  </BLOCKQUOTE>
  
    这里有三个问题。首先，您使用的是错误的运算符。你知道你需要绑定你的变量（
     <code>
 $name
 </code>
    ）到匹配运算符，但绑定运算符是
     <code>
 =~
 </code>
     不
     <code>
 ==~
 </code>
    。但是，遗憾的是，您的运算符没有错误，导致语法错误。 Perl会将其解释为数字比较（
     <code>
 ==
 </code>
    ）然后是按位否定（
     <code>
 ~
 </code>
    ）。那肯定不是你想要的！
  
  
    你的第二个问题是匹配运算符。看起来你知道匹配运算符是
     <code>
 m/.../
 </code>
     而且你也知道你可以为匹配算子选择一个替代定界符 - 你选择了
     <code>
 m{...}
 </code>
    。但你不应该嵌套这些分隔符。当你使用
     <code>
 m{/.../}
 </code>
     你正在寻找两个字面字符
     <code>
 /
 </code>
     在你的字符串中。
  
  
    最后，你的实际正则表达式存在问题。您希望字符串以7,8或9开头。将这些数字放在字符类中（
     <code>
 [7-9]
 </code>
    ）是个好主意。但你不应该把字符串锚的开头（
     <code>
 ^
 </code>
    ）在角色类里面。在角色类的开头，
     <code>
 ^
 </code>
     具有不同的含义 - 它表示“不是此处列出的字符之一”。因此，你的角色类最终意味着与你想要的意思完全相反。
  
  
    您的匹配表达式应该如下所示：
  
   <pre>
 <code>
 $name =~ m{^[7-9]}

</code>
 </pre>
  
    制作完整的代码：
  
   <pre>
 <code>
 print "Enter phone number: \n";
$name = <>;
chomp $name;

if (length($name) == 10 and $name =~  m{^[7-9]}) {
  print "$name is valid \n";
}
else {
  print "$name is not valid \n";
}

</code>
 </pre>
  
    （我做了一点整理 - 在运营商和转换周围增加了一些空白
     <code>
 &&
 </code>
     对于
     <code>
 and
 </code>
     因为优先级较低。您也可以考虑修改变量名称。
     <code>
 $name
 </code>
     对于包含电话号码的变量来说，它不是一个好名字！）
  
</DIV>