mirror of
https://github.com/git-learning-game/oh-my-git.git
synced 2025-04-29 16:53:55 +02:00
Use Perl for the fake-editor :D
This commit is contained in:
parent
4099030fcd
commit
75679c8bb1
5 changed files with 29 additions and 13 deletions
scripts
|
@ -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);
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue