Foro - Perl en Español

        1 #!/usr/bin/perl
        2 use strict;     # somos estrictos,
        3 use warnings;   # precavidos,
        4 use integer;    # enteros,
        5 use locale;     # y lugareños.
        6
        7 # lectura ###################################################################
        8
        9 # leemos todo el texto
       10 my $fichero = do{ local $/ = undef; open FICHERO, '<kk.txt'; <FICHERO> };
       11
       12 # sacamos las palabras
       13 my @palabras = $fichero =~ m/ (\w+) /mogsix;
       14 #print 'Hay ', scalar @palabras, " palabras en el texto,\n";
       15
       16 # tamaño de las secciones
       17 my $largo_de_seccion = @palabras / 5;
       18 #print "Con $largo_de_seccion palabras por sección.\n";
       19
       20 # vamos guardando las @palabras, en bloques del tamaño del $largo_de_seccion,
       21 # para las cinco secciones
       22 my @secciones;
       23 for ( 0 .. 4 ) {
       24
       25     # extraemos la sección
       26     my @seccion_palabras = splice @palabras, 0, $largo_de_seccion;
       27
       28     # contamos las veces que sale cada palabra
       29     my %seccion_palabras;
       30     foreach my $palabra ( @seccion_palabras ) { $seccion_palabras{ $palabra }++ }
       31
       32     # la estadística la guardamos en el array de @secciones
       33     # como un hash en que las palabras son las claves y el valor, las veces que aparece
       34     push @secciones, { %seccion_palabras };
       35 }
       36
       37 # la última sección debe contener el resto de @palabras por colocar
       38 $secciones[ -1 ]{ $_ }++ foreach @palabras;
       39
       40 # el resultado es de la forma:
       41 # @secciones = [
       42 #          {
       43 #            'existen' => 1,
       44 #            'segundo' => 1,
       45 #            'primero' => 1,
       46 #            'jugará' => 1,
       47 #            'no' => 1,
       48 #            'Shanghai' => 1,
       49 #            'Fernando' => 1,
       50 #            'y' => 2,
       51 #            'Alonso' => 3,
       52 #            ...
       53 #          },
       54 #          {
       55 #            ...
       56 #
       57 # No nos importa el orden de las palabras.
       58 # Solo saber que existen, en qué sección están y cuantas veces aparecen
       59
       60 # ahora, leemos las keywords, quitándoles los finales de línea
       61 chomp (my @keywords = <DATA>);
       62
       63 # estadísticas ###############################################################
       64 foreach my $keyword ( @keywords ) {
       65
       66     my $ocurrencias;
       67
       68     foreach my $seccion ( 0 .. 4 ) {
       69
       70         # si existe en la sección el keyword
       71         if ( exists $secciones[ $seccion ] { $keyword } ) {
       72
       73             # vamos las veces que aparece
       74             $ocurrencias = $secciones[ $seccion ] { $keyword };
       75
       76             print "$keyword - sección ", $seccion+1, ': ';
       77             print $ocurrencias, ' ocurrencia';
       78
       79             if ( $ocurrencias != 1 ) { print 's' }
       80
       81             print "\n";
       82         }
       83     }
       84
       85     print "\n" if $ocurrencias;
       86 }
       87
       88 __DATA__
       89 Alonso
       90 título
       91 Pedro

chomp( my @keywords = map { lc } <DATA> );