23. GetOptions( 'H=s' => my $HOST, 'p=s' => my $PORT, ); my $sock = IO::Socket::INET->new( PeerAddr => $HOST, PeerPort => $PORT ); if ( !$sock ) { print "couldnot connect to $HOST:$PORT: $!n"; exit(3); ##UNKNOWN } $sock->syswrite("versionrn"); $sock->sysread( my $result, 16 ); if ( $result =~ m!^VERSION! ) { exit(0); ##OK } print "couldnot get VERSION from $HOST:$PORTn"; exit(1); ##CLITICAL 24. Ge
![Shibuya.pm#14 memcached運用監視ノウハウ](https://cdn-ak-scissors.b.st-hatena.com/image/square/ff123263d1a0979d9e360693434429f26f3bada2/height=288;version=1;width=512/https%3A%2F%2Fcdn.slidesharecdn.com%2Fss_thumbnails%2Fshibuyapm14-memcached-100930110631-phpapp01-thumbnail.jpg%3Fwidth%3D640%26height%3D640%26fit%3Dbounds)