ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Bolotnov                   2:5052/4.82    03 Jun 2001  12:26:29
 To : All
 Subject : 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, то все выводится, то
 есть циферка прибавляется, а если в самой проге - то нет... где надо чинить?
 
 Alexander Bolotnov.
 Pedigree mole.
 
 ---
  * Origin: Я вернулся... (2:5052/4.82)
 
 

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

Тема:    Автор:    Дата:    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