Dividir una cadena con múltiples espacios en blanco con perl?

Question

Estoy tratando de dividir una cadena con múltiples espacios en blanco. Solo quiero dividir donde hay 2 o más espacios en blanco. He intentado varias cosas y sigo obteniendo el mismo resultado, ya que se divide después de cada letra. Aquí es la última cosa que probé

@cellMessage = split(s/ {2,}//g, $message); 
       foreach(@cellMessage){ 
        print "$_ \n"; 
       } 

Answer 1

@cellMessage = split(/ {2,}/, $message); 

Answer 2

prueba este: \b(\s{2,})\b

Eso debe conseguirle cualquier cosa con múltiples espacios entre limites de palabras.

Answer 3

Mantener la sintaxis que utilizó en su ejemplo Recomendaría este:

@cellMessage = split(/\s{2,}/, $message); 
       foreach(@cellMessage){ 
        print "$_ \n"; 
       } 

ya que tendrá que coincida con cualquier carácter de espacio en blanco (tabulaciones, espacios, etc ...). El problema con el código original era que la instrucción split está buscando un patrón y la expresión regular que proporcionó estaba dando como resultado la cadena vacía //, que divide $message en caracteres individuales.

Answer 4

use strict; 
use warnings; 
use Data::Dumper; 

#     1 22  333 
my $message = 'this that other 555'; 
my @cellMessage = split /\s{2,}/, $message; 
print Dumper(\@cellMessage); 

__END__ 

$VAR1 = [ 
      'this that', 
      'other', 
      '555' 
     ]; 

Answer 5

en realidad se puede hacer:

@cellMessage = split (/ \ s + /, $ mensaje);

Hace lo mismo que "@cellMessage = split (/ {2,} /, $ message);" pero parece un poco más limpio para mí imo.