problème de type de variables

Code:

---

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

---

Citation:

---

=> 2791982 2793490 2788789 2791633

---

Code:

---

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];

---

Citation:

---

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,

J'ai essayé

Code:

---

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 :(

Citation:

---

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.

---

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

Code:

---

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)

Cela fonctionne, merci beaucoup.

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:

---

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ï