浏览 1903 次
锁定老帖子 主题:Perl数据结构学习
精华帖 (0) :: 良好帖 (0) :: 新手帖 (0) :: 隐藏帖 (0)
|
|
---|---|
作者 | 正文 |
发表时间:2009-12-11
请看代码,其中有数组,散列等。
#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; 声明:ITeye文章版权属于作者,受法律保护。没有作者书面许可不得转载。
推荐链接
|
|
返回顶楼 | |