调用memcache范例代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】调用memcache范例

作者:不吃皮蛋 / 发布于2014/9/12/ 466


	#!/usr/bin/env perl
	use common::sense;
	use utf8;
	use Cache::Memcached::Fast;
	use Path::Class;
	
	use Test::More;
	
	my $m = Cache::Memcached::Fast->new({
	 servers => ['127.0.0.1:11211'],
	 utf8 => 1,
	});
	
	$m->set('test1', '222');
	is $m->get('test1') => '222';
	
	$m->set('test2', 'テストテスト');
	is $m->get('test2') => 'テストテスト';
	
	$m->set('テスト3', 'テステス');
	is $m->get('テスト3') => 'テステス';
	
	$m->set('test4', +{aaaiii => [werwerwe => 'あいうえお'], 'あいあ' => 'ああああ'});
	is_deeply $m->get('test4') => +{aaaiii => [werwerwe => 'あいうえお'], 'あいあ' => 'ああああ'};
	
	my $binary = do {
	 my $fh = file('Adm3aimage.jpg')->openr;
	 $fh->binmode;
	 local $/; <$fh>;
	};
	$m->set('test5', $binary);
	is $m->get('test5') => $binary;
	
	done_testing;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　memcache　

同语言下

可能有用的

不吃皮蛋贡献的其它代码(18)