从一个文件中的字符串替换为其他文件

Question

open (HAN1, "<test1.txt") || die "not existing!"; 
open (HAN2, "test2.txt") || die "not existing!"; 

s/nameserver/nameserver/g; 

    print HAN2 $_; 
    } 
close(HAN1); 
close(HAN2); 

〜

test1.txt的

nameserver 10.66.80.10 
nameserver 10.66.80.11 
nameserver 10.66.80.11 

的test2.txt

search test.com 
nameserver 99.66.80.10 
nameserver 98.66.80.11 
nameserver 98.66.80.11 

运行脚本的test2.txt其删除其他字符串后内容。

nameserver 10.66.80.10 
nameserver 10.66.80.11 
nameserver 10.66.80.11 

但想要的结果的test2.txt

search test.com 
nameserver 10.66.80.10 
nameserver 10.66.80.11 
nameserver 10.66.80.11 

Answer 1

试试这个，

use strict; 
    use warnings; 
    use Data::Dumper; 

    open (HAN1, "<test1.txt") || die "not existing!"; 
    open (HAN2, "<test2.txt") || die "not existing!"; 

    my $current; 
    my @arr1 = <HAN1>; 

    foreach $current (<HAN2>) { 
     unless ($current =~ /nameserver/) { 
      print $current; 
      next; 
     } 
     foreach (@arr1) { 
      my($first,$second) = split (' ',$_); 
      $current =~ s/^(nameserver\s+).+/$_/g; 
      chomp($current); 
      print $current; 
      last; 
     } 
     shift @arr1; 
    } 
close(HAN1); 
close(HAN2);