Use Perl for the fake-editor :D

This commit is contained in:
Sebastian Morr 2020-09-09 18:32:57 +02:00
parent 4099030fcd
commit 75679c8bb1
5 changed files with 29 additions and 13 deletions

View file

@ -1,3 +1,11 @@
#!/bin/sh
#!/usr/bin/env perl
nc localhost 1234
use IO::Socket;
$socket = IO::Socket::INET->new(PeerAddr => "127.0.0.1",
PeerPort => 1234,
Proto => "tcp",
Type => SOCK_STREAM);
my $reply;
$socket->read($reply, 1000);