20251125

99.scripts/trinity_utils/util/misc/tab_to_fasta.pl

@@ -0,0 +1,24 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+main: {
+	while (<STDIN>) {
+		unless (/\w/) { next; }
+		chomp;
+		my @x = split (/\t/);
+		my $seq = pop @x;
+
+		# make fasta
+		$seq =~ s/(\S{60})/$1\n/g;
+		chomp $seq;
+
+		print ">" . join (" ", @x) . "\n$seq\n";
+		
+	}
+
+	exit(0);
+}
+
+