Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Регулярные выражения > Циклический поиск подстроки в строке

Автор: loginn 5.9.2011, 14:32

Есть строки, содержащие либо просто слова, либо слова начинающиеся с дефиса, причем длина этих строк не фиксирована, т.е. может содержать одно и более таких слов:

$string = "word1 word2 -word3 -word4 word5";
$string = "word1 word2 -word3 -word4 -word5 -word6";
$string = "word1 word2";

и т.д.

Нужно парсить строку таким образом: слова, начинающиеся с дефиса (-wordxx) заносить в массив @arguments, а слова начинающиеся без дефиса (wordxx) заносить в массив @commands.

я написал такой код:

Код


      $command=<PARENT>;
      while ($command =~ m/(\S+)/g) {
        $word = $1;
        if ($word =~ /^-/) {$word =~  s/-//; push @arguments, $word;}
        else {push @commands, $word;}
      }

Вопрос: насколько это оптимальное решение данной задачи?

Автор: alezzz 5.9.2011, 16:15

Работает -- не трогай, но я бы так сделал:

Код


while ($command =~ /(-)?(\S+)/g){
    if ($1){
        push @arguments, $2;
    } else {
        push @commands, $2;
    }
}

Автор: loginn 5.9.2011, 16:43

круто. ни добавить ни убавить smile

спасибо.