$mutant = mutate($mutant);
Publicado por Eduardo (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
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
0