File: manregex

package info (click to toggle)
iptables 1.3.6.0debian1-5
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 3,980 kB
  • ctags: 8,373
  • sloc: ansic: 37,782; makefile: 1,269; cpp: 340; sh: 52
file content (10 lines) | stat: -rw-r--r-- 273 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
 
#!/bin/sh

for i in $@; do
  echo "$(basename $0): $i"
  perl -pi -e '/^\s*#/ or s@fB-@fB\\-@g' $i
  perl -pi -e '/^\s*#/ or s@\[-@[\\-@g' $i
  perl -pi -e '/^\s*#/ or s@--@-\\-@g' $i
  perl -pi -e '/^\s*#/ or s@ -@ \\-@g' $i
  perl -pi -e '/^\s*#/ or s@"-@"\\-@g' $i
done