Raku-native 磁盘空间使用情况

Question

目的：

• 保存将数据写入磁盘的程序，以防止徒劳地尝试写入完整的文件系统；
• 节省带宽（如果没有地方存储就不要下载）；
• 节省用户和程序员的时间和精力（通知他们问题所在，而不是让他们通过阅读误导性错误消息和“为什么这个软件不工作！”）。

问题分为两部分：

1. 报告所有文件系统或相关路径所属文件系统的存储空间统计信息（可用、已用、总计等）。
2. 在空间不足时报告文件系统错误。

第 1 部分

请NATIVE分享Raku替代品（TIMTOWTDIBSCINABTE "Tim Toady Bicarbonate"）到：

raku -e 'qqx{ df -P $*CWD }.print'

在这里，raku-executes df（无磁盘）外部程序通过 shell 引用插入 qqx{}，输入 -Portable-format 参数和 $*CWD 当前工作目录，然后是 .print s df 的输出。

---

sn-p 最初被写为raku -e 'qqx{ df -hP $*CWD }.print'——同时包含-human-readable 和-Portable——但结果证明它不是一个普遍有效的命令。 In OpenBSD 7.0，退出并报错：df: -h and -i are incompatible with -P.
为了增加人类可读性，您可以考虑Number::Bytes::Human module

Answer 1

raku -e 'run <<df -hP $*CWD>>'

如果您只是在 STDOUT 上输出 df 为您提供的内容，则无需执行任何操作。

<< >> 是双引号，因此 $*CWD 将被插值。

Answer 2

第 1 部分 - 报告存储空间统计信息

没有用于报告存储空间统计信息的内置函数。选项包括：

• 编写使用NativeCall 调用平台/文件系统特定系统调用（例如statvfs()）并使用该调用返回的信息的Raku 代码（几行代码）。

• 使用合适的 Raku 库。 FileSystem::Capacity 为您挑选并运行一个外部程序，然后以可移植的形式提供其结果数据。

• 使用run（或类似的¹）调用特定的外部程序，例如df。

• 使用Inline::* foreign language adaptor 启用外部PL 的解决方案以报告存储空间统计信息，并使用它提供的信息。²

第 2 部分 - 报告空间不足

Raku 似乎巧妙地报告了No space left on device：

> spurt '/tmp/failwrite', 'filesystem is full!'
Failed to write bytes to filehandle: No space left on device
  in block <unit> at <unknown file> line 1

> mkdir '/tmp/failmkdir'
Failed to create directory '/tmp/failmkdir' with mode '0o777': Failed to mkdir: No space left on device
  in block <unit> at <unknown file> line 1

（程序员需要避免丢弃这些异常。）

脚注

¹run 运行外部命令不涉及 shell。这保证了与壳相关的风险被消除。也就是说，Raku 还支持使用 shell（因为在某些情况下这很方便且合适）。有关此问题的简要讨论，请参阅问题下的 cmets 交流（例如 this one），以及有关风险摘要的 shell doc：

所有 shell 元字符都由 shell 解释，包括管道、重定向、环境变量替换等。 Shell 转义是一个严重的安全问题，可能会导致与不寻常的文件名混淆。如果您想安全起见，请使用 run。

² Raku 的外语适配器（Inline:: 命名空间中的 Raku 模块）允许 Raku 代码使用以其他语言编写的代码。这些适配器不是 Raku 语言标准的一部分，如果是这样的话，大多数还只是处于实验状态，但相反，最好的适配器状态良好，允许 Raku 代码使用外国库，就好像它们是为 Raku 编写的一样。 （截至 2021 年，Inline::Perl5 是最精致的。）