Проблема со split (perl)?

Question

[Петр Беклемишев]

Пытаюсь с помощью split разбить строку ($myline) вида:
+1,-2,+5 на подстроки по запятой, но все падает с ошибкой:

Код:

if ($myline ne '.') {
      @tmp_users = split(/\,/, $myline);
      foreach $tmp_user (@tmp_users) {
        switch (split($tmp_user, 0, 1)) {
          case '+'  {
            print '+++', $tmp_user,'\n';
          }
          case '-'  {
            print '-', $tmp_user,'\n';
          }
          else {
            if (isdigit $tmp_user) {
              print '_', $tmp_user,'\n';
              @users = (@users, $username[$tmp_user]);
            } else {
              #  print 'else else cond_';
            }
          }
        }
      }
    } else {
      #изменений в составе команды проекта нет
      print 'ok';
    }

Если строка вида . или 1,9 то все отрабатывает нормально.

Answer 1

[Владимир]

замените
switch (split($tmp_user, 0, 1)) {
на
switch (substr($tmp_user, 0, 1)) {

Comments

[Петр Беклемишев]

Спасибо!