Pattern Match Using Perl-Append file contents
Wednesday, May 29, 2013 pattern match , perl 0 Comments

If i want to append all the lines of one file to a line in second file only if there is a pattern match:

For example:
first_file.txt:

second_file.txt:

pattern to match:

output:

Below is the perl command to achieve this:

perl -lne 'BEGIN{open(A,"first_file.txt");@f=<A>}
           print;if(/2222/){print @f}' 
           second_file.txt

>The Unix Shell