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

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> #!/usr/bin/perl -w > my $s = ';l9348ks5fl\n414cs043sf68f'; > my $rc = 1; > foreach ( split( /\D+/, $s ) ) { > $rc *= $_ if length $_ > 0; > } > print $rc; > Очевидно, такой код читается куда легче, хотя и не использует новомодных map/reduce, > которые хотя и полезны, но не всегда :)
	Введите код, изображенный на картинке: