perl 脚本学习-----两个文件排序之后输入到一个文件

举个例子：

file1是这样的：
11111111111111
22222222222222
55555555555555
66666666666666

file2是这样的：
33333333333333
44444444444444
77777777777777
88888888888888

而我想得到的结果file3是：
11111111111111
22222222222222
33333333333333
44444444444444
55555555555555
66666666666666
77777777777777
88888888888888

程序举例：

open IN1,'<',$file1;

open IN2,'<',$file2;

open OUT,'>',$file_out;

 

my $line1 = <IN1>;

my $line2 = <IN2>;

 

while (1) {

   

  # do this, when a file reaches its end

  if (!defined $line1) {

    # file1 ended, write lasting parts of file2

    print OUT $line2;

    while (<IN2>) { print OUT }

    last;

  }

   

  if (!defined $line2) {

    # file2 ended, vise versa

    print OUT $line1;

    while (<IN1>) { print OUT }

    last;

  }

 

  # the main compare

  if ($line1<$line2) {

    print OUT $line1;

    $line1 = <IN1>;

  }

  elsif ($line2<$line1) {

    print OUT $line2;

    $line2 = <IN2>;

  }

  else {

    die "EXCEPTION: two identical lines: <$line1> and <$line2>";

  }

}

程序局限：

file1 和 file2本身必须是排序完之后的。