How to find disk space using Perl in a Windows machine?

Question

I need to get free disk space, total disk space in a windows machine using perl.

As an example,

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

From the above code I want to get free space and total space for c: \ drive. I tried with Filesys :: DiskSpace. But I am not going to work with the module for windows. Please share your solutions.

thanks

Answer 1

Filesys :: DiskSpace is not supported on Windows. You must use Win32 :: DriveInfo .

Try the following:

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

Answer 2

I believe CPAN has your answer: DriveInfo