Hello mao9856

I am getting a bit confused with your question :). Your question has multiple great answers from fellow Monks and still we are not able to resolve it because we do not know exactly what is the desired output for you.

On one of my previous answers to your question e.g. Re: find common data in multiple files I am using a different approach which checks each file and prints at the end all the lines that match each other. I mean for example let's assume that file 1, file 2 and file 3 have one common line that is shared from all this is captured by the script. The script also captures non common lines among all files but common lines that appeared at least once on 2 files.

I assume something like that is that you are looking for. If not dry to draw a hash an array of arrays something with dummy data to show us the desired output that you want.

For example:

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %hash = ( 'file1' => 'line common',
         'file2' => 'line common', );

print Dumper \%hash;

__END__

$ perl test.pl
$VAR1 = {
          'file1' => 'line common',
          'file2' => 'line common'
        };
[download]

Based on my assumption you want to see which file contains what line that exist at least once in 2 files. If this is true something like that would resolved your question?

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %hash = ( 'common line' => ['file1',
                   'file2',],
         'common line different' => ['file1',
                     'file2',
                     'file3',] );

print Dumper \%hash;

__END__

$ perl test.pl
$VAR1 = {
          'common line' => [
                             'file1',
                             'file2'
                           ],
          'common line different' => [
                                       'file1',
                                       'file2',
                                       'file3'
                                     ]
        };
[download]

Looking forward to your update, BR