Welcome 微信登录

首页 / 操作系统 / Linux / Perl学习之创建Linux进程

示例1：创建进程 
  1. #！/usr/bin/perl   
  2. #a simple demon   
  3. use strict;  
  4.   
  5. my $pid = fork（）;  
  6. print $pid." ";  
  7. if（$pid）  
  8. {  
  9.         print "processing... ";  
  10.         exit（0）;  
  11. }  
  12. else  
  13. {  
  14.         print "child processing... ";  
  15. }  
  16. setpgrp（）;  
  17.   
  18. while（1）  
  19. {  
  20.         sleep（10）;  
  21.         open（MYFILE,">>/tmp/test.log"）;  
  22.         my（$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst）=localtime（time）;  
  23.         $year+=1900;$mon++;  
  24.   
  25.         print MYFILE （"Now is $year-$mon-$mday $hour:$min:$sec. "）;  
  26.         close（MYFILE）;  
  27. }  
示例2：定时删除/tmp目录下的文件 
  1. #！/usr/bin/perl   
  2. use strict;  
  3.   
  4. our $DIR_PATH="/tmp";  
  5. &main（）;  
  6. exit;  
  7.   
  8. sub main  
  9. {     
  10.   
  11.     die（ "Can"t fork"） unless defined （my $pid = fork（））;  
  12.     print "Process... $pid ";  
  13.     setpgrp（）;  
  14.     while（1）  
  15.     {  
  16.         opendir DIR, ${DIR_PATH} or die "Can not open "$DIR_PATH" ";  
  17.         my @filelist = readdir DIR;  
  18.         my @res;  
  19.         my $a;  
  20.         my $file;  
  21.   
  22.         open（MYFILE,">>/tmp/delfile.log"）;  
  23.   
  24.         foreach $file （@filelist）   
  25.         {  
  26.                 （$file eq ".."） and next;  
  27.                 （$file eq  "."）  and next;  
  28.                 @res = stat（$DIR_PATH."/".$file）;  
  29.                 $a = time（） - @res[10];  
  30.                   
  31.                 if （$a > 258200 ）  
  32.                 {  
  33.                         system（"rm -rf ".$DIR_PATH."/".$file）;  
  34.                         print MYFILE $DIR_PATH."/".$file." ";  
  35.                 }  
  36.         }  
  37.   
  38.         close（MYFILE）;  
  39.         sleep（86400）;  
  40.     }  
  41. }  
版权所有©石家庄振强科技有限公司2024 冀ICP备08103738号-5 网站地图