in reply to Parse file to Hash of Hash etc.
Warning: Untested code.my %hash; while( <> ) { my ( $front, $back ) = split /\s*:\s*/; my @keys = split /\*/, $front; eval( '$hash' . ( join '', map { "{'$_'}" } @keys ) . "=" . $back +); }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Parse file to Hash of Hash etc.
by merlyn (Sage) on May 18, 2005 at 19:02 UTC | |
by mrborisguy (Hermit) on May 18, 2005 at 19:23 UTC | |
by merlyn (Sage) on May 18, 2005 at 19:25 UTC | |
by crusty_collins (Friar) on May 18, 2005 at 19:41 UTC | |
by merlyn (Sage) on May 18, 2005 at 20:14 UTC | |
by crusty_collins (Friar) on May 18, 2005 at 20:15 UTC | |
|
Re^2: Parse file to Hash of Hash etc.
by crusty_collins (Friar) on May 18, 2005 at 18:44 UTC | |
by mrborisguy (Hermit) on May 18, 2005 at 19:01 UTC | |
|
Re^2: Parse file to Hash of Hash etc.
by crusty_collins (Friar) on May 18, 2005 at 18:48 UTC |