正则表达式 – 评估针对perl数组输入的邮政编码

发布时间：2020-12-14 05:38:27 所属栏目：百科来源：网络整理

导读：我有一个数组,其中包含perl中邮政编码区域的起始2个字符,如下所示： @acceptedPostcodes = ("CV","LE","CM","CB","EN","SG","NN","MK","LU","PE","ST","TF","DE","WS"); 我有一个搜索框,用户可以在其中输入部分或完整的邮政编码.我需要检查他们输入的后置代

我有一个数组,其中包含perl中邮政编码区域的起始2个字符,如下所示：

@acceptedPostcodes = ("CV","LE","CM","CB","EN","SG","NN","MK","LU","PE","ST","TF","DE","WS");

我有一个搜索框,用户可以在其中输入部分或完整的邮政编码.我需要检查他们输入的后置代码是否以数组中的一个元素开始,例如,如果他们输入’CV2 1DH’,它将评估为true,如果他们输入类似’YO1 8WE’的东西,它将评估为false它不是以其中一个数组值开头的.

现在这对我来说很容易用PHP做,但Perl并不是我太擅长的东西,到目前为止我的努力并不是很有成效.

有什么想法偷看？

解决方法

如果您接受的邮政编码列表足够大,以至于匹配代码中的性能是一个实际问题(可能不是),那么无论如何您最好使用哈希查找而不是数组：

#!/usr/bin/perl

use strict;
use warnings;

my %accepted_postcodes = ("CV" => 1,"LE" => 1,"CM" => 1,"CB" => 1,"EN" => 1,"SG" => 1,"NN" => 1,"MK" => 1,"LU" => 1,"PE" => 1,"ST" => 1,"TF" => 1,"DE" => 1,"WS" => 1);
# Or,to be more terse:
# my %accepted_postcodes = map { $_ => 1 } qw(CV LE CM CB EN SG NN MK LU PE ST TF DE WS);

my $postcode = "CV21 1AA";

if (exists $accepted_postcodes{substr $postcode,2}) {
    print "$postcode is OKn" ;
} else {
    print "$postcode is not OKn";
}

这种方法适用于5.8.8.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!