need help for a script which goes through the directories recursively...

[bhumikas]

Hi all,
I need a help in perl script.The basic idea is,it must have command line arguments for the user flexibility.the files are in the format as shown below.

MainFolder
Directory
Sub_directory
files
Sub_directory
files
Directory
Sub_Directory
files
Sub_directory
files
Directory
Sub_Directory
files
Sub_directory
files
and so on....

I need to do some manipulation on the files depending on the commandline arguments.
1.If i just give the Folder name,it should go recursively till the end of all files in all the sub_directories .
2.If i give the directory name,it should process it and remaining directories in the folder.
2.If I give a sub_directory name,I should also mention the Directory name(mandatory) then it should process all the files in that subdirectory and keep continuing till it processes the entire directories.

I need more help in processing of the command line arguments.
i.e, how to declare and use them etc..

Thanks in advance..

[eWish]

Would you please show us the code that you have tried? Thank You!

[bhumikas]

I need some advice on this piece also.

In this way I can read complete folder and its contents...

opendir(dir, $FOLDER) or die "Can't open $FOLDER directory: $!\n";
  @directory = sort readdir(dir) or die "Unable to read current dir:$!\n";
  closedir(dir);

what I need is if I give the directory name,it has to start from that directory and continue till end....and also for the subdirectories. ...

Plzz can someone guide me

[KevinADC]

use the File::Find module:

perldoc: File::Find

[eWish]

I agree with Kevin. I was going to suggest the same module. I just wanted to see some effort first.

[bhumikas]

I need advice on how to have the conditions for command line arguments.
The code which I placed in my above post goes for the entire folder.
What I want to do is depending on the commandline it has to go either for entire folder or from the directory I pass or from the sub-directory of a directory I pass.
How to use these condns for same piece of coding....

[KevinADC]

I need advice on how to have the conditions for command line arguments.
The code which I placed in my above post goes for the entire folder.
What I want to do is depending on the commandline it has to go either for entire folder or from the directory I pass or from the sub-directory of a directory I pass.
How to use these condns for same piece of coding....

You have not posted any code. Did you read the File::Find documentation I posted a link to?

[bhumikas]

As shown below it starts for a specific folder and keeps on going...

chdir($FOLDER);
opendir(dir, $FOLDER) or die "Can't open $FOLDER directory: $!\n";
  @directory = sort readdir(dir) or die "Unable to read current dir:$!\n";
  closedir(dir);
 
foreach $directory (@directory)
{
....
....
opendir (dir,$directory) or die "Can't open the current directory: $!\n";
@sub_directory = sort readdir(dir) or die "Unable to read current dir:$!\n";
closedir(dir);
chdir($directory)
 
foreach $sub_directory (@sub_directory)
{
....
opendir(dir, $sub_directory) or die "Can't open the current directory: $!\n";
      @filename = sort readdir(dir) or die "Unable to read current dir:$!\n";
      closedir(dir);
chdir($sub_directory) or die "Unable to enter dir $sub_directory:$!\n";
...
....
foreach $filename (@filename)
{
...
...
chdir($filename) or die "unable..."
 
}
 
}
}

I might be wrong someway above,but its just a sample I typed in...

The thing where I need a suggestion is
1.If I start with the main folder,its fine and gonna work good.
2.If i start with a directory(also be mentioning the folder name in the command line),it has to start from that directory and has to keep going for that and also the remaining directories in that folder.How to set a condn for that,so that it can start from there and go recursively...
if($directory), I mean if I entered a value for directory...How to start the for loops and so on...
3.Its a condn more than the above as I need to start from a sub_directory of a directory and has to go recursively till the end of all directories in the folder.
(I will be passing the sub_directory,d irectory and the folder in the command line)

I need some help to implement this logic...

Thanks

[eWish]

The File::Find module that Kevin suggested will be so much easier.

[anjigorantla]

As like mentioned above will work perfectly.

use File::Find traversing module.
it will definitely help u.