#! /usr/local/bin/perl $data="koshin.dat"; open(DB,"$data");@data=;close(DB); print"Content-Type: text/html\n\n"; print<<"_EOF_"; 進化の歩み
進化の歩み
管理用

_EOF_ foreach $tmp(reverse sort @data){ $temp=$tmp;chop($temp) if($temp=~/\s$/); next if($temp=~/^#/); local($date,$title,$memo)=split(/<>/,$temp); print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; } print<<"_EOF_";
年月日 更　新 内　　　容
$date$title$memo

_EOF_