perl取文本中一部分数据

2025-05-20 10:28:23

推荐回答（1个）

回答1：

open F, "F:/1.txt"; #1.txt是你画面上那个文件
@array=;
$count=-1;
foreach (@array){
	$count++;
	if(/Administrative Contact:/){$start=$count+1;}#记录开始行数号
	if(/Technical Contact:/){$end=$count-1; }}#记录结束行数号
for ($start..$end) {                    #两个行数相减就是你要的东西
		print "$array[$_]\n";}
		
或者按照你的方法：
open F, "F:/1.txt"; #1.txt是你画面上那个文件
@a=;
for($i=0;$i<@a;$i++){
        if($a[$i]=~/^\s+/){print  $a[$i];}
        last if $a[$i] =~ /^\s*Technical/;}
        #用一个last就行了，遇到Technical这个单词，循环退出