Исходное сообщение
"Язык Perl еще далек от забвения, несмотря на заявления " Отправлено Добрый Дохтур, 08-Ноя-09 21:33
>#!/usr/bin/perl -w >my $s  = ';l9348ks5fl\n414cs043sf68f'; >my $rc = 1; >foreach ( split( /\D+/, $s ) ) { >    $rc *= $_ if length $_ > 0; >} >print $rc; > >Очевидно, такой код читается куда легче, хотя и не использует новомодных map/reduce, >которые хотя и полезны, но не всегда :) foreach неэффективен на больших последовательностях. кроме того, если мы в цикле дернем модуль, который неявно использует $_, то кирдык. как я понимаю, пример с параллельным исполнением кода на нескольких процессорах я не дождусь, ага?

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:
	Введите код, изображенный на картинке: