File: bomstrip.pl

package info (click to toggle)
bomstrip 9-3
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 212 kB
  • ctags: 29
  • sloc: pascal: 41; cpp: 34; ansic: 34; java: 33; python: 31; makefile: 28; sh: 24; perl: 7; haskell: 6; php: 6; ruby: 6; awk: 2; sed: 1
file content (8 lines) | stat: -rwxr-xr-x 121 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
 
#!/usr/bin/perl

my $buf;
if (read STDIN, $buf, 3) {
	print $buf if $buf ne "\xef\xbb\xbf";
	undef $/;
	print <STDIN>;
}