mirror of
https://github.com/GOSTSec/ccminer
synced 2025-01-09 22:38:05 +00:00
35 lines
463 B
Perl
35 lines
463 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
# sample script to query ccminer API
|
||
|
|
|
||
|
|
my $command = "summary|";
|
||
|
|
|
||
|
|
use Socket;
|
||
|
|
use IO::Socket::INET;
|
||
|
|
|
||
|
|
my $sock = new IO::Socket::INET (
|
||
|
|
PeerAddr => '127.0.0.1',
|
||
|
|
PeerPort => 4068,
|
||
|
|
Proto => 'tcp',
|
||
|
|
ReuseAddr => 1,
|
||
|
|
Timeout => 10,
|
||
|
|
);
|
||
|
|
|
||
|
|
if ($sock) {
|
||
|
|
|
||
|
|
print $sock $command;
|
||
|
|
my $res = "";
|
||
|
|
|
||
|
|
while(<$sock>) {
|
||
|
|
$res .= $_;
|
||
|
|
}
|
||
|
|
|
||
|
|
close($sock);
|
||
|
|
print("$res\n");
|
||
|
|
|
||
|
|
} else {
|
||
|
|
|
||
|
|
print("ccminer socket failed\n");
|
||
|
|
|
||
|
|
}
|