【Perl 】初心者コーナーPart5

>>413
perldoc -q flush すると出てくるよ。
http://www.perl.com/pub/doc/manual/html/pod/perlfaq5.html#How_do_I_flush_unbuffer_an_outpu

>>419
5.6からは指定する必要なし。
perldoc -f syswrite or perldoc perldelta

引数が二個しか無ければ、長さを勝手に計算してスタックに積んでくれる。
/* pp_sys.c */
PP(pp_syswrite)
{
    dSP;
    int items = (SP - PL_stack_base) - TOPMARK;
    if (items == 2) {
        SV *sv;
        EXTEND(SP, 1);
        sv = sv_2mortal(newSViv(sv_len(*SP)));
        PUSHs(sv);
        PUTBACK;
    }
    return pp_send();
}