perl fork không hoạt động bình thường khi chạy từ xa (qua ssh)

Question

Tôi có tập lệnh perl, script.pl, khi chạy, thực hiện một ngã ba, quá trình cha mẹ sẽ xuất ra pid của nó thành tệp rồi thoát trong khi quá trình con xuất ra một cái gì đó để STOUT và sau đó đi vào một vòng lặp while.

$pid = fork(); 

if (! defined $pid) 
{ 
    die "Failed to fork."; 
} 
#Parent process 
elsif($pid) 
{ 
    if(!open (PID, ">>running_PIDs")) 
    { 
     warn "Error opening file to append PID"; 
    } 
    print PID "$pid \n"; 
    close PID; 
} 
#child process 
else 
{ 
    print "Output started"; 

    while($loopControl)  
    { 
      #Do some stuff 
    } 
} 

Điều này làm việc tốt khi tôi gọi địa phương là: perl script.pl.

Tập lệnh in ra một số thứ rồi trả về điều khiển quay lại trình bao. (trong khi quá trình con đi vào vòng lặp của nó trong nền).

Tuy nhiên, khi tôi gọi đây là thông qua kiểm soát ssh không bao giờ quay trở lại vào vỏ (cũng không phải là "Output bắt đầu" dòng bao giờ in

ví dụ:. Script perl $ ssh username@example.com'. pl'

Tuy nhiên, điều thú vị là, quá trình đứa trẻ không ương (tôi có thể nhìn thấy nó khi tôi gõ ps)

bất cứ ai có thể giải thích whats going on

EDIT:.?

Tôi chạy nó dưới gỡ lỗi và nhận được điều này:

### Được chia, nhưng không biết cách tạo TTY mới.

Vì hai trình gỡ rối chiến đấu cho cùng một TTY, đầu vào bị vướng nặng.

Tôi biết cách chuyển đầu ra sang cửa sổ khác trong xterms và chỉ OS/2. Đối với công tắc thủ công, hãy đặt tên của TTY được tạo bằng $ DB :: fork_TTY hoặc xác định hàm DB :: get_fork_TTY() trả về giá trị này.

Mở hệ thống UNIX-like ai có thể có được tên của một TTY cho cửa sổ cho bởi gõ tty, và ngắt kết nối vỏ từ TTY bởi giấc ngủ 1000000.

Answer 1

Bất cứ khi nào bạn khởi động việc làm nền qua lệnh ssh không tương tác , bạn cần phải đóng hoặc loại bỏ stdin, stdout, & stderr. Nếu không, ssh sẽ đợi quá trình nền để thoát. FAQ.

Điều này được gọi là ngắt kết nối hoặc tách khỏi thiết bị đầu cuối điều khiển và là phương pháp hay nhất khi viết công việc nền, không chỉ cho SSH.

Vì vậy, sự thay đổi đơn giản nhất mà không tắt toàn bộ lệnh của bạn là thêm:

#close std fds inherited from parent 
close STDIN; 
close STDOUT; 
close STDERR; 

ngay sau khi print "Output started"; của bạn. Nếu quá trình con của bạn cần in ra định kỳ trong khi chạy, thì bạn sẽ cần chuyển hướng đến tệp nhật ký thay thế.

Answer 2

ssh username@example.com 'nohup perl script.pl'

Bạn không thể để thoát vì vẫn còn một quy trình được đính kèm. Bạn cần phải nohup nó.

Answer 3

Điều đang xảy ra là ssh đang thực thi 'perl script.pl' làm lệnh trực tiếp. Nếu bạn có 'màn hình' sẵn, bạn có thể làm:

$ ssh username@example.com 'screen -d -m perl script.pl' 

để có nó chạy trên một màn hình tách ra, và lắp lại sau đó với màn hình -r