http://qs321.pair.com?node_id=1193006


in reply to Re^2: Merge the difference between two files
in thread Merge the difference between two files

To achieve this, after the line 
           $currentheader = $line;

[download]
add this: 
           if (exists $result{$currentheader}){
              $currentheader="RECYCLE_BIN";
           }

[download]
I will leave it as an exercise for you to figure hou how to avoid printing the "RECYCLE_BIN" item.

                Once it hits the fan, the only rational choice is to sweep it up, package it, and sell it as fertilizer.

In Section Seekers of Perl Wisdom