Estudia el siguiente código en Perl y encuentra qué contendrá
$resultado
al terminar.
#!/usr/bin/perl -w # Ejercicio escrito por Bruno Contreras use strict; my ($dato1,@datos2,%datos3,$resultado); $datos2[0] = 'A'; $datos2[1] = 'G'; $datos2[2] = 'T'; $datos2[3] = 'C'; $dato1 = scalar(@datos2); $datos3{ $datos2[0] } = 'ATP'; $datos3{ $datos2[1] } = 'GTP'; $datos3{ $datos2[2] } = 'TTP'; $datos3{ $datos2[3] } = 'CTP'; $resultado = \%datos3; $resultado = $resultado->{ $datos2[$dato1-2] }; print("resultado = $resultado\n");
Bruno Contreras-Moreira