<div dir="ltr"><div><div>Данных катастрофически не хватает.<br></div>Судя по первому письму профайлер запускался, но только на версии с grep.<br></div><div><br></div><div>Предположу, что map-версия выглядит примерно так:<br>foreach my $iponly (@bla_bla_bla)<br>{<br>    my %ips = map { $_ => 1 } @ips;<br>
        if (not exists($ips{$iponly} ))<br>
        {<br>
            return $iponly;<br>
        }<br>
    }<br><br><br></div><div>тогда её нужно переписать так:<br>my %ips = map { $_ => 1 } @ips;<br>
    foreach my $iponly (@bla_bla_bla)<br>{<br>    if (not exists($ips{$iponly} ))<br>
        {<br>
            return $iponly;<br>
        }<br>
    }<br><br></div></div>