Perl数据结构学习

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

 

#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;