я решил отказаться от использования хеш-сумм для крупных файлов, вместо хеша я делаю просто дамп нескольких байт файла из его середины(или первой трети файла - область можно поменять) :) Я исхожу из того, что если у двух файлов одинаковый размер(с точностью до байта), и одинаковое содержимое дампа, взятого из середины или из трети, то скорей всего эти файлы одинаковы. Сейчас постерирую скорость :)
DaneSoul: ну так если скучно, надолго ли хватит терпения? Не лучше ли в таком случае вместо фильмов использовать песни? Они короче, их текст вместе с переводом можно тщательно изучить перед очередным прослушиванием, к тому же они поются, а это уже улучшает запоминаемость. Да, письменный язык проще понимается, чем устный, потому что обучение в основном построено на письменных материалах - чтение всяких там текстов и т.д. Короче, у каждого свои способы) Можно пробовать по-разному, лишь бы результат был)
@seen{@spisok1} = (); это то же самое, что:
$seen{"1"} = undef;
$seen{"2"} = undef;
...
$seen{"6"} = undef;
где 1, 2 ... 6 - элементы массива @spisok1
Тут можно глянуть о типах данных: perldoc.perl.org/perldata.html
sh1kima26: Попробуйте открывать файлы как положено, с проверкой. Если на каком-то из нижеследующих опенов будет облом, программа сразу же "упадет" и выведет соответствующее сообщение вместе с уточняющей инфой от ос (которая хранится в $!). В этом случае удастся узнать больше о причинах проблемы.
open my $iplist, '<', 'iplist.txt' or die "can't open iplist: $! ";
open my $log, '>>', 'log.txt' or die "can't open logfile: $! ";
open my $counts, '>>', 'counts.txt' or die "can't open counts: $! ";
open my $cmds, '<', 'commands' or die "can't open cmds: $! ";
Зы: файлхендл $cmds можно закрыть сразу после my @commands = <$cmds>;
Написано
Войдите на сайт
Чтобы задать вопрос и получить на него квалифицированный ответ.
