Discussion :

[ibtisss]

je suis débutante en perl et je voudrai construire une structure qui s'appelle rep et qui contient 3 éléments, j'ai fait le programme suivant, mais il est faut, est que quelqu'un peut m'expliquer c'est quoi mon erreur?
Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
use Class::Struct;
struct Rep=> {
  Pos1  => '$';
  Pos2  => '$';
  DRseq => '$';
}
my @repetitions;
$repetitions[1] = Rep->new();
$repetitions[1]->Pos1(552);
$repetitions[1]->Pos2(673);
$repetitions[1]->DRseq("ATATC");

[Jedai]

C'est plein d'erreur de syntaxe...
Par exemple il faut une "," entre les couple clé-valeur dans la déclaration d'un hash, pas des ";". Par ailleurs tu as oublié le ";" à la fin de la déclaration de ta structure.

--
Jedaï

[ibtisss]

Ok merci, j'ai corrigé ce problème et j'ai toujours un autre problème :
"function 'new' already defined in package Rep at porgramme.pl line "

Code :

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

1
2
3
4
5
6
7
8
9
10
struct Rep => {
  Pos1  => '$',
  Pos2  => '$',
  DRseq => '$',
};
 
my $repetitions = Rep->new();
$repetitions-> Pos1(552);
$repetitions-> Pos2(673);
$repetitions-> DRseq("ATATC");

[Jedai]

Tu ne donnes pas la partie qui plante.
Ce code compile (et s'exécute) parfaitement :

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
 
#!/usr/bin/perl
use strict; use warnings;
 
use Class::Struct;
 
struct Rep => {
  Pos1  => '$',
  Pos2  => '$',
  DRseq => '$',
};
 
my $repetitions = Rep->new();
$repetitions-> Pos1(552);
$repetitions-> Pos2(673);
$repetitions-> DRseq("ATATC");

--
Jedaï