check.pl

比对两个文件并纠错

#!/usr/bin/perl

use strict;
use warnings;

###############################################main################################
my %hash_txt = &read($ARGV[0]);my %hash_out = &read($ARGV[1]);

foreach my $id (keys %hash_txt)
{
    my $hash2 = $hash_txt{$id};
    foreach my $title ( keys %$hash2)
    {
        if($hash2->{$title} == $hash_out{$id}{$title})
        {
           print "";
        }
        else
        {
            print $id."\t".$title."\t".$hash2->{$title}."\t".$hash_out{$id}{$title}."\n";
        }
    }
}

########################################sub######################################
sub read
{
    my %out;

    my $input = shift;open TXT, "$input"; 

    my $id = <TXT>;$id =~ s/\R/\n/g;chomp($id);my @id_split = split(/\t/,$id);

    my $info;

    my %a;

    while($info = <TXT>)
    {
        $info =~ s/\R/\n/g;chomp($info);
        my @info_split = split(/[\t\s]/,$info);
        my $i =1;
        while ($i<18)
        {
            $a{$info_split[0]}{$id_split[$i]} = $info_split[$i];

            $i++;
        }
    }
    return %a
}