#! /usr/bin/perl
#
#	mcachedb_delete.pl
#
#					Sep/14/2015
#
# ----------------------------------------------------------------
use	strict;
use	warnings;
use	Cache::Memcached;
#
# ----------------------------------------------------------------
#
print "*** 開始 ***\n";
my $id_in = $ARGV[0];
print ("$id_in\n");
#
#
my $memcached = Cache::Memcached->new({
    servers => ["host_ubuntu:21201"]});
#
$memcached->delete ($id_in);
#
print "*** 終了 ***\n";
# ----------------------------------------------------------------