Skip to content

Instantly share code, notes, and snippets.

@rehsack
Created October 28, 2013 09:52
Show Gist options
  • Save rehsack/7194114 to your computer and use it in GitHub Desktop.
Save rehsack/7194114 to your computer and use it in GitHub Desktop.
Win32::DriveInfo dump for S::FS
use DDP;
use Win32::DriveInfo;
for my $func (qw(DriveType VolumeInfo)) {
for my $drv (qw(a c)) {
$res{$func . "-" . $drv} = [ Win32::DriveInfo->can($func)->($drv) ];
}
}
$res{GetVersionEx} = Win32::DriveInfo::GetVersionEx();
p(%res);
@wchristian
Copy link

{
    DriveType-a   +  [
    [0] 2
    ],
    DriveType-c   +  [
    [0] 3
    ],
    GetVersionEx  +  "Service Pack 1",
    VolumeInfo-a  +  [
    [0] undef
    ],
    VolumeInfo-c  +  [
    [0] "",
    [1] "746E:9F82",
    [2] 255,
    [3] "NTFS",
    [4] 1,
    [5] 2,
    [6] 3,
    [7] 4,
    [8] 6
    ]
}

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment