From cee84746af512a847a96a2b9b2ec55992b08b154 Mon Sep 17 00:00:00 2001
From: Tim Reddy Tim <treddy@hudsonalpha.org>
Date: Mon, 12 Jan 2009 22:47:46 +0000
Subject: [PATCH] Added file to flatten fasta as prep for bioprospector

---
 htswanalysis/scripts/flatten_fasta.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 htswanalysis/scripts/flatten_fasta.pm

diff --git a/htswanalysis/scripts/flatten_fasta.pm b/htswanalysis/scripts/flatten_fasta.pm
new file mode 100755
index 0000000..adb6adf
--- /dev/null
+++ b/htswanalysis/scripts/flatten_fasta.pm
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+
+my $started = 0;
+while( my $line = <>) {
+  if($line =~ /^>/) { 
+    if(!$started) { $started = 1; } else { print "\n"; }
+    print $line; 
+  }
+  else {
+    chomp $line;
+    print $line;
+  }
+}
+print "\n";
-- 
2.30.2