4 Questions Perl

Version imprimable

02/04/2008, 18h56
Aronn

4 Questions Perl

Bonjour, j'aurai besoin d 'aide afin de créer 4 petits programmes...
Peut-être pourriez vous m'aider
Alors voilà, j aimerai:

- Ecrire un programme me permettant de choisir au hasard la position d'un nucéotide dans une chaîne d'ADN et le tester.
- Un autre me permettant de créer une base de l' ADN au hasard.
- Un qui lit une chaine d'ADN et me permet de demander un nombre donnée de mutations sur cette chaine.
- Et pour finir, un programme me permettant de générer une chaine d'ADN au hasard.

J'espère que vous pourrez m'éclairer car je suis tout débutant et bloque un peu :s
Encore merci pour votre aide!
03/04/2008, 11h02
Vespasien

Aides toi, le ciel t'aideras.

Qu'as tu déjà écris?
Que sont les structure informatiques qui modélisent ton ADN et tes nucléotides?
Pourquoi avoir choisi Perl?
03/04/2008, 17h19
Aronn

Mes bases sont A,pour Adénine, C pour Cytosine, G pour Guanine et T pour Thymine. Voilà ce que j ai réussi a faire jusque là mais il y a encore quelques erreurs :s
Ceci dit pour demander un nombre donné de mutations sur une chaîne je bloque...
Si vous avez des suggestions pour faire quelque chose de plus simple où pour me mettre sur la voie je suis preneur :) J'ai l'impression de me prendre trop la tête et de ne pas aller a l'essentiel directement... :(
Encore merci!

#!usr\bin\perl -w

# Exercice 1 : Choix au hasard de la position d'un nucléotide dans une chaîne d'ADN.

#print"Entrez une sequence d'adn\n";

#$seq=<STDIN>;
#$seq=~s/[^atcgATCG]//g;
#$seq=uc($seq);

#print"La sequence est $seq\n";

#$taille=length($seq);

#$base=int(rand($taille)+1);

#print"La position de la base choisie au hasard est $base\n";

# Exercice 2 : Créer une base de l'ADN au hasard

#$k=int(rand(3)+1);
#print"Le chiffre aleatoire est $k\n";
#if($k==1){
#print"La base est A\n";
#}elsif($k==2){
#print"La base est C\n";
#}elsif($k==3){
#print"La base est G\n";
#}elsif($k==4){
#print"La base est T\n";
#}

# Exercice 4 : Générer une chaîne de l'ADN au hasard

print"Entrez la longueur de la chaine souhaitez\n";
$taille=<STDIN>;

for($i=0;$i<$taille;$i++){
$aleatoire=int(rand(4)+1);

if($aleat==1){
$chaine=$chaine+'A';
}

elsif($aleat==2){
$chaine=$chaine+'T';

}
elsif($aleat==3){
$chaine=$chaine+'G';

}
elsif($aleat==4){
$chaine=$chaine+'C';

}
$tab[$k]=$chaine;
}
print"La chaine d'ADN est @tab\n";
03/04/2008, 17h20
Aronn

J'oubliais qu'il ne me faut pas utiliser de sous programme :) Merci ;)
04/04/2008, 12h44
Vespasien

Il y a qqchose de fait. :P
Tu peux utiliser la balise [code] pour reformater, c'est illisible et détaillé en dessus de chacun l'erreur rencontrée: succintement mais précisement.

Bonjour,

Je ne sais pas si l'exercice a été résolu mais

Code:

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
29
use strict;
use warnings;
 
print"Entrez la longueur de la chaine souhaitez\n";
my $taille= 10;
my $chaine="";
 
for(my $i=0;$i<$taille;$i++){
 
        my $aleat = int(rand(4))+1;
 
        if($aleat==1){
        $chaine=$chaine.'A';
        }
 
        elsif($aleat==2){
        $chaine=$chaine.'T';
 
        }
        elsif($aleat==3){
        $chaine=$chaine.'G';
 
        }
        elsif($aleat==4){
        $chaine=$chaine.'C';
 
        }
}
print"La chaine d'ADN est $chaine\n";

Pour concaténer des lettres tu dois utiliser '.'.

Tu peux également faire:

Code:

1
2
3
4
5
6
7
8
9
10
11
use strict;
use warnings;
 
my @Nucleotides = qw[A T C G];
my $L = 5;
my $chaine="";
for(my$i=0; $i<$L; $i++)
{
        $chaine=$chaine.$Nucleotides[rand @Nucleotides];
}
print"La chaine d'ADN est $chaine\n";

Jasmine,