펄 배열에 대한 우편 번호를 입력 한 평가

Question

내가 가지고과 같이 펄 우편 번호 영역의 시작이 개 문자를 포함하는 배열 :

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

나는 사용자가 일부 또는 전체 게시물을 입력하는 검색 상자를 가지고 암호. 만약 그들이 'CV2 1DH'를 입력하면 예를 들어 'true'로 평가하고 'YO1 8WE'와 같이 입력하면 false로 평가 될 것이라고 입력 한 포스트 코드가 배열의 요소 중 하나와 함께 시작했는지 확인해야합니다. 배열 값 중 하나로 시작하지 않습니다.

이제는 PHP에서 나에게 쉽게 할 수 있지만 Perl은 뭔가 좋은 점이 없으며 지금까지는 열심히 노력하지 않았습니다.

어떤 아이디어가 있습니까? .

Answer 1

는 일치하는 코드에서 그 성능은 아마 당신은 어쨌든 배열 대신 해시 조회를 사용하여 더 나을 것, (아마 아닌) 실제 관심사입니다 :

#!/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, 0, 2}) { 
    print "$postcode is OK\n" ; 
} else { 
    print "$postcode is not OK\n"; 
} 

이 방법은 5.8.8에서 정상적으로 작동합니다.

Answer 2

Smart Match (~~)는 입력 된 문자열에서 첫 두 글자를 얻을 수 substr를 사용 후

#!/usr/bin/perl 

use strict; 
use warnings; 
use v5.10; 

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

my $postcode = "CV21 1AA"; 

if ((substr $postcode, 0, 2) ~~ @acceptedPostcodes) { 
    say "$postcode is OK" ; 
} else { 
    say "$postcode is not OK"; 
} 

Answer 3

를 사용할 수있는 여기 (당신의 친구입니다 List::Util의 first, 또는 grep 내장 :

use List::Util 'first'; 

my $postcode = substr $input, 0, 2;  
my $status = (first {$_ eq $postcode} @acceptedPostcodes) ? 1 : 0; 

Answer 4

예전 구식 foreach 버전은 대소 문자를 구분합니다. ~~ 버전 int와 거의 동일한 벤치 마크 아무렇게나. 접수 우편 번호의 목록이 충분히 큰 경우

sub validatePostcode($) 
{ 
    my ($testPostcode) = @_; 
    my @acceptedPostcodes = ("CV", "LE", "CM", "CB", "EN", "SG", "NN", "MK", "LU", "PE", "ST", "TF", "DE", "WS"); 

    $testPostcode = substr($testPostcode, 0, 2); 
    foreach my $postcode (@acceptedPostcodes) 
    { 
    if($postcode eq $testPostcode) 
    { 
    return 1; 
    } 
    } 

    return 0; 
}