ベストマッチさせる方法

質問

市外局番からもっともマッチした地域を表示させたいのですが。。
どうしますか？
例
%kyokuban=(
03＝＞東京1,
031=>台東区,
0312=>上野,
0313=>日暮里,
032=>墨田区,
);

$test=0312;
????????わかりません???????

回答No.2

racci

以下のhogeのような感じの関数にすればよいと思います。

%kyokuban=(
'03' =>'東京1',
'031' =>'台東区',
'0312'=>'上野',
'0313'=>'日暮里',
'032' =>'墨田区',
);

print &hoge('0312220000'); # →上野

sub hoge {
my $num = shift;
while (length($num) > 0) {
if (exists $kyokuban{$num}) {
return $kyokuban{$num};
}
chop($num);
}
return "不明";
}