16 lines
277 B
Perl
16 lines
277 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
sub wrapjoin ($$$@) {
|
||
|
|
my ($join, $left, $right, @strings) = @_;
|
||
|
|
foreach (@strings) {
|
||
|
|
$_ = $left. $_. $right;
|
||
|
|
}
|
||
|
|
return join $join, @strings;
|
||
|
|
}
|
||
|
|
|
||
|
|
print wrapjoin("\n", "[","]", "One", "Two", "Three");
|
||
|
|
|
||
|
|
|
||
|
|
|