Although overkill for the example you showed, it might be useful to see how this can be done with SQL. The following uses DBD::CSV so it can work with your input files directly to produce your expected output, though for "production" work you would probably want to use a real database. Also, my output code is somewhat simplistic, one could use Text::CSV(_XS) for that purpose as well.

use warnings;
use strict;
use DBI;

my $dbh = DBI->connect("dbi:CSV:", undef, undef, {
        csv_sep_char => "\t", f_ext => '', RaiseError => 1,
    }) or die "Cannot connect: $DBI::errstr";
 
my $sth = $dbh->prepare(<<'ENDSQL');
SELECT
    tmp01.PeptideID as PeptideID,
    tmp01.ProteinID as ProteinID,
    tmp02.SpectrumID as SpectrumID,
    tmp02.Sequence as Sequence
    FROM tmp01
    LEFT OUTER JOIN tmp02
        ON tmp01.PeptideID = tmp02.PeptideID
ENDSQL
$sth->execute;
print join("\t", @{ $sth->{NAME} } ), "\n";
while ( my $row = $sth->fetchrow_arrayref ) {
    print join("\t", @$row ), "\n";
}

[download]

Update: Also make sure to read up on the different kinds of SQL JOINs to see the difference between those and which one is appropriate for your case.

In reply to Re: match two files by haukex
in thread match two files by yueli711

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.