冰雪塵埃snowtty.blog.chinaunix.net
snowtty
全部博文(1144)
openvpn(0)
nagios(10)
2017年(2)
2016年(14)
2015年(10)
2014年(28)
2013年(23)
2012年(29)
2011年(53)
2010年(86)
2009年(83)
2008年(43)
2007年(153)
2006年(575)
2005年(45)
skylway
anderson
dongfeng
snailonr
xy1121
叶绍琛
Julielov
lxw0109
haiyangc
wb123456
liangbo
xxinganl
lostwolf
tttxxx
ThorMana
snoopy52
wojiuzhu
分类: LINUX
2010-12-30 09:28:13
#!/usr/bin/perl -w#test_server run under administratoruse strict;use IPC::Shareable;my $glue = 'test.key';my %options = ( create => 1, exclusive => 0, mode => 0644, destroy => 1,);my @arr;tie @arr, 'IPC::Shareable', $glue, { %options } or die "server: tie failed\n";@arr = ();while (1) { print "Input:"; my $input=<STDIN>; chomp $input; if (defined $input) { push(@arr,$input); } print "\@arr:@arr\n";}exit;
#!/usr/bin/perl -w#test_client run under administratoruse strict;use IPC::Shareable;my $glue = 'test.key';my %options = ( create => 0, exclusive => 0, mode => '0644', destroy => 0, size=>65536 #size must less then 65536 );my @arr;my $ipch=tie @arr, 'IPC::Shareable', $glue, { %options } or die "client: tie failed\n";while(1) { if (scalar @arr > 0) { $ipch->shlock; my $str=shift @arr; $ipch->shunlock; print "output:$str\n"; } else { sleep 3; }}exit;
上一篇:Perl 的高级排序手段
下一篇:调不尽的内存泄露,用不完的Valgrind
登录 注册