perl map 和grep使用
发布时间:2020-12-15 21:05:16 所属栏目:大数据 来源:网络整理
导读:1.代码为: my @Array = (1,2,3,4); my @NewGrep = grep {$_*=2 if($_%2==1);} @Array; print "@Array n"; print "@NewGrep n"; my @NewMap = map {$_*=2 if($_%4==0);$_;} @Array; print "@Array n"; print "@NewMap n"; my @NewMap2 = map {$_*=2,$_,3
1.代码为: my @Array = (1,2,3,4); my @NewGrep = grep {$_*=2 if($_%2==1);} @Array;print "@Array n"; print "@NewGrep n"; my @NewMap = map {$_*=2 if($_%4==0);$_;} @Array; print "@Array n"; print "@NewMap n"; my @NewMap2 = map {$_*=2,$_,3*$_} @Array; print "@Array n"; print "@NewMap2 n"; ? 结果为: C:UsersbruceDesktop>perl make2.pl ?2. map 返回多个结果? #!perl -w __END__ 结果为: 1 11 101 2 12 102 3 13 103 ? 注意 1. $_是数组中的引用,类似foreach中的$_一样; 2. 还有一种用法: my @Result2 = grep? $_=length($_),@HomeName; ??? grep EXPR,@Array ??? map EXPR,@Array (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |