Lines Matching full:my

13 my @names = ();
14 my @oids = ();
21 my $abs_srctree = abs_path($ENV{'srctree'});
41 my $scriptname = $0;
50 my @indices = ();
51 my @lengths = ();
52 my $total_length = 0;
54 for (my $i = 0; $i <= $#names; $i++) {
55     my $name = $names[$i];
56     my $oid = $oids[$i];
58     my @components = split(/[.]/, $oid);
61     my $size = $#components;
62     for (my $loop = 2; $loop <= $#components; $loop++) {
63 	my $c = $components[$loop];
66 	my $tmp = ($c == 0) ? 0 : int(log($c)/log(2));
84 for (my $i = 0; $i <= $#names; $i++) {
93 my @encoded_oids = ();
95 for (my $i = 0; $i <= $#names; $i++) {
96     my @octets = ();
98     my @components = split(/[.]/, $oids[$i]);
102     for (my $loop = 2; $loop <= $#components; $loop++) {
103 	my $c = $components[$loop];
106 	my $tmp = ($c == 0) ? 0 : int(log($c)/log(2));
121 my @hash_values = ();
122 for (my $i = 0; $i <= $#names; $i++) {
123     my @octets = @{$encoded_oids[$i]};
125     my $hash = $#octets;
140 for (my $i = 0; $i <= $#names; $i++) {
141     my @octets = @{$encoded_oids[$i]};
152 my @index_table = ( 0 .. $#names );
155     my @octets_a = @{$encoded_oids[$a]};
156     my @octets_b = @{$encoded_oids[$b]};
162     for (my $i = $#octets_a; $i >= 0; $i--) {
182 for (my $i = 0; $i <= $#names; $i++) {
183     my @octets = @{$encoded_oids[$index_table[$i]]};
199 #for (my $i = 0; $i <= $#names; $i++) {