File: clean-class

package info (click to toggle)
firehol 3.1.6%2Bds-8
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 2,400 kB
  • sloc: sh: 20,836; makefile: 823; perl: 553; 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;
}