遇到问题:终端关了,我的后台程序也关了,如何将后台程序不随终端关闭

paopaow2004

UID: 35177
帖子: 23
积分: 52
在线时间: 10 分钟

1^# paopaow2004 发表于 2007-08-23 16:36

遇到问题:终端关了,我的后台程序也关了,如何将后台程序不随终端关闭

如题

ruby103

UID: 42327
帖子: 30
积分: 69
在线时间: 1 小时

2^# ruby103 发表于 2007-08-23 16:53

nohup

zhang1120

UID: 19123
帖子: 90
积分: 206
在线时间: 11 小时

3^# zhang1120 发表于 2007-08-23 17:01

package Daemonize;
use POSIX;
use strict;

use Exporter;
BEGIN {
    use Exporter ();
    use vars qw(@ISA @EXPORT);
    @ISA = qw(Exporter);
    @EXPORT = qw( &daemonize)
}

my $logFile = "/tmp/daemon.log";    # Log requests and errors to this file

my %children;                        # Store pids of children

sub daemonize {

    my $pid = fork;    # Fork off the main process

    defined ($pid) or die "Cannot start daemon: $!";
    # If no PID is defined, the daemon failed to start

    print "arent daemon running.\n" if $pid;
    # If we have a PID, the parent daemonized okay

    exit if $pid;
    # Return control to the user

   # Now we're a daemonized parent process!

       OSIX::setsid();
    # Become a session leader

    close (STDOUT);
    # Close file handles to detach from any terminals

    close (STDIN);
    #close (STDERR);

    open STDERR,">>/tmp/daemon.error";

    # Set up signals we want to catch.

    #Let's log warnings, fatal errors, and catch hangups and dying children

    $SIG{__WARN__} = sub {
        &logMessage ("NOTE! " . join(" ", @_));
    };

    $SIG{__DIE__} = sub {
        &logMessage ("FATAL! " . join(" ", @_));
        exit;
    };

    $SIG{HUP} = $SIG{INT} = $SIG{TERM} = sub {
        # Any sort of death trigger results in instant death of all

      my $sig = shift;
        $SIG{$sig} = 'IGNORE';
        kill 'INT' => keys %children;
        die "killed by $sig\n";
        exit;
      };

    $SIG{CHLD} = \&REAPER;
}

sub logMessage {
    my $message = shift;
    (my $sec, my $min, my $hour, my $mday, my $mon, my $year) = gmtime();
    $mon++;
    $mon = sprintf("%0.2d", $mon);
    $mday = sprintf("%0.2d", $mday);
    $hour = sprintf("%0.2d", $hour);
    $min = sprintf("%0.2d", $min);
    $sec = sprintf("%0.2d", $sec);
    $year += 1900;
    my $time = qq{$year/$mon/$mday $hour:$min:$sec};
    open (FH, ">>" . $logFile);
    print FH $time . " - " . $message;
    close (FH);
}

sub REAPER {
    my $pid;

    $pid = waitpid(-1, &WNOHANG);

    if ($pid == -1) {
        # no child waiting.  Ignore it.

    } elsif (WIFEXITED($?)) {
        logMessage "rocess $pid exited.\n";
    } else {
        logMessage "False alarm on $pid.\n";
    }
    $SIG{CHLD} = \&REAPER;       # in case of unreliable signals

}

1;

KevinLee39

UID: 10699
帖子: 123
积分: 282
在线时间: 20 小时

4^# KevinLee39 发表于 2007-08-23 20:55

忽略sighup信号就行了.

rdcwayx

UID: 9870
帖子: 40
积分: 92
在线时间: 2 小时

5^# rdcwayx 发表于 2007-08-24 07:24

nohup u_command &

ubac

UID: 8216
帖子: 71
积分: 163
在线时间: 7 小时

6^# ubac 发表于 2007-08-24 08:47

让你的程序后台运行不就行了

alexru

UID: 11790
帖子: 75
积分: 172
在线时间: 8 小时

7^# alexru 发表于 2007-08-24 09:01

nohup perl $0 &

hallucination

UID: 22055
帖子: 1
积分: 2
在线时间: 10 分钟

8^# hallucination 发表于 2007-11-06 16:21

那如果我需要再把这个后台进程调回到前台呢，怎么实现

evil_knight

UID: 9263
帖子: 45
积分: 103
在线时间: 3 小时

9^# evil_knight 发表于 2007-11-07 23:18

unix系统基础不好，去shell版看看，就答案了！

Ecore

UID: 27927
帖子: 2
积分: 4
在线时间: 10 分钟

10^# Ecore 发表于 2007-11-08 17:37

nohup /root/shell/script.sh &
jobs
fg
bg