如何在Windows计算机中使用Perl查找磁盘空间？

Question

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

举个例子

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

从上面的代码，我想获得c：\驱动器的可用空间和总空间。我已经尝试过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');