Perl Class::Struct

如果用perl来实现C的数据结构struct，请使用模块Class::Struct. 以下为一简单示例： -------------------------------------------------------------------- use Data::Dumper; use Class::Struct; use IO::File; struct Test =>{     s => '$',         #定义使用scalar类型     a => '@',         #定义使用array类型     h => '%',         #定义使用hash类型     t => 'IO::File'   #定义使用其它类 }; #struct 也可以用[]来定义，效果一样 $f = IO::File->new("<d:/tmp/test.pl"); $t = Test->new(     s=>'this is just a testing',    a=>[1,2,3],    h=>{one=>'two',three=>4},    t=>$f     #这里也可以这样初始化 t=>(IO::File->new("<d:/tmp/test.pl")) ); print $t->t->getline; $x = $t->a; push @$x,'testing'; print  Dumper $t 输出结果： -------------------------------------------------------------------- $VAR1 = bless( {                  'Test::t' => bless( /*Symbol::GEN1,'IO::File' ),                 'Test::s' => 'this is just a testing',                 'Test::a' => [                                 1,                                2,                                3,                                'testing'                               ],                 'Test::h' => {                                 'three' => 4,                                'one' => 'two'                               }                },'Test' ); 上例中如果不对每个域赋值，则结果会为： $t = Test->new; print Dumper $t 输出： $VAR1 = bless( {                  'Test::s' => undef,                 'Test::a' => [],                 'Test::h' => {}                },'Test' ); struct无法定义默认初始值，可以尝试如下定义： struct Test =>{     s  => 'testing',    a => [1,    h => '%',    t => 'IO::File' }; 运行出错，可以自己尝试一下。 运用struct可以实现C中的链表，树结构，自己可以尝试一下。更详细的介绍可以参考perl自带的文档。