【求助】哪位老大有空，帮小弟修改下我的脚本

houzi105

我的目的是读取hosts_ip文件中的ip地址，并取值，与test_hosts文件做比较，如果在这个文件中发现取的值，就将此值在test_hosts文件中所在的行删除。

#!/usr/bin/perl -w
open(IN_HOST_IP,"hosts_ip")||die "Can not open:$!";
while (<IN_HOST_IP>;) {
        @hosts_ip_file=<IN_HOST_IP>;
        chomp();
        foreach $Host_IP (@hosts_ip_file) {
                        if ((`/usr/bin/grep $Host_IP @hosts_file`) != "") {
                                `/usr/bin/find . -type f -name test_hosts -exec vi -c "/$Host_IP/d" -c "wq" "{}" \;`
                        } else{
                                exit;
                        }
        }
}
close(IN_HOST_IP);

兰花仙子

我的目的是读取hosts_ip文件中的ip地址，并取值，与test_hosts文件做比较，如果在这个文件中发现取的值，就 ...
houzi105 发表于 2011-06-29 16:39

    既然在用perl，还犯得着使用grep和find这2个shelll命令吗？

houzi105

回复 2# 兰花仙子

回花仙子，我刚学perl，我不知道如何实现，只会这样用，麻烦能否指点一下。

sellie

今天我闲, 什么贴都回.
按照我的思路我会这样做
1.  把hosts_ip读进来, 把每个ip值做成哈希表的key, value随便赋.
2.  读test_hosts, 每行判断读进的ip是不是哈希表的key(应该有个现成函数叫exist什么的,这样模式匹配都省掉了,看楼主的样子应该还没学模式匹配). 不是的话就写进一个新文件.
3. 最后得到的新文件就是你要的结果

没法写代码给你,因为我又菜又懒.

vi还可以这样用. 楼主牛的. 学习了.
/usr/bin/find . -type f -name test_hosts -exec vi -c "/$Host_IP/d" -c "wq" "{}" \;

sellie

又仔细看了下楼主的代码,
觉得那样chomp()好像不对的吧.
另外这个判断我认为可以省掉:
if ((`/usr/bin/grep $Host_IP @hosts_file`) != "")
这样可以省掉一个shell命令.

houzi105

回复 5# sellie


    我是想判断一下，如果有这个记录的话，就执行，如果没有的话，就退出。现在还有一个问题，我的是aix的环境，我的命令在aix里可以执行，但是把它放在perl里就不可以执行了。郁闷，老大们，指点一下。

sellie

建议你改成纯perl. 不要调shell 命令了.
正好参考这个可能对你有用. 他就是用判断哈希键值是否存在的方法.

http://bbs.chinaunix.net/thread-3558998-1-1.html

ludio333

笨办法
#!/usr/bin/env perl
use strict;
use warnings;


my @fn;
open (FN,"<","hosts_ip");
@fn = (<FN>);
close FN;

open (FILE,"<","test_hosts");
while(<FILE>){
        $_~~@fn?next:print;
}
close FILE;

houzi105

笨办法
#!/usr/bin/env perl
use strict;
use warnings;


my @fn;
open (FN,"
ludio333 发表于 2011-06-29 21:35

唉，这个笨办法我都没看懂，需要抓紧学习了。

houzi105

建议你改成纯perl. 不要调shell 命令了.
正好参考这个可能对你有用. 他就是用判断哈希键值是否存在的方法. ...
sellie 发表于 2011-06-29 18:27

    恩，我现在用hash方法在处理，有遇到很多新问题，困难重重呀。