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自带的文档。