指定行号记录互换问题

oldknew

都知道指定列可以通过awk的中间变量转换实现相关列的位置转换，问题是行与行之间能实现类似功能吗？
例如文本
[aii@localhost gjy]$ cat databook1
     1        Steve Blenheim:238-923-7366:95 Latham Lane
     2        Betty Boop:245-836-8357:635 Cutesy Lane
     3        Igor Chevsky:385-375-8395:3567 Populus Place
     4        Norma Corder:397-857-2735:74 Pine Street--(替换行之前)
     5        Jennifer Cowan:548-834-2348:583 Laurel Ave.
     6        Jon DeLoach:408-253-3122:123 Park St.
     7        Karen Evich:284-758-2857:23 Edsadcliff Place--(替换行之前)
     8        taden Esich:284-758-28de:23 Edsdkskdliff Place
     9        Karen Evych:284-743-2867:23 Edgecliff Place
现需求是想将第4行和第7行位置对调一下打印出：
     1        Steve Blenheim:238-923-7366:95 Latham Lane
     2        Betty Boop:245-836-8357:635 Cutesy Lane
     3        Igor Chevsky:385-375-8395:3567 Populus Place
     4        Karen Evich:284-758-2857:23 Edsadcliff Place--(替换行之后)
     5        Jennifer Cowan:548-834-2348:583 Laurel Ave.
     6        Jon DeLoach:408-253-3122:123 Park St.
     7        Norma Corder:397-857-2735:74 Pine Street--(替换行之后)
     8        taden Esich:284-758-28de:23 Edsdkskdliff Place
     9        Karen Evych:284-743-2867:23 Edgecliff Place
请教sed或其他命令能实现这个功能吗，扩展到任意文本中第a行与第b行之间的互换代码，该怎么写？

sunzhiguolu

1. perl -ne '{push @a,$_}END{($a[3],$a[6])=($a[6],$a[3]);print for @a}' urfile

复制代码

sunzhiguolu

1. perl -ne 'BEGIN{($b,$e)=(3,6)}{push @a,$_}END{($a[$b],$a[$e])=($a[$e],$a[$b]);print for @a}' urfile

复制代码

oldknew

看不懂perl代码，不过还是表示膜拜http://bbs.chinaunix.net/static/image/smiley/default/smile.gif

liion631818

1. sed -nr '4,+2{H;d};7{p;g;s/(.*)\n(.*\n)(.*)$/\2\3\1/};p'

复制代码

回复 1# oldknew


   

oldknew

那个+2是什么意思的？换不同的行数需要改动么？

moperyblue

1. sed -r '4{:a;N;7!ba;s/([^\n]*)(\n.*\n)(.*)/\3\2\1/}' file
   
2. awk -v n1=4 -v n2=7 'NR==FNR{if(NR==n1){nr1=NR;v1=$0};if(NR==n2){nr2=NR;v2=$0};next}FNR==nr1{$0=v2}FNR==nr2{$0=v1}1' file file
   

复制代码

sunzhiguolu

1. perl -ne 'BEGIN{$/=""}{print s/(^4\N*\n)(.*\n(?=7))(.*?\n)/$3$2$1/msr}' urfile

复制代码

mswsg

在shell下运行：
python replace_line.py --input your_input_file -a a -b b --output your_out_file

a 和 b 表示要替换的两行

1. #!/usr/bin/env python
   
2. # -*- coding: utf-8 -*-
   
3. __author__ = 'shengwei ma'
   
4. '''http://bbs.chinaunix.net/thread-4243850-1-1.html'''
   
5. 
   
6. import sys
   
7. import getopt
   
8. 
   
9. input_file = ""
   
10. output_file = ""
    
11. a = ""
    
12. b = ""
    
13. 
    
14. try:
    
15.     opts, args = getopt.getopt(sys.argv[1:], "ha:b:", ["input=", "output="])
    
16. except getopt.GetoptError as err:
    
17.     print(str(err))
    
18. for op, value in opts:
    
19.     if op == "--input":
    
20.         input_file = value
    
21.     elif op == "-a":
    
22.         a = int(value)
    
23.     elif op == "-b":
    
24.         b = int(value)
    
25.     elif op == "--output":
    
26.         output_file = value
    
27.     elif op == "-h":
    
28.         print("python replace_line.py --input your_input_file -a a -b b --output your_out_file")
    
29.         sys.exit()
    
30. # 以上代码可以忽略,定义输入输出文件,以及a b参数
    
31. alist = []
    
32. with open(input_file, 'r') as f:  # 打开输入文件
    
33.     for line in f.readlines():
    
34.         line = line.strip()
    
35.         alist.append(line)   # 读入所有行,放入列表alist, 注意 alist[0]代表第一行, alist[1] 表示第二行,所以下述 是 a-1 b -1
    
36. 
    
37. pattern = {alist[a - 1]: alist[b - 1], alist[b - 1]: alist[a - 1]}  # a b 互换
    
38. new_list = [pattern[x] if x in pattern else x for x in alist]  # 执行
    
39. 
    
40. with open(output_file, 'w') as output:  # 打开 输出文件
    
41.     for new in new_list:
    
42.         output.write(new + '\n')  # 按行写入

复制代码

oldknew

大家都好强，看来自己也要认真学习了