|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Artiom Morozov 2:5020/400 27 Jun 2000 19:16:18 To : All Subject : Re: How? -------------------------------------------------------------------------------- Fair day, Alexander Semenov wrote: > > Fair day, > > > strN=valueN > > > как это загнать в %hash??? где почитать? > > %hash = map { split(/=/) } <>; > Hу да, типа, красиво, а что не эффективно и value с '=' внутри не > понимает не важно. В реальных программах, это приходится делать так: Ok, naschet value soglasen > foreach (split /\n/s, join '', @data) { > my $ix = index($_, '='); > if( $ix > -1 ) { > my $key = substr $_, 0, $ix; > my $val = substr $_, $ix+1; > > $val =~ s/\'\'/\"/g; # И другие дообработки values... ^^^^^^^^^ Zachem??? > $self->{$key} = $val; > } > } A teper' uberyem lishnie peremennye iz koda ;-) foreach (<>) { $self->{$1} = $2 if (m/([^=]*)=(.*)/om); } -- Farewell ta thee Artiom Отправлено через сервер Talk.Ru - http://www.talk.ru --- ifmail v.2.15dev5 * Origin: CSP Ltd. (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/43041dd867f3.html, оценка из 5, голосов 10
|