# size.pl
# 内容 : ファイルのサイズ（バイト数）等を取得する。
# Copyright (c) 2002-2011 Mitsuo Minagawa, All rights reserved.
# (minagawa@fb3.so-net.ne.jp)  
# 使用方法 : c:\>perl size.pl
#
open(IN1,"input.txt");
open(OUT1,">output.txt");
# 
# 全項目を取得する場合
# 
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)	= stat	IN1;
print	OUT1	"size1=$size\n";
# 
# ファイルのサイズだけを取得する場合（ファイルハンドルを引数とする場合）
# 
$size	= (stat	IN1)[7];
print	OUT1	"size2=$size\n";
# 
# ファイルのサイズだけを取得する場合（ファイル名を引数とする場合）
# 
$size	= (stat	"c:/Perl64/html/index.html")[7];
print	OUT1	"size3=$size\n";

close(IN1);
close(OUT1);
