Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/bin/awk -f
- # see http://theunixshell.blogspot.de/2014/05/inserting-lines-in-file-using-perl.html
- {
- print
- repl = sprintf("%d\"", (NR - 1) % 3 + 5)
- print gensub(/.\"$/, repl, 1)
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement