comment on

"How do I use the map command for this?"

No idea. :-)

"I am pretty sure I need to use the map command"

Why?

In the code below, I simplified the data so that it's easier to see what's happening. I've also jumbled it up to demonstrate the two sorts — you may not need or want either of these (biological data can be huge, so don't do any sorting unless it's absolutely necessary).

#!/usr/bin/env perl

use strict;
use warnings;

my %res;

{
    local $/ = "\n>";

    while (my $record = <DATA>) {
        chomp $record;
        $record = substr $record, 1 if $. == 1;
        $record =~ s/\s*\z//m;
        my ($id, $anno_seq) = split /\|/, $record, 2;
        push @{$res{$anno_seq}}, $id;
    }
}

print '>', join('|', (sort @{$res{$_}}), $_), "\n"
    for sort { $res{$a}[0] cmp $res{$b}[0] } keys %res;

__DATA__
>id7|anno2
GHI
>id1|anno1
ABC
>id6|anno1
ABC
>id4|anno2
GHI
>id2|anno3
DEF
>id3|anno1
ABC
>id5|anno1
ABC
[download]

Output:

>id1|id3|id5|id6|anno1
ABC
>id2|anno3
DEF
>id4|id7|anno2
GHI
[download]

— Ken

In reply to Re: How do I use the map command for this? by kcott
in thread How do I use the map command for this? by Anonymous Monk

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Syntactic Confectionery Delight
	PerlMonks