Skip to content

Instantly share code, notes, and snippets.

@wchristian

wchristian/gist:7194119

Forked from rehsack/gist:7194114
Created October 28, 2013 09:54
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save wchristian/7194119 to your computer and use it in GitHub Desktop.
Save wchristian/7194119 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
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);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment