usr.sbin/kbdmap/strip_pl.pl


1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/perl
#
# makes perl scripts smaller, useful for boot floppies 

while(<>) {
    s/(\s|^|;)#.*//; 			# comments
    s/\s+$//; 				# leading spaces
    s/^\s+//; 				# ending spaces
    s/\s+/ /g; 				# double spaces
    s/\s*([=\(\{\)\}])\s*/$1/g;		# spaces around =(){}
    print "$_\n" if $_;
}