add script to reverse word alignment

1 files changed, 20 insertions, 0 deletions

diff --git a/scripts/generic/reverse-alignment.perl b/scripts/generic/reverse-alignment.perl
new file mode 100755
index 000000000..e19ddc9e5
--- /dev/null
+++ b/scripts/generic/reverse-alignment.perl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my $line;
+while ($line = <STDIN>)
+{
+  chomp($line);
+  my @toks = split(/ /, $line);
+  
+  foreach (my $i = 0; $i < @toks; ++$i)
+  {
+    my $tok = $toks[$i];
+    my @alignPair = split(/-/, $tok);
+    (@alignPair == 2) or die("Something wrong");
+    print $alignPair[1]."-".$alignPair[0]." ";
+  }
+  print "\n";
+}
+