1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| #!/usr/bin/env perl
| # SPDX-License-Identifier: GPL-2.0
| # Prefix all lines with "# ", unbuffered. Command being piped in may need
| # to have unbuffering forced with "stdbuf -i0 -o0 -e0 $cmd".
| use strict;
| use IO::Handle;
|
| binmode STDIN;
| binmode STDOUT;
|
| STDOUT->autoflush(1);
|
| my $needed = 1;
| while (1) {
| my $char;
| my $bytes = sysread(STDIN, $char, 1);
| exit 0 if ($bytes == 0);
| if ($needed) {
| print "# ";
| $needed = 0;
| }
| print $char;
| $needed = 1 if ($char eq "\n");
| }
|
|
