Question

采用Perl语言编的程序的求解数据写入TXT文件失败

open ($fd1,">>D:\BCA/park.txt")
for ($pm_dui=0;$pm_dui<=1;)
{
print $fd1 ("$pm_dui\t$U_m\t\n");
}
close $fd1;

大体过程如上，为什么写不进去？ 然而如果循环一次是可以的，多次就写不进去了

Answer 1

for循环 进入无限循环中？
open ($fd1,">>D:\BCA/park.txt")
for ($pm_dui=0;$pm_dui<=1;$pm_dui++)
{
print $fd1 ("$pm_dui\t$U_m\t\n");
}
close $fd1;

追问

哦不是无限循环，我把for循环的$pm_dui++写在了print这句的下面，刚才提问的时候落下了，我就是如你所写的这样写的，但就是有错，写不进txt里面去

追答

我测试了下，可以写的
open ($fd1,">>park.txt");
for ($pm_dui=0;$pm_dui<=1;)
{print $fd1 ("$pm_dui\t$U_m\t\n");
$pm_dui++}
close $fd1;

追问

open ($fd1,">>park.txt");
for ($pm_dui=0;$pm_dui<=1;)
{
print $fd1 ("$pm_dui\t\n");
$pm_dui=$pm_dui+0.02;
}

close $fd1;

我用上面的做，还是不行啊？

追答

可以啊，输出。 是不是硬盘满了？
0
0.02
0.04
0.06
0.08
0.1
0.12
0.14
0.16
0.18
0.2
0.22
0.24
0.26
0.28
0.3
0.32
0.34
0.36
0.38
0.4
0.42
0.44
0.46
0.48
0.5
0.52
0.54
0.56
0.58
0.6
0.62
0.64
0.66
0.68
0.7
0.72
0.74
0.76
0.78
0.8
0.82
0.84
0.86
0.88
0.9
0.92
0.940000000000001
0.960000000000001
0.980000000000001