[TOC]
kcp-perl
skywind3000/kcpPerl
cpan
kcp-perl
build.sh #
Changes #
.devcontainer # VSCode
Dockerfile.dev #
.gitignore
.gitmodules
KCP # KCPPerl
Changes # KCP.pm
KCP.xs #
lib
KCP
Test.pm
KCP.pm
Makefile.PL
MANIFEST
ppport.h
README
t #
typemap
kcp-src # Git skywind3000/kcp
LICENSE
README.md
cpan``kcp-perl
cpan -i KCP
cpan -i HOMQYY/KCP-0.04.tar.gz
perl
yum install -y cpan
yum install -y perl-Test-Simple
cpan -i Devel::PPPort
cpan -i Test::More
git submodule init
git submodule update
./build.sh
./build.sh configure
./build.sh compile
./build.sh test
./build.sh install
Shell``man KCP
perldoc KCP
KCP
kcp-perl
use KCP;
sub output
{
my ($data, $user) = @_;
$user->{socket}->send($data, 0);
}
...
my $kcp = KCP::new($conv, $user);
$kcp->set_mode("fast")->set_output(\&output);
...
# scheduled call
$kcp->update($current_millisec);
...
# to send $data
$kcp->send($data);
...
# to recv data
$kcp->recv($data, 65536);
# input data of transport
$socket->recv($data, 65536, 0);
$kcp->input($data);
...