#!/usr/bin/perl -W

# TP synchronisation de fichiers en perl
#
# Question 1
# version alternative utilisant glob au lieu de readdir
# 
# Antoine Miné
# 26/01/2007

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

sub parcours {
    my $dir = shift;

    # lit tous les fichiers sauf ceux commançant par . à la manière du shell
    # glob("$dir/*") s'écrit aussi <$dir/*>
    my @files = glob("$dir/*");

    foreach (@files) {
	# $_ contient un nom de fichier, avec son répertoire $dir
	if (-f)    { print "$_\n"; }
	elsif (-d) { parcours($_); }
    }
}

parcours($dir);