|
|
Perl- Nested 'for' order change
07-21-2011
foreach my $j(@primpiddelta){
for (my $k=1; $k <=10; $k++){
my $test1= (($P_cc + ($j * $k)) + 1)%16;
if($C_cc == $test1 && $k <= 9){
$flag=1;
my $prim_estim= $I_time/$mean_I_time;
if($prim_estim > $k){
$output= "@fields[0]\t\t$I_time\t\t$k\t\t$P_cc\t\t$C_cc\t\t$mean_I_time-\n";
}
else{
my $prim_estim2 = round($prim_estim);
$output= "@fields[0]\t$I_time\t\t$prim_estim2\t\t$P_cc\t\t$C_cc\t\t$mean_I_time--\n";
}
last;
}
elsif ($k > 9 && $flag != 1 && @primpiddelta[2] == $j && $alert != 1){
$output= "@fields[0]\t\t$I_time\t\t-1\n";
}
elsif($flag == 1){
last;
}
}
}
|
|