作者saiamoi (saiamoi)
看板Perl
标题[问题] 关於socket 与 linux nc的问题
时间Sat Apr 28 16:24:24 2012
各位好 最近在写一个关於socket 控制的程式
以下简单说明一下:
首先使perl程式执行并进入等待
程式码类似以下的方式
----------------------------------------------------------
my $sock = IO::Socket::INET->new(
LocalPort => 12345,
LocalHost => pc77,
Listen => 1,
Reuse =>1
);
my $get = $sock->accept()
while($get)
{
if (/cmd/)
{
要做的事;
}
}
------------------------------------------------------------
执行该perl程式後 1234的port会打开并进行等待
接着我从另一边使用linux 的nc 指令
执行 nc pc77 12345
然後输入"cmd" 使刚刚等待中的perl执行 "要做的事"
到目前为止都很顺利 可以顺利执行 "要做的事"
但接着当我用^C 关掉linux 的nc後
perl 那边也就一起关掉了...
我希望的是 perl一旦开启後 就一直在有process 活在那边
一直等待我从外部给指令 然後做事 做完後又继续等 直到我把perl关掉为止
请问这样有办法做到吗?
或是哪边需要做修改呢?
先谢谢各位了! 感谢!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 124.12.69.77
1F:推 abliou:这样会很难管理吧?如果是非做不可 我会用screen做看看 04/28 16:32
2F:→ saiamoi:管理应该是还好 只是希望perl不要因为nc的结束而结束@@ 04/28 18:20
3F:→ saiamoi:或是可不可以用其他方式给入指令 然後不要另perl这边关掉 04/28 18:22
4F:→ saiamoi: 令 04/28 18:26