<?xml version='1.0'?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:georss="http://www.georss.org/georss" xmlns:atom="http://www.w3.org/2005/Atom" >
<channel>
	<title><![CDATA[BOL: Perl script to convert fastq to fasta file]]></title>
	<link>https://bioinformaticsonline.com/snippets/view/35890/perl-script-to-convert-fastq-to-fasta-file?</link>
	<atom:link href="https://bioinformaticsonline.com/snippets/view/35890/perl-script-to-convert-fastq-to-fasta-file?" rel="self" type="application/rss+xml" />
	<description><![CDATA[]]></description>
	
	<item>
	<guid isPermaLink="true">https://bioinformaticsonline.com/snippets/view/35890/perl-script-to-convert-fastq-to-fasta-file</guid>
	<pubDate>Wed, 07 Mar 2018 04:23:26 -0600</pubDate>
	<link>https://bioinformaticsonline.com/snippets/view/35890/perl-script-to-convert-fastq-to-fasta-file</link>
	<title><![CDATA[Perl script to convert fastq to fasta file]]></title>
	<description><![CDATA[<code>#!/usr/bin/env perl

use strict;
use warnings;
use Bio::Factory::EMBOSS;

my $usage   = &quot;perl $0 in.fq out.fa&quot;;
my $infile  = shift or die $usage;
my $outfile = shift or die $usage;

my $factory = Bio::Factory::EMBOSS-&gt;new;
my $seqret  = $factory-&gt;program(&#039;seqret&#039;); # $seqret is a Bio::Tools::Run::EMBOSSApplication object

$seqret-&gt;run({-sequence =&gt; $infile,
              -sformat1 =&gt; &#039;fastq&#039;,
              -outseq   =&gt; $outfile,
              -osformat =&gt; &#039;fasta&#039;});</code>]]></description>
	<dc:creator>Poonam Mahapatra</dc:creator>
</item>

</channel>
</rss>