01.04.2009, 23:09
|
|
Познающий
Регистрация: 14.01.2009
Сообщений: 93
Провел на форуме:
244235
Репутация:
39
|
|
Сообщение от zavra
Код:
my $name = $1 if $answ=~/<a href="\/users\/12\">(\S+)<\/a>/;
my $com = $1 if $answ =~/Комментарии <i>\((\d+)\)<\/i>/;
printf "$name"."$com"
Ник мой он мне отдает, а комментарии нет.
Попробовал два варианта ниже, ничего  у тебя проблемы с кодировками, вызванные тем, что в первом регексе нету русских букв, а во втором - есть. сделай файл в утф8, пропиши в начале use utf8, юзай Encode чтобы сконвертить пагу в нужную кодировку, если сам не разберешься, скинь сюда нужный урл
|
|
|