Question

请教Perl删除文件中多行

Answer 1

del_range("a.txt", 10, 20);
sub del_range {
	my $f = shift;
	my @r = @_;
	my $H;
	open $H, $f || return;
	my $l = 0;
	my $str;
	while (<$H>) {
		$l++;
		$str .= $_ if ($l < $r[0] || $l > $r[1]);
	}
	close $H;
	open $H, "+>", $f;
	print $H $str;
	close $H;
}