ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     18 Jul 2002  13:44:31
 To : Alexander Lunkov
 Subject : Re: процедуры
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Alexander Lunkov.
 
 AL>             Hello, *All!*
 AL>     Странное что-то творится. То ли я руки погнул, то ли perl глючит. Есть,
 AL> значит, скрипт с такими строчками:
 
 AL> require 'proc.cgi';
 
 AL> my %uinfo = get_user_info($userid);
 AL> while ((my $key, my $value) = each(%uinfo)){print "$key => $value<br>"}
 
 AL>     В proc.cgi есть подпрограмма:
 
 AL> sub get_user_info{
 AL>     my $userid = shift @_;
 AL>     my $file = glob("$path/$userid.*");
 AL>     my (%user_info, $key, $value);
 AL>     if (-e "$file"){
 AL>         open FH, "<$file";
 AL>         my @tmp = <FH>;
 AL>         close FH;
 AL>         for my $i(0..$#tmp){
 AL>             ($key, $value) = split(/ => /,$tmp[$i]);
 AL>             chomp $value;
 AL>             $user_info{$key} = $value;
 AL>         }
 AL>     }
 AL>     return %user_info;
 AL> }
 
 AL>     В браузер результат не выводится. Хэш %uinfo не заполняется. Hо если
 AL> руками запускать скрипт с теми тремя строчками, то результат выводится
 AL> (консоль). В том же скрипте (proc.cgi) есть процедура, которая юзает
 AL> get_user_info и она работает:
 
 AL> sub get_user_pass{
 AL>     my $userid = shift @_;
 AL>     my %user_info = get_user_info $userid;
 AL>     return $user_info{pass1}
 AL> }
 
 AL>     Что выпрямить?
 
 Руки :) Заголовок кто за тебя отдавать будет?
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    процедуры   Alexander Lunkov   17 Jul 2002 19:27:19   Re: процедуры   Artem Chuprina   18 Jul 2002 13:44:31   процедуры   Alexander Lunkov   19 Jul 2002 12:38:38