Как найти дисковое пространство, используя perl в Windows-машине?

Question

Мне нужно получить свободное дисковое пространство, общее дисковое пространство в машине Windows, используя perl.

Например,

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');

Answer 2

Я думаю, что у CPAN есть ваш ответ: DriveInfo