How to read properties file using perl

Perl Script

Posted on December 8, 2017February 27, 2021 | by scmgalaxy K

Post Views: 16

scmuser created the topic: How to read properties file using perl

Hi,

i would like to read properties file using perl…Any sample code or any example?

My properties file is as such …

variable1 = value
variable2 = value

tpatil replied the topic: Re: How to read properties file using perl

Hope this helps….

{code} #! /usr/bin/perl -w use Getopt::Long; use strict;


my $inputFile = "test.properties";
#############################################

# Get the variables passed from property file

#############################################

my @parmList = &read_parameters;
##############################################################

# populate hash map

##############################################################

%parameters = @parmList;
#print the property1 value from test.properties

print "$parameters{"property1"}"\n"
##############################

#Subroutine to read the values

##############################

sub read_parameters {
# my $importFile = $filePath . $inputFile;

my $importFile = $inputFile;

my $parameterName = '';

my $parameterValue = '';
# open the file and read the contents into an array

open(DATA, "<$importFile") or die "\n\nUnable to open input file: $!\n\n";
my @parmListTemp = ;

close(DATA);
my @parmList = ();
foreach my $row (@parmListTemp){

chop $row;
# ignore blanks and lines that start with #

if (($row ne '') && ($row !~ /^#/)) {
# get parameters and their values and put into an array

($parameterName, $parameterValue) = split(/=/, $row);
if($debugLevel >= 3) {print "\n\n Parameter $parameterName value is $parameterValue"; };
push(@parmList, $parameterName);

push(@parmList, $parameterValue);

};

};