File: clean-class

package info (click to toggle)
firehol 3.1.8%2Bds-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,920 kB
  • sloc: sh: 21,869; makefile: 834; perl: 756; sed: 12
file content (7 lines) | stat: -rwxr-xr-x 136 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
 
#!/usr/bin/perl -w

while (<>) {
  s/Kbit/000bit/g;
  if (/8000/) { s/ prio r/ prio 1 r/g; } else { s/ prio r/ prio 0 r/g; }
  print;
}