https://www.opennet.ru/openforum/vsluhforumID3/4712.html При работе с большими строками нужно избегать внутреннего копирования строк, <br>которое происходит при использоании регулярных выражений или оператора split.<br><br>Для разбиеная строки вида "small_begin:big_end" на две подстроки используем:<br> my $pos=index($str, ':');<br> my $begin_str = substr($str, 0, $pos,""); <br> # в $str остается только big_end часть, в $begin_str - "small_begin:"<br><br>Соответсвенно, для замены символов удобно использовать:<br> substr(строка, начало замены, число заменяемых символов, блок на который заменяем);<br><br>URL: <br>Обсуждается: http://www.opennet.ru/tips/info/754.shtml<br> https://www.opennet.ru/openforum/vsluhforumID3/4712.html#9 Sun, 14 Jun 2009 18:57:49 GMT Если добавить use strict; то результат изменится :-)<br> https://www.opennet.ru/openforum/vsluhforumID3/4712.html#8 Mon, 13 Dec 2004 12:57:38 GMT даже если писать на компилируемом языку (например Си),<br>скорость при использовании регулярных выражений (библиотек <br>много разных) будет медленнее чем при использовании <br>стандартных функций для работы со строками, за удовство <br>приходится платить скоростью. https://www.opennet.ru/openforum/vsluhforumID3/4712.html#7 Thu, 09 Dec 2004 04:17:45 GMT Где-то недавно видел статейку на английском про оптимизацию этого процесса. Щас уже не найду, но скриптик оттуда (переделанный слегка) вот:<br><br>---------------------------------------------<br>#!/usr/bin/perl<br><br>my $URI = "http://www.stonehenge.com/merlyn/" .<br> "Pictures/Trips/2003/03-06-PerlWhirlMacMania/" .<br> "Day-0-Pearl-Harbor/?show=14";<br> sub re_match {<br> my $str = $URI;<br> my ($scheme, $rest) = $str =~ /(.*?):(.*)/;<br>$ir++;<br> }<br> sub split_it {<br> my $str = $URI;<br> my ($scheme, $rest) = split /:/, $str, 2;<br>$is++;<br> }<br> sub index_substr {<br> my $str = $URI;<br> my $scheme = substr($str, 0, index($str, ":")-1);<br> my $rest = substr($str, index($str, ":")+1);<br>$ii++;<br> }<br><br># Счетчик цикла<br>$k=1000000;<br>$tt = times;<br>for ($i=0;$i&lt;$k;$i++) { &re_match; }<br>print "re_match = ",times - $tt," s.\n";<br><br>$tt = times;<br>for ($i=0;$i&lt;$k;$i++) { &split_it; }<br>print "split_it = ",times - $tt," s.\n";<br><br>$tt = times;<br>for ($i=0;$i&lt;$k;$i++) {<br>&index_substr;<br>}<br>print "index_substr = ",times - https://www.opennet.ru/openforum/vsluhforumID3/4712.html#6 Fri, 03 Dec 2004 07:40:24 GMT &gt;При таких объемах это естественно. <br>&gt;Perl для небольших объемов расчитывался. <br><br>Лишние копирования сильно паразитируют в циклах и для маленьких строк.<br><br>&gt;Выход: написать на си подпрограмму <br><br>Не всегда критический участок поддается такому преобразованию, когда напирмер, используются хэши или регекпсы.<br><br>&gt; или скомпилить скрипт в бинарник perl2bin <br><br>При цикличных операциях выйгрыша не будет, так как скрипт уже переведен в псевдокод.<br><br><br> https://www.opennet.ru/openforum/vsluhforumID3/4712.html#5 Fri, 03 Dec 2004 06:11:38 GMT а awk или sed ? https://www.opennet.ru/openforum/vsluhforumID3/4712.html#4 Fri, 03 Dec 2004 03:45:17 GMT При таких объемах это естественно.<br>Perl для небольших объемов расчитывался.<br>Выход: написать на си подпрограмму или скомпилить скрипт в бинарник<br>perl2bin<br> https://www.opennet.ru/openforum/vsluhforumID3/4712.html#3 Thu, 02 Dec 2004 06:32:21 GMT &gt;разбить или выделить: <br>&gt;($str1, $str2, str3 ...) = split (":", $string); <br><br>Господа, речь идет про исключение лишних копирований в памяти. На досуге, возмите в качестве $string строку размером несколько Мб и посмотрите сколько будет занимать процесс perl в памяти после split и "=~" (кстати сказать, простейшие замены с совпадением размера память лишнюю не потребляют).<br><br><br> https://www.opennet.ru/openforum/vsluhforumID3/4712.html#2 Thu, 02 Dec 2004 03:34:43 GMT разбить или выделить:<br>($str1, $str2, str3 ...) = split (":", $string);<br>замена:<br>$string =~ s/xaker/maker/g;<br> https://www.opennet.ru/openforum/vsluhforumID3/4712.html#1 Tue, 30 Nov 2004 12:00:03 GMT А не удобнее ли использовать для замены регулярные выражения вроде:<br>$str =~ s/h/j/g;<br><br>Заменит во всей строке символы h на j.<br>