Re: select only duplicate entries

[borisz]

in reply to select only duplicate entries

my %h;
while ( defined ( $_ = <DATA> )){
  chomp;
  my ( $k, $v) = split ' ';
  push @{$h{$k}}, $v;
}

open my $fh1, '>', '/tmp/1.txt' or die;
open my $fh2, '>', '/tmp/2.txt' or die;

for my $k ( sort keys %h ) {
  my $c = @{$h{$k}};  
  for ( @{$h{$k}}){
    $c > 1 ? print $fh2 "$k\t$_\n" : print $fh1 "$k\t$_\n";
  }}
__DATA__  
protein1   stomach
protein2   head
protein3   muscle
protein3   heart
protein3   brain
protein4   leg
protein5   toes
protein5   mouth
protein6   ear

[ikegami]

while ( defined ( $_ = <DATA> )){
is equivalent to
while ( <DATA> ){

$c > 1 ? print $fh2 "$k\t$_\n" : print $fh1 "$k\t$_\n";
is equivalent to
print { $c == 1 ? $fh1 : $fh2 } "$k\t$_\n";
or do
my $fh = $c == 1 ? $fh1 : $fh2;
outside the loop and print to $fh.

[borisz]

Thanks, I know. I try to write it simple for the newbies.