Привет!
Нужно посчитать сколько чисел, разделенных запятыми содержит строка.  Можно просто посчитать количество запятых и проверить нет ли подряд идущих запятых, или запятых через пробел(ы)


Как это лучше сделать?

Немного непонятно. Если не пойдет, уточните вопрос.

результат - 5


результат - 6

Супер!!!! Так коротко и просто! 

можно проще:
$str -- твоя стока
my $count = ($str =~ tr/,/,/); # это кол-во запятых
my $count = scalar(split /,/, $str); # это кол-во строк разделённых запятыми
my @strings = split /,/, $str; # это массив строк, что были разделены запятыми

$qwe = '1232,4556,456,23345,gys,gggg,345234,gege';
@qwe = $qwe =~ /\d+(,|$)/g;
print scalar @qwe;

хороший метод, но почемуто есть сбои
например 

$qwe ='"2007-02-19 15:15:00",4900,0,536.9,1.857,"NAN",14.36,0,0';
@qwe = $qwe =~ /\d+(,|$)/g;
print scalar @qwe;

выдает 7. Все отлично,

Но у меня в программе выдает стабильно 6
Скрипт примерно такой

while(<MYINPUTFILE>) {
      my($line) = $_;
 chomp($line);
  @qwe = $line =~ /\d+(,|$)/g;
}

Почему так

Это сообщение отредактировал(а) PyccHeBa - 27.11.2007, 05:50

Проверь, не заканчивается ли строка пробелом.


А данных типа
$qwe = '"Модераторы: korob2001, sharq",korob2001';
не может быть? (Результат 2).