如何使用perl脚本在文件中的特定位置插入行

open(my $file, '<', 'filename.txt') or die "无法打开文件: $!";

my @lines = <$file>;

splice(@lines, $line_number, 0, "插入的新行\n");

close($file);

open($file, '>', 'filename.txt') or die "无法打开文件: $!";
print $file @lines;
close($file);

use strict;
use warnings;

# 打开文件
open(my $file, '<', 'filename.txt') or die "无法打开文件: $!";

# 读取文件内容
my @lines = <$file>;

# 插入新行
my $line_number = 3;  # 插入位置为第3行
splice(@lines, $line_number, 0, "插入的新行\n");

# 关闭文件
close($file);

# 写入文件
open($file, '>', 'filename.txt') or die "无法打开文件: $!";
print $file @lines;
close($file);