[plamo:17961] Re: perl

[早間義博]

早間です。

最小の修正（？）だと
undef *pointer;
を入れることのようです。特に
> > use vars qw($pointer);
が無くても働きます。 --> やはり use .. を入れるのが良いのでしょうか

> > 
> >     my $keyword = {
> >         phone   => {pointer=> \$number, proc=>1,} ,
> >         addr   => {pointer=> \$address, proc=>1,} ,
> >     };
> > 

この形（*number −−＞ \$number）に変更すれば

use vars qw($pointer);

undef *pointer;

どちらも入れずに働きます。

おまじないのない \$address の形にするのが判りやすいように思います。

-- 早間  yossi@yedo.src.co.jp