Zmienna dzielona na białej przestrzeni

Question

Próbuję podzielić ciąg znaków na tablicę z podziałem występującym w białych przestrzeniach. Każdy blok tekstu jest oddzielony licznymi (zmiennymi) spacjami.

Oto ciąg:

NUM8   host01 1,099,849,993 1,099,849,992    1 

Próbowałem następujących bez powodzenia.

my @array1 = split//, $VAR1; 

my @array1 = split/+/, $VAR1; 

my @array1 = split /\s/, $VAR1; 

my @array1 = split /\s+/, $VAR1; 

Chciałbym skończyć z:

$array1[0] = NUM8 
$array1[1] = host01 
$array1[2] = 1,099,849,993 
$array1[3] = 1,099,849,992 
$array1[4] = 1 

Jaki jest najlepszy sposób, aby podzielić to?

Dzięki!

Answer 1

Jeśli pierwszym argumentem dla split jest ciąg "" (spacja), jest on specjalny. Należy dopasować odstępy o dowolnej wielkości:

my @array1 = split ' ', $VAR1; 

(BTW, to jest prawie równoznaczne z ostatniej opcji, ale także usuwa wszelkie wiodącą spacje).

Answer 2

Wystarczy spróbować użyć:

my @array1 = split(' ',$VAR1); 

Codepad Demo

Od Perldoc:

Jako inny specjalny przypadek, split emuluje domyślne zachowanie narzędzia awk awk, gdy pominięto WZORZEC lub literał ciąg złożony z pojedynczego znaku spacji (takiego jak "lub" \ x20 ", , ale nie np//). W tym przypadku, każdy prowadzący spacje w wyrażenie jest usunięte przed łupania wystąpić

Answer 3

\s+ mecze 1 lub więcej spacje i podział na nich

my @array1 = split /\s+/, $VAR1;