property file parsing

mifflin has asked for the wisdom of the Perl Monks concerning the following question:

I have a properties file that is structured like the typical string=value where the string portion is formated like key1.key2...keyn

the problem is that I don't know the 'n' (how many key portions are in the string) and I'm looking for a way to be able to dynamincally handle it.

Here is a small sample of the properties file..

language_id.en_US=-1
language_id.es_US=-11
language_id.en_CA=-12
language_id.fr_CA=-13
langid.SPMEX=es_US
langid.FRCAN=fr_CA
altlang.US=SPMEX
altlang.CA=FRCAN
itemattr.newpart.seq=1
itemattr.newpart.name=New Part
itemattr.newpart.image1.en_US=newitem_icon.gif 
itemattr.newpart.image1.es_US=newitem_icon_sp.gif
itemattr.newpart.image1.en_CA=newitem_icon.gif
itemattr.newpart.image1.fr_CA=newitem_icon_fr.gif
itemattr.watersaver.seq=2
itemattr.watersaver.name=New Part
itemattr.watersaver.image1.en_US=newitem_icon.gif 
itemattr.watersaver.image1.es_US=newitem_icon_sp.gif
itemattr.watersaver.image1.en_CA=newitem_icon.gif
itemattr.watersaver.image1.fr_CA=newitem_icon_fr.gif
[download]

Here is the relevant section of my code that parses this file...

my %properties;
my $propfilename = $opt{p} ? $opt{p} : "$FindBin::Bin/${FindBin::Scrip
+t}.properties";
print "reading properties from $propfilename\n" if $opt{v};
my $pfh = IO::File->new("<$propfilename") or die "unable to open prope
+rties file $propfilename, $!";
while (my $propline = <$pfh>) {
   next if $propline =~ /^#/;
   print $propline if $opt{V};
   chomp $propline;
   my ($key, $value) = split(/=/, $propline);
   my ($key1, $key2, $key3, $key4) = split(/\./, $key);

   if (defined $key4) {
      $properties{$key1}{$key2}{$key3}{$key4} = $value;
   }
   elsif (defined $key3) {
      $properties{$key1}{$key2}{$key3} = $value;
   }
   elsif (defined $key2) {
      $properties{$key1}{$key2} = $value;
   }
   elsif (defined $key1) {
      $properties{$key1} = $value;
   }

}
$pfh->close;
[download]

What I don't like is all the hard coding of handling n keys. As you can see I only hand up to four. Is there a better way to do this?

Comment on property file parsing Select or Download Code

Replies are listed 'Best First'.
Re: property file parsing by pKai (Priest) on Feb 03, 2006 at 21:56 UTC
This works by recursively constructing branches of the tree top-down and works with arbitrary "deep" keys: use strict; use warnings; use Data::Dumper; my %properties; while (my $propline = <DATA>) { next if $propline =~ /^#/; chomp $propline; my ($key, $value) = split(/=/, $propline, 2); _insert(\%properties, $key, $value); } sub _insert { my ($root, $key, $value) = @_; my ($first, $rest) = split /\./, $key, 2; if (defined $rest) { $root->{$first} = {} unless ref($root->{$first}) eq 'HASH'; _insert($root->{$first}, $rest, $value); } else { $root->{$first} = $value; } } print Dumper(\%properties); __DATA__ [download] Read more... (875 Bytes)	[reply] [d/l] [select]
Re^2: property file parsing by rhesa (Vicar) on Feb 03, 2006 at 22:15 UTC
No need for recursion if a simple loop suffices: `my ( $first, @subkeys ) = split /\./, $key; my $last = pop @subkeys; my $ref = $properties{$first} \|\|= {}; $ref = $ref->{$_} \|\|= {} for(@subkeys); $ref->{$last} = $value;` [download]	[reply] [d/l]
Re^3: property file parsing by pKai (Priest) on Feb 03, 2006 at 22:45 UTC
Yeah, `_insert` is even tail recursive, so making a loop from it is no big deal. But, believe it or not, those recursive solutions just come more easily to me. BTW, your snippet fails to overwrite previously set to "True" scalar values. There is no case of this in the OP data sample. But this kind of anomaly is clobbered the same way by OP's script and mine. So you can even argue, that your algorithm crashing on such data is a feature :)	[reply] [d/l]
Re^4: property file parsing by rhesa (Vicar) on Feb 03, 2006 at 23:07 UTC
Re^5: property file parsing by pKai (Priest) on Feb 03, 2006 at 23:28 UTC
Re^3: property file parsing by mifflin (Curate) on Feb 03, 2006 at 22:29 UTC
perfect! thankyou.	[reply]
Re: property file parsing by coreolyn (Parson) on Feb 03, 2006 at 21:28 UTC
Just on a quick look I have to say I'm confused by the format of your property file. Changing of its format would provide for much greater flexibility and available coding options. Is the property file form able to be changed? coreolyn	[reply]
Re^2: property file parsing by mifflin (Curate) on Feb 03, 2006 at 22:24 UTC
Nope, I'm stuck with it. I'm just trying to parse into a HoH's that works for me.	[reply]


Just another Perl shrine
	PerlMonks