|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Ilya Rubtsov 2:5020/400 14 Jun 2000 21:28:06 To : All Subject : Re: Как оптимизировать след код -------------------------------------------------------------------------------- On Wed, 14 Jun 2000 16:34:44 +0400, Artem Chuprina <Artem.Chuprina@p32.f371.n5020.z2.fidonet.org> wrote: >On Fri, 09 Jun 00 10:49:47 +0400 fanrus@mail.ru wrote: > >fmr> open FH, "<currency_code"; >fmr> while (<FH>) { >fmr> chop; >fmr> ($value, $label)=split /;/; >fmr> $labels{$value}=$label; >fmr> } >fmr> @values=keys %labels; >fmr> close FH; >А куда его надо соптимизировать? chop на chomp поменять надоть. Т.к. если строка в файле последняя, то \n на конце не будет. Тады chop отрежет не то, что надо, а это жестоко :-\ --- ifmail v.2.15dev5 * Origin: Demos online service (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/208053f15b14.html, оценка из 5, голосов 10
|