除邮政编码外，您如何提取所有邮政编码？

Question

我想从文本文件中提取除55802之外的所有邮政编码。

\d\d\d\d\d && ^55802

我尝试使用上面的正则表达式，但它无效。

我应该改变什么？

Answer 1

怎么样

(?!55802)\d{5}

这应该匹配5位数（\ d {5}），除非文本匹配（55802）（？！55802是否定前瞻）

Answer 2

一般来说，最好在外面检查。

$zip =~ /^\d{5}\z/ && $zip ne '55802'
   or die("Not a valid zip code\n");