Greg Kroah-Hartman
598cf27219
Link: https://lore.kernel.org/r/20260217200002.683975158@linuxfoundation.org Tested-by: Florian Fainelli <florian.fainelli@broadcom.com> Tested-by: Takeshi Ogasawara <takeshi.ogasawara@futuring-girl.com> Tested-by: Peter Schneider <pschneider1968@googlemail.com> Tested-by: Jon Hunter <jonathanh@nvidia.com> Tested-by: Salvatore Bonaccorso <carnil@debian.org> Tested-by: Brett A C Sheffield <bacs@librecast.net> Tested-by: Mark Brown <broonie@kernel.org> Tested-by: Luna Jernberg <droidbittin@gmail.com> Tested-by: Ronald Warsow <rwarsow@gmx.de> Tested-by: Justin M. Forbes <jforbes@fedoraproject.org> Tested-by: Ron Economos <re@w6rz.net> Tested-by: Miguel Ojeda <ojeda@kernel.org> Signed-off-by: Greg Kroah-Hartman <gregkh@linuxfoundation.org>
25 lines
475 B
Perl
Executable File
25 lines
475 B
Perl
Executable File
#!/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");
|
|
}
|