ANTICHAT - Показать сообщение отдельно

Цитата:

Сообщение от hidden

Лучьше юзай регулярные выражения, ими почьти всё можно найти, пример:

Код:

while($text~=/[0-9A-F]{32}/gi){
  print "$0\n";
}

Так можно найти все хэши, в тексте $text
----------
i - не учитывать гегистр

$0 - спец. переменная в которой хранится название запускаемого скрипта. Тебе нужна $1 - спец. переменная в которой хранится первое совпадение в последнем сравнении. Также можно юзать $1..9
соответственно.
PS: про модификатор i уже сказали, а мод. g (global) - заставляет парсер искать все совпадения в данном тексте.
т.е.:

Код:

my @hashes=$html=~/[0-9A-F]{32}/ig; # ВСЁ что попадет под данную маску будет помещено в список hashes

Цитата:

Сообщение от k1b0rg

$text~=/[0-9A-F]{32}/gi
так будет правильней

C:\>perl -e "$text='test';if($text~=/test/) { print 'OK' }"
syntax error at -e line 1, near "$text~"
Execution of -e aborted due to compilation errors.

C:\>perl -e "$text='test';if($text=~/test/) { print 'OK' }"
OK
C:\>