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