gyn

Win32下的Perl,无用的select,停滞的Tk,结束吧....

perl编程:一个简单的链表

sub sinode{
 my %node=(val=>undef, ref=>undef);
 if(@_>1){
  $node{val}=shift();
  $node{ref}=shift();
  }
 else{
  if(@_=1){
   $node{val}=shift();
   }
  }
 return \%node;
}

$temp=undef;

foreach (qw(5 4 3 2 1)){
 $node=sinode($_, $temp);
 $temp=$node;
}

do{
 printf("$node->{val}\n");
 $node=$node->{ref};
}until($node eq undef)

r_simple_string.jpg
 

posted on 2006-04-29 13:51 gyn_tadao 阅读(219) 评论(0)  编辑 收藏 引用 所属分类: perl

只有注册用户登录后才能发表评论。
<2006年4月>
2627282930311
2345678
9101112131415
16171819202122
23242526272829
30123456

导航

统计

常用链接

留言簿(14)

随笔分类(126)

随笔档案(108)

相册

搜索

最新评论

阅读排行榜

评论排行榜