perl数据处理，和引用有关，现在自己没搞定，希望得到各位帮助。

gaochong

UID: 30603
帖子: 2
积分: 4
在线时间: 10 分钟

1^# gaochong 发表于 2008-03-17 10:54

perl数据处理，和引用有关，现在自己没搞定，希望得到各位帮助。

有一个文本文件，格式如下：
20080310 13
20080311 13
20080312 12
20080310 13
20080311 12
20080312 13
20080310 1
20080311 0
20080312 1

是从3台机器上拉过来的数据，日期是不断增加的。
我希望得到如下的格式：
20080310 13 13 1
20080311 13 12 0
20080312 12 10 1
也就是日期对应日期的3个值。

请各位指导！

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

2^# cobrawgl 发表于 2008-03-17 10:57

对应日期那3个值怎么出来的？没看懂

gaochong

UID: 30603
帖子: 2
积分: 4
在线时间: 10 分钟

3^# gaochong 发表于 2008-03-17 11:12

.
.
20080311 13
20080312 12 （这是从1机器得到的数据）
.
.
20080312 12
20080312 13    （这是从2机器得到的）
.
.
20080311 0
20080312 1       （这是从3机器得到的）

我要得到的数据格式：
日期此日期对应的从1得到的数据此日期对应的从2得到的数据  此日期对应的从3得到的数据

我讲的清楚了吗？
谢谢！

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

4^# ly5066113 发表于 2008-03-17 11:27

try:

[Copy to clipboard] [ - ]

CODE:

perl -anle '$h{$F[0]} .= " $F[1]";END{for(sort keys %h){print "$_$h{$_}";}}' urfile

gaochong

UID: 30603
帖子: 2
积分: 4
在线时间: 10 分钟

5^# gaochong 发表于 2008-03-17 11:39

没看懂。。。

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

6^# cobrawgl 发表于 2008-03-17 11:46

刚才写的复杂了

#!/usr/bin/perl

use strict;
use warnings;

my %data;

while (<DATA>) {
    chomp;
    my @record = split;
    push @{$data{$record[0]}}, $record[1];
}

for my $key (keys %data) {
    print "$key ";
    print "$_ " for @{$data{$key}};
    print "\n";
}

__DATA__
20080310 13
20080311 13
20080312 12
20080310 13
20080311 12
20080312 13
20080310 1
20080311 0
20080312 1

>perl -w test.pl
20080310 13 13 1
20080311 13 12 0
20080312 12 13 1
>Exit code: 0

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

7^# hitsubunnu 发表于 2008-03-17 11:52

[Copy to clipboard] [ - ]

CODE:

my $file = "1.txt";
#my $outfile = "xxxx.xxx";

open(FF,"$file");
my @data=<FF>;
close(FF);

my %hash;

for(@data){
chomp;
my($t1,$t2)=split(/ /);
push (@{$hash{$t1}},$t2);
}

for(sort keys %hash){
print "$_ @{$hash{$_}}\n";
}

[Copy to clipboard] [ - ]

CODE:

20080310 13 13 1
20080311 13 12 0
20080312 12 13 1

gaochong

UID: 30603
帖子: 2
积分: 4
在线时间: 10 分钟

8^# gaochong 发表于 2008-03-17 13:06

要好好学习一下！！！
谢谢楼主！！！
thanks!!!