2013年（3）
发布时间：2013-01-23 16:48:01
#!/ms/dist/perl5/PROJ/core/5.8/bin/perl -wuse strict;use diagnostics;$SIG{CHLD} = 'IGNORE';while (my ($key, $value) = each %SIG){ print $key." --> ".$value."\\n";}my $rret=fork;if($rret){ print "this is parent process and id is ".$$."\\n"; sleep 10;}elsif ($rret == 0){ .........【阅读全文】
