Question

perl语言中如何双重循环的时候内循环只循环一次？问题描述如下

for(my $i=0;$i<$n+1;$i++) {
my $num=0;
my $chro;
open BAM,"$ARGV[0]" or die;
while(<BAM>)
{
chomp;
my ($chor,$pos)=(split /\t/,$_)[2,3];
$chro=$chor;
$pos/=1000;
#print "$pos\n";
if($pos>$start[$i] && $pos<=$end[$i])
{
$num++;
}
bam是一个文本文件，我$start 、$send是文本文件里边某列数据中的上下区间，我要统计他们之间的区间行数累加，那么如何可以标记while循环的位置 下次循环的时候继续从那读入？

Answer 1

需要设置个条件退出While循环。
if($pos>$start[$i]){
if($pos<=$end[$i]){ $num++}
else {last}
}
就可以下次循环的时候继续从那读入

追问

那这么退出了while循环了 再执行for循环过来再执行while的时候就从while之前读到的那里继续执行么- -感觉bam好像还是要都读了把- -

追答

只要设置正确的While退出条件， 再执行for循环过来再执行while的时候就从while之前读到的那里继续执行。

Answer 2

内层while 外面使用条件语句
if($i==?){ #?代表你想要外层$i为多少时进行内层循环
}