http://blog.livedoor.jp/dankogai/archives/50116398.html メモメモ。..._〆(ﾟ▽ﾟ*)http://www.melma.com/backnumber_14785_1152995/ http://www.melma.com/backnumber_14785_1152996/メモメモ..._〆(ﾟ▽ﾟ*) (追記)http://bulknews.net/lib/mailmag/23/mag.tx…

CLASS Class::Accessor Class::Fieldsを使います。以下例、MyClass.pm package MyClass; use strict; use warnings; use base qw(Class::Accessor Class::Fields); use CLASS; use fields qw( name job _mail ); CLASS->mk_accessors(CLASS->show_fields('Pu…