Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

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 A.pm 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;
poj

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (9)
As of 2019-11-19 10:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Strict and warnings: which comes first?



    Results (95 votes). Check out past polls.

    Notices?