一个超复杂的筛选，没思路啊。。。

鸟鸟不哥

这个。。。shell是不是通常都在linux下？perl不会啊。。。回复 40# jason680


   

rdcwayx

这个应该可以在Solaris 下跑的。

1. sort -k3.3n -k2.2n  date1 date2 |awk '!t{a=$0;b=$2 FS $3;t=1;next}
   
2.             { if ($2 FS $3 == b) {print $0 FS a;t=0}
   
3.               else {print /RA/?a " NULL NULL NULL 0": "NULL NULL NULL 0 " a;a=$0;b=$2 FS $3;t=1}
   
4.             }END{if (t==1) print  /RA/?a " NULL NULL NULL 0": "NULL NULL NULL 0 " a}'
   

复制代码

鸟鸟不哥

回复 42# rdcwayx



哥们，测试了吗？我这面测了下无法通过啊。。。

yinyuemi

回复 43# 鸟鸟不哥


    好人做到底，试试perl

1. #!/bin/perl
   
2. use strict;
   
3. my %mon = (
   
4.         "JAN" => "01",
   
5.         "FEB" => "02",
   
6.         "MAR" => "03",
   
7.         "APR" => "04",
   
8.         "MAY" => "05",
   
9.         "JUN" => "06",
   
10.         "JUL" => "07",
    
11.         "AUG" => "08",
    
12.         "SEP" => "09",
    
13.         "OCT" => "10",
    
14.         "NOV" => "11",
    
15.         "DEC" => "12"
    
16. );
    
17. 
    
18. my (%data,%d);
    
19. open(f1,"file1") or die "$!";
    
20. while(<f1>){
    
21.         chomp;
    
22.         my @a = split /\s+/;
    
23.         $data{fun($a[1]).$a[2]."#1"} = $_;
    
24.         $d{$a[1]."#".$a[2]} = fun($a[1]).$a[2];
    
25. }
    
26. close(f1);
    
27. open(f2,"file2") or die "$!";
    
28. while(<f2>){
    
29.         chomp;
    
30.         my @a = split /\s+/;
    
31.         $data{fun($a[1]).$a[2]."#2"} = $_;
    
32.         $d{$a[1]."#".$a[2]} = fun($a[1]).$a[2];
    
33. }
    
34. close(f2);
    
35. sub fun(){
    
36.         my $s = shift;
    
37.         $s = join "", map{defined $mon{$_}?$mon{$_}:$_} reverse (split /-/, $s);
    
38.         return $s;
    
39. }
    
40. 
    
41. my $S = "NULL NULL NULL 0";
    
42. foreach my $t (sort {$d{$a} <=> $d{$b}} (keys %d)){
    
43.         if($data{$d{$t}."#1"} && $data{$d{$t}."#2"}){
    
44.                 print $data{$d{$t}."#1"}," ",$data{$d{$t}."#2"},"\n";
    
45.         }
    
46.         elsif($data{$d{$t}."#1"}){
    
47.                 print $data{$d{$t}."#1"}," ",$S,"\n";
    
48.         }else{
    
49.                 print $S," ",$data{$d{$t}."#2"},"\n";
    
50.         }
    
51. }
    

复制代码

鸟鸟不哥

辛苦，多谢！果然好人啊，CU里面有什么可以赠与的分数之类吗？我有多少送您多少，真的！回复 44# yinyuemi


   

rdcwayx

鸟鸟不哥 发表于 2012-02-28 11:47
回复 42# rdcwayx

哥们，测试了吗？我这面测了下无法通过啊。。。

如果有错，你贴上错误信息。 我这边测了，没问题。