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

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

Вот так "/\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" <chesnokov.ilya на gmail.com>:
> Да, верно: /\s*\|\s*/
>
> 5 апреля 2015 г., 23:24 пользователь Кузьменко Константин
> <ikkv на yandex.ru> написал:
>>  После этого:
>>  $_ =~ 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
>>  --
>>  Moscow.pm mailing list
>>  moscow-pm на pm.org | http://moscow.pm.org
>
> --
> Best regards,
> Ilya Chesnokov
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org