介護状況

#!/usr/bin/perl open(IN, "<./kaigo.txt"); @inbun=; close (IN); print"Content-tytpe: text/html\n\n"; print"介護状況"; print""; print""; print""; print""; print""; print""; print""; for($i=0;$i<@inbun;$i++){ my @retu=split(/\t/,$inbun[$i]); print ""; for($j=0;$j<@retu;$j++){ print""; } print ""; } print "

年

月

日

時

分

担当者

利用者

食事

食事状況

排泄

排泄状況

入浴

入浴状況

体温

特記事項

@retu[$j]

"; print "

"; print "control画面へ

"; print "

介護入力画面

"; print "

Total

"; print " surch

"; print "

powerd by
k-art-factory"; print ""; print"
";