Perl Pickle Client
If anyone is interested. I couldn't find one. (apologies if this is not the correct place to post this) I posted the question
here: http://
I've been testing it and haven't seen any problems so far.
#!/usr/bin/perl
#
use IO::Socket::INET;
use Python:
my($carbon_server) = '127.0.0.1';
my($carbon_port) = 2004;
my($data) = [
];
my($message) = pack("N/a*", pickle_
my($sock) = IO::Socket:
);
die "Unable to connect: $!\n" unless ($sock->connected);
$sock->
$sock->shutdown(2);
# Work around P::S::Pickle 0.01's extremely limiting interface.
sub pickle_dumps {
open(my $fh, '>', \my $s) or die $!;
my $pickle = bless({ _fh => $fh }, 'Python:
$pickle-
$pickle-
return $s;
}
Question information
- Language:
- English Edit question
- Status:
- Solved
- For:
- Graphite Edit question
- Assignee:
- No assignee Edit question
- Solved by:
- Bill
- Solved:
- Last query:
- Last reply: