CSV file info into xml tags

[CSharma]

Hi Everybody, I've tab delimited data as below:

Retid     State    Rate
25    NJ    7.000
26    NJ    7.000
40    IL    9.750
40    IN    7.000
40    MI    6.000
40    WI    5.500
44    CT    6.000
50    NJ    7.000
87    VA    4.500

I want all unique Retid, comma seperated State & State corresponding to that Retid. Later I would need to add this data into different xml file by comparing Retid (Which is already in other file). I think using hashes would be OK as I don't want to read file everytime (else script will run longer), but not sure how to do this! Could anyone please suggest?

I've tried something like below:

open(IN, $taxFile) || die "$taxFile couldn't be opened $@\n";

while(<IN>)     {
        chomp;
        @line = split("\t");
        $sid = $line[0];
        $sidHash{$sid}{state} = $line[1];
        $sidHash{$sid}{rate} = $line[2];
}

Output file would be as below, where I'll add these 2 tags i.e. state & rate. Rest tags were read & printed from different file.

  <RetId="40">
    <name>xyz</name>
    <url>http://www.xyz.net</url>
    <type>CPC</type>
    <logoUrl/>
    <ntParentAcct>5403020</ntParentAcct>
    <feedCount>1</feedCount>
    <feedNumbers>1</feedNumbers>
    <state>IN, MI, WI</state>
    <rate>7.000, 6.000, 5.500</rate>
  </RetId>

[poj]

#!perl
use strict;
use warnings;
use Data::Dump 'pp';
my %sidHash=();

open IN, '<', $taxFile or die "$taxFile couldn't be opened :$!\n";
while(<IN>){
  chomp;
  next if /^Retid/; #skip header
  my ($sid,$state,$rate) = split /\s+/;
  push @{$sidHash{$sid}{state}}, $state;
  push @{$sidHash{$sid}{rate}} , $rate;
}
pp \%sidHash;

poj

[CSharma]

Thanks POJ! To access its values, isn't this the way?

foreach $t (sort keys %sidHash){
        print "$t :  State " . join(", ", @{$t->{'state'}}) . "rate: "
+ . join(", ", @{$t->{'rate'}} . "\n";
        }

[2teez]

What about using this:


foreach my $t ( sort keys %sidHash ) {
    if ( scalar @{ $sidHash{$t}{state} } > 1 ) {
        print map {
            sprintf "%s: State %s rate: %s\n" => $t,
              $sidHash{$t}{state}[$_], $sidHash{$t}{rate}[$_]
        } 0 .. $#{ $sidHash{$t}{state} };
    }
    else {
        print "$t: State ", join( ", " => @{ $sidHash{$t}{state} } ),
          " rate: ", join( ", " => @{ $sidHash{$t}{rate} } ), $/;
    }

[CSharma]

Have got it, accessed this way!

foreach my $t (sort keys %midHash){
        print $t . "\t" . join(", ", @{$midHash{$t}{state}}) . "\n";
}