From: Matt S Trout Date: Sun, 23 Oct 2011 15:02:36 +0000 (+0000) Subject: simple client with remoting X-Git-Tag: v0.001001~39 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff0abfbabde8da2ea39f95faf12f6f38d895d950;p=scpubgit%2FTak.git simple client with remoting --- diff --git a/jreplclient b/jreplclient new file mode 100644 index 0000000..1ebeaee --- /dev/null +++ b/jreplclient @@ -0,0 +1,39 @@ +#!/usr/bin/env perl + +use strictures 1; +use IPC::Open2; +use Term::ReadLine; +use JSON::PP qw(encode_json decode_json); + +my $cmd = do { + if (my $host = $ARGV[0]) { + 'cat jsonrepl.packed - | ssh '.$host.' perl -' + } else { + 'perl jsonrepl' + } +}; + +my $pid = open2(my $out, my $in, $cmd); + +my $read = Term::ReadLine->new('REPL'); + +while (1) { + my $line = $read->readline('re.pl$ '); + exit unless defined $line; + next unless length $line; + print $in encode_json([ EVAL => $line ])."\n"; + my $reply = decode_json scalar readline($out); + if ($reply->[0] eq 'MISTAKE') { + die "Botch: ".join(': ', @{$reply}[1,2]); + } + my $ret = $reply->[1]; + print $ret->{return}; + if ($ret->{stdout}) { + chomp($ret->{stdout}); + print "STDOUT:\n${\$ret->{stdout}}\n"; + } + if ($ret->{stderr}) { + chomp($ret->{stderr}); + print "STDERR:\n${\$ret->{stderr}}\n"; + } +}