为什么 du 和 Perl's -s 给出不同的文件大小值？

Question

根据评论更新：

我有outlog.txt文件，其中包含多个文件名，例如：2345_535_Dell&HP_3PAR_DEAL.txt，同样有很多文件名但不是文件所在的实际文件夹，因此在代码中将文件名附加到文件夹路径以获取实际文件位置。现在，我想获取 outlog.txt 中存在的所有文件的磁盘使用情况以及 outlog.txt 中存在的所有文件的总磁盘使用情况。

我尝试了两种方法 perl -s 和我的 ($size) = split(' ', du `"$folderpath/$_"`) 但两种方法都给了我不同的值，而且当我我正在使用 du 而不是获得一些数值，但它没有给我单位，有没有一种方法可以让我在不使用 -h 选项的情况下获得人类可读，因为它不起作用在我的系统上？

背景信息

我的目标是获取文件的大小，目前我正在使用 perl -s 获取文件大小。我也尝试过 du ，但同一文件的大小得到了不同的值。我无法理解这是如何工作的。

问：为什么du和perl -s给出不同的大小值？他们内部如何运作？这两个不同的值哪一个更准确？另外，我不确定为什么 du -h filename 给我一个非法表达式错误：

bash-2.03$ du -h test.txt
/usr/bin/du: illegal option -- h
usage: du [-a][-d][-k][-r][-o|-s][-L] [file ...]

代码：

my $folderpath = 'the_path';
open my $IN, '<', 'path/to/infile';
my $total;
while (<$IN>) {
    chomp;
    my $size = -s "$folderpath/$_";
    print "$_ => $size\n";
    $total += $size;
}
print "Total => $total\n";

礼貌：RickF

更新：

问： 如何获取每个文件的磁盘使用值而不是文件大小，这意味着如何获取每个文件的 du 值而不是 file 的 perl -s 值？

操作系统信息 名称：SunOS uname -v :Generic_117350-39

更新代码：根据大脑的方法，但 du 值仅打印为零而不是实际值，有什么建议吗？

更新： 如果我使用 my ($size) = split(' ', du "$folderpath/$_");比我得到 du 值但它给了我一些数字，如何在不使用 -h 选项的情况下将其变为人类可读的？

 #!/usr/bin/perl
 use strict;
 use warnings;

my $folderpath = '/Project/upload';
open my $IN, '<', 'outlog.txt';
my $total;
while (<$IN>) {
    chomp;
    #my( $block_size, $blocks ) = ( stat( "$_" ) )[11,12];
    #my $du_size = $block_size * $blocks;
    my ($size) = split(' ', `du "$folderpath/$_"); 
    #my $size = -s "$folderpath/$_";
    print "$_ => $size\n";
    $total += $size;
}
print "Total => $total\n";

Answer 1

du 报告实际磁盘使用情况，Perl 的 -s 报告文件大小。因此，如果文件的长度为 4 个字节，则其大小为 4 个字节，但磁盘使用量为 4 KB（取决于文件系统的设置方式）。

您还会发现稀疏文件的大小有所不同。稀疏文件占用的空间比他们声称的要少。

Answer 2

默认情况下，du 显示文件使用的块数（在大多数系统上每个块为 512 字节），而 perl 的 -s 显示字节数。

至于为什么您的 du 副本没有 -h 选项，您没有告诉我们您正在使用什么操作系统；它似乎包含该程序的一个非常过时的版本。

更新：要获取 perl 中的磁盘使用情况，您可以使用 Filesys ::DiskUsage 模块。

Answer 3

du 代表“已使用的磁盘”，报告磁盘上文件的物理大小。如果文件稀疏，则这可能比其逻辑大小小得多，这就是 -s 报告的内容。两者都是“准确的”，它们只是测量不同的东西。

该错误消息表明您计算机上安装的 du 版本不支持 -h 选项。

Answer 4

如果您希望 du 给出与 Perl 的 -s 相同的结果，请尝试 du -b。如果您的 du 支持它，这会给出“表观大小”，这与磁盘使用情况不同，正如其他人所说。

但要做到这一点，您必须更新您的 du。

OP更新代码的更新：确保该文件存在于您当前的工作目录中。您可能必须在目录前面加上前缀以确保 Perl 能够找到该文件。

如果您不再在任何地方使用 $_，它也可能会澄清一些事情：

while( my $line = <$IN> ) {
  chomp $line;
  my( $block_size, $blocks ) = ( stat( $line ) )[11,12];
  ...
}

这样您就可以避免对 $_ 的无意更改。