今日のパケットプログラム

1433 は grep -v するようにした。

#!/usr/bin/perl
@montable = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
$time=time()-86400;
($year, $mon, $day) = (localtime($time))[5,4,3];
$cmd=sprintf('sudo grep "%s %2d" /var/log/kern.log|grep ppp0|', $montable[$mon], $day);
$file=sprintf('/home/tnh/diary/%04d/d%04d%02d%02d.hnf', $year+1900, $year+1900, $mon+1, $day);
unless(-e $file){
	open(FL,">$file");
	print FL "OK\n";
	print FL "\n";
	print FL "CAT 睡眠\n";
	print FL "NEW 起床\n";
	close(FL);
}
open(FL,$cmd);
@datas=<FL>;
close(FL);
open(FL,">>$file");
print FL "\n";
print FL "CAT Linux\n";
print FL "NEW 今日のパケット\n";
print FL "\n";
if(@datas){
	print FL "PRE\n";
	foreach(@datas){
		if(/:1433/){
			++$n1433;
		}else{
			print FL;
		}
	}
	print FL "/PRE\n";
	if($n1433){
		print FL "\n";
		print FL "P\n";
		print FL "その他 1433 へのアクセス $n1433 件。\n";
		print FL "/P\n";
	}
}else{
	print FL "P\n";
	print FL "平和\n";
	print FL "/P\n";
}
close(FL);