#!/Usr/Bin/Env perl use strict; use warnings; use locale; use utf8; use Socket; use IO::Socket; use JSON; my $host

Question

#!/Usr/Bin/Env perl use strict; use warnings; use locale; use utf8; use Socket; use IO::Socket; use JSON; my $host

= "127.0.0.1";
my $port = "8888";
my $mychannel = "\@namechanel";

my $socket = IO::Socket::INET->new(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
Type => SOCK_STREAM
) or die "Couldn't connect to $host:$port : $@\n";

my $item;

while( 1 ) {
$item = <$socket>;
print "$item \n";
}
Что сложного?

#backend #bot-development #programming #russian #telegram

0

16.10.2017

1 ответов

14 просмотров

Проксимов Прксимович · Accepted Answer

Проксимов Прксимович

Выглядит ужасно

0

16.10.2017

170 похожих чатов

#!/Usr/Bin/Env perl use strict; use warnings; use locale; use utf8; use Socket; use IO::Socket; use JSON; my $host

1 ответов

Похожие вопросы