perlのIPC ::共有可能な共有メモリ

server.pl

＃！/ usr / bin / perlの部分

厳密に使用します。
IPC ::共有可能なを使用します。

私の$キー=「データ」;
私％オプション=（
	=> 1を作成し、
	排他的=> 1、
	モード=> 0644、
	破壊=> 1、
）;

私％の色;
％の色を結ぶ、 'IPC ::共有可能な'、$キー、{％オプション}
	または「サーバー：失敗した縛ら」死にます。

％色=（
	赤=> [
		'消防車'、
		「秋の葉」
		]、
	青=> [
		'空'、
		「パトカー」、
		]、
）;

（（プリント "サーバー：2色が存在する\ n"）、スリープ2）スカラーキー％の色ながら== 2。
「サーバー：ここに私のすべての色があります：\ n」印刷。
{私の$ C（キー％の色）のforeach
	"：これらは$ cは：サーバ" を印刷し、
		（ '' @ {$色{$ C}}）、 "\ n" を加入。
}
出口;

 client.pl

＃！は/ usr / binに/ perlの-w
＃
厳密に使用します。

IPC ::共有可能なを使用します。

私の$キー=「データ」;

私％オプション=（
	=> 0を作成し、
	排他的=> 0、
	モード=> 0644、
	Destoryは=> 0、
）;

私％の色;

％の色を結ぶ、 "IPC ::共有可能"、$キー、{％オプション}又は 
	ダイ「クライアント：縛らできませんでした。\ n」;

{私の$ C（キー％の色）のforeach
	"：これらは$ cは：クライアント" を印刷し、
		（ '' @ {$色{$ C}}）、 "\ n" を加入。
}

削除$ {色「赤」}。
出口;