experiments/protocol-v3/repl.pl

#!/usr/bin/perl

use warnings;
use strict;

use Term::ReadLine;
use IO::Socket::INET;
use Storable qw();
use Data::Dump qw(dump);

my $sock = IO::Socket::INET->new(
        PeerAddr => '127.0.0.1',
        PeerPort => 4444,
        Proto => 'tcp',
) || die $!;

Storable::fd_retrieve( $sock )->{ping} or die "no ping";

my $term = Term::ReadLine->new('Sack');
my $prompt = "sack> ";
my $OUT = $term->OUT || \*STDOUT;
while ( defined ($_ = $term->readline($prompt)) ) {
        if ( /\S/ ) {
                warn "# $_\n";
                Storable::store_fd( { repl => $_ }, $sock );
                warn "## ", dump( Storable::fd_retrieve( $sock ) );
                $term->addhistory($_);
        }
}
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5
6	use Term::ReadLine;
7	use IO::Socket::INET;
8	use Storable qw();
9	use Data::Dump qw(dump);
10
11	my $sock = IO::Socket::INET->new(
12	PeerAddr => '127.0.0.1',
13	PeerPort => 4444,
14	Proto => 'tcp',
15	) \|\| die $!;
16
17	Storable::fd_retrieve( $sock )->{ping} or die "no ping";
18
19	my $term = Term::ReadLine->new('Sack');
20	my $prompt = "sack> ";
21	my $OUT = $term->OUT \|\| \*STDOUT;
22	while ( defined ($_ = $term->readline($prompt)) ) {
23	if ( /\S/ ) {
24	warn "# $_\n";
25	Storable::store_fd( { repl => $_ }, $sock );
26	warn "## ", dump( Storable::fd_retrieve( $sock ) );
27	$term->addhistory($_);
28	}
29	}