3 ###########################################################
12 $value=~s/\$\((\w+)\)/$ENV{$1}/e;
19 my($line,$cat,$slot,$key,$value,$from,$to);
30 $$hash{$cat}{'_'}=$cat;
33 if (/^\[(\w+)\]\s*=\>\s*\[(\w+)\]$/) {
34 $$hash{$2}=$$hash{$1};
37 if (/([^=\s]+)\s*=\s*(.*?)\s*$/) {
41 if (/([^=\s]+)\s*:\s*(.*)/) {
43 $value=&compile($value);
44 $$hash{$cat}{$key}=$value;
47 if (/([^\<\s]+)\s*\<\<\s*(.*)/) {
51 last if substr($_,0,2) eq "<<";
54 $$hash{$cat}{$slot}=join("\n",@collect);
59 else { print "CANNOT OPEN $file --- $!\n"; }