valori di corrispondenza con colonna e intestazione di riga

Question

Ho alcuni file con i dati di seguito.

campione File 1:

sitename1,2009-07-19,"A1",11975,17.23
sitename1,2009-07-19,"A2",11,0.02
sitename1,2009-07-20,"A1",2000,17.23
sitename1,2009-07-20,"A2",538,0.02

Voglio mappare i valori nella colonna 4 con la colonna 2 e 3 come illustrato di seguito.

uscita richiesta.

Site,Type,2009-07-19,2009-07-20
sitename1,"A1",11975,2000
sitename1,"A2",11,538

Ecco quello che ho provato finora:

#! /usr/bin/perl -w
use strict;
use warnings;

my $column_header=["Site,Type"];
my $position={};
my $last_position=0;
my $current_event=[];

my $events=[];

while (<STDIN>) {
    my ($site,$date,$type,$value,$percent) = split /[,\n]/, $_;
    my $event_key = $date;

    if (not defined $position->{$event_key}) {
        $last_position+=1;
        $position->{$event_key}=$last_position;
        push @$column_header,$event_key;
    }
    my $pos = $position->{$event_key};
    if (defined $current_event->[$pos]) {
        dumpEvent();
    }
    if (not defined $current_event->[0]) {
        $current_event->[0]="$site,$type";
    }
    $current_event->[$pos]=$value;
}

dumpEvent();

 my $order = [];
 for (my $scan=0; $scan<scalar(@$column_header); $scan++) { 
    push @$order,$scan; 
}

printLine($column_header);
map { printLine($_) } @$events;

sub printLine {
    my $record=shift;

    my @result=();
    foreach my $offset (@$order) {
        if (defined $record->[$offset]) {
            push @result,$record->[$offset];
        } else {
            push @result,"";
        }
    }
    print join(",",@result)."\n";
}

sub dumpEvent {
    return unless defined $current_event->[0];
    push @$events,$current_event;
    $current_event=[];
}

L'uscita sto ottenendo è come qui sotto.

*Site,Type,2009-07-19,2009-07-20*
sitename1,"A1",11975,
sitename1,"A2",11,
sitename1,"A1",,14620
sitename1,"A2",,538 

Answer 1

Il seguente codice produce il risultato atteso e fa "un certo" senso. Non so se ha un senso reale.

my %dates;
my %SiteType;
while (<DATA>) {
    chomp;
    my ($site,$date,$type,$value,$percent) = split /,/;
    $dates{$date} = '1';
    push @{$SiteType{"$site,$type"}}, $value ;
};
print 'Site,Type,', join(',', sort keys %dates), "\n";
foreach ( sort keys %SiteType) {
    print $_, ',', join(',', @{$SiteType{$_}}), "\n";
};

Answer 2

Se ho capito bene (e devo ammettere che mi sto solo provando), si dispone di diversi tipi di cose in date diverse e un valore per ciascuno. Così hai bisogno di una struttura di dati come questo hash per ogni sito:

$foo = {
    site  => 'sitename1',
    type  => 'A1',
    dates => [
                {
                    date  => '2009-07-19',
                    value => 11975,
                },
                {
                    date  => '2009-07-20',
                    value => 538,
                },
             ],
};

E 'questo anche vicino?