sxw

随手写了下：

use strict;
use warnings;

open FH,"<","a.txt" or die;
open B,"<","b.txt" or die;
my @b=<B>;
open OUT,">","c.txt" or die;

while (<FH>) {
  print OUT @b if $_=~/^bathome$/;
  print OUT $_;
}
复制代码