0545e9dc6d
commit d1edce71135cc6d98c0a4b5729774542b676e769 Author: sophgo-forum-service <forum_service@sophgo.com> Date: Fri Mar 15 16:07:33 2024 +0800 [fix] recommend using ssh method to clone repo. [fix] fix sensor driver repo branch name.
25 lines
471 B
Perl
Executable File
25 lines
471 B
Perl
Executable File
#!/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");
|
|
}
|