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

[Алексей Мышкин]

Есть подозрение что жадный квантификатор берёт всё что может, и строке за
скобками уже ничего не остаётся.

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
>
>


-- 
С уважением,
Мышкин Алексей.
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20150405/a64b5e2c/attachment.html>