Using perl Syntax Highlighting
#!/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
{
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
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Sale:
- Código: Seleccionar todo
Introducción Desarrollo Conclusión
ALONSO 2 1 1
FERRARI 2 2 1