Using perl Syntax Highlighting
- use strict;
- use Bio::DB::HTS::Kseq;
- my ($length,$header,$sequence,$quality);
- my $kseq = Bio::DB::HTS::Kseq->new("sample18MB.fq.gz");
- my $iter = $kseq->iterator();
- while(my $r = $iter->next_seq()) {
- ($header,$sequence,$quality) = ($r->name,$r->seq,$r->qual);
- print ">$header\n$sequence\n$quality\n";
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Artículo