Hola a todos y en especial a explorer por su respuesta rápida de antemano.
Quiero comparar la columna 0 del archivo cath con la columna modificada 1 del archivo 3tpoA2 y si coinciden que agregue la columna 1 del cath al último del archivo modificado 3tpoA2.
Debe quedar así en las filas donde coinciden los id.
3tpoA 3tpoA 30 406 435.00 1.25.10.10 1.25.10.10
Adjunto archivos originales
#!/usr/bin/perl
open (CATH,"./cath_min2.txt");
while ($catch = <CATH>) {
chomp $catch;
@catch=split(/\s+/,$catch);
$id=@catch[0];
$classcatch=join ("\.",@catch[1..4]);
}
open (LOG,"./3tpoA2.log");
while ($log = <LOG>) {
next if $log =~ /^\D/;
chomp $log;
@log=split(/\t/,$log);
@nwlog=@log[0..2, 6, 5];
print "@nwlog[0..$#nwlog]";
foreach $p (@nwlog[1..$#nwlog]) {
if ($p=~/^\d[a-z]{3}[A_Z]/) {
push (@nwlog,$classcatch);
} else {$nwlog[1]="NF"}
} print"\n";
}