<div dir="ltr">Выражения внутри while можно упростить до s///, без "$_ =~".<div>Какая семантика у "<span style="font-family:'courier new',courier;font-size:12.8000001907349px">$_ =~ s///g;</span>"?</div><div>В скобках и не должно удаляться.</div></div><div class="gmail_extra"><br><div class="gmail_quote">5 апреля 2015 г., 18:02 пользователь Алексей Мышкин <span dir="ltr"><<a href="mailto:parserpro@gmail.com" target="_blank">parserpro@gmail.com</a>></span> написал:<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="mailto: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><div class="h5"><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>Моб: <a href="tel:%2B7%20%28951%29%20131%2033%2090" value="+79511313390" target="_blank">+7 (951) 131 33 90</a></div><div>С уважением,</div><div>Кузьменко Константин Викторович</div><div> </div></font></span><br></div></div><span class="">--<br>
Moscow.pm mailing list<br>
<a href="mailto: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></span></blockquote></div><span class="HOEnZb"><font color="#888888"><br><br clear="all"><br>-- <br><div>С уважением,<br>Мышкин Алексей.</div>
</font></span></div>
<br>--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
<br></blockquote></div><br></div>