perl - Perl で構造体の配列を作成する

Question

use Class::Struct;

struct(TradeId => [
        tradeIdScheme => '$',
        id => '$',
]);

struct(VersionedTradeId => [
        tradeId => 'TradeId',
        version => '$',
        effectiveDate => '@',
]);

「VersionedTradeId」構造内に「TradeId」の配列を作成したいと思います。

Answer 1

これを試してください: http://www.nntp.perl.org/group/perl.beginners/2007/09/msg95440.html

Class::Struct ドキュメントの例 1 を参照してください。

例 1

構造体要素に構造体でもあるクラス型を与えることは、構造体がネストされる方法です。ここで、 Timeval は時間 (秒とマイクロ秒) を表し、Rusage には 2 つの要素があり、それぞれが Timeval 型です。

use Class::Struct;
struct( Rusage => {
ru_utime => '@', # user time used
ru_stime => 'Timeval', # system time used
});
struct( Timeval => [
tv_secs => '$', # seconds
tv_usecs => '$', # microseconds
]);
# create an object:
my $t = Rusage->new(ru_utime=>[Timeval->new(), Timeval->new(), Timeval->new()], ru_stime=>Timeval->new());
# $t->ru_utime and $t->ru_stime are objects of type Timeval.
# set $t->ru_utime to 100.0 sec and $t->ru_stime to 5.0 sec.
$t->ru_utime->tv_secs(100);
$t->ru_utime->tv_usecs(0);
$t->ru_stime->tv_secs(5);
$t->ru_stime->tv_usecs(0);