Lines Matching refs:key
79 foreach $key (sort {hex($a) <=> hex($b)} keys(%docomo)) {
80 $s = $key;
83 $v = $key - $docomo_min;
85 $docomo_v[$key-$docomo_min] = $docomo{$key};
107 foreach $key (sort {hex($a) <=> hex($b)} keys(%to_docomo)) {
108 $s = $to_docomo{$key};
112 $v = $to_docomo{$key} - $to_docomo_min;
115 if (hex($key) <= $to_docomo_max1) {
116 push(@r_docomo1_key, $key);
117 push(@r_docomo1_val, sprintf("%x", $to_docomo{$key}));
118 } elsif (hex($key) <= $to_docomo_max2) {
119 push(@r_docomo2_key, $key);
121 } elsif (hex($key) >= $to_docomo_max3) {
122 push(@r_docomo3_key, $key);
187 foreach $key (sort {hex($a) <=> hex($b)} keys(%kddi)) {
188 $s = $key;
191 $v = $key - $kddi_min1;
192 $h = sprintf("%x",$key);
195 if ($key <= $kddi_max1) {
196 $kddi_v1[$key-$kddi_min1] = $kddi{$key};
197 } elsif ($key <= $kddi_max2) {
198 $kddi_v2[$key-$kddi_min2] = $kddi{$key};
214 foreach $key (sort {hex($a) <=> hex($b)} keys(%to_kddi)) {
215 $s = $to_kddi{$key};
219 $v = $to_kddi{$key} - $to_kddi_min;
222 if (hex($key) <= $to_kddi_max1) {
223 push(@r_kddi1_key, $key);
225 } elsif (hex($key) <= $to_kddi_max2) {
226 push(@r_kddi2_key, $key);
229 push(@r_kddi3_key, $key);
307 foreach $key (sort {hex($a) <=> hex($b)} keys(%softbank)) {
308 $s = $key;
311 $v = $key - $sb_min1;
312 $h = sprintf("%x",$key);
314 if ($key <= $sb_max1) {
315 $sb_v1[$key-$sb_min1] = $softbank{$key};
316 } elsif ($key <= $sb_max2) {
317 $sb_v2[$key-$sb_min2] = $softbank{$key};
318 } elsif ($key <= $sb_max3) {
319 $sb_v3[$key-$sb_min3] = $softbank{$key};
337 foreach $key (sort {hex($a) <=> hex($b)} keys(%to_sb)) {
338 $s = $to_sb{$key};
342 $v = $to_sb{$key} - $to_sb_min;
345 if (hex($key) <= $to_sb_max1) {
346 push(@r_sb1_key, $key);
348 } elsif (hex($key) >= $to_sb_min2 && hex($key) <= $to_sb_max2) {
349 push(@r_sb2_key, $key);
352 push(@r_sb3_key, $key);
