File: clean-class

package info (click to toggle)
firehol 3.1.7%2Bds-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 2,768 kB
  • sloc: sh: 20,852; makefile: 827; perl: 554; 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;
}