perl的”定义或“例子

最新推荐文章于 2020-08-08 00:02:06 发布

wgz7747147820

最新推荐文章于 2020-08-08 00:02:06 发布

阅读量430

点赞数

分类专栏： perl 文章标签： perl

本文链接：https://blog.csdn.net/wgz7747147820/article/details/90488519

版权

perl 专栏收录该内容

31 篇文章 0 订阅

订阅专栏

[root@rwsoda203db1 perl_tidb]# cat p.pl
#!/usr/bin/perl
use strict "subs";
use strict;
use v5.16;

#//定义或  如果$child_id已定义 则返回$child_id,如果$child_id undef，则执行die
my $child_id = fork() // die "cann't fork process. $!\n";
if($child_id) {
print "parent process id: $$,child process id: $child_id\n";
sleep 60;
#wait $child_id;
}else{
 print "there is child process. the process id is $$\n";
sleep 60;
};