| Jean-Sébastien | mardi 13 novembre 2001 - 17h51
Bonjour,
je rencontre un problème avec une routine récursive qui , normalement, doit me permettre de copier une arborescence.
En voici le code :
sub copie($origine, $destination)
{
opendir (DOSSIER, $origine);
@dossier = readdir(DOSSIER);
$total = 0;
foreach $fichier (@dossier)
{
if ($fichier ne '.' && $fichier ne '..')
{
$fic = $origine."/".$fichier;
if (-d $fic)
{
$total += copie("$fic", "$destination/$fichier");
}
else
{
copy("$origine/$fichier", "$destination/$fichier");
$total++;
}
}
}
return $total;
}
Et le problème que je rencontre est que lorsque j'arrive sur un répertoire, la routine ne semble pas vouloir s'exécuter sur ce nouveau répertoire ...
Si quelqu'un a une idée, je suis preneur !
Merci
Jean-Sébastien |