Select Code to Download

@HWUSI-EAS1734_0032_FC620F7AAXX:5:1:18184:1176#CGATGT/1
GGATTTCTCGTGGANACCATTTGTTGGTCAANNNNNNNNNNGTGTTNGNCTTCANNGNNATTGAAAATGN
+TCATTCGTGGCTATTTTCGCNNNNNATNNNN
...
acdad`^ddd^aa^B_\VZZfcfccaffBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
+BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
..........

    if (-e "$ARGV[0].idx") {
        open (INDEXFQ1, "$ARGV[0].idx") or die $!;
...
        open (INDEXFQ1, "+>$ARGV[1].idx") or die $!;
        build_index(*FQ1, *INDEXFQ1);
    }

 print OQ10_1 line_with_index(*FQ1, *INDEXFQ1, $line);

741:20058#ATCACG/1
GTTCGTGAGAGCTCTAGGTTGTCGTCTCCCAGTCAACTATGGTCGCTGTAACGCGCTGACTT
41:20058#ATCACG/1
dgggg_ddadbaggedbXdd]^[UVYX]XR_BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB

sub build_index {
        my $data_file = shift;
...
        return scalar(<$data_file>);
}