Как извлечь слова из строки с разделителями-запятыми в Perl?

Question

У меня есть строка:

$myline = 'ca,cb,cc,cd,ce'; 

Мне нужно, чтобы соответствовать ча в $ 1, центибар в $ 2, и т.д ..

К сожалению

$myline =~ /(?:(\w+),?)+/; 

Безразлично Не работай. С pcretest он соответствует только 'ce' в $ 1. Как это сделать правильно? Нужно ли вставлять его в цикл while?

Спасибо!

Answer 1

Почему бы не использовать split function:

@parts = split(/,/,$myline); 

split разбивает строку в список строк с помощью регулярных выражений вы поставку в качестве разделителя.

Answer 2

Непросто в использовании my @parts = split(/,/, $myline)?

Answer 3

Если количество элементов является переменной, то вы не собираетесь делать это так, как вы стремитесь. Петля через строку, используя глобальный флаг:

while($myline =~ /(\w+)\b/g) { 
    # do something with $1 
}

Я собираюсь предположить, что ваши реальные данные гораздо сложнее, чем «СА, СВ, СС, CD, CE», однако, если это не так, то использование регулярных выражений, вероятно, не является оправданным. Вы бы лучше расколоть строку на ограничительной характер:

my @things = split ',', $myline;

Answer 4

Хотя split это хороший способ, чтобы решить вашу проблему, если захватывающая регулярное выражение в контексте списка также работает хорошо. Полезно знать об обоих подходах.

my $line = 'ca,cb,cc,cd,ce'; 
my @words = $line =~ /(\w+)/g; 

Answer 5

Загляни в CSV РМ вы можете загрузить с CPAN, т.е. Text::CSV или Text::CSV_XS.

Это даст вам то, что вам нужно, а также учтите любые разделенные запятой значения, которые могут быть указаны.

Используя эти модули позволяют легко разделить данные, и разобрать через него ...

Например:

my @field = $csv->fields;