freebsd-skq/usr.sbin/kbdmap/strip_pl.pl
Jordan K. Hubbard 4ba103156d Latest version of this package from Wolfram. Is now /etc/sysconfig aware,
handles default settings and has a prototype translation file for people
wishing to add extra languages (please!).
Submitted by:	Wolfram Schneider <wosch@cs.tu-berlin.de>
1995-04-05 08:09:25 +00:00

13 lines
307 B
Perl

#!/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 $_;
}