perl能这样处理吗?

mousejsh

UID: 4986
帖子: 94
积分: 216
在线时间: 12 小时

1^# mousejsh 发表于 2008-01-31 14:37

perl能这样处理吗?

while(1){
print "please input :\n";
my $line=<>;
chop($line);
if ($line="ok"){
system("tail /root/file");
}
}

本意是想一个无限的while,当达到我要求的时候.在一个新的console下打开一个指定的文件.
请问这个perl可以做到吗?或者要装什么样的mod!
谢谢!

linuxnextyear

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

2^# linuxnextyear 发表于 2008-01-31 14:52

可以实现:

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl

while(1){
      print "please input :\n";
      chomp ($line=<STDIN>);
      if ($line eq "ok"){
            print `tail /etc/passwd`;
            exit;
      }
}

FinalBSD

UID: 46729
帖子: 18
积分: 41
在线时间: 10 分钟

3^# FinalBSD 发表于 2008-01-31 15:23

while(<STDIN>){
chomp;
system("tail /root/file") if $_ eq "ok";
}

mousejsh

UID: 4986
帖子: 94
积分: 216
在线时间: 12 小时

4^# mousejsh 发表于 2008-01-31 16:01

大哥，跟我的要求有点差别呀！
这都是在同一个console下tail的．我是想while(1)接着还是让它走．
tail /etc/passwd在新的console里打开．
因为while这个是一直在循环的．不可以停下来．
在循环中得到一个我指定的值的时候，在一个新的console中打开我要查看的文件！while还是在循环.
谢谢！

churchmice

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

5^# churchmice 发表于 2008-01-31 16:07

QUOTE:

原帖由 mousejsh 于 2008-1-31 16:01 发表
大哥，跟我的要求有点差别呀！
这都是在同一个console下tail的．我是想while(1)接着还是让它走．
tail /etc/passwd在新的console里打开．
因为while这个是一直在循环的．不可以停下来．
在循环中得到一个我 ...

my $child = fork();
die "fail to fork $!" unless defined $child;
然后你用child进程去干你的事情就好了

linuxnextyear

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

6^# linuxnextyear 发表于 2008-01-31 16:07

QUOTE:

原帖由 mousejsh 于 2008-1-31 16:01 发表
大哥，跟我的要求有点差别呀！
这都是在同一个console下tail的．我是想while(1)接着还是让它走．
tail /etc/passwd在新的console里打开．
因为while这个是一直在循环的．不可以停下来．
在循环中得到一个我 ...

把exit去掉可以实现在同一个终端一直循环:

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl

while(1){
      print "please input :\n";
      chomp ($line=<STDIN>);
      if ($line eq "ok"){
            print `tail /etc/passwd`;
      }
}

在新的终端不知道如何做!(注:3楼的方法更好,学习了)

churchmice

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

7^# churchmice 发表于 2008-01-31 16:09

而且新的console你的意思是子shell吧?
console指的是那个黑乎乎的东西

mousejsh

UID: 4986
帖子: 94
积分: 216
在线时间: 12 小时

8^# mousejsh 发表于 2008-01-31 16:26

我是在gnome-terminal下运行perl的．所以想用while循环下去．达到一个值的时候，在一个新的gnome-terminal下打开一个文件．因为这个文件很大，所以不可以在当前的gnome-terminal中打开．
fork();
好像也是在同一个gnome-terminal中打开的吧．
它是起一个子进程吧！

mousejsh

UID: 4986
帖子: 94
积分: 216
在线时间: 12 小时

9^# mousejsh 发表于 2008-01-31 16:29

QUOTE:

原帖由 churchmice 于 2008-1-31 16:07 发表

my $child = fork();
die "fail to fork $!" unless defined $child;
然后你用child进程去干你的事情就好了

这个是在同一个console下打开．不是在新的窗口中打开的．

Nosferatu

UID: 5185
帖子: 94
积分: 216
在线时间: 12 小时

10^# Nosferatu 发表于 2008-01-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