https://community.hpe.com/t5/operating-system-linux/compare-two-files-with-awk/m-p/4007650#M96230 The challenge seems not as much a 'compare', but a 'join'.<BR /><BR />SQL is good at this stuff.<BR />Perl is. Awk can do, but is more tedious.<BR /><BR />The proper solution depends a little on table size, but assuming table A is a few MB or less, try this:<BR /><BR />use strict;<BR />my (%a_table, %duration, %counts);<BR />open A, "<A.TXT></A.TXT>while (<A>) {<BR /> my ($number,$name) = split;<BR /> $a_table{$number}=$name;<BR /> }<BR />close A;<BR />open B, "<B.TXT></B.TXT>while (<B>) {<BR /> my ($x,$number,$duration,$status) = split;<BR /> next unless $a_table{$number};<BR /> $duration{$number.$status}+=$duration;<BR /> $counts{$number.$status}++;<BR /> }<BR />close B;<BR />foreach (sort keys %counts) {<BR /> my $status = chop;<BR /> printf ("%10s %5d %s %6d\n",<BR /> $a_table{$_}, $counts{$_.$status}, $status, $duration{$_.$status});<BR /> }<BR /><BR />Hein.<BR /></B></A> Sat, 26 May 2007 10:22:14 GMT Hein van den Heuvel 2007-05-26T10:22:14Z https://community.hpe.com/t5/operating-system-linux/compare-two-files-with-awk/m-p/4007649#M96229 Hi All,<BR /> <BR /> Help needed for the following problem I have.<BR /> <BR /> I have two files:<BR /> FILE A<BR /> ========<BR /> 0113434343 SJJK:01<BR /> 0113434342 SJJK:01<BR /> 0113434346 SJJK:01<BR /> 0126652131 JGGG:01<BR /> 0126652133 JGGG:01<BR /> 0126652137 JGGG:01<BR /> 0214020000 BGBG:01<BR /> 0214020001 BGBG:01<BR /> 0214020002 BGBG:01<BR /><BR /> FILE B<BR /> =======<BR />258826955840 0113434343 10 V rjs+:01 MPO7DB<BR />26465220052 0126652131 70 V rjs+:01 WKI7DB<BR />258847585067 0730720260 540 V rjs+:01 VMO7DB<BR />474892345 002215548734 5570 V rjs+:01 TSALOG<BR />26771377193 0026391846469 1600 V rjs+:01 FTN7DB<BR />258826953840 0113434343 30 V rjs+:01 MPO7DD<BR />2348037059676 07313166266 0 U rjs+:01 BXF7CB<BR />865966104371 0026391918459 1210 V rjs+:01 BE27TB<BR />255555555550 0214020000 1220 V rjs+:01 AWP7CB<BR />865966104370 0026391374035 0 U rjs+:01 BE27TB<BR />255526953840 0113434343 30 U rjs+:01 MPO7BB<BR />118346993 002348027245963 8430 V rjs+:01 TSALOG<BR />255555555550 0214020000 0 U rjs+:01 AWP7CB<BR />255526953840 0214020000 20 V rjs+:01 AWP7CB<BR />DEF 0791407394 0 U rjs+:01 VLG7TB<BR /><BR />Use FILE A colum $1 to check in FILE B colum $2 and if true look at colum $4 if the colum is ="V",take <BR />into consideration the $3. Continue the pattern match. If another match in $2 and $4 == "V" add the result <BR />from the first match with $3 to this match as well as number of occurrences for e.g "2". If match $2 <BR />and $4=="U" then add $3 and increment count=1.<BR /><BR />My Code So far<BR />==============<BR />awk 'FNR==NR {<BR /> t[$1]=$2;f[$2]=0;next<BR /> }<BR /> $2 in t {<BR /> if($4=="V"){<BR /> print t[$2],++f[$2],$4<BR /> }<BR /> else<BR /> if($4=="U"){<BR /> print t[$2],++f[$2],$4<BR /> }<BR /> }' First Second<BR /><BR />Output File should look like below<BR /><BR /><BR />RESULT<BR />======<BR />NAME COUNTS STATUS DURATION<BR />SJJK:01 2 V 40 (note this is for 0113434343)<BR />SJJK:01 1 U 10 (note this is for 0113434343)<BR />JGGG:01 1 V 70 (note this is for 0126652131)<BR />BGBG:01 2 V 1240 (note this is for 0214020000)<BR />BGBG:01 1 U 0 (note this is for 0214020000) <BR /><BR />Hope this helps<BR /><BR />Many Thanks<BR />Chris Sat, 26 May 2007 07:00:58 GMT https://community.hpe.com/t5/operating-system-linux/compare-two-files-with-awk/m-p/4007649#M96229 Chris Frangandonis 2007-05-26T07:00:58Z https://community.hpe.com/t5/operating-system-linux/compare-two-files-with-awk/m-p/4007650#M96230 The challenge seems not as much a 'compare', but a 'join'.<BR /><BR />SQL is good at this stuff.<BR />Perl is. Awk can do, but is more tedious.<BR /><BR />The proper solution depends a little on table size, but assuming table A is a few MB or less, try this:<BR /><BR />use strict;<BR />my (%a_table, %duration, %counts);<BR />open A, "<A.TXT></A.TXT>while (<A>) {<BR /> my ($number,$name) = split;<BR /> $a_table{$number}=$name;<BR /> }<BR />close A;<BR />open B, "<B.TXT></B.TXT>while (<B>) {<BR /> my ($x,$number,$duration,$status) = split;<BR /> next unless $a_table{$number};<BR /> $duration{$number.$status}+=$duration;<BR /> $counts{$number.$status}++;<BR /> }<BR />close B;<BR />foreach (sort keys %counts) {<BR /> my $status = chop;<BR /> printf ("%10s %5d %s %6d\n",<BR /> $a_table{$_}, $counts{$_.$status}, $status, $duration{$_.$status});<BR /> }<BR /><BR />Hein.<BR /></B></A> Sat, 26 May 2007 10:22:14 GMT https://community.hpe.com/t5/operating-system-linux/compare-two-files-with-awk/m-p/4007650#M96230 Hein van den Heuvel 2007-05-26T10:22:14Z