25 lines
471 B
Perl
25 lines
471 B
Perl
|
#!/usr/bin/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");
|
||
|
|
}
|