File Comparison – Comparing First Column of Two Files and Printing Matching Rows

awkgrepjoin;

I have two files in these formats:

file1 :

air
smell
hand
dude
road
cat

file 2:

air,4,21,01,13,3,2
smell,21,4,2,5,6
dude,1,31,42,1
road,1,4,2,1,4
cat,1,5,6,3,1
hand,1,4,2,1,6
mouse,1,3,5,6,2

what I want to do is print the entire row of file 2, if the first string in column 1 of file 2 is found in file 1, and I want to keep the order of file 1.

expected output:

air,4,21,01,13,3,2
smell,21,4,2,5,6
hand,1,4,2,1,6
dude,1,31,42,1
road,1,4,2,1,4
cat,1,5,6,3,1

Best Answer

This should do it:

awk -F, 'FNR==NR {a[$1]; next}; $1 in a' file1 file2

edit:

Interpreted the wrong file for the ordering. A new attempt (requires gawk if that is acceptable)

gawk -F, '
    FNR==NR {a[NR]=$1; next}; 
    {b[$1]=$0}
    END{for (i in a) if (a[i] in b) print b[a[i]]}
' file1 file2

edit 2:

With nowmal awk, and swapping the files around:

awk -F, 'FNR==NR {a[$1]=$0; next}; $1 in a {print a[$1]}' file2 file1

Related Solutions

awk – Remove Entire Row in a File if First Column is Repeated

A few ways:

awk
```
awk '!a[$1]++' file
```
This is a very condensed way of writing this:
```
awk '{if(! a[$1]){print; a[$1]++}}' file
```
So, if the current first field ($1) is not in the a array, print the line and add the 1st field to a. Next time we see that field, it will be in the array and so will not be printed.
Perl
```
perl -ane '$k{$F[0]}++ or print' file
```
or
```
perl -ane 'print if !$k{$F[0]}++' file
```
This is basically the same as the awk one. The -n causes perl to read the input file line by line and apply the script provided by -e to each line. The -a will automatically split each line on whitespace and save the resulting fields in the @F array. Finally, the first field is added to the %k hash and if it is not already there, the line is printed. The same thing could be written as
```
perl -e 'while(<>){
            @F=split(/\s+/); 
            print unless defined($k{$F[0]}); 
            $k{$F[0]}++;
         }' file
```
Coreutils
```
rev file | uniq -f 1 | rev
```
This method works by first reversing the lines in file so that if a line is 12 345 it'll now be 543 21. We then use uniq -f 1 to ignore the first field, that is to say, the column that 543 is in. There are fields within file. Using uniq here has the effect of filtering out any duplicate lines, keeping only 1 of each. Lastly we put the lines back into their original order with another reverse.
GNU sort (as suggested by @StéphaneChazelas)
```
sort -buk1,1
```
The -b flag ignores leading whitespace and the -u means print only unique fields. The clever bit is the -k1,1. The -k flag sets the field to sort on. It takes the general format of -k POS1[,POS2] which means only look at fields POS1 through POS2 when sorting. So, -k1,1 means only look at the 1st field. Depending on your data, you might want to also add one of these options:
```
 -g, --general-numeric-sort
      compare according to general numerical value
 -n, --numeric-sort
      compare according to string numerical value
```

Best Answer

Related Solutions

awk – Remove Entire Row in a File if First Column is Repeated

Related Question