Delete every 4th line (e.g., 4th, 8th, 12th...) of a file.
2006.02.22
Change Log
2006.02.22 Add the second script.
2002.02.04 First version
|
| Raw Input
|
| Desired Output
| line 1
line 2
line 3
line 4
line 5
line 6
line 7
line 8
line 9
line 10
|
| line 1
line 2
line 3
line 5
line 6
line 7
line 9
line 10
|
|
Script and Comments
Script1 [ 1] :loop
[ 2] /^\([^\n]*\n\)\{3\}/!{
[ 3] N
[ 4] b loop
[ 5] }
[ 6] s/\n[^\n]*$//
|
Script2 [ 1] :loop
[ 2] N
[ 3] /\n[^\n]*\n/!b loop
[ 4] n
[ 5] d
| |
|