ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Babanov                    2:5020/5609.69 08 Jul 2001  22:25:53
 To : All
 Subject : overload
 -------------------------------------------------------------------------------- 
 

 
 Решил руками потрогать, вдруг когда пригодится:
 
 >>>>>>>
 
 use strict;
 
 package vector;
 use overload
    'fallback' => 1,
    '/' => sub { bless [ map { $_ / $_[1] } @{$_[0]} ] };
 
 package CORE;
 
 $, = ',';
 my $z = [ 1, 2, 3 ];
 bless $z, "vector";
 print @{$z/2};
 
 >>>>>>>
 
 Лично меня позабавило что вектор унаследовал поведение обычного массива =$)
 
 CYa!!!
 
 ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ   ЪДДДД 2:5020/5609.69 ДДДї
 іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER   і babanov@earthlink.net і
 ... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
 ---
  * Origin: Our governor can beat up your governor! (2:5020/5609.69)
 
 

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