|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Ilya Rubtsov 2:5020/400 09 Jun 2000 21:21:35 To : All Subject : Re: Как оптимизировать след код -------------------------------------------------------------------------------- On 9 Jun 2000 11:49:47 +0400, "Anatoly Fanrus" <fanrus@mail.ru> wrote: use strict; my $value; my (@values); open (FH, "<currency_code") or die $!; while (<FH>) { chomp; ($value)=split (/;/, $_, 2); push(@values, $value); } close FH; P.S. Интересует мнение Артема на мои поправки :) Просто я на сайте готовлю раздел о "правильном программировании". --- ifmail v.2.15dev5 * Origin: Demos online service (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/2080a1b18e9d.html, оценка из 5, голосов 10
|