mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 10:35:41 -04:00
23 lines
454 B
Perl
23 lines
454 B
Perl
|
|
use POE::Filter::Reference;
|
|
use IO::Socket::INET;
|
|
use Data::Dumper;
|
|
|
|
|
|
my $filter = POE::Filter::Reference->new();
|
|
|
|
while( 1 ) {
|
|
print "Code: ";
|
|
my $code = <STDIN>;
|
|
|
|
my $socket = IO::Socket::INET->new( PeerAddr => '127.0.0.1', PeerPort => '14400' );
|
|
my $refs = $filter->put( [ { code => "$code" } ] );
|
|
|
|
print $socket $refs->[0];
|
|
|
|
local $/;
|
|
my $output = <$socket>;
|
|
print "OUTPUT: ", Dumper($filter->get( [ $output ] )), "\n";
|
|
|
|
$socket->close;
|
|
}
|