37,721
社区成员
发帖
与我相关
我的任务
分享
use strict;
use List::MoreUtils qw( pairwise );
my @x = qw /a b c d e/;
my @y = qw /1 2 3 4/;
my @z = pairwise { $a . $b } @x, @y;
printf "%s\n", join ", ", @z;
@ar1 = qw/a b c/;
@ar2 = qw/1 2 3/;
@ar3 = map{$ar1[$_].$ar2[$_]} 0..$#ar1;
#!/usr/bin/perl
@s1 = ("Hello", " ", "World");
@s2 = ("!", "!");
@s3 = (@s1, @s2);
print @s3;
print "\n";
foreach(@s3) {
print $_;
}
>>> x = ["a", "b", "c"]
>>> y = ["1", "2", "c"]
>>> map(lambda a, b: a+b, x, y)
['a1', 'b2', 'cc']
>>> ["".join(x) for x in zip(["a","b","c"], ["1","2","3"])]