Utilisation de use strict et use warnings
Bonjour a tous,
J'ai une petite question sur les messages donne lorsque l'on utilise use sctrict et use warnings.
Voici mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| #!/global/local/2003.01/bin/perl
use strict; use warnings;
my %coverage;
my $nbr_input = $#ARGV -1;
for ($idx=0;$idx<=$nbr_input;$idx++) {
open my $input, '<', $ARGV[$idx]
or die "Impossible d'ouvrir $ARGV[$idx] en lecture : $!\n";
cover( $input, \%coverage, $idx );
close $input;
}
open(output,">$ARGV[$#ARGV]");
@liste=sort(keys(%coverage));
for ($i=0;$i<@liste;$i++) {
if ($coverage{$liste[$i]}{0} eq "") {$coverage{$liste[$i]}{0} = "----"}
if ($coverage{$liste[$i]}{1} eq "") {$coverage{$liste[$i]}{1} = "----"}
if ($coverage{$liste[$i]}{2} eq "") {$coverage{$liste[$i]}{2} = "----"}
if ($coverage{$liste[$i]}{nbr} eq "3") {print output "$liste[$i] : $coverage{$liste[$i]}{0} $coverage{$liste[$i]}{1} $coverage{$liste[$i]}{2}\n";}
}
for ($i=0;$i<@liste;$i++) {
if ($coverage{$liste[$i]}{nbr} eq "2") {print output "$liste[$i] : $coverage{$liste[$i]}{0} $coverage{$liste[$i]}{1} $coverage{$liste[$i]}{2}\n";}
}
for ($i=0;$i<@liste;$i++) {
if ($coverage{$liste[$i]}{nbr} eq "1") {print output "$liste[$i] : $coverage{$liste[$i]}{0} $coverage{$liste[$i]}{1} $coverage{$liste[$i]}{2}\n";}
} |
Voici les erreurs que j'obtiens :
Unquoted string "output" may clash with future reserved word at ./get_coverage.pl line 13.
Unquoted string "output" may clash with future reserved word at ./get_coverage.pl line 20.
Unquoted string "output" may clash with future reserved word at ./get_coverage.pl line 23.
Unquoted string "output" may clash with future reserved word at ./get_coverage.pl line 26.
Global symbol "$idx" requires explicit package name at ./get_coverage.pl line 6.
Global symbol "$idx" requires explicit package name at ./get_coverage.pl line 6.
Global symbol "$idx" requires explicit package name at ./get_coverage.pl line 6.
Global symbol "$idx" requires explicit package name at ./get_coverage.pl line 7.
Global symbol "$idx" requires explicit package name at ./get_coverage.pl line 8.
Global symbol "$idx" requires explicit package name at ./get_coverage.pl line 9.
Global symbol "@liste" requires explicit package name at ./get_coverage.pl line 14.
Global symbol "$i" requires explicit package name at ./get_coverage.pl line 16.
Global symbol "$i" requires explicit package name at ./get_coverage.pl line 16.
Global symbol "@liste" requires explicit package name at ./get_coverage.pl line 16.
Global symbol "$i" requires explicit package name at ./get_coverage.pl line 16.
Global symbol "@liste" requires explicit package name at ./get_coverage.pl line 17.
Global symbol "$i" requires explicit package name at ./get_coverage.pl line 17.
Global symbol "@liste" requires explicit package name at ./get_coverage.pl line 17.
Global symbol "$i" requires explicit package name at ./get_coverage.pl line 17.
Global symbol "@liste" requires explicit package name at ./get_coverage.pl line 18.
Evidement si je n'utilises pas les packages strict et warning ca passe.
Comment ecrire mon code pour que ca marche en utilisant les package...
Desole pour cette question certainement triviale, mais je dois ecrire un script perl tous les deux ans....
Merci,
Jm
