Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
}

say readroot($_) for ('A' .. 'Z');
  2. or download this
    X:\>subst
E:\: => C:\windows
F:\: => C:\
...
Z: Invalid argument

X:\>