Help for this page

Select Code to Download


  1. or download this
    open my $annotation_read_handle, '<', $annotation_file;
    my %annotations_for;
    ...
        push @$annotations_for{$an_chrom}, $ad;
    }
    close $annotation_read_handle;
    
  2. or download this
        # look up the list of annotations relevant to the current chromoso
    +me
        my $annotations_ref = $annotations_for{$main_chrom};
        # loop through just these annotations
        ILC: foreach my $ad (@$annotations_ref) { # ...
        }