Вот так "/\s*\|\s*/" удаляются пробелы и "\n" и тд и тп но мне же надо оставить "\n" в конце строки Подходит это: $_ =~ s/\h+//g; $_ =~ s/\|/;/g; Вопрос как удалить столбци
-- Специалист IT, GNU, FLOSS, Open Source Моб: +7 (951) 131 33 90 С уважением, Кузьменко Константин Викторович 05.04.2015, 23:26, "Ilya Chesnokov" <[email protected]>: > Да, верно: /\s*\|\s*/ > > 5 апреля 2015 г., 23:24 пользователь Кузьменко Константин > <[email protected]> написал: >> После этого: >> $_ =~ 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 > > -- > Best regards, > Ilya Chesnokov > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
