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

}
巴特西

check.pl

最新文章

热门文章
