Chinaunix首页 | 论坛 | 博客

珠一

首页　| 　博文目录　| 　关于我

caojiangfeng

  • 博客访问： 1272746
  • 博文数量： 213
  • 博客积分： 7590
  • 博客等级： 少将
  • 技术积分： 2185
  • 用 户 组： 普通用户
  • 注册时间： 2008-08-31 17:31
个人简介

热爱开源，热爱linux

文章分类

全部博文（213）

文章存档

2018年（4）

2017年（1）

2015年（1）

2014年（5）

2013年（2）

2012年（2）

2011年（21）

2010年（82）

2009年（72）

2008年（23）

我的朋友
最近访客
推荐博文
相关博文
perl中map函数简单实例

分类： Python/Ruby

2011-04-20 15:58:43

  1. #!/usr/local/perl
  2. # Author :ceagle
  3. # Date:2011-04-20
  4. # Desc:The script is just test map function in perl
  5. # Version 0.1

  7. use warnings;
  8. use strict;
  9. my @str = ("hello" ,"world" ,"ni hao","I love China");
  10. print join("\t",@str);
  11. print "\n";
  12. my @upper_str = map uc, @str; #Capital of the entire array of elements
  13. print join("\t",@upper_str);
  14. print "\n";
  15. my @first_word = map {/(\S+)/} @str;#将一个语法规则映射到字符串数组返回每个短语的首字
  16. print join("\t",@first_word);
  17. print "\n";
  18. my @words = map split , @str;#将每个短语拆分成一个个单词
  19. print join("\t",@words);
  20. print "\n";
  21. # 将所有的字符串小写后将第一个单词的首字母大写
  22. my $title = "welcome TO chIna!";
  23. my $final_title = join '',map {ucfirst lc} split ,$title;
  24. print "$final_title\n";
  25. my %hash = (1=>"hello",2=>"world",3=>"ni",0=>"ceagle welcome");
  26. foreach my $key (sort keys %hash) {
  27. print "$key\t==>\t $hash{$key}\n";
  28. }
  29. my $hash;
  30. print "###############################################\n";
  31. print map {"$_ \t==>\t $hash{$_}\n"} sort keys %hash;
  32. print "###############################################\n";
阅读(1740) | 评论(2) | 转发(0) |
0

上一篇：无限循环的目录

下一篇：ubuntu下mysql的配置

给主人留下些什么吧！~~

caojiangfeng2011-07-30 22:07:29

cinanine: 握手握手.....

回复 | 举报

cinanine2011-07-24 15:43:22

握手握手

回复 | 举报
关于我们 | 关于IT168 | 联系方式 | 广告合作 | 法律声明 | 免费注册

Copyright 2001-2010 ChinaUnix.net All Rights Reserved 北京皓辰网域网络信息技术有限公司. 版权所有

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6