🚀 go-pugleaf

 El otro d�a, Han Solo nos estuvo contando:
> [transponer un fichero]
> Estoy programando un script en perl, pero me est� quedando de un
> guarro que asusta.

�En 30 l�neas te vale?

Estaba aburrido y me he puesto a hacerlo. No queda tan guarro con un par 
de trucos:


------------------------------
#!/usr/bin/perl -w

$separador = " ";

while (<>)                             # Para cada l�nea:
{
    chop;
    @mat = split /$separador/,$_;      # Dividimos la l�nea
    for ($i=0; $i<@mat; $i++)          # Para cada elemento:
    {                                  # La matriz n es un �ndice que
                                       # cuenta los elentos que hay en cada
                                       # dimensi�n de mattr.
        defined $n[$i] or $n[$i] = 0;  # Cuenta que iniciamos en 0.
        $mattr[$i][$n[$i]] = $mat[$i]; # Llenamos la matriz principal por
                                       # columnas. mattr tiene 2 dimensiones.
        $n[$i]++;
    }
}

foreach (@mattr)                       # Ahora la escribirmos por filas
{
    @tmp = @{$_};                      # Los elementos de la 2� dimensi�n son
                                       # referencias a matriz (punteros).
    foreach (@tmp)
    {
        print $_.$separador;
    }
    print "\n";
}
-----------------------

El asunto es llenar la matriz en columnas y escribirla por filas. Para eso 
se usa la matriz $mattr ($mat transpuesta). Como cada elemento es una 
referencia se desreferencia. Los dos foreach anidados son para dar 
formato. Se habr�a conseguido lo mismo fijando $" = $separador y omitiendo 
el foreach interior. Pero eso es ya lo de menos. Se puede hacer m�s 
compacto, pero se entiende peor.

�chale un ojo y aseg�rate de que lo entiendes antes de usarlo, que no est� 
bien dar las cosas ya hechas.

Por cierto, hay que llamarlo:  trans fichero    o bien   trans < fichero.

Saludos.

-- 
�������������������������������������������������������������������������
��  Reinoso G.  EA4BAO                      r einoso.bao@wanadoo.e s   ��
��  http://perso.wanadoo.es/reinoso.bao                                ��
�������������������������������������������������������������������������