Lines Matching refs:i

28 foreach my $i (0..@A/2-1) { $a[$i] = { L_BLK => $A[2*$i], LEN => $A[2*$i+1] } };
29 foreach my $i (0..@B/2-1) { $b[$i] = { L_BLK => $B[2*$i], LEN => $B[2*$i+1] } };
36   my $i = 0;
39       !defined $e->[$i+1]
41       $e->[$i]->{L_BLK} + $e->[$i]->{LEN} != $e->[$i+1]->{L_BLK}
42         and ++$i, next;
44       $e->[$i]->{LEN} += $e->[$i+1]->{LEN};
45       # Remove $e->[$i+1]
46       splice @$e, $i+1, 1;
56 my $i = 0;
57 while (defined $a[$i])
59     my $start_match = $a[$i]->{L_BLK} == $b[$i]->{L_BLK};
60     my $len_match = $a[$i]->{LEN} == $b[$i]->{LEN};
61     if ( ! ($start_match && ($len_match || $i == (@a - 1))))
68           . "  [$i]=$a[$i]->{L_BLK} $a[$i]->{LEN}\n"
69             . "  [$i]=$b[$i]->{L_BLK} $b[$i]->{LEN}\n";
71     $i++;