35854221f6
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>
13 lines
307 B
Perl
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 $_;
|
|
}
|