script to convert arabic to bw, and vice versa

1 files changed, 33 insertions, 0 deletions

diff --git a/scripts/other/buckwalter.perl b/scripts/other/buckwalter.perl
new file mode 100755
index 000000000..62544e212
--- /dev/null
+++ b/scripts/other/buckwalter.perl
@@ -0,0 +1,33 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Encode::Arabic::Buckwalter;
+use Getopt::Long "GetOptions";
+
+my $direction;
+GetOptions('direction=i' => \$direction)
+    or exit(1);
+# direction: 1=arabic->bw, 2=bw->arabic
+
+die("ERROR: need to set direction") unless defined($direction);
+
+
+
+while (my $line = <STDIN>) {
+    chomp($line);
+
+    my $lineOut;
+    if ($direction == 1) {
+      $lineOut =  encode 'buckwalter', decode 'utf8', $line;
+    }
+    elsif ($direction == 2) {
+      $lineOut =  encode 'utf8', decode 'buckwalter', $line;
+    }
+    else {
+	die("Unknown direction: $direction");
+    }
+    print "$lineOut\n";
+
+}
+