banner.pl

来自「Etherboot 是一个用来创建ROM images的软件包」· PL 代码 · 共 10 行

#!/usr/bin/perl
while (1)
{
	exit 0 if read(STDIN,$c,1) == 0;
	last if ($cl eq "\031" && $c eq "\001");
	$cl = $c;
}
kill 'STOP',$$;
exit 0