PGM->Perl/ディレクトリ操作 - プログラミングの勉強をしよう@Wiki

Top > PGM->Perl > ディレクトリ操作

ディレクトリ操作

ディレクトリリスト

# ディレクトリ取得
my $dir = $ARGV[0];
 
# ディレクトリハンドラオープン
opendir HANDLE, $dir;
 
while($line = readdir HANDLE){
	if( -d $dir . "/" . $line){
		print "[dir ]:";
	}else{
		print "[file]:";
 
	}
	# ファイルの情報を取得
	@info = stat($dir . "/" . $line);
	$date = localtime(@info[9]);
	# 出力
	printf("%20s - %s\n", $line, $date);
}
 
# ディレクトリハンドラクローズ	
closedir HANDLE;
 
 

>perl sample.pl temp
[dir ]:                   . - Wed Jan  4 00:07:03 2012
[dir ]:                  .. - Wed Jan  4 00:07:16 2012
[dir ]:                 old - Wed Jan  4 00:07:03 2012
[file]:          sample.txt - Tue Jan  3 21:11:38 2012
[file]:         sample01.pl - Tue Jan  3 21:35:49 2012
[file]:         sample02.pl - Tue Jan  3 21:48:08 2012
[file]:         sample03.pl - Tue Jan  3 22:13:42 2012
[file]:         sample04.pl - Tue Jan  3 22:18:47 2012
[file]:         sample05.pl - Tue Jan  3 21:55:13 2012
[file]:         sample1.txt - Tue Jan  3 22:19:07 2012
 
>
 

---