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));
}