求助perl 代码合并生成一个文件－－谢谢

hdc1112

问一下哦，\Q是啥意思，我不懂

dexter_yccs

open A,"<a.txt";
open B,"<b.txt";
open C,">c.txt";
chomp(@b=<B>);
while(<A>) {
        s/\(.*\)/$b[$.]/;
        print C "$_";
}

为什么没引用到，奇怪，直接贴你的好了，哈哈。。

$.行号从1开始，数组下标从0开始，s/\(.*\)/$b[$.]/ 改成 s/\(.*\)/$b[$.－1]/
另外 print 可以加个条件滤掉 a.txt 中不需要的行

[ 本帖最后由 dexter_yccs 于 2008-7-9 10:55 编辑 ]

snss1983

#!/usr/bin/perl
open (TXT1,"<1.txt") || die $!;
open (TXT2,"<2.txt") || die $!;

while($a1=<TXT1>){
chomp($a1);
while($a2=<TXT2>)  {
    chomp($a2);
    print "$a1\n" if ($a1=~ s/\(.*\)/$a2/)   ;
    last;
    }
   }