Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
        my @l = split /\|/, $l;
        return "$l[0]|$l[1]","$l[2]";
}

Select or download this

$ ./join.pl f1 f2
789|efg|2222222|NO MATCH
...
123|xxx|0000000|NO MATCH
234|cde|0000000|456
567|xyz|1111111|999