要使用Perl从第n行开始写入文件,您可以使用以下方法:
open
函数打开文件,并将文件句柄存储在变量中。open(my $fh, '>', 'file.txt') or die "Cannot open file: $!";
<$fh>
操作符读取文件的每一行,并将其存储在一个数组中。my @lines = <$fh>;
splice
函数从数组中删除前n-1行,然后将剩余的行写入文件。my $n = 5; # 要从第5行开始写入文件
my @remaining_lines = splice(@lines, $n - 1);
print $fh @remaining_lines;
close
函数关闭文件。close($fh);
完整的代码示例:
use strict;
use warnings;
my $n = 5; # 要从第5行开始写入文件
# 打开文件
open(my $fh, '>', 'file.txt') or die "Cannot open file: $!";
# 读取文件
my @lines = <$fh>;
# 从第n行开始写入文件
my @remaining_lines = splice(@lines, $n - 1);
print $fh @remaining_lines;
# 关闭文件
close($fh);
这个代码示例将从第5行开始写入文件,您可以根据需要修改$n
的值。
领取专属 10元无门槛券
手把手带您无忧上云