Transform a key / value string to a hash with map and split.

#!/usr/bin/perl -w
use strict;

my $string = q~DefaultUserDir=/filer/0
Integer DomainUsers=5
Integer TotalMessages=50
Integer AverageSize=19
Integer DomainDiskUsage=966
~;

my @array = split /\n/, $string;
my %hash = map { split /\=/ } @array;

foreach (keys %hash) {
        print "=====>  '$_' = \t'$hash{$_}'\n";
}

Output:

=====>  'Integer AverageSize' =         '19'
=====>  'DefaultUserDir' =      '/filer/0'
=====>  'Integer DomainDiskUsage' =     '966'
=====>  'Integer DomainUsers' =         '5'
=====>  'Integer TotalMessages' =       '50'

Advanced search tips

---

[ home ] - [ search ] - [ feedback ]

copyright by reto - created with mytexi