Re: Deleting intermediate whitespaces, but leaving one behind each word

[Athanasius]

Hello Feneden, and welcome to the Monastery!

No need for the join, just replace each occurrence of one or more whitespace characters with a single character:

16:30 >perl -wE "my $s = 'Intel(R) Xeon(R) CPU          X5660  2.80GHz
+ '; $s =~ s/(\s)+/$1/g; say qq[>$s<];"
>Intel(R) Xeon(R) CPU X5660 2.80GHz <

16:33 >

Update: Looking again at the thread title, it appears you may also want to remove trailing whitespace at the end of the string:

use strict;
use warnings;

my $s = 'Intel(R) Xeon(R) CPU          X5660  2.80GHz ';
   $s =~ s{ (\s)+  }{$1}gx;
   $s =~ s{  \s+ $ }{}x;

print "\n>$s<\n";

Output:

17:26 >perl 1843_SoPW.pl

>Intel(R) Xeon(R) CPU X5660 2.80GHz<

17:26 >

Hope that helps,

[Feneden]

Hello Athanasius, iŽll try this later in my script. For now it seems like a great way. Also for me, as a Perl beginner, i was not too far away from the solution :) This is my first month in scripting, before i only had 2 month of experience in Java. All in all great "costumer" feeling here - Great experience using this forum. I appreciate your help :) See you soon :D

[nysus]

Perlmonks is the best. So many helpful people. Welcome!