Chinaunix

标题: 怎样用perl自动填表 [打印本页]

作者: 小猪Gina 时间: 2013-03-06 15:05
标题: 怎样用perl自动填表
有三张表
表一：
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

谢谢~拜托了~

作者: 兰花仙子 时间: 2013-03-06 15:11
回复 1# 小猪Gina

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

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

复制代码

作者: 小猪Gina 时间: 2013-03-06 15:14
回复 2# 兰花仙子

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

作者: 兰花仙子 时间: 2013-03-06 15:16

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

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

作者: 小猪Gina 时间: 2013-03-06 15:18
回复 4# 兰花仙子

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

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

作者: 小猪Gina 时间: 2013-03-06 15:43
啊，自己完成了~开心~不过也谢谢 “兰花仙子”，等会儿把代码贴出来吧~

作者: 小猪Gina 时间: 2013-03-06 15:46
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 时间: 2013-03-06 16:03
回复 6# Perlvim

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

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)