Foro - Perl en Español

por **Skull118** » 2014-04-23 13:05 @586

Buenas, compañeros y amigos de Perl en Español. Tengo un pequeño problema que podría solucionarlo con POO, sin embargo no me queda claro cómo hacerlo, me he leído un sin fin de tutoriales, pero ninguno me deja claro, qué y cómo debo de hacer este tipo de programación.

Entiendo qué son Clases, Módulos y Atributos. Sin embargo no encontré información muy detallada acerca de cómo se utilizan en Perl. Tal vez pudieran echarme una mano para saber cómo poder hacerlo desde POO.

Mi código busca en una línea de archivo cierta expresión regular, que a decir verdad, funciona bastante bien en programación secuencial, sin embargo deseo pasarla a POO por superación personal y porque deseo aprender cómo funciona.

El código este:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use warnings;
 
my $a = "nuevo.txt";
 
open( A, $a );
my @L = <A>;
 
my @c = qw(TRANSITO1 TRANSITO2 );
my $m = join '|', @c;
 
my $transito1
    = '(-)' . '(rw)' . '(-)' . '(rw)' . '(-)' . '(r)' . '(-)' . '(-)'
    . '(\\s+)' . '(\\d)'
    . '(\\s+)'
    . '(root)'
    . '(\\s+)'
    . '(dcms)'
    . '(\\s+)'
    . '(\\d+)'
    . '(\\s+)' . '(.)' . '(.)' . '(.)'
    . '(\\s+)' . '(\\d)' . '(\\d)'
    . '(\\s+)' . '(\\d)' . '(\\d)' . '(:)' . '(\\d)' . '(\\d)'
    . '(\\s+)' . '(.)' . '(\\d)' . '(\\d)' . '(\\d)' . '(.)' . '(\\d)' . '(\\d)' . '(\\d)' . '(\\d)' . '(\\d)' . '(\\.)'
    . '(ime$)';
 
my $transito2
    = '(-)' . '(rw)' . '(-)' . '(rw)' . '(-)' . '(r)' . '(-)' . '(-)'
    . '(\\s+)'
    . '(\\d+)'
    . '(\\s+)'
    . '(tasks)'
    . '(\\s+)'
    . '(dcms)'
    . '(\\s+)'
    . '(\\d+)'
    . '(\\s+)'
    . '([a-z])'
    . '([a-z])'
    . '([a-z])'
    . '(\\s+)' . '(\\d)' . '(\\d)'
    . '(\\s+)' . '(\\d)' . '(\\d)' . '(.)' . '(\\d)' . '(\\d)'
    . '(\\s+)'
    . '((?:[a-z][a-z]*[0-9]+[a-z0-9]*))' . '(\\.)' . '(ime)';
 
for ( my $i = 0; $i < @L; $i++ ) {
    my $l = $L[$i];
    $l =~ tr/[a-z]/[A-Z]/;
    $l =~ s/\x20/\x5F/g;
    $l =~ s/\x28|\x29//g;
    if ( ( $l =~ m/^[$m]/is ) && ( $l !~ m/^_|^END|\x2D/ ) ) {
        my $central = $l;
        if ( $central =~ m/***PARAMETRO QUE ENVIÉ***/ ) {
            $i++;
            $l = $L[$i];
            $l =~ tr/[A-Z]/[a-z]/;
            $l =~ s/\x28|\x29//g;
            while ( ( $l !~ m/^\n/ ) && ( $l !~ m/^[$m]/is ) && ( $i < @L ) ) {
                $l =~ s/\x5F/\x20/g;
                if ( ( $l !~ m/$gvt/ ) && ( length($l) > 2 ) && ( $l !~ m/^[$m]\n$/ ) ) {
                    $l =~ tr/[a-z]/[A-Z]/;
                    $l =~ s/\n//g;
                    print( B "ERROR EN LA LINEA $l " );
                }
                $i++;
                $l = $L[$i];
                $l =~ tr/[A-Z]/[a-z]/;
                $l =~ s/\x20/\x5F/g;
                $l =~ s/\x28|\x29|\n//g;
            }
        }
    }
 
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

Básicamente lo que necesito es correr este mismo proceso con diferentes parámetros, como son $transito1, $transito2, la línea por dónde va, el array del archivo leído, y la expresión regular, para que me realice el siguiente proceso:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        $l =~ tr/[a-z]/[A-Z]/;
        $l =~ s/\x20/\x5F/g;
        $l =~ s/\x28|\x29//g;
        if ( ( $l =~ m/^[$m]/is ) && ( $l !~ m/^_|^END|\x2D/ ) ) {
            my $central = $l;
            if ( $central =~ m/TRANSITO1/ ) {
                $i++;
                $l = $L[$i];
                $l =~ tr/[A-Z]/[a-z]/;
                $l =~ s/\x28|\x29//g;
                while ( ( $l !~ m/^\n/ ) && ( $l !~ m/^[$m]/is ) && ( $i < @L ) ) {
                    $l =~ s/\x5F/\x20/g;
                    if ( ( $l !~ m/**** $transito(X) ****/ ) && ( length($l) > 2 ) && ( $l !~ m/^[$m]\n$/ ) ) {
                        $l =~ tr/[a-z]/[A-Z]/;
                        $l =~ s/\n//g;
                        print( B "ERROR EN LA LINEA $l " );
                    }
                    $i++;
                    $l = $L[$i];
                    $l =~ tr/[A-Z]/[a-z]/;
                    $l =~ s/\x20/\x5F/g;
                    $l =~ s/\x28|\x29|\n//g;
                }
            }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De antemano, gracias por el apoyo

.

perltoot - Tutorial sobre POO (suprimido en las últimas versiones)
perltooc - Otro tutorial sobre POO (suprimido en las últimas versiones)
perlbot - Tutorial para principiantes sobre los objetos en Perl (suprimido en las últimas versiones)
perlboot - Otro tutorial para principiantes sobre los objetos en Perl (suprimido en las últimas versiones)
perlobj - Referencia de objetos en Perl
perlootut - Manual de programación orientada a objetos en Perl

Éste último recomienda usar el sistema de objetos de la distribución Moose, pero no es el único. Lo que está de acuerdo casi todo el mundo es que es mejor no usar la POO que trae por defecto Perl (razón por la cual han borrado cuatro de los tutoriales). También recomienda otros sistemas POO, según el tamaño de la aplicación que vayas a escribir, como por ejemplo Object::Tiny.

Foro - Perl en Español

Explicación de POO

Explicación de POO

Publicidad

Re: Explicación de POO

¿Quién está conectado?