#/usr/bin/perl

#Ce programme prend en argument un repertoire, le parcourt récursivement 
#et fait une action sur certains fichiers rencontrés dans ce parcours d'arbre
#Dans le programme defini ici, cette action consiste à supprimer les fichiers dont l'extension est
# .html.readme

# Exemple d'appel : perl parcoursRepertoire.pl monrepertoire/

my $filecount=0;
$ARGV[0] =~ s/\\$//;
Show_Dir($ARGV[0]);

sub Show_Dir {
	my $path = shift(@_);
	opendir(DIR, $path) or die "can't open $path: $!\n";
	my @files = readdir(DIR);
	closedir(DIR);
	foreach my $file (@files) {
		next if $file =~ /^\.\.?$/;
		$file = $path."/".$file;
		if (-d $file) {
			Show_Dir($file);	#appel recursif
		    }
		elsif (-f $file) {
#C'est ici que vous pouvez modifier les actions à effectuer sur les fichiers
# ici la fonction unlink supprime les fichiers dont l'extension coincide 
#avec le motif de recherche		    
                if (($file=~/0,2-3210,1-0,0\.txt/)) {
                system("cat $file >> Cancat_international.txt");
			     }
		    }
		else {
#			print "else: $file\n";
		}

	    }

    }