Directory recursing only for C files and print all the directories which have them

[sreemakam]

Hello,

I am a li'l new to perl scripting and I am trying to write a script which can give me the result in a particular format. I need to generate all the directories as well as the subdirectories that contain only c files in them in an order say starting with one directory follwed by its sub directories etc. Hope this is clear!

Can somebody help me with the Perl script??

Thanks,
sreemakam

[HermannJens]

#you only needed to say this line:
>I need to generate all the directories as well as the subdirectories that contain only c files in them.

# do you want it from the entire hard drive or just from a specific folder?

[pukur123]

use the following code in ur program...

system("find / -name *.c > a.out");

Read line by line from the file a.out and cut the basename and you will get the directory containing that .c file.

[sreemakam]

Hi,
Thanks for the replies. I could get what i was looking for! Actually, its not just recursing through the directories to get the C files. But, i need to generate the paths of the folders and sub-folders that contain the c file which is taken as the input to another program.

To get the required C files, all i did was...

use File::Find::name;
find(\&func_name, $path);

sub func_name
{
my $file = File::Find::name;
if ($file =~ /\.c/)
{ print $file;
}
}

For the paths, i am writing this into a file and then, generating the paths so that they are not repeated more than once.