#!/usr/bin/perl print "Content-type: text/html;charset=Shift_JIS\n\n"; require "jcode.pl"; require "cgi-lib.pl"; $fileName="kousin01.txt"; open(FH,$fileName); $showDir="../kakuka/kousin01/"; $showData=""; $showCNT=0; print < 総務課からのお知らせ

 
HTML_DOCUMENT @all=; seek FH,0,0; close FH; @rev=reverse @all; foreach(@rev){ $showData=$_; ($title,$callFile,$LastUpDate)=split(/,/,$showData); $fullFileName=$showDir.$callFile; print ""; print "\n"; print "\n"; print "\n"; } print < HTML_DOCUMENT_Footer
件 名 登 録 日
$title$LastUpDate