File: banner.pl

package info (click to toggle)
p910nd 0.97-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 264 kB
  • sloc: ansic: 1,619; sh: 219; makefile: 102; perl: 45
file content (9 lines) | stat: -rwxr-xr-x 140 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
 
#!/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