Chinaunix首页 | 论坛 | 博客
  • 博客访问: 54115
  • 博文数量: 13
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 150
  • 用 户 组: 普通用户
  • 注册时间: 2014-03-12 22:36
文章分类

全部博文(13)

文章存档

2014年(13)

我的朋友

分类: PERL

2014-09-17 21:30:23

my @AOA=([1,2,3],[4,5,6],[7,8,9]);
my @tmp=map{$AOA[$_][0]} (0..$#AOA);


print join("\n",@tmp),"\n";
阅读(1725) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~