Line | |
---|
1 | #
|
---|
2 | # This library is no longer being maintained, and is included for backward
|
---|
3 | # compatibility with Perl 4 programs which may require it.
|
---|
4 | #
|
---|
5 | # In particular, this should not be used as an example of modern Perl
|
---|
6 | # programming techniques.
|
---|
7 | #
|
---|
8 | # Suggested alternative: IO::Handle
|
---|
9 | #
|
---|
10 | ;# Usage: &flush(FILEHANDLE)
|
---|
11 | ;# flushes the named filehandle
|
---|
12 |
|
---|
13 | ;# Usage: &printflush(FILEHANDLE, "prompt: ")
|
---|
14 | ;# prints arguments and flushes filehandle
|
---|
15 |
|
---|
16 | sub flush {
|
---|
17 | local($old) = select(shift);
|
---|
18 | $| = 1;
|
---|
19 | print "";
|
---|
20 | $| = 0;
|
---|
21 | select($old);
|
---|
22 | }
|
---|
23 |
|
---|
24 | sub printflush {
|
---|
25 | local($old) = select(shift);
|
---|
26 | $| = 1;
|
---|
27 | print @_;
|
---|
28 | $| = 0;
|
---|
29 | select($old);
|
---|
30 | }
|
---|
31 |
|
---|
32 | 1;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.