关于perl中，say与print的缓冲机制的问题。

Azrael0507

最近在做learning perl的EX16-4习题时，做一个相应信号的进程脚本，发现say的语句能够实时输出提示，而print只有在结束进程时才会有输出，不晓得是不是缓冲机制的不同造成的，代码如下（say版本）：
#!/usr/bin/perl

use 5.010;

sub hup_handler{
        state $n;
        say "Caught HUP", ++$n;
}

sub usr1_handler{
        state $n;
        say "Caught USR1", ++$n;
}

sub usr2_handler{
        state $n;
        say "Caught USR2", ++$n;
}

sub int_handler{
        say "Caught INT. Exiting.";
        exit;
}

print "My PID is <$$> \n";

foreach(qw(int hup usr1 usr2)){
        $SIG{uc $_} = "${_}_handler";
}

while(1){
        sleep 1;
}

zhlong8

默认是行缓冲的，say有换行符，print要自己加

Azrael0507

回复 2# zhlong8


   多谢版主！

iamlimeng

$|=1，强制一下也可以！

Azrael0507

回复 4# iamlimeng


    多谢这位，顺便让我学了一下$|这个变量~