|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Anatoly Fanrus 2:5020/400 09 Jun 2000 11:49:47 To : All Subject : Как оптимизировать след код --------------------------------------------------------------------------------
Привет,
open FH, "<currency_code";
while (<FH>) {
chop;
($value, $label)=split /;/;
$labels{$value}=$label;
}
@values=keys %labels;
close FH;
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/231785c43758b.html, оценка из 5, голосов 10
|