已经解决.结贴 脚本 Perl - print函数不能打印变量的值 (输出缓冲)

zhlong8

你是怎么运行这个脚本的？

zhlong8

代码如果你是直接复制的那就没问题，运行 perl filename 的方式也是正确的，我猜你的脚本不叫 a

zhlong8

#! 那一行下面加上 use strict; use warnings;
    #!/usr/bin/perl
    use strict;
    use warnings;
    foreach my $item (qw<one two three>){
       print "$item";
    }
再用 perl mx_perl_operate_array 试试，严格模式会提示很多常见错误，或许是你 item 拼写成了 ietm 之类的

zhlong8

回复 12# sunzhiguolu


    不用了，终端默认是行缓冲的，这么短不加换行符的却不会显示内容。不过这么短个脚本执行完也该显示出来了

zhlong8

我对你的了解几乎为零，不知道你有什么知识储备，只能猜测是非常新的新手。对于有点C经验的程序员，只需要提醒下IO操作很昂贵，自己都能“发明”出行缓冲块缓冲的概念。但是对于新手实在没能力几句话说清楚

zhlong8

回复 27# sunzhiguolu


    对于不同的硬件最合适的缓存策略是不同的，比如硬盘自然块越大性能越好，只要保证内容正确都写入就行了。打印机最好是一页一页的性能最好，而终端显示器要考虑到交互的实时性，又要兼顾性能（不能有过多的系统调用缓冲区又不能太大），缓存策略一般是满一行输出一次让用户不会认为程序卡死了，而一行的标准就是 \n 这个字符。但是这个策略不是完美的，有时我们需要及时刷新终端又不需要换行，就有了 $| 这个特殊变量来控制每次输出都自动刷新缓冲区，如果完全不想用缓存机制还有 syswrite 这个内置函数。