Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Re^9: Read CSV with column mapping

by poj (Abbot)
on Dec 18, 2018 at 19:45 UTC ( #1227433=note: print w/replies, xml ) Need Help??

in reply to Re^8: Read CSV with column mapping
in thread Read CSV with column mapping

see perlobj and perlootut

#!/usr/bin/perl use strict; use warnings; use Data::Dump 'pp'; use A; my $cnf = A->init('parameters.conf'); pp $cnf; print $cnf->get_value('abc','xyz'); print "\n"; print $cnf->get_value('blue','pqr');
package A; # file use strict; use warnings; use Text::CSV_XS; use IO::File; sub init { my ($class,$filename) = @_; my $self = {}; my $csv_fh = IO::File->new($filename, 'r'); my $csv = Text::CSV_XS->new( { allow_whitespace => 1 } ); while (my $row = $csv->getline($csv_fh)){ my $param = $row->[0]; my $key = $row->[1]; next if $key =~ /^#/; if ($key =~ /\S/){ $self->{$param}{$key} = { 'value' => $row->[2], 'id' => $row->[3] }; } } return bless $self, $class; } sub get_value { my ($self, $param, $key ) = @_; return $self->{$param}{$key}{'value'}; } 1;

Replies are listed 'Best First'.
Re^10: Read CSV with column mapping
by coretele (Novice) on Dec 25, 2018 at 04:47 UTC

    Thank you! I made little change in the code as per our code standard and it worked perfectly fine. Thank you once again!

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1227433]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2022-05-21 00:52 GMT
Find Nodes?
    Voting Booth?
    Do you prefer to work remotely?

    Results (76 votes). Check out past polls.