Discussion :

[Krispy]

Hello
j'ai ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[2Eurocents]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
...
OPEN DICO, "< $dico" or die "File Wordlist.db cannot be read !\n";
...

et malheureusement, j'ai l'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Krispy]

Whaa Alors là je suis impressionné.
Je n'y avais pas pensé et effectivement, ça marche.

je ne comprends pas pourquoi le OPEN marche quand meme dans le 1er ca.. mais soit, tant que c'est bon.


Merci