20251125

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

@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+my @files = @ARGV;
+
+foreach my $file (@files) {
+    open (my $fh, $file) or die $!;
+    while (<$fh>) {
+        chomp;
+        print "$_\n";
+    }
+    close $fh;
+}
+
+exit(0);
+