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

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

MHFプレプリントシリーズ

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

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

Number	Author	Title	PDF Download
$no	$author	$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 }