#!/usr/bin/perl -W

# TP synchronisation de fichiers en perl
#
# Question 1
# version alternative qui ignore les répertoires où il ne peut pas entrer
# 
# Antoine Miné
# 26/01/2007

$dir = $ARGV[0] or die "Il me faut un argument!";

sub parcours {
    my $dir = shift;

    # on a simplement changé le die en return...
    opendir(DIR,$dir) or return;
    my @files = readdir(DIR) or return;
    closedir(DIR);

    foreach (@files) {
	next if /^\.\.?$/;
	$filename = "$dir/$_";
	if (-f $filename)    { print "$filename\n"; }
	elsif (-d $filename) { parcours($filename); }
    }
}

parcours($dir);