if($#values){

                 for(0..$#values){

                        # переводим символы из %XX-формата

                        # в нормальный вид

                        $values[$_]=uri_unescape ($values[$_]);

                 }

                 $$h{$name}=[@values];

           }else{

                 $vals = uri_unescape($vals);

                 $$h{$name}=$vals;                

           }

    }

    close(DB);

    # записываем в  глобальный хеш ассоциацию ссылки на хеш

    # с открытым файлом

    $g{$h}=$file;

}

sub сlosedb{

    my($h)=@_;

    my($key,$val,$fn);

    # по имени хеша получаем имя файла

    $fn = $g{$h};

    local(*DB);

    # выходим из функции, если файла не существует

    return if !(-e $fn);

    open(DB,">$fn") or return 0;

    # замыкаем файл

    # (монопольная блокировка – для записи)

    flock(DB,2);

    while(($key,$val) = each %$h){

           # обратно создаем формат, переводя небезопасные

           # символы в формат %XX

           print DB uri_escape($key)."|";

           if(ref $val){

                 for(0..$#$val){

                        $$val[$_]=uri_escape($$val[$_]);

                 }

                 print DB join "#",@$val;

           }else{

                 $val=uri_escape($val);

                 print DB $val;

           }

           print DB " ";