programming-examples/perl/String/Join the mapped value.pl

3 lines
69 B
Perl
Raw Normal View History

2019-11-15 12:59:38 +01:00
print join(", ", (map {my $value = $_; $value += 1} 1, 2, 3));