updated tokenizer

modules/ILMT-TEL-HIN-Morph/lib/ILMT/TEL/HIN/Morph.pm

@@ -49,8 +49,11 @@ sub process {
     my %args = @_;
     utf8::encode($args{"data"});
     foreach my $submodule (@dispatch_seq) {
+	#print Dumper($submodule);
         $args{'data'} = __PACKAGE__->can($submodule)->(%args);
+	#print Dumper($args{'data'});
     }
+    
     utf8::decode($args{"data"});
     return $args{"data"};
 }

modules/ILMT-TEL-HIN-PickOneMorph/lib/ILMT/TEL/HIN/PickOneMorph.pm

 package ILMT::TEL::HIN::PickOneMorph;
-use strict;
-use warnings;
+#use strict;
+#use warnings;
 use Dir::Self;
 use Data::Dumper;
 use ILMT::TEL::HIN::SSFAPI::feature_filter;

modules/ILMT-TEL-HIN-Tokenizer/lib/ILMT/TEL/HIN/Tokenizer.pm

@@ -3,7 +3,12 @@ use strict;
 use warnings;
 use Dir::Self;
 use Data::Dumper;
+use IPC::Run qw(run);
+use List::UtilsBy qw(max_by);
+use File::Temp qw/ tempfile /;
+use File::Slurp qw( slurp );
 
+my $cwd = __DIR__;
 my %daemons = (
     "tokenizer" => {
         "path" => "ind-tokz",
@@ -15,22 +20,18 @@ my %daemons = (
 sub process {
     my %args = @_;
     utf8::encode($args{data});
-    my $sentences = call_daemon("tokenizer", $args{data});
-    open INFILE, '<', \$sentences or die $!;
-    my $result = "";
-    my $ctr = 0;
-    while (my $line = <INFILE>) {
-        $ctr ++;
-        $result .= "<Sentence id=\"$ctr\">\n";
-        my @words = split ' ', $line;
-        foreach my $index (0..$#words) {
-            $result .= $index + 1 . "\t$words[$index]\tunk\n";
-        }
-        $result .= "</Sentence>";
-    }
-    close INFILE;
-    utf8::decode($result);
-    return $result;
+    
+    my ($fh2, $filename2) = tempfile("tokenizer_inputXXXX", DIR => "/tmp", SUFFIX => ".tmp");
+    print $fh2 $args{"data"};
+    close($fh2);
+
+    my $token_out;
+    run ["python", "$cwd/tokenize.py", $filename2], ">", \$token_out; 
+
+    unlink $filename2 or die "Couldn't delete temp file! $filename2";
+
+    utf8::decode($token_out);
+    return $token_out;
 }
 
 sub run_daemons {
@@ -62,6 +63,6 @@ sub call_daemon {
     return $result;
 }
 
-run_daemons(("tokenizer"));
+#run_daemons(("tokenizer"));
 
 1;

modules/ILMT-TEL-HIN-Tokenizer/lib/ILMT/TEL/HIN/Tokenizer.pm-old

+package ILMT::TEL::HIN::Tokenizer;
+use strict;
+use warnings;
+use Dir::Self;
+use Data::Dumper;
+
+my %daemons = (
+    "tokenizer" => {
+        "path" => "ind-tokz",
+        "args" => "--l tel --s --daemonize --port",
+        "port" => "61001"
+    }
+);
+
+sub process {
+    my %args = @_;
+    utf8::encode($args{data});
+    my $sentences = call_daemon("tokenizer", $args{data});
+    open INFILE, '<', \$sentences or die $!;
+    my $result = "";
+    my $ctr = 0;
+    while (my $line = <INFILE>) {
+        $ctr ++;
+        $result .= "<Sentence id=\"$ctr\">\n";
+        my @words = split ' ', $line;
+        foreach my $index (0..$#words) {
+            $result .= $index + 1 . "\t$words[$index]\tunk\n";
+        }
+        $result .= "</Sentence>";
+    }
+    close INFILE;
+    utf8::decode($result);
+    return $result;
+}
+
+sub run_daemons {
+    my @daemon_names = @_;
+    foreach my $daemon_name (@daemon_names) {
+        my %daemon = %{$daemons{$daemon_name}};
+        my $cmd = "$daemon{path} $daemon{args} $daemon{port} &";
+        my $runfile = __DIR__ . "/run/${daemon_name}_$daemon{port}";
+        system("flock -e -w 0.01 $runfile -c '$cmd'") == 0
+            or warn "[" . __PACKAGE__ . "]: Port $daemon{port} maybe unavailable! $?\n";
+    }
+}
+
+sub call_daemon {
+    my ($daemon_name, $input) = @_;
+    my $port = $daemons{$daemon_name}{port};
+    my ($socket, $client_socket);
+    $socket = new IO::Socket::INET (
+        PeerHost => '127.0.0.1',
+        PeerPort => $port,
+        Proto => 'tcp',
+    ) or die "ERROR in Socket Creation : $!\n";
+    $socket->send("$input\n");
+    my $result = "";
+    while (my $line = $socket->getline) {
+        $result .= $line;
+    }
+    $socket->close();
+    return $result;
+}
+
+run_daemons(("tokenizer"));
+
+1;

modules/ILMT-TEL-HIN-Tokenizer/lib/ILMT/TEL/HIN/tokenize.py

+import os, sys, codecs
+#!/usr/bin/env python
+# -*- coding: utf-8 -*-
+'''
+Created by
+
+@author: priyank
+'''
+
+def tokenizer(text, ind):
+	"""Tokenize the text only on space."""
+	tokens = text.split()
+	tokens_ssf = [str(index + 1) + '\t' + token + '\tunk' for index, token in enumerate(tokens)]
+	tokens_ssf_with_sentence = ['<Sentence id="'+str(ind+1)+'">'] + tokens_ssf + ['</Sentence>']
+	return '\n'.join(tokens_ssf_with_sentence)
+
+f = codecs.open(sys.argv[1], "rb", "utf-8")
+lines = f.readlines()
+f.close()
+
+finalOutput = ""
+ii = 0
+for line in lines:
+	line = line.strip()
+	if line:
+		finalOutput = finalOutput + tokenizer(line, (ii)) + "\n" 
+		ii = ii + 1
+print (finalOutput.encode('utf-8'))