求助 统计一个文件中的行是否在另外5个文件中出现，并输出

rubyish

shishi:

1. #!/usr/bin/perl
   
2. use 5.010;
   
3. 
   
4. my @file = qw/f1 f2 f3 f4 f5 fc/;
   
5. @ARGV    = pop @file;
   
6. my %it   = map { $_, {} } <>;
   
7. @ARGV    = @file;
   
8. $it{$_} and $it{$_}{$ARGV}++ while <>;
   
9. 
   
10. my ($void) = %it;
    
11. say join "\t", $" x ( length($void) - 1 ), @file, 'total';
    
12. 
    
13. for ( sort { keys %{ $it{$b} } <=> keys %{ $it{$a} } } keys %it ) {
    
14.     my $wig = $_, chomp;
    
15.     my $som = keys %{ $it{$wig} };
    
16.     say join "\t", $_, map( $_ || 0, @{ $it{$wig} }{@file} ), $som;
    
17. }
    

复制代码

不仅仅是符号

回复 10# MMMIX
谢谢！我学习学习！


   

不仅仅是符号

回复 11# rubyish
谢谢


   

rubyish

回复 9# 不仅仅是符号

虽然挺笨的

   
while ($line=<INN>) {
        chomp $line;
        @colu=split(/\t/,$line);
        $key=$colu[0]."\t".$colu[1]."\t".$colu[2]."\t".$colu[3]."\t".$colu[4];
        $hash{$key}=1;
}


0: use perltidy [ perltidy -b abc.pl ]

1. 
   
2. my %hash;
   
3. while ( my $line = <INN> ) {
   
4.     chomp $line;
   
5.     my @colu = split( /\t/, $line );
   
6.     my $key =
   
7.         $colu[0] . "\t"
   
8.       . $colu[1] . "\t"
   
9.       . $colu[2] . "\t"
   
10.       . $colu[3] . "\t"
    
11.       . $colu[4];
    
12.     $hash{$key} = 1;
    
13. }
    

复制代码

1: use join

1. 
   
2. my %hash;
   
3. while ( my $line = <INN> ) {
   
4.     chomp $line;
   
5.     my @colu = split /\t/, $line;
   
6.     my $key = join "\t", @colu;
   
7.     $hash{$key} = 1;
   
8. }
   

复制代码

2: no chomp;

1. 
   
2. my %hash;
   
3. while (<INN>) {
   
4.     my @colu = split;
   
5.     my $key = join "\t", @colu;
   
6.     $hash{$key} = 1;
   
7. }
   

复制代码

3: no tmp array

1. 
   
2. my %hash;
   
3. while (<INN>) {
   
4.     my $key = join "\t", split;
   
5.     $hash{$key} = 1;
   
6. }
   

复制代码

4: split /\t/ + join "\t" ==> do NOTHING!!

1. 
   
2. my %hash;
   
3. while (<INN>) {
   
4.     chomp;
   
5.     $hash{$_} = 1;
   
6. }
   

复制代码

5: no chomp; this scenario BUUUUUU xuyao chomp

1. 
   
2. my %hash;
   
3. while (<INN>) {
   
4.     $hash{$_} = 1;
   
5. }
   

复制代码

6: use map

1. 
   
2. my %hash = map { $_, 1 } <INN>;
   
3. my %hash = map { chomp; $_, 1 } <INN>;    # if chomp
   
4. my %hash = map { $_, chomp } <INN>;       # if chomp
   

复制代码