脚本如下:
# 脚本目的:取出某个文本中指定行的数据 if($#ARGV != 0){ print "输入参数: "; print 'perl xxx.pl D:YangDongPerl est.txt'." "; #如果在目标文件所在目录下执行命令,也可以只写文本名test.txt exit(-1); } print "输入起始行号:"; chomp($number_begin = <STDIN>); print "输入结尾行号:"; chomp($number_end = <STDIN>); $n = 0; $count = 0; open FH,'>.lines.txt'; while (defined($line = <>)){ #<>在Perl里叫做钻石操作符 $n += 1; if($n >= $number_begin && $n <= $number_end ){ chomp($line); print FH "----line${n}:---- "; print FH "$line "; $count += 1; } } # if($number_begin > $n){ # print "文件共计${n}行,起始行号超出最大值,提取0行 "; # } print "文件共计${n}行,已提取${count}行:$number_begin ~ $number_end "; close FH;