分类提取文本内容

很宅的男

大家好，      我有一个文本，里面的内容格式如下所示，F00，F01...是文件编号，后面的“-1”，“-2”表示的是这个文件的类型，现在我想做的就是把所有的“-1”的文件放到一个文本里，“-2”的放到另一个文本里，同时所有属于F00的都合并到一行，比如F00-1的最后都在文本名为1的文本里，格式是“F00 a b”这样子，F01,，F02等等都是这样，大神们知道这个怎么弄吗？

1. F00-1 a
   
2. F00-1 b
   
3. F00-2 a
   
4. F00-2 c
   
5. F00-2 d
   
6. F01-1 g
   
7. F01-1 h
   
8. F01-1 b
   
9. ...

复制代码

moperyblue

1. ::::::::::::::
   
2. 1.txt
   
3. ::::::::::::::
   
4. F01-1 g h b
   
5. F00-1 a b
   
6. ::::::::::::::
   
7. 2.txt
   
8. ::::::::::::::
   
9. F00-2 a c d

复制代码

最终这样?

很宅的男

回复 2# moperyblue

1.txt：
    F00-1 a b a ...
    F01-1 a b a...
    F02-1 a b a...
   ...

2.txt:
    F00-2 a b a ...
    F01-2 a b a...
    F02-2 a b a...
   ...

最终呈现的是这种样子的

moperyblue

回复 3# 很宅的男


你的举例 文件1.txt中 F01-1 a b a 这行不是 F01-1 g h b 这样吗?

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData = ();
   
6. while (<DATA>){
   
7.     chomp;
   
8.     my ($k, $n, $v) = /\w+/g;
   
9.     push (@{$aData[$n]{$k}}, $v);
   
10. }
    
11. 
    
12. while (my ($n, $v) = each @aData){
    
13.     next if (!$n);
    
14.     foreach (keys %$v){
    
15.         print "$_-$n ", join (' ', @{$aData[$n]{$_}}), "\n";
    
16.     }
    
17. }
    
18. 
    
19. __DATA__
    
20. F00-1 a
    
21. F00-1 b
    
22. F00-2 a
    
23. F00-2 c
    
24. F00-2 d
    
25. F01-1 g
    
26. F01-1 h
    
27. F01-1 b

复制代码

moperyblue

1. awk '{a[$1]=a[$1]?a[$1] FS $2:$2}END{for(i in a){split(i,b,"-");print i,a[i] > b[2]".txt"}}' file

复制代码

?