從一個文件中的字符串替換爲其他文件

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);