Исходное сообщение
"Язык Perl еще далек от забвения, несмотря на заявления " Отправлено аноним, 08-Ноя-09 21:15
хотите короче, пожалуйста: #!/usr/bin/perl -w my $s = ';l9348ks5fl\n414cs043sf68f'; my $r = ''; while ($s =~ /(.)/g){ $c = $1;     if ($c =~ /\d/){ $r .= $c     }else{ if ($r ne ''){ print "$r\n"; $r='' } } } или даже: #!/usr/bin/perl -w my $s = ';l9348ks5fl\n414cs043sf68f'; my $r = ''; while ($s =~ /(.)/g){ $c = $1; if ($c =~ /\d/){ $r .= $c }else{ if ($r ne ''){ print "$r\n"; $r=''}}} :) понятнее? мне кажется что не сокращенный перловый код длиннее, но понятнее и в любом случае, думаю не станете спорить, что самый первый пример с двумя числами на перле и компактнее и понятнее. насчет быстрее... модифицирую код, что бы происходило перемножение чисел: #!/usr/bin/perl -w my $s = ';l9348ks5fl\n414cs043sf68f'; my $r = ''; my $sum = 1; while ($s =~ /(.)/g){     my $c = $1;     if ($c =~ /\d/){ $r .= $c     }else{         if ($r ne ''){              $sum *= $r; $r='';         }     } } print "$sum\n"; exit; и зпускаю: # time repeat 1000 ./test.pl > /dev/null 1.206u 2.122s 0:02.68 123.8%    60+567k 0+0io 0pf+0w # time repeat 1000 ./test.py > /dev/null 9.739u 7.605s 0:17.27 100.3%    1203+1134k 0+0io 0pf+0w может конечно интерпретатор питона так долго раскачивается...

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