The hash %SIG contains signal handlers for signals.-- SIG 是一个公用的存储信号的一个哈希变量点击(此处)折叠或打开[myang@mnsdev13:~/demo]$ cat sig.pl#!/usr/local/bin/perl5$SIG{TERM} = $SIG{INT} = \&yoursub ;$i = 1;...【阅读全文】
#!/usr/bin/perl -wuse MongoDB;use strict;my $filename = "gc_monitor.pdf";my $fileoutname = "gc_monitor1.pdf";my ($buf,$out);open(DATA, $filename) or die "can't open $filename: $!";open(DATAOUT, ">$fileoutname") or die "can't open $fileoutname: $!";binmode(DATA);binmode(DATAOUT);while(...【阅读全文】