如何用perl语言截取一段html代码并输出，最好是按行数来截取，因为行数是定的

代码是本地文件，因为原代码太多，想截取其中一部分然后将之读取出来，作为预览用，行的值是我自己定义，谢谢！比如，已知一.html文件，截取它的5-20行，并输出一个新的.html1文件

你表达太不清晰了，
1 html 代码是哪来的? 保存在文件中还是到网站截取？
2 按行来截取，这个行是你给值，还是从别的地方得到?

因为单单的截取文件中的某些行是很简单的，希望你能把问题描述清楚。

open (IN,"$path/xx.html");
open (OUT,">>$path/xxnew.html");
假设你的行 是100~200
my $i=0;
while（）{
$i++;
if($i>=100 && $i<=200){
print OUT $_;
}
}

如果html是本地的，直接open,按行读取，取你要的就行了 在线的就先获取在线 网页源代码，再进行操作，一样的