20251125

2025-11-25 00:28:51 +08:00
commit eb3f16c30e
406 changed files with 91653 additions and 0 deletions
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+while (<>) {
+    chomp;
+    my @x = split(/\t/);
+    unless (scalar(@x) == 3) {
+        die "Error, 3 fields not encountered for: $_";
+    }
+
+    print "\@$x[0]\n"
+        . "$x[1]\n"
+        . "+\n"
+        . "$x[2]\n";
+}
+
+exit(0);
+