Help for this page

Select Code to Download


  1. or download this
    C:\Users\alex>perl -MFile::stat -E "for my $d (qw( C: D: H: I: M: T: X
+: )) { my
$st=stat(qq<$d\\.>); say $d,' ',$st->dev() }"
...
X: 23

C:\Users\alex>
  2. or download this
    C:\Users\alex>subst n: c:\

...
X: 23

C:\Users\alex>