После этого: $_ =~ s/\h+//g; $_ =~ s/\|/;/g; Будет богато:)
-- Специалист IT, GNU, FLOSS, Open Source Моб: +7 (951) 131 33 90 С уважением, Кузьменко Константин Викторович 05.04.2015, 23:21, "Алексей Мышкин" <[email protected]>: > Гм. Как-то не богато тут точек с запятыми. > > 5 апреля 2015 г., 23:14 пользователь Кузьменко Константин <[email protected]> > написал: >> Это файл 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, "Иван Миронов" <[email protected]>: >> >>> Константин, Добрый день! >>> >>> Попробуйте уменьшить жадность квантификаторов добавив после знаков >>> звездочки вопросительный знак. >>> >>> s/^(.*?;).*?;.*?;.*?;.*?;.*?;(.*?;.*?;.*?;.*?;.*?;.*?;)$//g; >>> >>> Если не получится, я думаю было бы здорово если бы вы приложили пример >>> исходных данных для этого регулярного выражения. >>> >>> воскресенье, 5 апреля 2015 г. пользователь Алексей Мышкин написал: >>>> Есть подозрение что жадный квантификатор берёт всё что может, и строке за >>>> скобками уже ничего не остаётся. >>>> >>>> 5 апреля 2015 г., 15:42 пользователь Кузьменко Константин <[email protected]> >>>> написал: >>>>> Добрый день 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 >>>>> [email protected] | http://moscow.pm.org >>>> >>>> -- >>>> С уважением, >>>> Мышкин Алексей. >>> >>> -- >>> >>>> >>> С уважением, Миронов Иван! >>> тел.: +7 (926) 206-90-39 >>> >>> , >>> >>> -- >>> Moscow.pm mailing list >>> [email protected] | http://moscow.pm.org >> -- >> Moscow.pm mailing list >> [email protected] | http://moscow.pm.org > > -- > С уважением, > Мышкин Алексей. > > , > > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
