Perl - $mutant = mutate($mutant);

   
Vista:

$mutant = mutate($mutant);

Publicado por Eduardo eduardoemen@cursobioinformatica.bugs3.com (1 intervención) el 28/07/2013 17:09:22
Hola, si por favor alguien me puede ayudar, dentro del bucle for no entiendo por qué en $mutant = mutate($mutant); va dentro de paréntesis ($mutant); muchas gracias de antemano si alguien me puede explicar por favor, saludos.
el programa completo es el siguiente
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
30
31
32
33
34
35
36
37
38
39
40
41
#!/usr/bin/perl -w
use strict;
use warnings;
my $DNA = 'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA';
my $i;
my $mutant;
srand(time|$$);
$mutant = mutate($DNA);
print "\nMutate DNA\n\n";
print "\nHere is the original DNA:\n\n";
print "$DNA\n";
print "\nHere is the mutant DNA:\n\n";
print "$mutant\n";
print "\nHere are 10 more successive mutations:\n\n";
for ($i=0 ; $i < 10 ; ++$i) {
$mutant = mutate($mutant);
print "$mutant\n"; }
exit;
 
sub mutate {
my($dna) = @_;
my(@nucleotides) = ('A', 'C', 'G', 'T');
my($position) = randomposition($dna);
my($newbase) = randomnucleotide(@nucleotides);
substr($dna,$position,1,$newbase);
return $dna; }
 
sub randomelement {
my(@array) = @_;
return $array[rand @array];
}
 
sub randomnucleotide {
my(@nucleotides) = ('A', 'C', 'G', 'T');
return randomelement(@nucleotides);
}
 
sub randomposition {
my($string) = @_;
return int rand length $string;
}
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder