<div dir="ltr">Гм. Как-то не богато тут точек с запятыми.<br></div><div class="gmail_extra"><br><div class="gmail_quote">5 апреля 2015 г., 23:14 пользователь Кузьменко Константин <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"><span class="im HOEnZb">Это файл TXT<br>
123 | 12345678901234567890 |     760.00 |ФАМИЛИЯ       |ИМЯ            |ОТЧЕСТВО     |123456|222|888|9|RU|00007|<br>
На Выходе должен получиться CSV<br>
12345678901234567890;ФАМИЛИЯ;ИМЯ;ОТЧЕСТВО;760.00;<br>
<br>
</span><span class="im HOEnZb">--<br>
Специалист IT, GNU, FLOSS, Open Source<br>
Моб: +7 (951) 131 33 90<br>
С уважением,<br>
Кузьменко Константин Викторович<br>
<br>
<br>
</span><span class="im HOEnZb">05.04.2015, 18:16, "Иван Миронов" <<a href="mailto:mironorange@gmail.com">mironorange@gmail.com</a>>:<br>
</span><div class="HOEnZb"><div class="h5">> Константин, Добрый день!<br>
><br>
> Попробуйте уменьшить жадность квантификаторов добавив после знаков звездочки вопросительный знак.<br>
><br>
> s/^(.*?;).*?;.*?;.*?;.*?;.*?;(.*?;.*?;.*?;.*?;.*?;.*?;)$//g;<br>
><br>
> Если не получится, я думаю было бы здорово если бы вы приложили пример исходных данных для этого регулярного выражения.<br>
><br>
> воскресенье, 5 апреля 2015 г. пользователь Алексей Мышкин написал:<br>
>> Есть подозрение что жадный квантификатор берёт всё что может, и строке за скобками уже ничего не остаётся.<br>
>><br>
>> 5 апреля 2015 г., 15:42 пользователь Кузьменко Константин <<a href="mailto:ikkv@yandex.ru">ikkv@yandex.ru</a>> написал:<br>
>>> Добрый день Moscow.pm<br>
>>> Не могу понять регулярки перл!<br>
>>><br>
>>> #!/usr/bin/perl<br>
>>><br>
>>> use strict;<br>
>>> use warnings;<br>
>>> use utf8;<br>
>>> use open qw/ :encoding(utf8) :std /;<br>
>>> #use open qw/ :encoding(cp1251) :std /;<br>
>>><br>
>>> my @onfil = @ARGV;<br>
>>> open(INFIL, "<:encoding(cp866)", $onfil[0])<br>
>>>     or die "NO STANDART $!";<br>
>>><br>
>>> while (<INFIL>) {<br>
>>>     $_ =~ s/\h+//g;<br>
>>>     $_ =~ s/\|/;/g;<br>
>>>     $_ =~ s///g;<br>
>>>     $_ =~ s/^(.*;).*;.*;.*;.*;.*;(.*;.*;.*;.*;.*;.*;)$//g; # Не удаляется в скобках<br>
>>>     print;<br>
>>> }<br>
>>><br>
>>> close INFIL;<br>
>>><br>
>>> __END__<br>
>>><br>
>>> Может что нибудь посоветуете<br>
>>> зы: Z yjdbxjr d Зукл<br>
>>> --<br>
>>> Специалист IT, GNU, FLOSS, Open Source<br>
>>> Моб: +7 (951) 131 33 90<br>
>>> С уважением,<br>
>>> Кузьменко Константин Викторович<br>
>>><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>
>> --<br>
>> С уважением,<br>
>> Мышкин Алексей.<br>
><br>
> --<br>
><br>
>><br>
> С уважением, Миронов Иван!<br>
> тел.: +7 (926) 206-90-39<br>
><br>
> ,<br>
><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>
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>
</div></div></blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature">С уважением,<br>Мышкин Алексей.</div>
</div>