Foro - Perl en Español

# Por cada linea
foreach my $linea ( @lineas )
{       chomp $linea;

        # Se crea eje
        my @eje = 1..4;        

        # Por cada palabra
        foreach my $palabra ( split(" ", $linea) )
        {        # Si la palabra Articulo                  
                  if ($palabra eq "LA")
                   {  push @{$eje[3]}, $palabra;
                   }
                   # Si la palabra es Sustantivo                   
                  if ($palabra eq "CASA")
                   {  push @{$eje[0]}, $palabra;
                   }
                   # Si la palabra es Verbo                
                   if ($palabra eq "ES")
                   {  push @{$eje[2]}, $palabra;
                   }
                   # Si la palabra Adjetivo                
                   if ($palabra eq "BONITA")
                   {  push @{$eje[1]}, $palabra;
                   }
        }
       
        my @reg;
        my $k;

#       print join(",", @{$eje[$_]} ) for 0..3;
       
        for($k = 0; $k < 4; $k++)
        {      
                push @reg , join (" ", @{$eje[$k]});
                print "lo que tiene reg es $k es: @reg \n";
        }

        print "lo que tiene reg es @reg\n";
 
        my @regis = join(",", @reg);

        print "lo que tiene regis es @regis\n";

        foreach my $campo3(@regis)
        {      print "lo que tiene campo3 es $campo3\n";
                print "\n";
        }
}

next if $vista{$linea}++;

#!/usr/bin/perl

# Leemos líneas
open FICHERO,"<kk.txt";
@lineas = <FICHERO>;
close FICHERO;

# Se crea un array que almacenará referencias a otros arrays
# Algo parecido a tener una matriz de dos dimensiones,
# siendo la primera dimensión el tipo de palabra a guardar
# y la segunda dimensión es el orden de la línea leída del fichero
# Así, $eje[2]->[4] es el verbo de la quinta línea.
my @eje;

# Por cada linea
foreach my $linea ( @lineas )
{
    chomp $linea;

    # Por cada palabra
    foreach my $palabra ( split(" ", $linea) )
    {
        # Si la palabra Articulo
        if ($palabra eq "LA") {
            push @{$eje[3]}, $palabra;
        }
        # Si la palabra es Sustantivo
        if ($palabra eq "CASA") {
            push @{$eje[0]}, $palabra;
        }
        # Si la palabra es Verbo
        if ($palabra eq "ES") {
            push @{$eje[2]}, $palabra;
        }
        # Si la palabra Adjetivo
        if ($palabra eq "BONITA") {
          push @{$eje[1]}, $palabra;
        }
    }
}

# Impresión del resultado
# Una por línea leída
foreach $i ( 0 .. $#lineas ) {

  # Una por cada tipo de palabra
  foreach $j ( 0 .. 3 ) {
    print "$eje[$j]->[$i], ";   # Qué es lo mismo que $eje[$j][$i]
  }

  # Este foreach se puede cambiar por:
  #print join(',', map { $eje[$_][$i] } 0..3);

  print "\n";
}

#!/usr/bin/perl

# Leemos líneas
open FICHERO,"<kk.txt";
@lineas = <FICHERO>;
close FICHERO;

# Se crea un array que almacenará referencias a otros arrays
# Algo parecido a tener una matriz de dos dimensiones,
# siendo la primera dimensión el tipo de palabra a guardar
# y la segunda dimensión es el orden de la línea leída del fichero
# Así, $eje[2]->[4] es el verbo de la quinta línea.
my @eje;
my $clase;

# Por cada linea
foreach my $linea ( @lineas )
{
    chomp $linea;

    # Por cada palabra
    foreach my $palabra ( split(" ", $linea) )
    {
        # Si la palabra Articulo
        if ($palabra eq "LA") {
            push @{$eje[3]}, $palabra;
        }
        # Si la palabra es Sustantivo
        if ($palabra eq "CASA") {
            push @{$eje[0]}, $palabra;
        }
        # Si la palabra es Verbo
        if ($palabra eq "ES") {
            push @{$eje[2]}, $palabra;
        }
        # Si la palabra Adjetivo
        if ($palabra eq "BONITA" || $palabra eq "LINDA") {
          push @{$eje[1]}, $palabra;
        }
               
                if ($palabra =~ /d{1}$/)
                {       $clase = $palabra;
                        print "lo q tiene clase es $clase\n";
                }                              
                elsif ($palabra ne "," )
                {   # next if my $vista ($palabra) ++;
                        print "Palabra: $palabra ---> Clase: \n";
                }
        }

        @reg = join(",", map { $eje[$_][$j] } 0..3);

        push @reg , $clase;

        @regis = join(",", @reg);

        print "regis tiene: @regis\n";
        print "\n";

        foreach my $campo3(@regis)
        {       print "lo que tiene campo3 es $campo3\n";
                print "\n";
        }
}
 

#!/usr/bin/perl
# Lección aprendida
# Joaquín Ferrero, Noviembre 2006

# Esto
%es_lo_que_se = (
    LA      => 3,
    CASA    => 0,
    BONITA  => 1,
    ES      => 2,
    LINDA   => 1,
);

# del alfa al omega
($alfa, $omega) = (0, 3);

# porque de la nada, nada se aprende
$nada = ' ';

# pues entonces, abre el libro o muere
open my $libro, '<', 'kk.txt' or die "$!\n";

# y lo leeremos
while ( my $linea = <$libro> ) {

    # Saco tus frases del infinito espacio de las líneas.
    my ( $frase, $infinito ) = split ',', $linea;

    # Lo que leí antes no es nada
    my %lo_que_lei;

    # pues es ahora que con tus palabras aprenderé
    foreach $de_tus_palabras ( split " ", $frase ) {

        # Que son tus palabras en mi cabeza, leídas y memorizadas
        push
            # pues ahora,
            @{   $lo_que_lei {
                 $es_lo_que_se #,
            {    $de_tus_palabras  # y sólo
            }}}, $de_tus_palabras; # lo aprendí
    }

    # Ahora lo sé.
    # ¿Te digo lo que sé?
    print join ',', (
            map {
                # que
                      $lo_que_ahora_se = join ' ',
                # es
                    @{$lo_que_lei{$_}};

                # y sólo sé, que
                $lo_que_ahora_se ? # es
                $lo_que_ahora_se :
                # y si no sé nada, es que
                $nada # aprendí,

            # del alfa al omega,
            } $alfa .. $omega

        # hasta el
        ), $infinito;
}

# Fin de la lección,
close $libro;

__END__

#!/usr/bin/perl

# Relación entre expresiones conocidas y número de esa expresión
%exp = (
    LA      => 3,
    CASA    => 0,
    BONITA  => 1,
    ES      => 2,
    LINDA   => 1,
);

# Rango de valores posibles
($alfa, $omega) = (0, 3);

# Leemos el fichero línea a línea
open my $fh, '<', 'kk.txt' or die "$!\n";

while ( my $linea = <$fh> ) {

    # Separamos la frase del número
    chomp $linea;
    my ( $frase, $num ) = split ',', $linea;

    # Las palabras las guardaremos en una estructura de datos
    # que tiene el siguiente aspecto:
    # Se trata de un hash cuyas claves son los números de los tipos de expresión
    # Y los valores son arrays que almacenan las expresiones encontradas
    # Ejemplo: $leido{1} = [ 'BONITA', 'LINDA', 'BONITA' ]
    my %leido;

    # Bucle por las palabras de la $frase
    foreach $palabra ( split " ", $frase ) {

        $tipo = $exp{ $palabra };       # número de tipo de expresión (de 0 a 3)

        # Guardamos la $palabra dentro del array según el $tipo que sea
        push @{ $leido{ $tipo } }, $palabra;
    }

    # Después de leer todas las palabras, pintamos el resultado

    # Hacemos un bucle por todos los tipos posible
    my @resultado;
    foreach $tipo ( $alfa .. $omega ) {

      # Por cada tipo, sacamos su array y los unimos con espacios en blanco
      my $tipo_str = join(' ', @{ $leido{ $tipo } });

      # En el caso de que no haya nada, dejamos al menos un espacio en blanco
      $tipo_str = $tipo_str ? $tipo_str : ' ';

      # Guardamos el resultado intermedio
      push @resultado, $tipo_str;
    }
    # Obtenemos el resultado final uniendolo todo con comas
    $resultado = join(',', @resultado);

    # Y lo sacamos todo a pantalla
    print $resultado;

    # Repetir el número leído antes y terminar la línea
    print ",$num\n";
}

close $fh;