Recherche:

Une autre solution tiré des snippets 8-)


#!/usr/bin/perl -w
use strict;
use diagnostics;

ListRep('chemin du répertoire');

sub ListRep {

Pourquoi pas une fonction simple :


sub _delete_files
{
# Ouvre le dossier
opendir(DIR, "dossier") or die "Impossible d'ouvrir le répertoire";
# Récupère le nom de tout les fichiers...