4
11

выкинуть из строки подстроки

lSergey
2015-03-06 14:44 обн. 2015-03-06 17:55 vti

Есть строка вида "param1 - value1, param2 - value2..."

нужно выкинуть построки, в которых value=0

написал что-то вроде

$line = "aaa - 5, bbb - 0, ccc - 8";

@var = split(/, /, $line);

$out_str = "";

foreach my $elem (@var)
{
    if ($elem !~ /(.*) - 0/)
    {
        $out_str .= $elem.", ";
    }
}

$out_str = substr($out_str, 0, -2);

очень плохо соображаю в регулярных выражениях, наверняка есть какой-то более элегантный способ)))

Чтобы ответить, залогиньтесь или зарегистрируйтесь.
  • @user
  • _italic_

    italic

  • **bold**

    bold

  • [PP](http://pragmaticperl.com)

    PP

  • <http://pragmaticperl.com>

    http://pragmaticperl.com

  • module:Plack

    Plack

  • release:URI

    URI

  • author:VTI

    VTI

  • `my $foo = 'bar'`
  • ```
    my $multi;
    $line;
    ```