ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Pavel V. Ammosov                     2:5020/52      09 May 2001  02:29:32
 To : All
 Subject : Re: Хеш
 -------------------------------------------------------------------------------- 
 

 
 >Уже два часа бьюсь над куском сл. кода... Может кто подскажет что не так?
 > $zap = scalar(@keys);
 > $zap1 = 0;
 > while ($zap1 != $zap) {
 >  $serg = $keys[zap1];
 >  $serg1 = $default{"d"."$serg"};
 >  $options{$serg} = "$serg1";
 >  $zap1 = $zap1+1;
 > }
 > &page("$options{$serg}","d");
 
 >Вкратце обьясню есть МАССИВ @KEYS в котором содержаться отдельные
 >слова-ключи. Есть хеш %default полученный в результате открытия базы данных
 >(обычного .db файла). Hужно заполнить хеш %options путем подстановки
 >соответствующих параметров из хеша %default + буква "d"......
 
 Твой код кошмарен, а пояснение совершенно не понятно.
 
 Если тебе надо просто скопировать один %default в %options с подстановкой
 (куда?) буквы "d", то это может быть сделано как-то так:
 
 while (($key,$value) = each(%default)) {
   %options{"d".$key} = $default{$key};
 }
 
 При чем тут массив @KEYS или (@keys?) -- тоже непонятно.
 
 -- 
 Pavel Ammosov                                               O    \
 apavel@aha.ru                                                 __  )
 http://isabase.philol.msu.ru/~apavel/                             )
 wget -O - isabase.philol.msu.ru/~apavel/key.asc|pgp -fka    O    /
 --- slrn/0.9.6.3 (Linux)
  * Origin: Zenon N.S.P. news server (2:5020/52.0)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор