Константин, Добрый день!<div><br></div><div>Попробуйте уменьшить жадность квантификаторов добавив после знаков звездочки вопросительный знак.</div><div><br></div><div><font><span style="background-color:rgba(255,255,255,0)">s/^(.*?;).*?;.*?;.*?;.*?;.*?;(.*?;.*?;.*?;.*?;.*?;.*?;)$//g;</span></font><br><br>Если не получится, я думаю было бы здорово если бы вы приложили пример исходных данных для этого регулярного выражения.<span></span><br><br>воскресенье, 5 апреля 2015 г. пользователь Алексей Мышкин  написал:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Есть подозрение что жадный квантификатор берёт всё что может, и строке за скобками уже ничего не остаётся.<br></div><div class="gmail_extra"><br><div class="gmail_quote">5 апреля 2015 г., 15:42 пользователь Кузьменко Константин <span dir="ltr"><<a href="javascript:_e(%7B%7D,'cvml','ikkv@yandex.ru');" target="_blank">ikkv@yandex.ru</a>></span> написал:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><span style="font-family:arial,helvetica,sans-serif">Добрый день Moscow.pm</span></div><div><span style="font-family:arial,helvetica,sans-serif">Не могу понять регулярки перл!</span></div><div> </div><div><span style="font-family:courier new,courier">#!/usr/bin/perl</span><br><br><span style="font-family:courier new,courier">use strict;</span><br><span style="font-family:courier new,courier">use warnings;</span><br><span style="font-family:courier new,courier">use utf8;</span><br><span style="font-family:courier new,courier">use open qw/ :encoding(utf8) :std /;</span><br><span style="font-family:courier new,courier">#use open qw/ :encoding(cp1251) :std /;</span><br><br><span style="font-family:courier new,courier">my @onfil = @ARGV;</span><br><span style="font-family:courier new,courier">open(INFIL, "<:encoding(cp866)", $onfil[0])</span><br><span style="font-family:courier new,courier">    or die "NO STANDART $!";</span><br><br><br><span style="font-family:courier new,courier">while (<INFIL>) {</span><br><span style="font-family:courier new,courier">    $_ =~ s/\h+//g;</span><br><span style="font-family:courier new,courier">    $_ =~ s/\|/;/g;</span><br><span style="font-family:courier new,courier">    $_ =~ s///g;    </span><br><span style="font-family:courier new,courier">    $_ =~ s/^(.*;).*;.*;.*;.*;.*;(.*;.*;.*;.*;.*;.*;)$//g;</span> # Не удаляется в скобках<br><span style="font-family:courier new,courier">    print;</span><br><span style="font-family:courier new,courier">} </span><br><br><span style="font-family:courier new,courier">close INFIL;</span><br><br><span style="font-family:courier new,courier">__END__</span></div><div> </div><div>Может что нибудь посоветуете</div><div>зы: Z yjdbxjr d Зукл</div><span><font color="#888888"><div>-- <br>Специалист IT, GNU, FLOSS, Open Source</div><div>Моб: +7 (951) 131 33 90</div><div>С уважением,</div><div>Кузьменко Константин Викторович</div><div> </div></font></span><br>--<br>
Moscow.pm mailing list<br>
<a href="javascript:_e(%7B%7D,'cvml','moscow-pm@pm.org');" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
<br></blockquote></div><br><br clear="all"><br>-- <br><div>С уважением,<br>Мышкин Алексей.</div>
</div>
</blockquote></div><br><br>-- <br><div dir="ltr"><div><div dir="ltr"><div><br></div><blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote>С уважением, Миронов Иван!<br>тел.: +7 (926) 206-90-39</div></div></div><br>