Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
313 dpurdie 1 
#! /usr/bin/perl
2 
# To rename all the files and directories to
3 
# lower case.
4 
 
5 
TravelTree();
6 
 
7 
sub TravelTree
8 
{
9 
	foreach (<*>)
10 
	{
11 
		if (chdir $_)
12 
		{
13 
			TravelTree();
14 
		}
15 
		TranslateFileName();
16 
	}
17 
	chdir ("..");
18 
}
19 
 
20 
sub TranslateFileName
21 
{
22 
	my $new;
23 
 
24 
	$new = $_;
25 
	$new =~ tr /A-Z/a-z/;
26 
	rename($_, $new);
27 
}