perl的map函数
2013-03-24 19:28
239 查看
perl的map函数的使用:
语法
map EXPR, LIST
map BLOCK LIST
定义和使用
对list中的每个元素执行EXPR或BLOCK,返回新的list。对每一此迭代,$_中保存了当前迭代的元素的值。
返回值
如果返回值存储在scalar标量中,则代表map()返回数组的元素个数;
如果返回值存储在list中,则代表map()函数的数组;
实例1 (将单词首字母大写)
#!/usr/bin/perl -w
@myNames = ('jacob', 'alexander', 'ethan', 'andrew');
@ucNames = map(ucfirst, @myNames);
$numofucNames = map(ucfirst, @myNames);
foreach $key ( @ucNames ){
print "$key\n";
}
print $numofucNames;
结果为
Jacob
Alexander
Ethan
Andrew
4
实例2 (获得所有的书名中包含的单词,且转化为大写)
my@books = ('Prideand Prejudice','Emma', 'Masfield Park','Senseand Sensibility','Nothanger Abbey',
'Persuasion', 'Lady Susan','Sanditon','The Watsons');
my@words = map{split(/\s+/,$_)}@books;
my@uppercases = map uc,@words;
foreach $upword ( @uppercases ){
print "$upword\n";
}
结果为 (Perl map函数的输入数组和输出数组不一定等长,在split起过作用之后,当然@words的长度要比@books长了。)
PRIDEAND
PREJUDICE
EMMA
MASFIELD
PARK
SENSEAND
SENSIBILITY
NOTHANGER
ABBEY
PERSUASION
LADY
SUSAN
SANDITON
THE
WATSONS
实例3 (将多余2位的数字提取到新的list)
#!/usr/bin/perl -w
my @buildnums = ('R010','T230','W11','F56','dd1');
my @nums = map{/(\d{2,})/} @buildnums;
foreach $num (@nums){
print "$num \n"
}
$a = 'RRR3ttt';
@yy = $a=~/RRR.*ttt/;
$numofyy = $a=~/RRR.*ttt/;
print "@yy\n";
print "$numofyy\n" ;
@yy2 = $a=~/(RRR).*(ttt)/;
$numofyy2 = $a=~/(RRR).*(ttt)/;
print "@yy2\n";
print "$numofyy2\n";
print "$1 $2";
结果为 (正则表达式匹配后返回的为数组或长度,取决于表达式中是否有()或者接收的变量类型)
010
230
11
56
1
1
RRR ttt
1
RRR ttt
完!
语法
map EXPR, LIST
map BLOCK LIST
定义和使用
对list中的每个元素执行EXPR或BLOCK,返回新的list。对每一此迭代,$_中保存了当前迭代的元素的值。
返回值
如果返回值存储在scalar标量中,则代表map()返回数组的元素个数;
如果返回值存储在list中,则代表map()函数的数组;
实例1 (将单词首字母大写)
#!/usr/bin/perl -w
@myNames = ('jacob', 'alexander', 'ethan', 'andrew');
@ucNames = map(ucfirst, @myNames);
$numofucNames = map(ucfirst, @myNames);
foreach $key ( @ucNames ){
print "$key\n";
}
print $numofucNames;
结果为
Jacob
Alexander
Ethan
Andrew
4
实例2 (获得所有的书名中包含的单词,且转化为大写)
my@books = ('Prideand Prejudice','Emma', 'Masfield Park','Senseand Sensibility','Nothanger Abbey',
'Persuasion', 'Lady Susan','Sanditon','The Watsons');
my@words = map{split(/\s+/,$_)}@books;
my@uppercases = map uc,@words;
foreach $upword ( @uppercases ){
print "$upword\n";
}
结果为 (Perl map函数的输入数组和输出数组不一定等长,在split起过作用之后,当然@words的长度要比@books长了。)
PRIDEAND
PREJUDICE
EMMA
MASFIELD
PARK
SENSEAND
SENSIBILITY
NOTHANGER
ABBEY
PERSUASION
LADY
SUSAN
SANDITON
THE
WATSONS
实例3 (将多余2位的数字提取到新的list)
#!/usr/bin/perl -w
my @buildnums = ('R010','T230','W11','F56','dd1');
my @nums = map{/(\d{2,})/} @buildnums;
foreach $num (@nums){
print "$num \n"
}
$a = 'RRR3ttt';
@yy = $a=~/RRR.*ttt/;
$numofyy = $a=~/RRR.*ttt/;
print "@yy\n";
print "$numofyy\n" ;
@yy2 = $a=~/(RRR).*(ttt)/;
$numofyy2 = $a=~/(RRR).*(ttt)/;
print "@yy2\n";
print "$numofyy2\n";
print "$1 $2";
结果为 (正则表达式匹配后返回的为数组或长度,取决于表达式中是否有()或者接收的变量类型)
010
230
11
56
1
1
RRR ttt
1
RRR ttt
完!
相关文章推荐
- perl的map函数
- perl map函数学习
- Perl map()函数
- perl中grep,sort,map用法总结
- PHP生成sitemap.xml地图函数
- Python中的map()函数和reduce()函数的用法
- 【语言工具】Python闭包,装饰器,生成器,偏函数,函数式编程,lamda,map,reduce,filter
- map的基本操作函数及含义
- python 的 map 函数 和 lambda函数
- perl常用函数积累
- jQuery.map(arr|obj,callback) 的map函数用法(十四)
- 使用unordered_map和函数指针实现类私有函数的调用
- array_map() 函数
- python:map函数练习
- python中map()函数和reduce()函数的使用
- Perl字符串处理函数大全
- python常用函数(zip,map,filter,reduce)
- perl中pack函数的实例
- PHP中与Perl兼容的正则表达式处理函数
- perl的时间函数