Re: [問題] cgi如何以背景執行一個外部程式

看板Perl作者 (會走路的冰塊)時間17年前 (2007/06/23 09:16), 編輯推噓3(300)
留言3則, 3人參與, 最新討論串3/3 (看更多)
※ 引述《jlovet (你這可惡的騙子)》之銘言: : 標題: Re: [問題] cgi如何以背景執行一個外部程式 : 時間: Sat Jun 23 01:36:44 2007 : : : man 2 fork : * The child inherits copies of the parent's set of open file descrip- : tors. Each file descriptor in the child refers to the same open : file description (see open(2)) as the corresponding file descriptor : in the parent. This means that the two descriptors share open file : status flags, current file offset, and signal-driven I/O attributes : (see the description of F_SETOWN and F_SETSIG in fcntl(2)). : : 我想應該是因為這個關係吧 : : 因為在你的Perl執行system之前有打開了檔案 (就是輸出到你網頁上的...) : 這個file handle 被system執行的東西繼承了... : : 所以...在你child 結束之前,這檔案都是保持打開狀態 : 恩...就這樣 : : -- : ※ 發信站: 批踢踢實業坊(ptt.cc) : ◆ From: 140.123.235.194 : 推 megaman1206:謝謝 所以說STDOUT先關的做法是沒錯的了orz 06/23 06:28 我只寫過 Hello CGI 之流的東西,純粹是用猜測,不知道可不可以給一點幫助 就你之前所說的: 「我想讓A程式呼叫B程式之後馬上顯示提示訊息然後網頁就不繼續讀取 ....... 我之後就改成先輸出訊息之後關閉STDOUT才執行B程式 這樣雖然流程很怪可是卻成功了」 那我猜測是:關閉 STDOUT 之後,網頁就不會再繼續讀取 (你可以在程式裏面加個 sleep 去測試看看是不是真的這樣 我也懶得架個 CGI 的環境,哈哈哈 XD ) 如果真的是這樣.... http://0rz.tw/0d2Lj [註] 有提到 The following file handles are open by default: STDOUT - Standard Output,for regular use output, typically the screen STDOUT 這個 File Handler 預設就會被打開。 [註]:http://www.wellho.net/mouth/255_STDIN-STDOUT-STDERR-and-DAT A-Perl-file-handles.html 而 fork 這個函式 (在 Perl 裏面應該不能算是 System Call ?!) 就是拷貝出一個一模一樣的 Process 也就是說當你在 A 裏面用 fork 的時候 執行完 fork 這一行會有兩個 A (Dobule A?!) 而這兩個的 File Descriptor, 程式,變數...等等都會完全相同 不同的只有他們的 Process ID 程式一開始執行就打開了 STDOUT, fork 之後就有兩支 Process 打開 STDOUT 只有一支 Process 關掉 STDOUT,當然不會讓網頁停止讀取 如果真的是「關掉 STDOUT 網頁就會停止讀取」 那麼按照你的需求,輸出後關掉 STDOUT 再執行 B 就可以了。 而且也不需要用到 fork :P 下臺一鞠躬...(跑) -- (觀眾丟食物上台) -- 我想你會衰成這樣都是我害的 ---- Tizzy Mac 緊張的麥金塔?這是誰(._.?) -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.128.98.6

06/23 11:03, , 1F
還有 nohup 啊 :D
06/23 11:03, 1F

06/23 11:13, , 2F
nohup 我沒用過XD..Q 桑出現了 (拜)
06/23 11:13, 2F

06/23 17:10, , 3F
感謝大家 學到不少東西m(_ _)m
06/23 17:10, 3F
文章代碼(AID): #16V7HyVI (Perl)
文章代碼(AID): #16V7HyVI (Perl)