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

Тема: Perl регулярка

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

13.04.2007, 18:37

KSURi

Постоянный

Регистрация: 06.06.2006

Сообщений: 515

С нами: 10489346

Репутация: 963

my $str = '<td><a href="/users/1456036/"id="good">Username</a></td>';
$str =~ /(\d+)/;
print $1;