21世紀COEプログラム：プログラム研究実績・報告

#!/usr/bin/perl $datafile="/home/jimu-web/webdata/report-dat/report.txt"; use File::stat; use Time::localtime; #$update = ctime(stat($datafile)->mtime); { print < 21世紀COEプログラム：プログラム研究実績・報告

実績報告

EOF } open(f,"$datafile"); $n=0; while() { $n++; chop; ($title,$pdffile,$size) = split(/#/); { print < EOF } else { print <

$size EOF } } close(f); { print <

Title	PDF Download
$title	EOF } if ($size=="0") { print <

* If you are having difficulty viewing a PDF document on this web site: Make sure you have the latest version of Adobe Acrobat Reader.

EOF }