您好,我有一个包含浮点数和整数的矩阵,如果它不是整数,我想以某种方式将其打印到文件中打印浮点数后舍入为 1 的值。下面是我的代码
use Scalar::Util::Numeric qw(isint);
for ( $i = 0 ; $i < $#matrix ; $i++ ) {
for ( $j = 0 ; $j < $#{ $matrix[0] } ; $j++ ) {
if (not isint $matrix[$i][$j] ) {
printf MYFILE ("%.1f",$matrix[$i][$j]{score});
}
else {
print MYFILE $matrix[$i][$j]{score}.' ';
}
}
print MYFILE "\n";
}
问题是此代码输出将所有内容都写为浮点数,即使它是整数。如何解决?