+ -
当前位置:首页 → 问答吧 → Is nohup that hard?

Is nohup that hard?

时间:2011-01-11

来源:互联网

看这个帖子有感:

http://bbs.chinaunix.net/thread-1844365-1-1.html

完全可以在perl里自己nohup:
  1. #!/usr/bin/perl
  2. use strict;
  3. use POSIX qw(setsid);

  4. nohup(@ARGV);

  5. sub nohup  {
  6.     my $child = fork();
  7.     die $! unless defined $child;
  8.     exit 0 if $child;
  9.     setsid();
  10.    
  11.     open (STDIN, "<", "/dev/null");
  12.     open (STDOUT, ">", "nohup.out");
  13.     open (STDERR, ">&", STDOUT);

  14.     exec "@_";
  15. }
复制代码
把上述脚本存成nohup.pl,再写一行shell放在1.sh里:



QUOTE:
while [ 1 ]; do date; sleep 1; done



然后执行./nohup.pl sh 1.sh

就nohup run了。

作者: 兰花仙子   发布时间: 2011-01-11

呵呵,看起来很像nohup

作者: 027xiatian   发布时间: 2011-01-11