[Perl]IPC进程间内存共享 z

转载于 2008-11-22 14:27:00 发布 · 764 阅读

文章标签：

#perl #input #server #output #less

ALL 同时被 2 个专栏收录

200 篇文章

订阅专栏

Perl

52 篇文章

订阅专栏

本文介绍了一种使用Perl语言实现的进程间通信(IPC)机制，通过共享内存的方式让两个进程能够交换数据。该示例包括一个服务器端脚本用于写入数据，以及一个客户端脚本用于读取这些数据。

#!/usr/bin/perl -w #test_server run under administrator use 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 administrator use 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;