perl中map函数简单实例

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

use warnings;
use strict;
my @str = ("hello" ,"world" ,"ni hao","I love China");
print join("\t",@str);
print "\n";
my @upper_str = map uc, @str; #Capital of the entire array of elements
print join("\t",@upper_str);
print "\n";
my @first_word = map {/(\S+)/} @str;#将一个语法规则映射到字符串数组返回每个短语的首字
print join("\t",@first_word);
print "\n";
my @words = map split , @str;#将每个短语拆分成一个个单词
print join("\t",@words);
print "\n";
# 将所有的字符串小写后将第一个单词的首字母大写
my $title = "welcome TO chIna!";
my $final_title = join '',map {ucfirst lc} split ,$title;
print "$final_title\n";
my %hash = (1=>"hello",2=>"world",3=>"ni",0=>"ceagle welcome");
foreach my $key (sort keys %hash) {
print "$key\t==>\t $hash{$key}\n";
}
my $hash;
print "###############################################\n";
print map {"$_ \t==>\t $hash{$_}\n"} sort keys %hash;
print "###############################################\n";