comparison Lib/IMPL/lang.pm @ 174:d920d2b70230

minor changes
author sergey
date Tue, 04 Oct 2011 17:55:38 +0400
parents aaab45153411
children 74c27daf2e7b
comparison
equal deleted inserted replaced
173:aaab45153411 174:d920d2b70230
193 &$cmp($l->{$_},$r->{$_}) || return 0 foreach keys %$l; 193 &$cmp($l->{$_},$r->{$_}) || return 0 foreach keys %$l;
194 194
195 return 1; 195 return 1;
196 } 196 }
197 197
198 sub hashParse {
199 my ($s,$p,$d) = @_;
200
201 $p = $p ? qr/$p/ : qr/\n+/;
202 $d = $d ? qr/$d/ : qr/\s*=\s*/;
203
204 return {
205 map split($d,$_,2), split($p,$s)
206 };
207 }
208
209 sub hashSave {
210
211 }
212
198 1; 213 1;