perl能这样处理吗?

QUOTE:

原帖由 Nosferatu 于 2008-1-31 16:38 发表
use fork to spawn a new process
and try exec "rxvt -e \"tail file\"" in your child process

rxvt can be replaced with any terminal you like

QUOTE:

原帖由 mousejsh 于 2008-1-31 17:13 发表


#!/usr/bin/perl

while(1){
print "please input :\n";
my $line=;
chop($line);
if ($line eq "ok"){
#system("tail /etc/passwd");

my $forks=fork();
&kan;
}
}
sub kan {
exec("gnome- ...

CODE:

#!/usr/bin/perl

while(1){
print "please input :\n";
my $line=<>;
chop($line);
if ($line eq "ok"){
#system("tail /etc/passwd");

my $forks=fork();
die "fail to fork" unless defined $forks;
if($forks){
}   #parent do nothing
else{
&kan; #let the child do the dirty work
}
}
}
sub kan {
exec("xterm -e  \"tail /etc/passwd;read one \"");
}

QUOTE:

原帖由 mousejsh 于 2008-1-31 21:58 发表
churchmice
哥们，你运行后在xterm里有内容吗？我怎么用你的代码运行后是一空的xterm？回车退出不了（不过没有关系，可以Ctrl+C来退出）。
我在一个blog上看到可以这样来暂停gnome-terminal
exec("gnome-ter ...