my($exist) = 0;
open(OUT, ">>log.dat");
seek(OUT, 0, 0);
while(my $readline = <OUT>){
　　$readline =~ s/\x0D\x0A|\x0D|\x0A//;
　　if($readline eq $ipaddr){
　　　　$exist = 1;
　　　　last;
　　}
}
if(!$exist){
　　seek(OUT, 0, 2);
　　print OUT $ipaddr . "\n";
}
close(OUT);