ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Renat Araslanow                      2:5011/119.1   19 Jan 2003  19:42:03
 To : All
 Subject : tiehash
 -------------------------------------------------------------------------------- 
 

 
 хм. интересное и не освещённое (в perltie) поведение tiehash класса при создании
 ссылки на ключ хеша. у кого какие мысли?
 
 package zzz;
 
 use strict;
 use Data::Dumper;
 sub TIEHASH
 {
     print "tiehash ".__PACKAGE__.": ",Dumper(\@_);
     my $class = shift;
     return bless {zz=>'mok',zz2=>'nok2'}, $class
 }
 
 sub FETCH
 {
     print "fetch ".__PACKAGE__.":",Dumper(\@_),"\n";
     my ($self, $key) = @_;
     return $self->{$key.'z'};
 }
 
 sub STORE
 {
     print "store ".__PACKAGE__.":",Dumper(\@_);
     my ($self, $key, $val) = @_;
     $self->{$key.'z'} = $val;
 }
 
 sub DESTROY
 {
     print "we going to destroyed. ",Dumper(\@_);
 }
 
 1;
 
 package main;
 my %z;
 
 tie %z, 'zzz' or die "can't tie";
 
 my $z=\$z{z};
 
 print $z{z},"\t", $$z,"\t",$z,"\n";
 $z{z}="mokok!";
 print "===",$z{z},"\t",$$z,"\t",$z,"\n";
 --- [Преждевременная оптимизация -- корень всех зол Д. Кнут]
  * Origin: Чайник с программным управлениемЪ (2:5011/119.1)
 
 

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

Тема:    Автор:    Дата:    tiehash   Renat Araslanow   19 Jan 2003 19:42:03   Re: tiehash   Konstantin Stupnik   21 Jan 2003 08:41:32   tiehash   Renat Araslanow   21 Jan 2003 14:59:47   tiehash   Renat Araslanow   21 Jan 2003 16:03:41   Re: tiehash   Konstantin Stupnik   22 Jan 2003 11:44:57   Re: tiehash   Andrey Sapozhnikov   22 Jan 2003 23:23:08