Une aide pour explication d'un script

Voila je dois expliquer ce que fait exactement le script suivant, pouvez vous m'aider svp ?

Voici le script :


!# /usr/bin/perl

$mydir = "/etc/vsftpd/restricted/" ;

opendir (DIR, $mydir);
@plop = readdir(DIR);
closedir(DIR);

foreach $line (@plop) {
next if $line =~ /^\./;
open (FILE, $plop.$line); $xfile = <FILE>; close FILE;
next if $xfile =~ /^write/;
$xfile =~ /local_root=(.+)/;
print "$1 in file $line has a problem\n" if (!(-e $1));
}

1) poster dans la bonne section
2) :tagcode:
3) c'est pas assez lisible comme code j'ai du mal à m'y retrouver (genre il appel $line un variable qui contient un nom de fichier vachement logique !)

Edit humm wai alors le script parcoure tout les fichier non cacher du dossier /etc/vsftpd/restricted/ si ces fichiers ne commence pas par "write"
alors il cherche le motif local_root= et mémorise tout ce qui suit dans la variable $1. Et si cette variable $1 est fichier qui n'existe pas il affiche alors le message d'erreur suivant

Citation:

---

$1 in file $line has a problem

---

enfin je ne suis pas sur à 100% mais si je me trompe je doit pas etre bien loin

Ce site t'aidera à trouver les infos, un peu de recherche tout de même !