08/06/19 20:52:55 9kBoUUsr0
# 正引き
else {
my $src_ADDR;
my $query = $Resolver->search($FORM{'boo2008ip'});
if ($query) {
foreach my $rr ($query->answer){
next unless $rr->type eq "A";
$src_ADDR = $rr->address; # 正引き結果を入れる
last;
}
}
Error('15') unless $src_ADDR; # 正引きできなかった。
}
-------- 受け側より引用
あ、何となく判った♪