[root@rwsoda203db1 perl_tidb]# cat p.pl
#!/usr/bin/perl
use strict "subs";
use strict;
use v5.16;
use warnings;
use Carp;
$SIG{INT} = sub { die "\nReceive INT signal. \nQuit this perl script.$!\n";};
sleep 300;
[root@rwsoda203db1 perl_tidb]# ./p.pl
^C
Receive INT signal.
Quit this perl script.Interrupted system call
perl的进程间通信(信号)
最新推荐文章于 2021-04-29 18:57:17 发布