Perl Regex - найти повторяющиеся слова

6 сентября 2008 |

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

  #! / USR / BIN / Perl-W 
  Использование строгой; 

  моя mystr $ = $ ARGV [0] | | умирают "Ты должен передать параметр! \ N"; 

  если ($ mystr = ~ / \ B (\ W +) \ S \ 1 \ B /) 
  ( 
      Версия для печати "Я думаю, я вижу два раза. \ N"; 
  ) 
  другое 
  ( 
      печать "Выглядит хорошо для меня. \ N"; 
  )