perl多进程编程
发布时间:2020-12-16 00:44:06 所属栏目:大数据 来源:网络整理
导读:Perl Fork example This examples fork 10 child processes. It will wait for all childs to finish before exiting. #!/usr/local/roadm/bin/perluse strict;use warnings;print "Starting main program/n" ;my @childs; for ( my $count = 1; $count = 10
Perl Fork exampleThis examples fork 10 child processes. #!/usr/local/roadm/bin/perl use strict; use warnings; print "Starting main program/n"; my @childs; for ( my $count = 1; $count <= 10; $count++) { my $pid = fork(); if ($pid) { # parent #print "pid is $pid,parent $$/n"; push(@childs,$pid); } elsif ($pid == 0) { # child sub1($count); exit 0; } else { die "couldnt fork: $!/n"; } } foreach (@childs) { my $tmp = waitpid($_,0); print "done with pid $tmp/n"; } print "End of main program/n"; sub sub1 { my $num = shift; print "started child process for $num/n"; sleep $num; print "done with child process for $num/n"; return $num; } Output looks like: Starting main program started child process for 1 started child process for 2 started child process for 3 started child process for 4 started child process for 5 started child process for 6 started child process for 9 started child process for 10 started child process for 7 started child process for 8 done with child process for 1 done with pid 5584 done with child process for 2 done with pid 5585 done with child process for 3 done with pid 5586 done with child process for 4 done with pid 5587 done with child process for 5 done with pid 5588 done with child process for 6 done with pid 5589 done with child process for 7 done with pid 5590 done with child process for 8 done with pid 5591 done with child process for 9 done with pid 5593 done with child process for 10 done with pid 5594 End of main program (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |