有事法制反対　新着情報

#!/usr/local/bin/perl use Time::Local; $newmark = ''; $newdates=2; $time=time; open IN,"message.idx"; print "content-type: text/html\n\n"; while(){ @fields=split(/:=:/); ($year,$mon,$day)=split(/\//,$fields[3]); $updatetime=timelocal(0,0,0,$day,$mon-1,$year); if (($time-$updatetime) > $newdates*24*60*60*2) { $newsign = ""; } else { $newsign = "$newmark"; } if(not($fields[0]=~/^\*/)){ print "\n" ; } } close IN;
$fields[1]$newsign$fields[2]