Данных катастрофически не хватает. Судя по первому письму профайлер запускался, но только на версии с grep.
Предположу, что map-версия выглядит примерно так:
foreach my $iponly (@bla_bla_bla)
{
my %ips = map { $_ => 1 } @ips;
if (not exists($ips{$iponly} ))
{
return $iponly;
}
}
тогда её нужно переписать так:
my %ips = map { $_ => 1 } @ips;
foreach my $iponly (@bla_bla_bla)
{
if (not exists($ips{$iponly} ))
{
return $iponly;
}
}
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
