Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: select only duplicate entries

by borisz (Canon)
on Aug 24, 2006 at 08:55 UTC ( #569321=note: print w/ replies, xml ) Need Help??

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

Comment on Re: select only duplicate entries
Download Code
Replies are listed 'Best First'.
Re^2: select only duplicate entries
by ikegami (Pope) on Aug 24, 2006 at 15:08 UTC

    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.

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://569321]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (8)
As of 2015-10-13 08:24 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (296 votes), past polls