用perl怎么将一个文件拼接到另一个文件89行以后

在Perl中，你可以使用`open`函数打开文件，并结合`seek`和`print`操作来实现文件内容的追加到指定位置。下面是一个简单的示例，假设你想将`file1.txt`的内容添加到`file2.txt`的第89行之后：

#!/usr/bin/perl
use strict;
use warnings;

# 打开目标文件和源文件
my $target_file = 'file2.txt';
my $source_file = 'file1.txt';

# 使用 seek() 设置目标文件指针到第89行
open my $fh_target, '>>', $target_file or die "Could not open $target_file: $!";
seek $fh_target, 0, SEEK_END;  # 设置文件指针到最后一位
my $position = tell $fh_target;  # 获取当前的位置

# 如果89行小于当前位置，说明已经到达文件结尾，直接追加源文件内容
if ($position < 89) {
    seek $fh_target, 89 - 1, SEEK_SET;  # 将指针移到第89行前一行
} else {
    print "File already has more than 89 lines.\n";
}

# 打开源文件并读取内容
open my $fh_source, '<', $source_file or die "Could not open $source_file: $!";

# 逐行读取源文件内容并打印到目标文件
while (my $line = <$fh_source>) {
    print $fh_target $line;
}

# 关闭所有文件句柄
close $fh_target or warn "Could not close $target_file: $!";
close $fh_source or warn "Could not close $source_file: $!";