Discussion :

[Noirham]

Bonjour les développeurs,

Voilà, j'ai un petit soucis, certainement une étourderie, mais ça bloque l'avancée de mon programme depuis un petit moment.

J'ai créé cet objet :

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
18
19
20
21
22
23
24
25
26
sub new {
	my ( $classe, $nom, $deb, $fin, $long, $id, $met, $compl, $fs ) = @_;
 
	# Vérifions la classe
	$classe = ref($classe) || $classe or die "erreur1";
 
	# Création de la référence anonyme d'un hachage vide (futur objet)
	my $this = {} or die "erreur2";
 
	# Liaison de l'objet à la classe
 
 
	$this->{NOM_GENE}		=	$nom or die "erreur4";
	$this->{DEBUT_ALIGN}		=	$deb or die "erreur5";
	$this->{FIN_ALIGN}		=	$fin or die "erreur6";
	$this->{LONGUEUR_ALIGN}		=	$long or die "erreur7";
	$this->{POURCENT_IDENTITE}	=	$id or die "erreur8";
	$this->{PRESENCE_MET}		=	$met or die "erreur9";
	$this->{SEQ_REF_COMPLETE}	=	$compl or die "erreur10";
	$this->{FRAMESHIFT}		=	$fs or die "erreur11";
 
	print $this->{NOM_GENE} or die "erreur12";
 
	bless( $this, $classe ) or die "erreur3";
	return $this or die "erreur13";
}

Lorsque dans mon programme principal je tente de le remplir, j'utilise :

Code :

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

1
2
 
$info_hit[$hsp_val] = InfoHit->new($nom, $deb, $fin, $long, $id, $met, $compl, $fs);

ici, $nom/$compl sont des chaines de caractères, les autres des valeurs numériques. Il se trouve que $met et $fs = 0. Or, c'est deux valeurs où lors de l'affectation, un die est retourné. J'ai essayé en changeant les valeurs ($met = 1), et là... ça marche :/.

Je ne comprend pas pourquoi mon objet n'accepte pas l'affectation de valeur nulle (enfin, non, de 0)...


Merci d'avance de vous intéresser à mon soucis !

Bonne journée.

[djibril]

tu as un souci de conception. Il faut arrêter les or die un peu n'importe où et surtout mal écrit.

De plus, en Perl, quand une procédure ou une méthode a plus de 3 arguments, il est conseillé d'utiliser un hash. De ce fait, ton code réécrit ressemblerait à celui-ci :

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
18
19
20
21
22
23
24
25
26
27
28
sub new {
  my ( $classe, %parametres ) = @_;
 
  # Vérifions la classe
  $classe = ref($classe) || $classe;
 
  # Création de la référence anonyme d'un hachage vide (futur objet)
  my $this = {};
 
  # Vérification des paramètres
  foreach my $nom_champ (qw /nom debut fin longueur id met compl frameshift/) {
    if ( not exists $parametres{$nom_champ} ) {
      die "Parametre $nom_champ inexistant\n";
    }
  }
 
  $this->{NOM_GENE}          = $parametres{nom};
  $this->{DEBUT_ALIGN}       = $parametres{debut};
  $this->{FIN_ALIGN}         = $parametres{fin};
  $this->{LONGUEUR_ALIGN}    = $parametres{longueur};
  $this->{POURCENT_IDENTITE} = $parametres{id};
  $this->{PRESENCE_MET}      = $parametres{met};
  $this->{SEQ_REF_COMPLETE}  = $parametres{compl};
  $this->{FRAMESHIFT}        = $parametres{frameshift};
 
  bless $this, $classe;
  return $this;
}

Et dans ton code principal, tu appellerais ton module via ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
$info_hit[$hsp_val] = InfoHit->new(
  nom        => $nom,
  debut      => $deb,
  fin        => $fin,
  longueur   => $long,
  id         => $id,
  met        => $met,
  compl      => $compl,
  frameshift => $fs,
);

C'est quand même plus lisible, propre car on ne se demande plus en quelle position dois-je mettre l'id, le debut, fin...

[Noirham]

Merci beaucoup Djibril.

En fait, j'avais commencé par un objet en hash comme tu viens de faire à une ou deux nuances près. Et il ne marchait pas. Mais en voyant ces "une ou deux nuances", je vois où est mon précédent soucis .

Pour les or die, c'était juste pour le test, pour trouver quelle ligne ne fonctionnait pas.


Merci beaucoup, en tout cas, je vais aller essayer ça dessuite!