perl这段代码怎么理解

fish_162

while(<>){

    ($contig[$i], $start[$i], $end[$i], $name[$i], $score[$i], $orient[$i]) = split;
   
    $i ++
}

$j=0;

while($j<=$#contig){
   
    if($contig[$j-1] eq $contig[$j]){
        $prev_start=$start[$j-1] - $start[$j];
    }else{
        $prev_start = undef;
}

#其中的while($j<=$#contig)，“<=”这个怎么理解？还有，“#”，是用于注释吗？但注释一般放在行末，怎么理解呢？

hztj2005

$#contig是数组的大小

fish_162

不懂，能说具体点吗？

laputa73

http://perldoc.perl.org/perlintro.html
The special variable $#array tells you the index of the last element of an array:

hztj2005

按楼上的：如果数组contig有10个元素，$#contig这个特殊变量就是9。如果数组contig有38个元素，$#contig这个特殊变量就是37.
总而言之，perl内部设置的：数组名前面加上$#这么一个特殊变量记录数组的大小。
@myarray = (11, 22, 37,48,52);

那么$#myarray就是 4.