<div><span style="font-family:arial,helvetica,sans-serif;">Добрый день Moscow.pm</span></div><div><span style="font-family:arial,helvetica,sans-serif;">Не могу понять регулярки перл!</span></div><div> </div><div><span style="font-family:courier new,courier;">#!/usr/bin/perl</span><br /><br /><span style="font-family:courier new,courier;">use strict;</span><br /><span style="font-family:courier new,courier;">use warnings;</span><br /><span style="font-family:courier new,courier;">use utf8;</span><br /><span style="font-family:courier new,courier;">use open qw/ :encoding(utf8) :std /;</span><br /><span style="font-family:courier new,courier;">#use open qw/ :encoding(cp1251) :std /;</span><br /><br /><span style="font-family:courier new,courier;">my @onfil = @ARGV;</span><br /><span style="font-family:courier new,courier;">open(INFIL, "<:encoding(cp866)", $onfil[0])</span><br /><span style="font-family:courier new,courier;">    or die "NO STANDART $!";</span><br /><br /><br /><span style="font-family:courier new,courier;">while (<INFIL>) {</span><br /><span style="font-family:courier new,courier;">    $_ =~ s/\h+//g;</span><br /><span style="font-family:courier new,courier;">    $_ =~ s/\|/;/g;</span><br /><span style="font-family:courier new,courier;">    $_ =~ s///g;    </span><br /><span style="font-family:courier new,courier;">    $_ =~ s/^(.*;).*;.*;.*;.*;.*;(.*;.*;.*;.*;.*;.*;)$//g;</span> # Не удаляется в скобках<br /><span style="font-family:courier new,courier;">    print;</span><br /><span style="font-family:courier new,courier;">} </span><br /><br /><span style="font-family:courier new,courier;">close INFIL;</span><br /><br /><span style="font-family:courier new,courier;">__END__</span></div><div> </div><div>Может что нибудь посоветуете</div><div>зы: Z yjdbxjr d Зукл</div><div>-- <br />Специалист IT, GNU, FLOSS, Open Source</div><div>Моб: +7 (951) 131 33 90</div><div>С уважением,</div><div>Кузьменко Константин Викторович</div><div> </div>