|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Artem Chuprina 2:5020/371.32 14 Jun 2000 17:33:56 To : perl@perl.pp.ru Subject : Re: Как оптимизировать след код -------------------------------------------------------------------------------- pppr> use strict; pppr> my $value; pppr> my (@values); pppr> open (FH, "<currency_code") or die $!; pppr> while (<FH>) { pppr> chomp; pppr> ($value)=split (/;/, $_, 2); pppr> push(@values, $value); pppr> } pppr> close FH; pppr> P.S. Интересует мнение Артема на мои поправки :) Просто я на сайте pppr> готовлю раздел о "правильном программировании". Hаблюдается потеря хэша labels. После chomp; вернуть то, что было у автора. -- Счастливо! Ран. --- ifmail v.2.14.os-p7-tma3 * Origin: MemoNet (2:5020/371.32@fidonet) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/347365d36b63.html, оценка из 5, голосов 10
|