File: replace-text

package info (click to toggle)
percona-toolkit 3.7.1-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 106,712 kB
  • sloc: perl: 257,236; sql: 23,577; sh: 21,388; javascript: 6,322; makefile: 397; python: 62; awk: 38; sed: 1
file content (19 lines) | stat: -rwxr-xr-x 285 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/usr/bin/awk -f

BEGIN {
   if ( from == "" || file == "" || to == "" ) {
      print "Usage: replace-text -v from=PATTERN -v file=FILE -v to=PATTERN"
      exit
   }
}

$0 ~ from {
   system("cat " file)

   while ( getline ) {
      if ( $0 ~ to )
         break
   }
}

{ print }