怎么得到一个文件的大小？

Zandy

UID: 7392
帖子: 85
积分: 195
在线时间: 10 小时

1^# Zandy 发表于 2006-09-27 10:10

怎么得到一个文件的大小？

if (-e $filename){
}
可以判断文件是否存在

还有-s 等等什么的，似乎这个是去文件是否存在并返回大小的，
但是不知道是不是用这个东西来取得文件的大小，

$filesize = -s $filename; # 这样似乎是错误的，有了这句脚本就不能跑了“Internal Server Error”。

现在我有个文件 $filename，用什么语句能得到它的大小？谢谢！！！

aaronvox

UID: 11455
帖子: 143
积分: 328
在线时间: 1 天 4 小时

2^# aaronvox 发表于 2006-09-27 10:28

[Copy to clipboard] [ - ]

CODE:

my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
      $atime,$mtime,$ctime,$blksize,$blocks) = stat($curLogFile);
if( $size > 2000000 )
{
      my $tm = TimeXXX::XXtime('YYYYMMDDhhmmss','CURRENT');
      rename("$curLogFile","$curLogFile.$tm");
}

Osment

UID: 20892
帖子: 1
积分: 2
在线时间: 10 分钟

3^# Osment 发表于 2006-09-27 10:32

$filesize = -s $filename;
应该没有问题的。

Zandy

UID: 7392
帖子: 85
积分: 195
在线时间: 10 小时

4^# Zandy 发表于 2006-09-27 10:35

非常感谢！

use File::stat;
$filesize = (stat($filename))[7];

后来我看手册上这样，似乎可以了，谢谢楼二位！！

Osment

UID: 20892
帖子: 1
积分: 2
在线时间: 10 分钟

5^# Osment 发表于 2006-09-27 10:39

QUOTE:

原帖由 Zandy 于 2006-9-27 10:35 发表
非常感谢！

use File::stat;
$filesize = (stat($filename))[7];

后来我看手册上这样，似乎可以了，谢谢楼二位！！

你数一下2楼$time的位置，看是不是是7？
呵呵：）
你这个和2楼是一样的。

Zandy

UID: 7392
帖子: 85
积分: 195
在线时间: 10 小时

6^# Zandy 发表于 2006-09-27 10:40

QUOTE:

原帖由 Osment 于 2006-9-27 10:39 发表

你数一下2楼$time的位置，看是不是是7？
呵呵：）
你这个和2楼是一样的。

是的是的，哈哈

zghfww

UID: 10473
帖子: 37
积分: 85
在线时间: 2 小时

7^# zghfww 发表于 2008-11-18 11:07

我试了下，发现$filesize= -s $filename;是可以的，而用这个模块却不行啊,为什么呢？
use File::stat;
$filesize = (stat($filename))[7];