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,2,3],
    h => '%',
    t => 'IO::File'
};

运行出错，可以自己尝试一下。

运用struct可以实现C中的链表，树结构，自己可以尝试一下。更详细的介绍可以参考perl自带的文档。