關(guān)于perl中，say與print的緩沖機(jī)制的問題。

Azrael0507

最近在做learning perl的EX16-4習(xí)題時，做一個相應(yīng)信號的進(jìn)程腳本，發(fā)現(xiàn)say的語句能夠?qū)崟r輸出提示，而print只有在結(jié)束進(jìn)程時才會有輸出，不曉得是不是緩沖機(jī)制的不同造成的，代碼如下（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

默認(rèn)是行緩沖的，say有換行符，print要自己加

Azrael0507

回復(fù) 2# zhlong8


   多謝版主！

iamlimeng

$|=1，強(qiáng)制一下也可以！

Azrael0507

回復(fù) 4# iamlimeng


    多謝這位，順便讓我學(xué)了一下$|這個變量~