ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : PROext                               2:5020/400     04 Jun 2001  09:36:33
 To : All
 Subject : Re: require...
 -------------------------------------------------------------------------------- 
 

 > что-то я точно делаю не так. у меня такая штука:
 >
 > require errors.pm;
 >
 > my $er = 0;
 > error("no name") if (!$name);
 > print $er;
 >
 > ---errors.pm----
 > sub error(){
 > my ($mes) = (@_);
 > print $mes;
 > $er++;
 > }
 >
 >
 > самое интересное, что если print $er делать из errors.pm, то все
 
 выводится, то
 
 > есть циферка прибавляется, а если в самой проге - то нет... где надо
 
 чинить?
 
 Hужно переменную объявлять в модуле, а потом ее экспортировать в тело
 программы.
 --
 - ---
        Best regards,    InSAn
 
     http://www.PROext.com
 --- ifmail v.2.15dev5
  * Origin: MTU-Intel ISP (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    require...   Alexander Bolotnov   03 Jun 2001 12:26:29   Re: require...   PROext   04 Jun 2001 09:36:33   Re: require...   Artem Chuprina   04 Jun 2001 13:03:59