#!/usr/bin/perl

$repertoire = shift;
# 1° paramère à la ligne de commande
$deuxieme_param = shift;
# 2° paramère à la ligne de commande
$troisieme_param = shift;
# 3° paramère à la ligne de commande


$lsr = `/bin/ls -R $repertoire > lsr`;

print "créez ou supprimez un fichier (dans $repertoire, ou sous-répertoire)\n";
print "\npuis faites 'ENTER'\n";
$stdin = <STDIN>;
# entrée au clavier : ne sert qu'à attendre le 'ENTER', on n'utilise pas la valeur entrée

$lsr2 = `/bin/ls -R $repertoire > lsr2`;


$difflsr = `diff lsr lsr2`;
print $difflsr;
@difflsr = split(/\n/, $difflsr);
foreach (@difflsr) {
	chomp;
	if (/^\d+/) {
		s/^(\d+).*/$1/;
		$line = $_;
		
	} else {
		s/^> //;
		$file = $_;
	}

}

print $line;
print "\n";
print $file;
print "\n";

exit;

if ($difflsr ne "") {
	open(LSR2, "<lsr2");
}