Diviser une chaîne avec plusieurs espaces blancs avec Perl?

Question

J'essaie de diviser une chaîne avec plusieurs espaces blancs. Je veux seulement diviser où il y a 2 espaces blancs ou plus. J'ai essayé plusieurs choses et je continue d'obtenir la même sortie, c'est-à-dire qu'elle se divise après chaque lettre. Voici la dernière chose que j'ai essayé

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

Answer 1

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

Answer 2

Essayez celui-ci: \b(\s{2,})\b

Cela devrait vous faire quoi que ce soit avec de multiples espaces entre les mots boundries.

Answer 3

Garder la syntaxe que vous avez utilisé dans votre exemple, je recommande ceci:

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

parce que vous correspond à tout caractère espaces (onglets, espaces, etc ...). Le problème avec votre code d'origine était que l'instruction split est à la recherche d'un motif et le regex que vous avez fourni a été traduit dans la chaîne vide //, qui divise $message en caractères individuels.

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

Vous pouvez réellement faire:

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

Il fait la même chose que "@cellMessage = split (/ {2,} /, $ message);" mais a l'air un peu plus propre à moi imo.