如何在 Perl 中获取图象文件的尺寸和文件大小

获取文件大小不需要安装额外的模块，用-s *** 作符即可：

假设文件路径在变量$file_path中，那么$file_size文件大小可以用如下语句获得：

$file_size = -s $file_path;

得到的结果单位为Byte（字节），如果要换算成KB，则将结果除1024，如果要换算成MB，则再除1024，以此类推。

要获取的尺寸，可以用模块 Image::Size

use Image::Size;

my ($globe_x, $globe_y) = imgsize($file_path);

File file = new File("文件路径");

Systemoutprintln(filelength());//输出的是文件的字节数

这样就可以获得文件的长度了

大概有这些方法可以获得文件大小

FileSizeByName（需要引用IdGlobal单元）

GetFileSize

FileSize（不能获得正在使用的文件大小）

FileSeek

TFileStreamSize

下面是使用例子

1。FileSizeByName（需要引用IdGlobal单元）

begin

if

OpenDialog1Execute

then

begin

ShowMessage(IntToStr(FileSizeByName(OpenDialog1Filename)));

end;

2。GetFileSize

var

FileHandle:integer;

begin

if

OpenDialog1Execute

then

begin

FileHandle

:=

FileOpen(OpenDialog1FileName,

0);

ShowMessage(IntToStr(GetFileSize(FileHandle,

nil)));

FileClose(FileHandle);

end;

3。FileSize（不能获得正在使用的文件大小）

var

f:

file;

begin

if

OpenDialog1Execute

then

begin

AssignFile(f,

OpenDialog1FileName);

Reset(f,

1);

ShowMessage(IntToStr(FileSize(f)));

CloseFile(f);

end;

4。FileSeek

var

FileHandle:integer;

begin

if

OpenDialog1Execute

then

begin

FileHandle

:=

FileOpen(OpenDialog1FileName,

0);

ShowMessage(IntToStr(FileSeek(FileHandle,0,2)));

FileClose(FileHandle);

end;

5。TFileStreamSize

var

FS:

TFileStream;

begin

if

OpenDialog1Execute

then

begin

FS

:=

TFileStreamCreate(OpenDialog1FileName,

fmShareDenyNone);

ShowMessage(IntToStr(FSSize));

FSFree;

end;

另在IdGlobalProtocols中有个FileSizeByName()的函数。

python读取文件大小的代码如下：

[python] view plaincopyimport os

from ospath import join, getsize

def getdirsize(dir):

size = 0L

for root, dirs, files in oswalk(dir):

size += sum([getsize(join(root, name)) for name in files])

return size

if '__name__' == '__main__':

filesize = getdirsize(r'c:\windows')

print 'There are %3f' % (size/1024/1024), 'Mbytes in c:\\windows'

以上就是关于如何在 Perl 中获取图象文件的尺寸和文件大小全部的内容，包括:如何在 Perl 中获取图象文件的尺寸和文件大小、java如何编程实现获取文件的长度、怎么样得到文件的大小（DELPHI）等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！