Problème nom package

Version imprimable

Bonjour je rappelle que je suis novice en perl et programmation, voici mon algo :
- input : fichier texte contenant un texte par ligne avec des balises xml
- output : 3 fichiers textes (1 avec les textes en anglais, 1 en français et 1 autre avec les autres langues).

sauf que dans l'output je ne veux afficher que certains contenus des balises xml (class, abs, title). Mon problème se situe ici, quand je lance mon programme l'invite de commande affiche "Global symbol "$CLASS requires explicite package name at test.pl line..." et ce pour chaque ligne où une variable apparait dans mon code.

Voici mon code dans sa totalité :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
#!/usr/bin/perl;
use locale;
use strict;
use strict;
 
use open IN => ":utf8", OUT => ":utf8";
 
@ARGV = ("corpus-A61K.txt");
while (<>) {
 
	if (my ($chaine1) = $_ =~ /^<(.*\d+)>(.*)<ttp lng='eng'>(.*)<\/ttp>(.*)<reseng>(.*)<\/reseng>(.*)$/){
		$CLASS = $1;
		$TITLE = $3;
		$ABS = $5;
		open (EN, ">>en-A61K.txt");  # Ajout à la fin du fichier
		print EN "<title lang='eng'>".$TITLE."<\/title><abstract lang='eng'>".$ABS."<\/abstract><class>".$CLASS."<\/class>\n";
	}
	elsif ($ligne =~ /^<(.*\d+)>(.*)<ttp lng='fre'>(.*)<\/ttp>(.*)<reseng>(.*)<\/reseng>(.*)$/){
		$CLASS = $1;
		$TITLE = $3;
		$ABS = $5;
		open (EN, ">>en-A61K.txt");  # Ajout à la fin du fichier
		print EN "<abstract lang='eng'>".$ABS."<\/abstract><class>".$CLASS."<\/class>\n";
	}
	elsif (my ($chaine1) = $_ =~ /^<(.*\d+)>(.*)<ttp lng='fre'>(.*)<\/ttp>(.*)<resfre>(.*)<\/resfre>(.*)$/){
		$CLASS = $1;
		$TITLE = $3;
		$ABS = $5;
		open (FR, ">>fr-A61K.txt");  # Ajout à la fin du fichier
		print FR "<title lang='fre'>".$TITLE."</title><abstract lang='fre'>".$ABS."</abstract><class>".$CLASS."</class>\n";
	}
	elsif ($ligne =~ /^<(.*\d+)>(.*)<ttp lng='eng'>(.*)<\/ttp>(.*)<resfre>(.*)<\/resfre>(.*)$/){
		$CLASS = $1;
		$TITLE = $3;
		$ABS = $5;
		open (FR, ">>fr-A61K.txt");  # Ajout à la fin du fichier
		print FR "<abstract lang='fre'>".$ABS."</abstract><class>".$CLASS."</class>\n";
	}
	else {
		open (UNK, ">>unk-A61K.txt");  # Ajout à la fin du fichier
		print UNK "$_";
	}
 }

Merci d'avance de votre aide :D

14/03/2011, 09h22
Philou67430

C'est bien de vouloir est strict en perl, mais une fois suffit :)

Remplace le 2e

Code:

use strict;

par un

Code:

use warnings;

Sinon, tu DOIS déclarer toutes tes variables, soit avec my (de préférence), soit avec our (seulement si c'est nécessaire, ce qui est rarement le cas, même pour les variables dont l'étendue concerne tout le script).
14/03/2011, 09h26
Philou67430
Par ailleurs, je ne comprends pas bien ton écriture :
Code:

