perl的循环问题

明瞳狐狸

对于perl的for循环语句
for（my $i,$i<10,$i++)
我想设置$i每次增加的值可以吗？就是说不是每次增加一，而是我自己设置的一个固定值，这个固定值又是通过一个公式产生的变量，这样的话，应该怎么写循环？

climby

回复 1# 明瞳狐狸

1. 
   
2. for（my $i,$i<10,$i=$i+2)
   

复制代码

这个增加的步长是可以随意设定的

明瞳狐狸

这个步长可以是一个变量吗？还是必须是数值？回复 2# climby


   

Okelani

1. my $step = 5;
   
2. 
   
3. for ( my $i = 0 ; $i <= 100 ; $i += $step ) {
   
4.     say $i;
   
5. }

复制代码

明瞳狐狸

回复 4# Okelani
我的步长不是一个确定的数值，而是由上一步程序得来的。比如我的程序中有变量$a,我的步长$b=$a/10,这样也可以直接写进循环吗？


   

Okelani

1. sub var { int rand 10 }
   
2. my $step;
   
3. for ( my $i = 0; $i <= 100; $i += $step ){
   
4.     $step = var();
   
5.     say $i;
   
6. }

复制代码

zhlong8

$i 还可以是字符串

for (my $i = 'a'; length($i) <= 1024; $i x= 2) {
    print $i, "\n";
}

明瞳狐狸

open FILE, "<e:/hg19.txt" or die "can not open the file!";
open OUT,">e:/newout.txt" or die "can not open the file!";

my $i;
my $count;
my $zone;
while(my $line1=<FILE>){
        my ($chr1,$pos1)=split(/\t/,$line1,2);
        my $num = 10;
        my $newpot = $pos1/$num ;
       
        for($zone= 0,$zone<$num,$zone++){
                $count=0;
               
                for ( $i=1,$i<$chr1,$i++){
                        open OBJ, "e:/obj.txt" or die "can not open the file!";
                        while(my $line=<OBJ>){
                                s/\n//;
                                my ($chr2,$pos2)=split(/\s+/,$line,2);
                                if(($chr1 eq $chr2) and ($pos2 < ($zone*$newpot+$newpot)) and ($pos2 > ($zone*$newpot))){
                                $count++;
                                }
                        }
                print OUT "$chr1\t$zone\t$count\n";
                close OBJ;
                close FILE;
                close OUT;
                }
        }
}
谁能帮我看看这个程序，为什么循环只执行一次？

yestreenstars

回复 8# 明瞳狐狸

你的for循环是用逗号分隔的？
   

q1208c

回复 9# yestreenstars

目测是的.