Re: Getting Lines 2,3, and 4 from FASTQ file's Chunk

[Ratazong]

my $count = 0;
my $seqlinec = 2;
while ( <INFILE> ) {
    if ( $seqlinc eq $count ) {
        print "$_\n";
    }
    $seqlinec += 4;
}

I assume you want to somehow count the line you are reading. In that case, you should increment your counter somewhere. Maybe do something like the following (untested!) code

my $count = 0;
while ( <INFILE> ) {
    next        if ( !$count++ );   # ignore line zero, increase linec
+ount
    print $_;
    $count = 0  if ($count >= 3);   # reset the counter once we printe
+d line 3 
}

HTH, Rata

note: of course the code could be easily optimized, e.g. by using ($count++ % 4); see Boolean counter? for some ways (you need to adapt them to count modulo 4)