1 2 3 4 if (my ($chaine1) = $_ =~ /^<(.*\d+)>(.*)<ttp lng='eng'>(.*)<\/ttp>(.*)<reseng>(.*)<\/reseng>(.*)$/){ $CLASS = $1; $TITLE = $3; $ABS = $5;
Je pense en fait que tu n'as pas compris l'écriture du style

my ($variables) = /regexp/

Ce que tu veux faire s'écrit en fait :

Code:

if (my ($CLASS, undef, $TITLE, undef, $ABS) = /^<(.*\d+)>(.*)<ttp lng='eng'>(.*)<\/ttp>(.*)<reseng>(.*)<\/reseng>(.*)$/) {

Ou encore mieux, pour éviter la capture des 2e et 4e parenthèse, utiliser la regexp suivante :

Code:

if (my ($CLASS, $TITLE, $ABS) = /^<(.*\d+)>(?:.*)<ttp lng='eng'>(.*)<\/ttp>(?:.*)<reseng>(.*)<\/reseng>(?:.*)$/) {
14/03/2011, 11h13
morphemia

J'ai fait les changements et il s'affiche :

"my" variable $CLASS masks earlier declaration in same scope...
"my" $TITLE ...
14/03/2011, 11h26
morphemia

Cela dit le code fait ce que je veux et où je veux.

Merci beaucoup Philou67430 !

Voici un code amélioré non testé

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
#!/usr/bin/perl;
use warnings;
use strict;
 
my $fichier_en     = 'en-A61K.txt';
my $fichier_fr     = 'fr-A61K.txt';
my $fichier_unk    = 'unk-A61K.txt';
my $fichier_corpus = 'corpus-A61K.txt';
open my $fh_corpus, '<:utf8',  $fichier_corpus or die "Impossible de lire $fichier_corpus\n";
open my $fh_fr,     '>>:utf8', $fichier_fr     or die "Impossible de lire $fichier_fr\n";
open my $fh_en,     '>>:utf8', $fichier_en     or die "Impossible de lire $fichier_en\n";
open my $fh_unk,    '>>:utf8', $fichier_unk    or die "Impossible de lire $fichier_unk\n";
my ( $CLASS, $TITLE, $ABS );
 
while ( my $ligne = <$fh_corpus> ) {
 
  if ( ( $CLASS, $TITLE, $ABS )
    = $ligne =~ /^<.*\d+>(.*)<ttp lng='eng'>.*<\/ttp>(.*)<reseng>.*<\/reseng>(.*)$/ )
  {
    print {$fh_en} "<title lang='eng'>" 
      . $TITLE
      . "<\/title><abstract lang='eng'>"
      . $ABS
      . "<\/abstract><class>"
      . $CLASS
      . "<\/class>\n";
  }
  elsif ( ( $CLASS, $TITLE, $ABS )
    = $ligne =~ /^<.*\d+>(.*)<ttp lng='fre'>.*<\/ttp>(.*)<reseng>.*<\/reseng>(.*)$/ )
  {
    print {$fh_en} "<abstract lang='eng'>" . $ABS . "<\/abstract><class>" . $CLASS . "<\/class>\n";
  }
  elsif ( ( $CLASS, $TITLE, $ABS )
    = $ligne =~ /^<.*\d+>(.*)<ttp lng='fre'>.*<\/ttp>(.*)<resfre>.*<\/resfre>(.*)$/ )
  {
    print {$fh_fr} "<title lang='fre'>" 
      . $TITLE
      . "</title><abstract lang='fre'>"
      . $ABS
      . "</abstract><class>"
      . $CLASS
      . "</class>\n";
  }
  elsif ( ( $CLASS, $TITLE, $ABS )
    = $ligne =~ /^<.*\d+>(.*)<ttp lng='eng'>.*<\/ttp>(.*)<resfre>.*<\/resfre>(.*)$/ )
  {
    print {$fh_fr} "<abstract lang='fre'>" . $ABS . "</abstract><class>" . $CLASS . "</class>\n";
  }
  else {
    print {$fh_unk} $ligne;
  }
}

14/03/2011, 11h40
morphemia

Problème résolu il suffisait que je modifie le nom des variables à chaque 'if' $CLASS1 $TITLE1
$CLASS2...

J'ai fait mon premier pas toute seule dans le domaine des variables :D

Merci à vous !
14/03/2011, 13h02
Philou67430

morphemia, le problème que soulève ton script (et dont djibril a proposé une solution), est que tu souhaites exécuter plusieurs regexp affectant des variables de même nom dans la même instruction if (le else if ou le elsif relevant de la première instruction if).

Or, il n'est possible de définir une variable qu'une seule fois dans le même scope. Pour corriger, il faut définir en amont du if les variables utilisées, puis ne plus les définir au moment de les affecter par l'expression régulière.
14/03/2011, 13h55
morphemia

Oui merci de votre aide j'ai compris mon problème de variable et comment le solutionner, j'ai donc repris la solution de Djibril en corrigeant les expressions régulières et tout va BIEN !

Encore un grand merci pour votre rapidité et capacité à comprendre les noobs en perl :).

Citation:

Envoyé par djibril

Voici un code amélioré non testé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl;
use warnings;
use strict;
 
my $fichier_en     = 'en-A61K.txt';
my $fichier_fr     = 'fr-A61K.txt';
my $fichier_unk    = 'unk-A61K.txt';
my $fichier_corpus = 'corpus-A61K.txt';
open my $fh_corpus, '<:utf8',  $fichier_corpus or die "Impossible de lire $fichier_corpus\n";
open my $fh_fr,     '>>:utf8', $fichier_fr     or die "Impossible de lire $fichier_fr\n";
open my $fh_en,     '>>:utf8', $fichier_en     or die "Impossible de lire $fichier_en\n";
open my $fh_unk,    '>>:utf8', $fichier_unk    or die "Impossible de lire $fichier_unk\n";
my ( $CLASS, $TITLE, $ABS );

sachant que mon fichier corpus-A61K.txt n'est pas du tout en utf8 est-il nécessaire d'écrire "'>>:utf8', $fichier..." ?

Merci

14/03/2011, 14h56
djibril

Non il n'est pas nécessaire.