В Perl, как я могу получить поля в этой строке CSV в массив без пробелов?

Question

, если у меня есть строка, сказать:

my $string = "A, B,C, D , E "; 

Как я могу поместить это в массив в Perl без ведущих и конечных пробелов? Так что я хочу только одну букву в каждом элементе массива. В настоящее время я занимаюсь этим:

my @groups = split /,\s*/, $string; 

Но этого, очевидно, недостаточно, поскольку конечные пробелы все еще существуют. Любая помощь оценивается. Большое спасибо !!

Answer 1

Затем разделите передние/конечные пробелы перед разбиением и сопоставьте ведущие/конечные пробелы в разделительном выражении.

my $string = " A, B,C, D , E "; 
$string =~ s/^\s+//; 
$string =~ s/\s+$//; 
my @groups = split /\s*,\s*/, $string; 

Использование модуля как Text::CSV, вероятно, лучше, чем пытаться сделать свой собственный CSV синтаксический, хотя.

Answer 2

Здесь вы идете:

@groups = split /,/, $string; 
#remove whitespace now. 
@groups = map { s/^\s+//; s/\s+$//; $_ } @groups; 

Примечание: регулярное выражение может быть упрощено я уверен, просто не работал его еще.

Answer 3

my @groups = map { s!^\s+!!; s!\s+$!!; $_ } split /,/, $string; 

или

my @groups = $string =~ /([A-Z])/g; 

Однако, если входной сигнал не является на самом деле так просто, как вы показали, вы бы лучше использовать Text::CSV или Text::xSV.

Answer 4

Просто, чтобы убедиться, что я не хватает чего-то, после попытки прояснить ваши примеры, я пришел с этим:

my $string = " A, B,C, D , E "; 
$string =~ s/\s+//g; 
my @groups = split /,/, $string; 

бы работать как я думаю?

Answer 5

Вам не нужно ограничивать себя split, вы просто используете совпадение с модификатором /g.

my $string = " A, B,C, D , E "; 
my @groups = $string =~ /\s*([^,]+?)\s*,?/g;