in reply to Re^3: Print entire line
in thread Print entire line

Sorry and if i want for example to search all the genes associated to different "DOID". My file is:

parasitic helminthiasis infectious disease DOID:883 IL4 IL5

female reproductive organ cancer DOID:120 BARD1 MAN1B1 SLC12A7 AMHR2 IL4 SLC12A6 SLC12A4

My input is "IL4" and i want:

DOID:883

DOID:120

I have to compare string? Thank a lot Paola

Replies are listed 'Best First'.
Re^5: Print entire line
by Loops (Curate) on Nov 06, 2014 at 14:32 UTC

    It's essentially the same program, with a different comparison:

    my $filename = '/Users/Pabli/Desktop/do_human_mapping.gmt';
my $match = 'IL4';

open(my $file, '<', $filename) or die "open: $!";

while (<$file>){
   my ($name,$id,@genes) = split /\t/;
   print $id,$/ if grep/^$match$/, @genes;
}

    [download]

    Happy to help, but the hope is that you're working towards being able to construct these lil programs for yourself!

[reply]
[d/l]
      Thanks a lot "Loops" you are amazing!!!
[reply]

In Section Seekers of Perl Wisdom