sed行交换指令不成功

expresss

文件如下：

1. 
   
2. northwest        NW        5        3
   
3. northeast        NE        2        1
   
4. southwest        SW        7        9
   
5. southeast        SE        4        8
   
6. eastern                EA        2.3        .9
   
7. north                NO        3        9

复制代码

假设我想让northwest的行和southeast的行交换，按书上说的不成功呢，不知道问题出在哪，望各位前辈多指教。

1. sed -e '/northwest/h' -e '/southeast/x' test

复制代码

得出的结果是:
----------------------------------------
northeast        NE        2        1
southwest        SW        7        9
northwest        NW        5        3
eastern                EA        2.3        .9
north                NO        3        9
----------------------------------------
也就是这两行不见了，这个指令哪里输错了？还有没有简洁点的代码。Thank you!

blackold

你的文件格式有问题吧

where27

1. southwest        SW        7        9
   
2. northeast        NE        2        1
   
3. northwest        NW        5        3
   
4. southeast        SE        4        8
   
5. eastern                EA        2.3        .9
   
6. north                NO        3        9

复制代码

你要的是这个结果？

expresss

Re:2#
格式应该是对的吧，我在Windows下和Linux下都试过的，都不可能成功的呢。在Windows下是Windows的文本。在Linux下是Linux下建的文本。

Re:3#
是的啊，就是让指定的行互换。可能我建的文本有点不好看，假如有个文件test文件为：
1
2
3
4
5
用sed -e '/1/h' -e '/5/x' test并不能变成：
5
2
3
4
1
不知道我是哪里写错了。

blackold

回复 4# expresss


    谁告诉你这样可以交换？

springwind426

1. 
   
2. sed -r '/northwest/{:a;N;/southeast/!ba;s/([^\n]*)\n(.*)\n(.*)/\3\n\2\n\1/}' 数据文件
   
3. 
   

复制代码

Shell_HAT

回复 1# expresss


哪本书上说可以这样交换？我也想学习一下

bbgg1983

1. 看的出来，楼主你在学习unix shell 范例精解吧，那么我就拿你那个12345的文件来说一说。
   
2. 当你读到1所在的行时，用了h命令把这行保存在了hold space，当你读到5所在的行时，又用了x命令把hold space的内容和当前模式空间的内容交换了，此时，模式空间里的是1所在的行，hold space里的是5所在的行。这里所谓的交换，交换的是两个存储空间里所保存的内容，而不会直接去交换这两行内容在文本中的位置。你熟读一下sed处理文本的方式就会明白。

复制代码

lkk2003rty

这样没法让指定的行交换的。。。。
以sed -e '/1/h' -e '/5/x' test为例 把第一行的内容复制到 保留空间中 打印第1行内容 后面不匹配不执行
在第5行的时候交换 模式空间与保留空间的内容  于是打印出原来第1行的内容。。。。
以交换2 5 两行为例

1. awk '{x=NR;if(x==2) x=5; else if (x==5) x=2; print x,$0}' file | sort -k1,1n | cut -d' ' -f2-

复制代码

李寻欢92

回复 1# expresss

1. #!/usr/bin/perl
   
2. use strict;
   
3. open FILE,"<data_3";
   
4. my @result;
   
5. my ($index_1,$index_2,$count,$flag);
   
6. while(<FILE>) {
   
7.    if($flag == 0 and $_ =~ /1/) {
   
8.        $index_1 = $count;
   
9.        $flag++;
   
10.    }
    
11.    if($flag == 1 and $_ =~ /5/) {
    
12.        $index_2 = $count;
    
13.        $flag++;
    
14.    }
    
15.    $count++;
    
16.    push @result,$_;
    
17. }
    
18. ($result[$index_1],$result[$index_2]) = ($result[$index_2],$result[$index_1]);
    
19. print @result;
    

复制代码