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

Question

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

例如，

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

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

由于

Answer 1

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

尝试以下方法：

use strict;
use warnings;

use Win32::DriveInfo;

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

Answer 2

我相信CPAN有你的答案： DriveInfo