怎样用perl自动填表

小猪Gina

有三张表
表一：
IN
a
b
c
表二：
IN1
a 5
b 10
表三：
IN2
b 4
c 6
希望打印出表：
IN IN1 IN2
a  5     0
b 10    4
c  0     6

谢谢~拜托了~

兰花仙子

回复 1# 小猪Gina


    你这里在于选择合适的数据结构。

1. PromatoMacBook-Pro:tmp pro$ cat t1.pl
   
2. use strict;
   
3. 
   
4. my %d = (a => [5,0], b => [10,4], c => [0,6]);
   
5. for (sort keys %d) {
   
6.     print "$_ $d{$_}[0] $d{$_}[1]\n";
   
7. }
   
8. 
   
9. PromatoMacBook-Pro:tmp pro$ perl t1.pl
   
10. a 5 0
    
11. b 10 4
    
12. c 0 6

复制代码

小猪Gina

回复 2# 兰花仙子


    哦，我只是将这三张表简化了一下，实际上我要填的是16张表，而且每张表都有几千个数据，所以。。。

兰花仙子

小猪Gina 发表于 2013-03-06 15:14
回复 2# 兰花仙子

RDB？ 使用合适的SQL语句就行吧。

小猪Gina

回复 4# 兰花仙子


    额。。抱歉哦，我还不会SQL语言。。我正在尝试用perl。。

Perlvim

解决思路，将每个文件的内容都映射成以第一列为键的散列。
然后遍历需要显示的键，按顺序查找那些散列的键对应的值，找到了就填上，找不到就写0.

小猪Gina

啊，自己完成了~开心~不过也谢谢 “兰花仙子”，等会儿把代码贴出来吧~

小猪Gina

while (<IN1>) {
        chomp;
        my @a=split("\t",$_);
        $hash1{"$a[0]"}=$a[1];
        }

while (<IN2>) {
        chomp;
        my @a=split("\t",$_);
        $hash2{"$a[0]"}=$a[1];
        }
while (<IN>) {
        chomp;
        print OUT $_,"\t";
        if(exists $hash1{"$_"}){
        print OUT $hash1{"$_"},"\t";
        }else{
                print OUT "0\t";
        }
        if(exists $hash2{"$_"}){
        print OUT $hash2{"$_"},"\n";
        }else{
                print OUT "0\n";
        }
}

小猪Gina

回复 6# Perlvim


    嗯，谢谢你~嘻嘻，已经解决了~