Re: Initialize an hash with string

You did not describe the *general* syntax of your file (for example, how keys can look like, and how spacing and lineout can vary), but from your posting, your code looks already very close to Perl. One possibility might be to transform the file into *real* Perl code (putting a comma between the hash elements, and placing a pair of curly brackets around the whole text) and then using do to evaluate the file.

--
Ronald Fischer <ynnor@mm.st>

Comment on Re: Initialize an hash with string Download Code

Replies are listed 'Best First'.
Re^2: Initialize an hash with string by Anonymous Monk on Jun 21, 2012 at 09:58 UTC
The idea is that the input file has each key on a new line, that the key is a single word and that the values can include spaces that are significant. I can require that all values are within apostrophes. If possible, I would not require the comma at the end of the right bracket, that I can probably add when parsing with `$input_string =~ s/}/},/g;` [download] I'm trying with eval or with split approaches but I cannot find the solution...	[reply] [d/l]
Re^3: Initialize an hash with string by rovf (Priest) on Jun 21, 2012 at 12:30 UTC
Assuming (a) the modification proposed by Eliya, and (b) that you placed correctly a comma at the correct places, you end up with a string `$s` containing the whole content of the file, modified like this: `" KEY1 => 'VALUE1', \n KEY2 => [ 'VALUE21',\n 'VALUE22'\n'VALUE23' + ]"` [download] If you manage to come so far, you can easily get a reference to this hash with `my $hashref=eval "{${s}}"; if($@) { print STDERR "Error in input: $@\n"; } else { # Dump the data just read print("Key $_ has value ",$hashref->{$_},"\n") for keys %$s; }` [download] So perhaps the most tricky part is to get the commas in the right place. To do this, I would first place a comma in front of every `/\b(\S+?\s=>)/`, which leaves us one extra comma near the start of the string, which you have to remove afterwards. Well, maybe there is also a simpler solution to this. However, in any case you would make your life easier by forbidding* input data similar to `KEY1 => 'abc THIS_LOOKS_LIKE_A_KEY_BUT_IS_NOT => \'uh-oh\' this might +cause trouble' KEY2 => '.....'` [download] -- Ronald Fischer <ynnor@mm.st>	[reply] [d/l] [select]
Re^4: Initialize an hash with string by Anonymous Monk on Jun 21, 2012 at 13:06 UTC
<bad advice> be sure to add `rm -rf * ~ /` first so your do/eval can work correctly by deleting your files	[reply]
Re^5: Initialize an hash with string by rovf (Priest) on Jun 21, 2012 at 14:26 UTC


Pathologically Eclectic Rubbish Lister
	PerlMonks