5 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
\r
10 print "Tabs found: $nTabsFound\n" ;
\r
17 processDir( "../cds" ) ;
\r
18 processDir( "../src" ) ;
\r
19 processDir( "../test" ) ;
\r
24 my $dirName = shift ;
\r
25 print "Process $dirName directory...\n";
\r
27 opendir(my $dh, $dirName) || die "can't opendir $dirName: $!";
\r
28 my @files = grep { /^[^\.]/ } readdir($dh);
\r
31 foreach my $file ( @files ) {
\r
32 if ( -d "$dirName/$file" ) {
\r
33 processDir("$dirName/$file");
\r
35 elsif ( $file =~ /\.(h|cpp)$/ ) {
\r
36 processFile( "$dirName/$file" );
\r
41 sub processFile( $ )
\r
45 if ( open( my $fh, $file )) {
\r
49 $nTabsFound += $_ =~ s/\t/ /g;
\r
52 $_ =~ s/\)\s+\)/\)\)/g;
\r
58 if ( open( my $fh, ">$file" )) {
\r