会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前#----------------------------- |
# 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(); |
} |
} |
#----------------------------- |
