ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     30 Mar 2007  16:36:18
 To : Eugene Grosbein
 Subject : Re: Unquoted string
 -------------------------------------------------------------------------------- 
 

 Eugene Grosbein -> All  @ Fri, 30 Mar 2007 18:05:46 +0400:
 
  EG> Привет!
 
  EG> Кусок из чужого кода:
 
  EG>             do $iB::INFO->{'IKON_DIR'}.'Data/calendar.cgi';
  EG>             my $s = cal->new();
 
  EG> perl 5.005 ругается:
 
  EG> Unquoted string "cal" may clash with future reserved word at
  EG> Sources/Boards.pm line 218, <DATA> chunk 64.
 
  EG> Файл calendar.cgi содержит буквально следующее:
 
  EG> package cal;
  EG> sub new {
  EG>   my $pkg = shift;
  EG>   my $obj = {
  EG>     NUMBER_BIRTH       => q!!,     
  EG>     NUMBER_EVENT       => q!!,      
  EG>     TOTAL_ACTIVITY     => q!!,     
  EG>     LIST_ACTIVITY      => q!!,
  EG>     LIST_BIRTH         => q!!, 
  EG>   };  bless $obj, $pkg;
  EG>   return $obj;
  EG> }
  EG> 1;
 
  EG> Что правильно писать вместо cal->new() ?
 
 С одной стороны, правильно - иначе обозвать класс.  lowercase имена
 считаются зарезервированными.  Хотя не знаю, может и ругнуться.  Оно ж
 do, т.е. во время компиляции перлу знать неоткуда, что там такое
 определено.  Скорее всего, cal::new("cal") поможет.  Hо может, и фиг
 знает...
 
 -- 
 Artem Chuprina
 RFC2822: <ran{}ran.pp.ru> Jabber: ran@jabber.ran.pp.ru
 
 Хакинг и кракинг ульев с последующим чавкингом мёда, безусловно, является злым
 розыгрышем. Особенно с точки зрения пасечника.
   http://knjazna.livejournal.com/44647.html?thread=630375#t630375
 --- ifmail v.2.15dev5.3
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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