llbreserve_Stov1 llbreserve_Stov2 preserve_Stov1 qreserve_Stov1 qreserve_Stov2 mnreserve_Stov1 slmreserve_Stov1 slmreserve_Stov2 envreserve_Stov1 envreserve_Stov2 MT=DUOSQ2,Eb=43789,Fc=67890 0 0 0 0 0 0 0 0 0 0 #### # Writing output from mt step until mv for reserve meas only $dimens=scalar(keys(%ind)); for ($jj=1; $jj <= $dimens; $jj++) { # Writing output mt reserve meas list print OUTFILE "$kpi[$jj]<\/mt>\n"; } foreach $value (keys %result) { foreach $ext (keys %{$result{$value}}) { print OUTFILE "\n"; print OUTFILE "$value".",resv="."$ext<\/value>\n"; for ($jk=1; $jk <= $dimens; $jk++) { # Writing output r meas list result sorted in the same order than mt list print OUTFILE "$result{$value}{$ext}{$kpi[$jk]}\n"; } print OUTFILE "<\/mv>\n"; } } print OUTFILE "$line\n"; #### llbreserve preserve qreserve mnreserve slmreserve envreserve MT=DUOSQ2,Eb=43789,Fc=67890,resv=Stov1 0 0 0 0 0 0 MT=DUOSQ2,Eb=43789,Fc=67890,resv=Stov2 0 0 0 0