Using perl Syntax Highlighting
- #!/usr/bin/perl
- use common::sense; # Hay que tener sentido común
- use open qw(:utf8 :std); # Terminal en modo utf8
- use autodie; # Es mejor morir que regresar con deshonor --proverbio Klingon.
- use File::Slurp;
- ## Leer ficheros
- my @primer_archivo = read_file('archivo1.txt');
- my @segundo_archivo = read_file('archivo2.txt');
- ## Apertura del fichero de coincidencias
- open my $fh, '>', 'fichero_coincidencias.txt';
- ## Comparación
- for my $linea1 (@primer_archivo) {
- my($campo1) = split " ", $linea1, 2;
- # Buscamos las líneas de @segundo_archivo que contengan $campo1
- my @coincidentes = grep { /$campo1/ } @segundo_archivo;
- for my $linea2 (@coincidentes) { # Para todas ellas
- print $fh $linea1; # Las imprimimos
- print $fh $linea2;
- }
- }
- ## Cierre del fichero de coincidencias
- close $fh;
- __END__
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Gracias, explorer ¡funciona genial!