joining string content

joyfedl has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: joining string content by Corion (Patriarch) on Jun 24, 2025 at 08:59 UTC
Given your code, that's impossible. `my $string = (+book +dog +cat);` [download] Given your code, Perl sees: `my $string = 'book' + 'dog' + 'cat';` [download] ... which makes Perl calculate the sum of `book`, `dog` and `cat`, which is zero, because (non-number-looking) strings evaluate to 0 in Perl. Can you show us a complete, runnable example of the code and data you have that replicates your problem? I think you want something like Text::CSV_XS, if your goal is to produce a CSV file, for example for Excel.	[reply] [d/l] [select]
Re^2: joining string content by joyfedl (Acolyte) on Jun 24, 2025 at 09:04 UTC
is this not also possible `$string = $q->param("us1"); # this is what entered +book +dog +cat print join(',', $string), "\n";` [download] `# Output "+book", "+dog", "+cat"` [download]	[reply] [d/l] [select]
Re^3: joining string content by Corion (Patriarch) on Jun 24, 2025 at 09:22 UTC
Maybe the core of your problem is that you have a string like this: `my $string = '+book +dog +cat';` [download] ... and you want to transform it into `"+book", "+dog", "+cat"` [download] Then, the following code could do that: `my $string = '+book +dog +cat'; my @raw_params = split /\s+/, $string; my @quoted_params = map { qq{"$_"} } @raw_params; my $quoted_params_string = join ", ", @quoted_params; print $quoted_params_string;` [download] Update: johngg++ spotted an error that resulted in pluses being added unnecessarily.	[reply] [d/l] [select]
Re^4: joining string content by joyfedl (Acolyte) on Jun 24, 2025 at 12:53 UTC
Re^5: joining string content by Corion (Patriarch) on Jun 24, 2025 at 13:10 UTC
Some notes below your chosen depth have not been shown here
Re^5: joining string content by tybalt89 (Monsignor) on Jun 24, 2025 at 15:09 UTC
Some notes below your chosen depth have not been shown here
Re: joining string content by johngg (Canon) on Jun 24, 2025 at 09:55 UTC
No intermediate array here. `johngg@aleatico:~$ perl -Mstrict -Mwarnings -E 'say q{}; my $str = q{+book +dog +cat}; say join q{, }, map { q{"} . $_ . q{"} } split m{\s+}, $str;' "+book", "+dog", "+cat"` [download] I hope this is helpful. Cheers, JohnGG	[reply] [d/l]
Re: joining string content by choroba (Cardinal) on Jun 24, 2025 at 11:08 UTC
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]`	[reply] [d/l] [select]
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]
Re: joining string content by hippo (Archbishop) on Jun 24, 2025 at 09:40 UTC
i dont want to use array Why not? An array seems like precisely the right thing to use here. Update: Is this an XY Problem? What are you actually trying to do in the bigger picture? 🦛	[reply]