Perl 两个文件中的列比较

Question

我有两个文件“1.txt”和“2.txt”。

这两个文件的结构是：

Main_File1 Start End 
1           200   250
2           310   340

Main_File2  Start End 
1           200   250
2           350   370

我想编写一个 perl 代码，它的输出应该是两个文件，即一个文件具有常见的“开始”和“结束”位置列表，另一个文件具有唯一的“开始”和“结束”位置。

Answer 1

我猜你已经有了读取这些文件的代码，只需要解析出值并组织它们。

设计部分提出了一个密钥，该密钥对于每个开始、结束对都是唯一的，但使用起来并不难。由于 start 和 end 是数字，这应该很容易：

our %matchups ;

sub process
{
  my ($lst_)= @_ ;
  for ( @$lst_ ) {
    my ($strt,$endn)= /\d+\w+(\d+)\w+(\d+)/ ;
    next unless $strt && $endn ;
    my $key= "${strt}_$endn" ;
    $matchups{$key}[0]= $_ ;
    $matchups{$key}[1] ++ ;
  }
}

sub outputmatch
{
  my ($dest,$multi)= @_ ;
  # open file
  for ( values %matchups ) {
    print $OUT $_->[0] if ( $_->[1] > 1 ) == $multi ;
  }
}

{
  process(@listfrom1txt) ;
  process(@listfrom2txt) ;

  outputmatch( "common.txt", 1 ) ;
  outputmatch( "uniq.txt", 0 ) ;
}

所以在这里我们创建一个键是start_end，然后我们在哈希内部构建一个数据结构，它是一个由两个元素组成的数组。第一个元素是原始行，第二个元素是我们看到这个条目的次数。

如果一行是唯一的，则计数为1；如果不是，那么它将大于1。