Mercurial > pub > Impl
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; |