Shell Programming and Scripting

1234 5
2345 3
3456 67
4567 21
5678 9
6789 22
7890 54

zzzz,'3456',xxx
zzzz,'2345',xxx
zzzz,'6789',xxx

3456 67
2345 3
6789 22

$ cat file1.dat
1234 5
2345 3
3456 67
4567 21
5678 9
6789 22
7890 54
$ cat file2.dat
zzzz,'3456',xxx
zzzz,'2345',xxx
zzzz,'6789',xxx
$ cat script.pl
use warnings;
use strict;

die qq[Usage: perl $0 <file1> <file2>\n] unless @ARGV == 2;

open my $fh1, qq[<], shift @ARGV or die;
open my $fh2, qq[<], shift @ARGV or die;

my %num;

while ( <$fh2> ) {
        chomp;
        my @f = split /,/, $_;
        next unless @f >= 2;
        $f[1] =~ tr/'//d;
        $num{ $f[1] } = 1;
}

while ( <$fh1> ) {
        chomp;
        my @f = split;
        next unless @f >= 2;
        if ( exists $num{ $f[0] } ) {
                printf qq[%s\n], $_;
        }
}
$ perl script.pl file1.dat file2.dat 
2345 3
3456 67
6789 22

$ cat p1.txt
1234 5
2345 3
3456 67
4567 21
5678 9
6789 22
7890 54

$ cat p2.txt
zzzz,'3456',xxx
zzzz,'2345',xxx
zzzz,'6789',xxx

$ cut -d, -f2 <p2.txt | tr -d "'" >p2a.txt


$ grep -f p2a.txt <p1.txt
2345 3
3456 67
6789 22