CGIに依存しないPerlの話題一般/Part2at PHPCGIに依存しないPerlの話題一般/Part2 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト211:209 04/05/20 14:07 >>210 jcode.pl の方ばかりを気にしていたので.pm の方をすっかり失念していました。 スレ汚しすいませんでした。 212:nobodyさん 04/05/26 11:48 3xdgk57n use strict; sub new { my $that = shift; my $class = ref($that) || $that; my $self = { a=>{A=>'A',B=>'B'}, b=>[qw/A B/] }; bless ($self, $class); return $self; } sub method { my $self = shift; my $a = $self->{'a'}; my $b = $self->{'b'}; } $a,$bをデリファレンスして利用するのではなくて 型グロブで選択的別名定義して%a,@bと実装できますか？ できるのでしたらどのように実装するのでしょうか？ 213:nobodyさん 04/05/26 17:14 sub method{ my $self = shift; our(%a, @b); # or use vars pragma local *a = $self->{a}; local *b = $self->{b}; $a{foo} = 1; push @b, 'foo'; } またはAlias.pmとかな。 http://search.cpan.org/~gsar/Alias-2.32/Alias.pm どっちにしてもあまりメリットは感じないが。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch