Maquina 1: This is perl, v5.8.6 built for darwin-thread-multi-2level<br>Maquina 2: This is perl, v5.8.8 built for i486-linux-gnu-thread-multi<br><br>Ya me perdí, otra vez, jajajaja.<br>Tengo esto:<br>my %resultados;<br>while ( my @resultados = $sth->fetchrow_array ) {<br>
foreach my $resultado (@resultados) { <br> my ( $ID, $pais ) = @{$resultado}[ 0, 1 ];<br> push @{ $resultados{$ID} }, $pais;<br><br>Donde tengo que entrecomillar??<br>while ( my @resultados = $sth->fetchrow_array ) {<br>
$resultado=\"$resultado\"; #<-Aquí??<br> foreach my $resultado (@resultados) { <br><br>Imprime: Use of uninitialized value in concatenation (.) or string at ...<br>Ya le añadí el warnings.<br>