<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><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 class="HOEnZb"><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="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><br clear="all"><br>-- <br><div class="gmail_signature">С уважением,<br>Мышкин Алексей.</div>
</div>