Mercurial > hg > Others > Abyss-Server

view other/client.pl @ 3:d7762f4e8bfa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
redirect answer to client ok
author e165727 <e165727@ie.u-ryukyu.ac.jp>
date Thu, 13 Feb 2020 20:49:23 +0900
parents
children
line wrap: on
line source

#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
use IO::Socket::UNIX;

my $sock = IO::Socket::INET->new(
    PeerAddr => 'localhost',
    PeerPort => 3333,
) or die "hoge";

my $data;

print $sock->getline;