20251125

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

@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use List::Util qw (shuffle);
+
+my @list;
+
+while (<STDIN>) {
+    push (@list, $_);
+}
+
+@list = shuffle @list;
+
+
+foreach my $ele (@list) {
+    print $ele;
+}
+
+
+exit(0);
+