.last update=2011/09/27 01: 16make2011/09/27 01: 16
..last update=2011/09/27 01: 22make2011/11/28 21: 55
.listinglast update=2000/04/28 00: 00make2011/10/04 22: 36
camelids.xmllast update=2003/04/13 00: 00make2011/09/27 01: 16
cook.pllast update=2000/05/01 00: 00make2011/09/27 01: 16
file_itiran_run.pllast update=2000/05/01 00: 00make2011/09/27 01: 16
file_list.pllast update=2001/05/21 00: 00make2011/09/27 01: 16
file_select.pllast update=2000/05/01 00: 00make2011/09/27 01: 16
modulelast update=2011/09/27 01: 16make2011/09/27 01: 16
print_dir_list.pllast update=2001/05/21 00: 00make2011/09/27 01: 16
print_dir_list_kensu.pllast update=2000/05/01 00: 00make2011/09/27 01: 16
print_dir_list_sort.pllast update=2001/05/21 00: 00make2011/09/27 01: 16
print_file_dir.pllast update=2000/05/01 00: 00make2011/09/27 01: 16
print_file_size.pllast update=2000/05/01 00: 00make2011/09/27 01: 16
print_getdata.pllast update=2000/12/24 00: 00make2011/09/27 01: 16
print_list_env.pllast update=2002/01/24 00: 00make2011/09/27 01: 16
print_script.pllast update=2000/05/01 00: 00make2011/09/27 01: 16
print_time.pllast update=2003/04/13 00: 00make2011/09/27 01: 16
tes.pllast update=2003/04/13 00: 00make2011/09/27 01: 16
program_list

#!/usr/local/bin/perl
#ファイルの時刻の取り出し
print "Content-type: text/html\n\n";
@dir_list = sort &dir_list("./");
print "<TABLE>";
foreach $file (@dir_list){
	#$fileの更新時刻を取得
	($mtime,$ctime) = &file_time("./$file");
	#コンバート更新日
	($year,$mon,$mday,$hour,$min) = &convert_time($mtime);
	$koushinbi = "$year/$mon/$mday $hour: $min";
	#コンバート作成日
	($year,$mon,$mday,$hour,$min) = &convert_time($ctime);
	$sakuseibi = "$year/$mon/$mday $hour: $min";
	print "<TR><TD>$file</TD><TD>last update=".$koushinbi."</TD><TD>make".$sakuseibi."</TD></TR>\n" 
}
print "</TABLE>";


&print_s_link;
exit;

#ファイルの作成時間変換

&print_s_link;
exit;
#################################3
sub file_time{
	#ファイルの日次を得る
	#ファイルステータスの取り出し
	local($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($_[0]);
	#retrun(更新日時,作成日時)
	return($mtime,$ctime);
}
sub convert_time{
	#日付型を指定した形式にフォーマットする
	local($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($_[0]);
	$mon ++;
	$year += 1900;
	return ($year,sprintf ("%02d", $mon),sprintf ("%02d", $mday),sprintf ("%02d",$hour),sprintf ("%02d", $min));
}



#_____
sub dir_list{
	opendir(DIR,"$_[0]");
	local(@list) = readdir(DIR);
}

################上までがプログラム本体下はソース表示のためのプログラム

sub print_s_link{
	require './module/type_script.pm'
	&type_script'type_script($ENV{'SCRIPT_NAME'})
}