20251125

2025-11-25 00:28:51 +08:00
commit eb3f16c30e
406 changed files with 91653 additions and 0 deletions
@@ -0,0 +1,37 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use FindBin;
+use lib ("$FindBin::Bin/../../PerlLib");
+use Fasta_reader;
+
+my $usage = "usage: $0 [multiFastaFile]\n\n";
+
+if (defined($ARGV[0]) && ($ARGV[0] eq "-h" || $ARGV[0] eq "--help")) {
+    die $usage;
+}
+
+
+my $input = $ARGV[0] || *STDIN{IO};
+
+unless (-f $input || ref $input eq 'IO::Handle') {
+	die "Error, input not established.";
+}
+
+main: {
+	
+	my $fasta_reader = new Fasta_reader($input);
+	
+	while (my $seq_obj = $fasta_reader->next()) {
+		my $sequence = $seq_obj->get_sequence();
+		my $header = $seq_obj->get_header();
+
+		print "$header\t$sequence\n";
+	}
+
+	exit(0);
+}
+
+
+