如何使用Perl确定磁盘上的实际文件大小?

公开的价值 (stat _)[11] st_blksize ,即 documented 作为

这不一定是文件所在的特定文件系统的块大小,但同一手册页包含一个方便的定义:

 blkcnt_t st_blocks;   /* Number of 512 byte blocks allocated*/

所以你可以使用这样的代码

#! /usr/bin/perl

use warnings;
use strict;

sub usage { "Usage: $0 file ..\n" }

die usage unless @ARGV;

foreach my $file (@ARGV) {
  my $dir = dirname $file;

  my $blocks = (stat $file)[12];
  unless (defined $blocks) {
    warn "$0: stat $file: $!\n";
    next;
  }

  print "$file - ", $blocks * 512, "\n";
}

如果您担心文件系统的块大小不是512的倍数,请仔细检查其中一个

df -g <directory>

或者如果你有根

fstyp -v /dev/dsk/...

即 (stat _)[7] ,通常小于分配的所有块的总大小,因为文件系统分配整个块。

这是在ZFS文件系统上吗?我不确定它将如何与Perl的stat函数调用交互,但文件的实际大小与ZFS中磁盘上报告的大小之间通常存在差异,这取决于元数据和压缩。根据中的文档 perldoc -f stat stat du

See here.