ディレクトリ内のファイル情報一覧

　初歩から始める初心者向けPerl-CGI講座　■　


	`CGI`の設置方法
	フリーで配布されている`CGI`を設置する際の手順や注意事項などの説明です。

	`CGI`作成の初歩
	初めて`CGI`を作る方向けの手順を簡単な例で説明しています。

	`CGI`作成ヒント集
	こういう事をする時は、どのように行えばいいのか？など具体的な事例を紹介します。

	`CGI`の設置に関する用語
	`CGI`の作成に関する用語
	`CGI`の設置や作成時に使われている用語や関連知識を掲載しています。

	設置に関するFAQ
	作成に関するFAQ
	設置や作成をする際に起こりがちなトラブルの説明と、よくある質問とその回答を掲載しています。

ディレクトリ内の指定ファイルの情報一覧

ディレクトリ内にあるファイルの情報一覧を表示します

下のサンプルソースをそのまま実行すると、 html ファイルと txtファイルの情報一覧を表示します。
表示対象ファイル指定が、 .html|.txt　となっていますが、これを .html|.txt|.htm　など | で区切ると
追加指定できます。

#!/usr/local/bin/perl

#対象ディレクトリ指定
$dir = './';

#表示対象ファイル指定
$file = ".html|.txt";

print "Content-type: text/html\n\n";
print <<"HTML";
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
HTML

#ディレクトリ内のファイル名を全て取得
opendir(DIR , $dir);
while($view = readdir(DIR))
{
	push(@allfile,$view);
}

#対象ファイルの場合は詳細を順次表示する
foreach $tmp (@allfile)
{
	if ($tmp =~ /$file$/i)
	{
		@stdata = stat($tmp);

$kousindate = &settime($stdata[9]);
		$accdate = &settime($stdata[8]);

$kengen = sprintf ("%o",$stdata[2]);
		$kengen = substr($kengen,3,3);

print "・ファイル名$tmp \n";
		print "・サイズ$stdata[7]Byte \n";
		print "・所有者$stdata[4] \n";
		print "・グループ$stdata[5] \n";
		print "・最終更新$kousindate \n";
		print "・最終アクセス$accdate \n";
		print "・アクセス権$kengen \n";
	}
}

exit;

sub settime
{
$sttime = $_[0];
#time関数で得られた数値をlocaltime関数で整形し各変数に入れる
($sec,$min,$hour,$mday,$mon,$year,$wno) = localtime($sttime);
#曜日は 0～6 の値が返されるので配列で扱う
@wdays = ('SUN','MON','TUE','WED','THU','FRI','SAT');
#返された値をさらに sprintf関数で整形し、書式を読みやすいようにする。
$nitizi = sprintf("%04d/%02d/%02d(%s) %02d:%02d",$year+1900,$mon+1,$mday,$wdays[$wno],$hour,$min);
#変換後の日時を呼び出し元へ返す
return $nitizi;
}

ファイルのアクセス権を取得している部分の処理に注目してみて下さい。
下の2行ですが、配列の3番目で取得したデータをそのまま表示すると、
33188 などと意味不明の数字が表示されると思います。

これは ファイルタイプとアクセス権の数値を 10進数で表したもので、
これを 8進数に変換すると、 100644 などの数値になるはずです。
この末尾三桁がアクセス権となっていますので、下の例では
下三桁を substr で取出し、それをアクセス権として表示しています。

$kengen = sprintf ("%o",$stdata[2]);
$kengen = substr($kengen,3,3);