Foro - Perl en Español

por **Josh2701** » 2011-11-01 16:10 @715

Hola, alguien podría decirme como puedo imprimir por columnas. En el código como se puede ver, tengo 4 líneas, pero en una columna debería ir la línea 0, en la segunda columna las líneas 1 y 2 y en la tercer columna la línea 3, tales líneas provienen de un archivo, para ejemplos prácticos sólo puse esas, pero la idea es que tenga tantas columnas como cambie el aid[5].

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
sub trim($);
$va="inicio";
$contacol=1;
$cuental=0;
 
        ##$linea0="3373.51.10.8.1.2.1 : OBJECT IDENTIFIER: .iso.org.dod.internet.private.enterprises.3373.51.14.901";
        ##$linea1="3373.51.10.8.1.4.1 : OCTET STRING- (ascii):     29;2;optional board ;PPI 29;5";
        ##$linea2="3373.51.10.8.1.4.1 : OCTET STRING- (ascii):";
        ##$linea3="3373.51.10.8.1.1.1 : INTEGER: 1";
        
        @c=split(/:+/, $linean);
        
        @aid=split('\.', $c[0]);
                
        if ($va eq $aid[5])
                {
                $cambio=0;
                }
        elsif ($va eq "inicio")
                {
                $va=$aid[5];
                $cambio=0;
                }
        else
                {
                $cambio=1;
                $contacol+=1;
                print "\n";
                $va=$aid[5];
                }
 
        use Switch;
        switch (trim($c[1]))
                {
                case "INTEGER"
                        {
                        print "$c[0]i ". trim($c[2]). "\n";
                        }
                case "OBJECT IDENTIFIER"
                        {
                        print "$c[0]oi ". trim($c[2]). "\n";                    
                        }
                case "IpAddress"
                        {
                        print "$c[0]ia ". trim($c[2]). "\n";    
                        }
                case "OCTET STRING- (ascii)"
                        {
                        print "$c[0]ocs ". trim($c[2]). "\n";
                        }
                case "Timeticks"
                        {
                        print "$c[0]tm ". trim($c[2]). "\n";    
                        }
                }
 
sub trim($)
{
        my $string = shift;
        $string =~ s/^\s+//;
        $string =~ s/\s+$//;
        return $string;
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Gracias

Bienvenido a los foros de Perl en español, Josh2701.

Comentarte varias cosas: se ve que no muestras el programa completo, porque faltan las líneas que muestren cómo leer el fichero que quieres analizar.

Por favor, no uses el módulo Switch. Tiene errores muy graves, te puede explotar en la cara cuando menos te lo esperes. Es mucho mejor usar given/when que está disponible a partir de Perl v5.10. Además, fue marcado como obsoleto en Perl v5.12, y completamente eliminado en el Perl v5.14.

No entiendo lo de la cadena "inicio". Quizás lo estás usando como una bandera, para indicar los cambios del sexto campo de la primera parte de cada línea. ¿Es así?

Dices que quieres imprimir el resultado en columnas, pero no dices cómo han de estar separadas esas columnas.

La recomendación, en estos casos, es ir guardando en un array o en variables escalares, la información que vamos leyendo, y cuando estamos seguros de que tenemos una nueva línea 0, o hemos llegado al final del fichero, en ese momento podemos sacar toda la línea con todos los nuevos campos.

Si pudieras poner un ejemplo del fichero de entrada, y un ejemplo de cómo tendría que quedar la salida, sería perfecto.

Foro - Perl en Español

Impresión por columnas

Impresión por columnas

Publicidad

Re: Impresión por columnas

¿Quién está conectado?