Galera queria saber se alguem poderia me ajudar com isso?
#!/usr/bin/perl
# Modo desjado de impressao
# 0 1 2 3
# 0 1 2 3
# 0 1 2 3
# 0 1 2 3
# 0 1 2 3
#
#
@alelos = (00000, 11111, 22222, 33333);
$max_alelle = 5;
$loci = 4;
for ($i = 0; $i < $max_alelle; $i++)
{
for ($j = 0; $j < $loci ; $j++)
{
print "$alelos[$i][$j]\t";
}
print "$alelos[$i][$j]\n";
}
Queria imprir dessa forma em uma matriz bidimensional.
Valeu se alguem puder me ajudar.
