09/11/10 22:10:21 unwuIp/n0 BE:8821499-PLT(12222)
>>99
既にこうなっております♪
# 重複削除して、正引きして書き換え
my %DDNSlist;
my @DDNSlist_New;
for (
map { $_->[0] } # 復元
grep { not $DDNSlist{$_->[1]}++ } # 重複分
grep { $_->[1] } # からつぽ？
map { [$_, split /<>/]} # 一旦リファレンスに
@DDNSlist
){
my ($DDNS_Hostname, $DDNS_IP, $DDNS_Latest) = split /<>/;
my $query = $Resolver->query($DDNS_Hostname, 'A');
if ($query) {
foreach my $rr ($query->answer){
next unless $rr->type eq "A";
push @DDNSlist_New, sprintf qq|%s<>%s<>%s<>|, $DDNS_Hostname, $rr->address, time; # ここで収集♪
}
}
else {
$DDNS_Latest = time unless $DDNS_Latest;
push @DDNSlist_New, sprintf qq|%s<>%s<>%s<>|, $DDNS_Hostname, $DDNS_IP, $DDNS_Latest; # 最終確認時間を♪
}
}