CSV file info into xml tags

CSharma has asked for the wisdom of the Perl Monks concerning the following question:

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
[download]

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];
}
[download]

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>
[download]

Comment on CSV file info into xml tags Select or Download Code

Replies are listed 'Best First'.
Re: CSV file info into xml tags by poj (Abbot) on Jul 28, 2015 at 08:39 UTC
`#!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;` [download] poj	[reply] [d/l]
Re^2: CSV file info into xml tags by CSharma (Sexton) on Jul 28, 2015 at 10:14 UTC
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"; }` [download]	[reply] [d/l]
Re^3: CSV file info into xml tags by 2teez (Vicar) on Jul 28, 2015 at 12:20 UTC
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} } ), $/; }` [download] If you tell me, I'll forget. If you show me, I'll remember. if you involve me, I'll understand. --- Author unknown to me	[reply] [d/l]
Re^4: CSV file info into xml tags by CSharma (Sexton) on Jul 29, 2015 at 11:55 UTC
Re^5: CSV file info into xml tags by poj (Abbot) on Jul 29, 2015 at 18:02 UTC
Re^3: CSV file info into xml tags by CSharma (Sexton) on Jul 28, 2015 at 10:33 UTC
Have got it, accessed this way! `foreach my $t (sort keys %midHash){ print $t . "\t" . join(", ", @{$midHash{$t}{state}}) . "\n"; }` [download]	[reply] [d/l]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks