Programación Tctw

¡La práctica ha demostrado que puede funcionar!

#!/usr/bin/perl

Usar advertencia;

Usar estricto;

Usar IO::File;

p>

Mi $file_1 = "./wenti/data 1. txt";

Mi $file_2 = "./wenti/data 2. txt";

Subdirector(){

mi $FH_1 = IO::Archivo-> nuevo ($archivo_1) o muerto$! ;

mi $ FH _ 2 = IO::File-> new($file_2) o muere $! ;

mientras(<$FH_1>){

chomp();

mi $num = $_;

p >

my $FH_2 = IO::File-> new($file_2) o muere $! ;

mientras(<$fh_2>){

chomp();

mi @date = dividir / /, $ _

<; p>mi $wdate = $date[0];

if($num eq $wdate){

Imprimir $_, "\n";

}

}

}

}

& principal;