perl - 如何在 Windows 机器中使用 perl 查找磁盘空间？

Question

我需要使用 perl 获取可用磁盘空间，即 windows 机器中的总磁盘空间。

例如，

use strict;
my $curr_drive="c:\";

从上面的代码中，我想得到 c:\驱动器的可用空间和总空间。
我试过 Filesys::DiskSpace 模块。但我不知道如何处理 Windows 的模块。
请分享您的解决方案。

谢谢

Answer 1

模块Filesys::DiskSpace在 Windows 上不受支持。您必须使用 Win32::DriveInfo .

尝试以下操作:

use strict;
use warnings;

use Win32::DriveInfo;

my (undef, undef, undef, undef, undef, $total, $free) =
    Win32::DriveInfo::DriveSpace('c');