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
  • 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

Revisions

  1. @rehsack rehsack created this gist Oct 28, 2013.
    10 changes: 10 additions & 0 deletions gistfile1.txt
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,10 @@
    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);