[Moscow.pm] # Не удаляется в скобках

[Кузьменко Константин]

После этого:
$_ =~ s/\h+//g;
$_ =~ s/\|/;/g;
Будет богато:)

-- 
Специалист IT, GNU, FLOSS, Open Source
Моб: +7 (951) 131 33 90
С уважением,
Кузьменко Константин Викторович


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