Greetings to all

For printing the common data present among all 25 .txt files as input: 

INPUT
File1
ID121 ABC14      
ID122 EFG87 
ID145 XYZ43
ID157 TSR11
ID181 ABC31
ID962 YTS27
ID567 POH70
ID921 BAMD80

File2 
ID111 RET61 
ID157 TSR11 
ID181 ABC31 
ID962 YTS27 
ID452 FYU098 
ID122 EFG87 

File3 
ID121 ABC14 
ID612 FLOW12 
ID122 EFG87 
ID745 KIDP36 
ID145 XYZ43 
         
..................
File25 
ID122 EFG87 
ID809 EYE24 
ID921 BAMD80 
ID389 TOP30 
ID121 ABC14

[download]

I tried following new code: 

#!/usr/bin/env perl
use strict;
use warnings;
my %data;

while (<>) {
    my ( $key, $value ) = split;
    push( @{ $data{$key} }, $value );
}

foreach my $key ( sort keys %data ) {
    if ( @{ $data{$key} } >= @ARGV ) {
        print join( "\t", $key, @{ $data{$key} } ), "\n";
    }
}

[download]
 $ code.pl *.txt

it gives following output as per my understanding. Please correct me if I am wrong 

OUTPUT
      File1 File2 File3 ...........File25
ID121 ABC14 space ABC14 ...........ABC14 
ID122 EFG87 EFG87 EFG87 ...........EFG87
ID157 TSR11 TSR11 space .......... space

[download]

Thank you in advance:)

In reply to Re: find common data in multiple files by mao9856
in thread find common data in multiple files by mao9856

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.