How to get the list of Drives in Windows

[tpr]

Hi all,

I'm new to perl,
In one of my requirement, I need to find a particular directory. this directory may be in any drive.

-> How to get the list of Drives in Windows( C:/ , D:/ etc..)
-> After this My Perl script need to get into each drive and search a particular dir.
-> If it is found, then the script need to print the whole path of the dir.

E.g:-

Input : "Logfile\testfindDir" # this is the dir the script need to find.

output: "D:\\desktop\Logfile\testfindDir"



Thanks
Tpr

[Miles Runner]

Hello,
I have no much idea how to do this in perl, but if you need the logic then I have a code where it is done in java.
Here is the code

import java.io.*;

public class  DirListing{
  private static void dirlist(String fname){
    File fl = new File(fname);
    String[] str = fl.list();
    if(str == null){
      System.out.println("Specified directory does not exist or is not a directory.");
      System.exit(0);
    }else{
      for(int x = 0; x < str.length; x++){
        String fileName = str[x];
        System.out.println(fileName);
      }
    }
  }
  public static void main(String[] args){
    switch(args.length){
      case 0: System.out.println("Directory has not mentioned.");
          System.exit(0);
      case 1: dirlist(args[0]);
          System.exit(0);
      default : System.out.println("Multiple files are not allow.");
            System.exit(0);
    }
  }
}