ouverture sous perl d'un fichier caché
Hello
j'ai ce code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| $WORDLISTDB_DIR="/home/chris/.bogofilter"; # Path to wordlist.db
$WORDLISTDB_TMP="/tmp/"; # Path to temporary storage
system("clear");
my $nb_arg = @ARGV;
if (($nb_arg > 1) or ($nb_arg <1)) {
print "\nWrong number of arguments. Use ./prog [directory to scan]\n";
exit(1);
}
my $dir = $ARGV[0];
$dico = $WORDLISTDB_DIR."/wordlist.db";
if (-r $dico) {
OPEN DICO, "< $dico" or die "File Wordlist.db cannot be read !\n";
}
close DICO; |
et malheureusement, j'ai l'erreur
Code:
Can't locate object method "OPEN" via package "IO::Handle" at ./recherche_score.pl line 55.
Or quand je change de repertoire, pour un non caché, ça marche :?
Et ce coup-ci, google ne m'aide pas. une petite idée ?
Thx
Chris
Re: ouverture sous perl d'un fichier caché
Citation:
Envoyé par Krispy
Code:
1
2
3
| ...
OPEN DICO, "< $dico" or die "File Wordlist.db cannot be read !\n";
... |
et malheureusement, j'ai l'erreur
Code:
Can't locate object method "OPEN" via package "IO::Handle" at ./recherche_score.pl line 55.
Indépendemment du fait que ça semble marcher pour un autre répertoire, peux tu essayer avec un "open", au lieu du "OPEN" ???
Parce que mon Perl, à moi, il est case-sensitive et je ne serais pas surpris que le tien aussi ;)
