文本合成问题-help

拖拉机商人

eg：
file  nodelist:
2  浙江
3  福建

file b:
2 20100301 7 12320
2 20100302 8 22528
2 20100303 7 16383

file c:
2 20100301 7 12
2 20100302 8 225
2 20100303 7 16
3 20100301 4264 2827943
3 20100302 3899 2640255
3 20100303 3905 2834327

file d:
3 20100301 4264 2827943
3 20100302 3899 2640255
3 20100303 3905 2834327

我想要的结果是 result
node       date     fileb里面的$3,$4  filec里面的$3,$4  filed里面的$3,$4
浙江   20100301    7 12320          7 12                        0  0
浙江   20100302    8 22528           8 225                     0   0
浙江   20100303    7 16383           7 16                       0   0
福建   20100301    0  0                 4264 2827943    4264 2827943
福建   20100302    0  0                 3899 2640255    3899 2640255
福建   20100303   0   0                 3905 2834327    3905 2834327



今天早上我发贴的时候得到这么个代码
awk -v day=`date +%Y%m%d` 'BEGIN{d1=substr(day,1,6);d2=substr(day,7,2)}!a[$1]++{b[++n]=$2}END{for (i=1;i<=n;i++) for (j=1;j<d2+0;j++) printf "%s %s%02d\n",b[i],d1,j}'  nodelist

这部分命令实现了
--------
浙江 20100301
浙江 20100302
浙江 20100303
福建 20100301
福建 20100302
福建 20100303


后面的该怎么继续，我是菜鸟，需要帮助，非常感谢。

拖拉机商人

我从shell版里得到答案了。[]

toniz

回复 1# 拖拉机商人


    贴个perl代码给你吧。

1. use Data::Dumper;
   
2. use strict;
   
3. 
   
4. open Fn,"file.note" or die "cant open file file.note!";
   
5. open Fb,"file.b" or die "cant open file file.b!";
   
6. open Fc,"file.c" or die "cant open file file.c!";
   
7. open Fd,"file.d" or die "cant open file file.d!";
   
8. 
   
9. my %node = map {(split)[0,1]}<Fn>;
   
10. my %all;
    
11. my %b;
    
12. my %c;
    
13. my %d;
    
14. while(<Fb>){
    
15.   my @bsp=(split) ;
    
16.   $b{$bsp[0]}->{$bsp[1]}=[$bsp[2],$bsp[3]];
    
17.   $all{$bsp[0]}->{$bsp[1]}=[0,0,0,0,0,0];
    
18. }
    
19. 
    
20. while(<Fc>){
    
21.   my @bsp=(split) ;
    
22.   $c{$bsp[0]}->{$bsp[1]}=[$bsp[2],$bsp[3]];
    
23.   $all{$bsp[0]}->{$bsp[1]}=[0,0,0,0,0,0];
    
24. }
    
25. 
    
26. while(<Fd>){
    
27.   my @bsp=(split) ;
    
28.   $d{$bsp[0]}->{$bsp[1]}=[$bsp[2],$bsp[3]];
    
29.   $all{$bsp[0]}->{$bsp[1]}=[0,0,0,0,0,0];
    
30. }
    
31. 
    
32. foreach my $area(keys %all){
    
33.   foreach my $data(keys %{$all{$area}}){
    
34.     $all{$area}->{$data}->[0]=($b{$area}->{$data}->[0] or 0);
    
35.     $all{$area}->{$data}->[1]=($b{$area}->{$data}->[1] or 0);
    
36.     $all{$area}->{$data}->[2]=($c{$area}->{$data}->[0] or 0);
    
37.     $all{$area}->{$data}->[3]=($c{$area}->{$data}->[1] or 0);
    
38.     $all{$area}->{$data}->[4]=($d{$area}->{$data}->[0] or 0);
    
39.     $all{$area}->{$data}->[5]=($d{$area}->{$data}->[1] or 0);
    
40.   }
    
41. }
    
42. 
    
43. foreach my $area(sort keys %all){
    
44.   foreach my $data(sort keys %{$all{$area}}){
    
45.     my $a1 = $all{$area}->{$data}->[0];
    
46.     my $a2 = $all{$area}->{$data}->[1];
    
47.     my $a3 = $all{$area}->{$data}->[2];
    
48.     my $a4 = $all{$area}->{$data}->[3];
    
49.     my $a5 = $all{$area}->{$data}->[4];
    
50.     my $a6 = $all{$area}->{$data}->[5];
    
51.     print "$area        $data        $a1        $a2        $a3        $a4        $a5        $a6 \n";
    
52.         }
    
53. }

复制代码

拖拉机商人

谢谢。perl看起来真是养眼。
测试通过了
欠一点的是：node，没有做到用中文替代相应的中文地点。
不过已经很完美了
谢谢