Help for this page

Select Code to Download


  1. or download this
    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 >
  2. or download this
    use strict;
use warnings;
...
   $s =~ s{  \s+ $ }{}x;

print "\n>$s<\n";
  3. or download this
    17:26 >perl 1843_SoPW.pl

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

17:26 >