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

Question

我正在扫描文件系统并希望确定磁盘上文件的分配大小。

使用 stat() 我可以获得文件大小为 ( stat(_ ) )[7]，磁盘上分配的块可以从( stat(_) )[12]获取，“文件系统I/O的首选块大小”为( stat(_) )[11]。

但是，如果我仅将统计列 11 和 12 相乘，则不会得到磁盘上分配的空间（在 Solaris 5.10 sparc 上）。

如何通过 Perl 中的 stat() 函数调用以编程方式获取磁盘上为文件分配的空间？

Answer 1

(stat _)[11] 中公开的值是 st_blksize，即 记录为

关于 I/O 操作的“最佳”单元大小的提示。该字段没有为块特殊文件或字符特殊文件定义。

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

<前><代码> blkcnt_t st_blocks; /* 分配的512字节块的数量*/

因此，您可以使用诸如“

#! /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>

或“如果您有 root”

fstyp -v /dev/dsk/...

之类的代码对于普通文件，文件本身的大小，ie，(stat _)[7]，通常小于分配的所有块的总大小，因为文件系统分配整个块。

Answer 2

这是在 ZFS 文件系统上吗？我不确定它如何与 Perl 的 stat 函数调用交互，但文件的实际大小与 ZFS 中磁盘上报告的大小之间通常存在差异，具体取决于元数据和压缩。根据 perldoc -f stat 中的文档，我没有看到任何方法可以从 Perl 的 stat 中提取足够的信息来推测在 ZFS 的独特情况下磁盘上实际存在的内容。如果所有其他方法都失败了，并且您需要不惜一切代价确定磁盘上实际存在的内容，作为丑陋的最后手段，您可以简单地向 du 支付费用。

请参见此处。