Perl数据结构学习

52037317

　　请看代码，其中有数组，散列等。
　　


#use strict;#此句话说明此文件中的变量必须使用my表示为本地变量
sub testDataStruct(){
print "===================变量测试=======================\n";
#变量的定义
my $a="aaa";
print "变量a的值是：".$a."\n";
print "\n\n\n";
print "====================数组测试======================\n";
#数组定义
my @attr = ("test1","test2");
print "输出数组：".@attr."\n";
print "使用foreach输出数组：\n";
foreach my $item (@attr){
print "value is : ".$item."\n";
}
print "使用for循环输出数组:\n";
for(my $i=0;  $i< @attr; $i++){
print "索引：".$i."  值".@attr->[$i]."\n";
}
print "使用更简单的方法访问数组：\n";
for my $item (0...@attr-1){
print "value is : ".@attr->[$item]."\n";
}
#取消掉use strict，打印数组的情况
my @array = ("red", "yellow", "green");
print "I have ",  @array, " marbles.\n";
print "I have @array marbles.\n";

print "\n\n\n";
#$HASH{$KEY} = $VALUE;  散列测试
print "=================散列测试=========================\n";
my %hs = (
a=>"testa",
b=>"testb"
);
print $hs{a};
print "=================函数散列测试======================\n";
my %fn = (
exit=>sub{
print "exit!!!\n"
},
main=>sub{
print "main!!!\n";
}
);
$fn{exit}->();
$fn{main}->();
}
&testDataStruct;