UNIX for Dummies Questions & Answers

my ($_configParam, $_paramValue) = split(/\s*=\s*/, $_, 2);
    $configParamHash{$_configParam} = $_paramValue;

#!/usr/bin/perl

use strict;
use warnings;

my $string="param 1=value1 value2 value3";
my %configParamHash;

my ($_configParam, $_paramValue) = split(/\s*=\s*/, $string, 2);

print "Accessing PERL variables:\n";
print "\$_configParam: $_configParam\n";
print "\$_paramValue: $_paramValue\n";

$configParamHash{$_configParam} = $_paramValue;

print "Accessing PERL hash through key 'param 1':\n";
print "$configParamHash{'param 1'}\n";

$ ./perltest.pl
Accessing PERL variables:
$_configParam: param 1
$_paramValue: value1 value2 value3
Accessing PERL hash through key 'param 1':
value1 value2 value3
$