#!/usr/local/bin/perl print "Content-type: text/html\n\n" ; print "
¹øÈ£ | ID | À̸§ | ³¯Â¥ | ½Ã°¢ | Á¦¸ñ " ; print " | ||||||
| | | | | " ; $FileName = $ARGV[0] ; open( FILE , $FileName ) ; while ( $Number | $ID | $Name | $Date | $Time | $Subject \n" ;
}
}
print " | |