20.02.2009, 17:06
|
|
Постоянный
Регистрация: 15.06.2007
Сообщений: 527
С нами:
9950786
Репутация:
214
|
|
Подскажите как можно оптимизировать данный скрипт?
Скрипт открывает файл,далее выдирает значение после точки запятой и пихает в массив,далее необходимо удлаить повторяющиеся значения и посчиттаь кол-во уников...дело в том что размер файла около 4Гб
PHP код:
#!/usr/bin/perl
my @res= ();
use strict;
use warnings;
open my $FILE, '<', 'file.txt' or die "Open error: $!\n";
my @f = <$FILE>;
chomp @f;
close $FILE;
while (@f) {
my ($a, $b,$c,$d) = split(/;/, shift(@f));
push(@res, $d); }
@res= grep{!$_{$_}++}
@res; print "Unique numbers is:".scalar(@res);
З.ы. за кривость не бейте ) |
|
|