.file size=4096 byte
..file size=4096 byte
.listingfile size=1027 byte
camelids.xmlfile size=1217 byte
cook.plfile size=552 byte
file_itiran_run.plfile size=516 byte
file_list.plfile size=639 byte
file_select.plfile size=563 byte
modulefile size=4096 byte
print_dir_list.plfile size=406 byte
print_dir_list_kensu.plfile size=459 byte
print_dir_list_sort.plfile size=554 byte
print_file_dir.plfile size=1893 byte
print_file_size.plfile size=639 byte
print_getdata.plfile size=936 byte
print_list_env.plfile size=431 byte
print_script.plfile size=638 byte
print_time.plfile size=1454 byte
tes.plfile size=119 byte
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がディレクトリかファイルか判断する
	$size = -s "./$file";
	print "<TR><TD>$file</TD><TD>file size=".$size." byte</TD></TR>\n" 

}
print "</TABLE>";


&print_s_link;
exit;

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

&print_s_link;
exit;
#_____
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'})
}