ANTICHAT - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

Тема: [Perl] Новичкам: задаем вопросы

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

#446

16.05.2008, 11:26

krypt3r

Познавший АНТИЧАТ

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

Сообщений: 1,044

С нами: 10021597

Репутация: 905

Как-то так

Код:

#$str = "5 6";
if ($str =~ /(\d+)\s+(\d+)/)
{
  $x = $1;
  $y = $2;
}