Bonjour,
Je suis nouveau dans le langage perl, j'ai quelques notions d’algorithmique que j'ai acquises avec scilab.
Mon but est de créer un programme qui peu extraire une séquence de nucléotides d'un fichier (ici nucleotide.txt) et sortir à la fin le nombre de bases A T C et G.

Voilà l'ébauche de programme que j'ai fait

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
#!C:\strawberry\perl\bin -W
open(hin,"<C:\Users\Maxime\Desktop\nucléotide.txt")
@t = <hin>
my $a = 0;
my $t = 0;
my $c = 0;
my $g = 0;
my $l = length(@t);
for {(my $i = 0; $i = $l; $i+=1)
	if (@t(1,$i) = a) {
	$a+=1}
	elsif (@t(1,$i) = t) {
	$t = $t+1}
	elsif (@t(1,$i) = c) {
	$c = $c+1}
	else {
	$g = $g+1}}
print ("$a\n","$t\n","$c\n","$g\n");
Bon sans surprise il ne fonctionne pas, je soupçonne l'incapacité du logiciel à lire mon fichier, et aussi beaucoup d'erreur de syntaxe. Je précise que le contenu du fichier nucleotide.txt est "ttcagttgtg"

Si vous pouvez m'aiguiller sur l'origine de l'incommensurable liste d'erreur que j'obtiens à l’exécution du .pl, je vous en serai reconnaissant!