Исходное сообщение
"Язык Perl еще далек от забвения, несмотря на заявления " Отправлено аноним, 08-Ноя-09 12:05
есть желания помериться пиписьками? выложите ваши файлы в которых нужно искать и какой-нить файл с шаблонами. а пока, покажите, плз, как будет выглядеть аналогичная программа на питоне, только не куском сюда кода, а полностью, что бы я мог выделить мышкой, скопировать, вставить в файл и у меня сразу заработало, без мозгового штурма. #!/usr/bin/perl -w my $s = ';lks5fl\ncs043sff'; $s =~ /^\D+(\d+)\D+(\d+)\D+$/; print $1*$2."\n" if defined $1 and defined $2; exit;

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> есть желания помериться пиписьками? выложите ваши файлы в которых нужно искать и > какой-нить файл с шаблонами. > а пока, покажите, плз, как будет выглядеть аналогичная программа на питоне, только > не куском сюда кода, а полностью, что бы я мог выделить > мышкой, скопировать, вставить в файл и у меня сразу заработало, без > мозгового штурма. > #!/usr/bin/perl -w > my $s = ';lks5fl\ncs043sff'; > $s =~ /^\D+(\d+)\D+(\d+)\D+$/; > print $1*$2."\n" if defined $1 and defined $2; > exit;
	Введите код, изображенный на картинке: