Foro - Perl en Español

#!/usr/bin/perl -w

{
    local $/ = '<s>';
    open TEXTO,'<:utf8','kk.txt';
    @secciones = <TEXTO>;
    close TEXTO;
}

my $fila = 0;
while ( $termino_a_buscar = <DATA> ) {

    chomp $termino_a_buscar;

    $fila++;
    if ( $fila == 1 ) {
        print ' 'x 10;
        foreach $seccion ( @secciones ) {
            next if $seccion !~ m{(\w+)</s>};
            printf "%12s", $1;
        }
        print "\n";
    }

    my $columna = 0;
    foreach $seccion ( @secciones ) {
        next if $seccion !~ m{(\w+)</s>};

        $numero_de_veces = () = $seccion =~ /$termino_a_buscar/misg;

        $columna++;
        if ( $columna == 1 ) {
            printf "%9s ",$termino_a_buscar;
            $columna++;
        }

        printf "%12s", $numero_de_veces;
    }
    print "\n";
}

__DATA__
ALONSO
FERRARI