Hola de nuevo, jajajja.<br>Ahora cuando llegue a casa me puse con la solución que propones, pero cuando lo ejecuto solo imprime el guión. No imprime nada más, ¿que sera?<br><br><div class="gmail_quote">El día 9 de julio de 2008 13:49, Joaquin Ferrero &lt;<a href="mailto:explorer@joaquinferrero.com" target="_blank">explorer@joaquinferrero.com</a>&gt; escribió:<br>

<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">El mié, 09-07-2008 a las 12:36 +0200, PEGG escribió:<br>
<div><div></div><div>&gt; Hola, tengo una tabla en una BD de mysql que almacena el nombre de un<br>
&gt; país y su correspondiente id.<br>
&gt; Por ejemplo:<br>
&gt; ID - País<br>
&gt; 1 - ESP<br>
&gt; 1 - USA<br>
&gt; 1 - ITA<br>
&gt; 2 - JPN<br>
&gt; 2 - RUS<br>
&gt; 3 - VEN<br>
&gt;<br>
&gt; Mi problema es que tengo que consultar la tabla y juntar las<br>
&gt; direcciones, quedando así:<br>
&gt; ESP - USA<br>
&gt; ESP - ITA<br>
&gt; USA - ITA<br>
&gt; JPN - RUS<br>
&gt;<br>
&gt; VEN no aparecería porque está sola.<br>
&gt;<br>
&gt; La consulta sql: &quot;SELECT id, pais from direcciones&quot;.<br>
&gt; He probado así:<br>
&gt; while ( @direcciones = $sth-&gt;fetchrow_array() ) {<br>
&gt; foreach $direccion (@direcciones) {<br>
&gt;<br>
&gt; &nbsp; &nbsp; &nbsp; &nbsp; foreach $agrupa (@direcciones) {<br>
&gt; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if ( $direccion eq $agrupa ) { }<br>
&gt; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else {<br>
&gt; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; print &quot;\U$direccion;$agrupa\n&quot;;<br>
&gt; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;}<br>
&gt; &nbsp; &nbsp; &nbsp; &nbsp; }<br>
&gt; &nbsp; &nbsp; }<br>
&gt; Pero no lo muestra como quiero, ya no se que hacer.<br>
&gt; Agradezco vuestros comentarios.<br>
<br>
</div></div>Hay que aplicar algo de combinatoria...<br>
<br>
#!/usr/bin/perl<br>
<br>
my @resultados = (<br>
 &nbsp; &nbsp;[ 1 =&gt; ESP ],<br>
<div> &nbsp; &nbsp;[ 1 =&gt; USA ],<br>
 &nbsp; &nbsp;[ 1 =&gt; ITA ],<br>
 &nbsp; &nbsp;[ 2 =&gt; JPN ],<br>
 &nbsp; &nbsp;[ 2 =&gt; RUS ],<br>
</div> &nbsp; &nbsp;[ 3 =&gt; VEN ],<br>
);<br>
<br>
# Leemos y hacemos la estadística<br>
my %resultados;<br>
foreach my $resultado ( @resultados ) {<br>
 &nbsp; &nbsp;my ($ID, $pais) = @{$resultado}[0,1];<br>
<br>
 &nbsp; &nbsp;push @{$resultados{ $ID }}, $pais;<br>
}<br>
<br>
# Sacamos las combinaciones<br>
foreach my $clave ( keys %resultados ) {<br>
<br>
 &nbsp; &nbsp;my $numero_elementos = @{$resultados{$clave}};<br>
 &nbsp; &nbsp;my $ultimo = $numero_elementos-1;<br>
<br>
 &nbsp; &nbsp;if ( $numero_elementos &gt; 1 ) {<br>
 &nbsp; &nbsp; &nbsp; &nbsp;for my $x ( 0 .. $ultimo-1 ) {<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;for my $y ( $x+1 .. $ultimo ) {<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;print &quot;$resultados{$clave}-&gt;[$x] - $resultados{$clave}-&gt;[$y]\n&quot;;<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;}<br>
 &nbsp; &nbsp; &nbsp; &nbsp;}<br>
 &nbsp; &nbsp;}<br>
}<br>
<br>
__END__<br>
<font color="#888888"><br>
--<br>
JF^D<br>
</font><div><div></div><div><br>
<br>
_______________________________________________<br>
Madrid-pm mailing list<br>
<a href="mailto:Madrid-pm@pm.org" target="_blank">Madrid-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/madrid-pm" target="_blank">http://mail.pm.org/mailman/listinfo/madrid-pm</a><br>
</div></div></blockquote></div><br>