w2v-server.pl: log access and set perplexity back to 20
diff --git a/w2v-server.pl b/w2v-server.pl
index 65058a2..9b01001 100644
--- a/w2v-server.pl
+++ b/w2v-server.pl
@@ -4,6 +4,7 @@
use Mojo::JSON qw(decode_json encode_json to_json);
use Encode qw(decode encode);
use Mojo::Server::Daemon;
+plugin 'Log::Access';
print STDERR $ARGV[0];
# -cbow 1 -size 200 -window 8 -negative 25 -hs 0 -sample 1e-4 -threads 40 -binary 1 -iter 15
@@ -14,9 +15,9 @@
my $word=$c->param('word');
my $no_nbs=$c->param('n') || 100;
my $no_iterations=$c->param('N') || 2000;
- my $perplexity=$c->param('perplexity') || 25;
+ my $perplexity=$c->param('perplexity') || 20;
my $epsilon=$c->param('epsilon') || 5;
-
+
my @lists;
if(defined($word) && $word !~ /^\s*$/) {
$c->inactivity_timeout(300);