ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrew Alakozow                      2:5061/6       01 Dec 2003  16:34:04
 To : Stanislav Yadykin
 Subject : Re: Хочется странного: константа|объект
 -------------------------------------------------------------------------------- 
 

 SY> Хочется странного, т.е. использование одной переменной как константы и
 SY> как объекта.
 
 perldoc overload и рецепт 13.14 в Perl Cookbook
 
 use strict;
 
 my $a = Foo->new(18);
 
 print $a;
 print $a->as_hex;
 
 package Foo;
 use overload ( '""' => \&stringify );
 
 sub new       { bless \$_[1]; }
 sub stringify { sprintf ("dec %d\n", ${$_[0]}) }
 sub as_hex    { sprintf ("hex %x\n", ${$_[0]}) }
 
 aa29
 --- Microsoft Outlook Express 6.00.2720.3000
  * Origin: Life In The Dark (2:5061/6)
 
 

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

Тема:    Автор:    Дата:    Хочется странного: константа|объект   Stanislav Yadykin   01 Dec 2003 10:38:50   Re: Хочется странного: константа|объект   Sergey Leschenko   01 Dec 2003 12:37:11   Re: Хочется странного: константа|объект   Andrew Alakozow   01 Dec 2003 16:34:04