[unix-history] / usr / contrib / lib / perl / flush.pl

;# Usage: &flush(FILEHANDLE)
;# flushes the named filehandle

;# Usage: &printflush(FILEHANDLE, "prompt: ")
;# prints arguments and flushes filehandle

sub flush {
    local($old) = select(shift);
    $| = 1;
    print "";
    $| = 0;
    select($old);
}

sub printflush {
    local($old) = select(shift);
    $| = 1;
    print @_;
    $| = 0;
    select($old);
}

1;
Commit	Line	Data
9f9a456c C	1	;# Usage: &flush(FILEHANDLE)
	2	;# flushes the named filehandle
	3
	4	;# Usage: &printflush(FILEHANDLE, "prompt: ")
	5	;# prints arguments and flushes filehandle
	6
	7	sub flush {
	8	local($old) = select(shift);
	9	$\| = 1;
	10	print "";
	11	$\| = 0;
	12	select($old);
	13	}
	14
	15	sub printflush {
	16	local($old) = select(shift);
	17	$\| = 1;
	18	print @_;
	19	$\| = 0;
	20	select($old);
	21	}
	22
	23	1;