Re: joining string content

A regex substitution can do that, but its readability is not high:

my $str = '+book +dog +cat';
print '"', $str =~ s/ /", "/gr, '"';
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re: joining string content Select or Download Code

Replies are listed 'Best First'.
Re^2: joining string content by GrandFather (Saint) on Jun 24, 2025 at 21:26 UTC
Given OP's code, as an important criteria, readability is not high! Optimising for fewest key strokes only makes sense transmitting to Pluto or beyond	[reply]
Re^2: joining string content by Anonymous Monk on Jun 24, 2025 at 13:13 UTC
That's at least as readable as Re: joining string content, though I'd go with that with fewer curlies: `print join ', ', map qq/"$_"/, split ' ', $str;` [download]	[reply] [d/l]