#!perl
$LOGFILE="debug-20120718-0021.log"; #put log name here
$SKYPENAME="-askypename-"; #put Skype name here
open(RD,$LOGFILE);
open(WR,">_ip_logger.txt");
while(<RD>){ chomp;
$line=$_;
if( ($line=~ /PresenceManager:/) and ($line=~ /noticing/) ){
$line=~ /-r(\d+.\d+.\d+.\d+)/;
$ip=$1;
print WR $line."\n";
print WR "IP: $ip\n";
if ($line=~ /$SKYPENAME/){
print $line."\n";
print "${SKYPENAME} IP: $ip\n";
};
};
};
close(RD);
close(WR);
sleep()