Discussion :

[Jasmine80]

Code :

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

print "=> $start_16S $end_16S $start_23S $end_23S\n";

=> 2791982 2793490 2788789 2791633

Code :

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

1
2
                        my $start_sous_seq = min qw[$start_16S $end_16S $start_23S $end_23S];
                        my $end_sous_seq = max qw[$start_16S $end_16S $start_23S $end_23S];

Argument "$start_16S" isn't numeric in subroutine entry at P:\Perl\scripts2\PCR_BA~1\46_COM~1.PL line 70, <GEN5> line 90266.
Argument "$end_16S" isn't numeric in subroutine entry at P:\Perl\scripts2\PCR_BA~1\46_COM~1.PL line 70, <GEN5> line 90266.
Argument "$start_23S" isn't numeric in subroutine entry at P:\Perl\scripts2\PCR_BA~1\46_COM~1.PL line 70, <GEN5> line 90266.
Argument "$end_23S" isn't numeric in subroutine entry at P:\Perl\scripts2\PCR_BA~1\46_COM~1.PL line 70, <GEN5> line 90266.

Avez-vous une idée de ce qui ne va pas? Même si mes variables sont initialement dans un contexte de texte, quand j'appelle la fonction min ou max, ne devraient elles pas se mettre automatiquement dans un contexte de nombre?

Merci,

[Jasmine80]

J'ai essayé

Code :

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

1
2
3
                        my @array = (sort {$a<=>$b} qw[$start_16S $end_16S $start_23S $end_23S]);
                        my $start_sous_seq = $array[0];
                        my $end_sous_seq = $array[3];

Mais j'ai toujours le même message d'erreur

Argument "$start_16S" isn't numeric in sort at P:\Perl\scripts2\PCR_BA~1\46_COM~1.PL line 69, <GEN5> line 90266.
Argument "$end_16S" isn't numeric in sort at P:\Perl\scripts2\PCR_BA~1\46_COM~1.PL line 69, <GEN5> line 90266.
Argument "$start_23S" isn't numeric in sort at P:\Perl\scripts2\PCR_BA~1\46_COM~1.PL line 69, <GEN5> line 90266.
Argument "$end_23S" isn't numeric in sort at P:\Perl\scripts2\PCR_BA~1\46_COM~1.PL line 69, <GEN5> line 90266.

[CKLN00]

pour transtyper tes variables texte en nombre chiffre tu leur ajoute 0
par ex :

Code :

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

1
2
my $start_sous_seq = min ($start_16S+0,$end_16S+0,$start_23S+0,$end_23S+0);
my $end_sous_seq = max ($start_16S+0,$end_16S+0,$start_23S+0,$end_23S+0);

et quand tu as un chiffre que tu veut transtyper en chaine tu concatène une chaine vide
(j'avais lu ça sur un vieux sujet du forum)

[Jasmine80]

Cela fonctionne, merci beaucoup.

[Jedai]

Pas besoin de +0, les arguments sont parfaitement numériques, c'est juste qu'il n'y a pas d'interpolation des variables dans qw().

Une simple liste marche très bien :

Code :

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

1
2
my $start_sous_seq = min ($start_16S, $end_16S, $start_23S, $end_23S);
my $end_sous_seq = max ($start_16S, $end_16S, $start_23S, $end_23S);

--
Jedaï