CGIに依存しないPerlの話題一般/Part2 (258ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

212: 04/05/26 11:48 ID:3xdgk57n(1) AAS
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と実装できますか？
できるのでしたらどのように実装するのでしょうか？

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.016s