perl 进程间共享变量

[perl]代码库

#-----------------------------
# download the following standalone program
#!/usr/bin/perl
# sharetest - test shared variables across forks
use IPC::Shareable;

$handle = tie $buffer, 'IPC::Shareable', undef, { destroy => 1 };
$SIG {INT} = sub { die "$$ dying\n" };

for ( 1 .. 10 )
{
	unless ( $child = fork )
	{
# i'm the child
		die "cannot fork: $!" unless defined $child;
		squabble();
		exit;
	}
push @kids, $child;  # in case we care about their pids
	}

while (1) {
	print "Buffer is $buffer\n";
	sleep 1;
}
die "Not reached";

sub squabble {
    my $i = 0;
while (1) {
next if $buffer =~ /^$$\b/o;
$handle->shlock();
	$i++;
	$buffer = "$$ $i";
	$handle->shunlock();
}
}

#-----------------------------