https://opennet.dev/openforum/vsluhforumID9/9451.html Здравствуйте, <br><br>Пытаюсь реализовать своими рукуми первый раз в жизни перл скрипт по заданию начальника.<br>Занятие при отсутствии знаний оказалось непростым.<br>Изначально задание следующее:<br>Необходимо отследить в логах апача определенные IP аддреса. Есть список этих адресов.<br>Я вчера написал bash скрипт, но он за ночь прошел очень мало, поэтому начальник сказал писать на перле используя Хэш.<br><br>В хэш я решил занести эти IP адреса из файла в поля ключей. И присвоить им значения 0.<br>По мере парсинга и нахождения значение должно прибавляться к тому ключю который нашло в логе.<br>Для эксперимента взял 7 адресов, создал файл адресов с ними и создал второй файл(анализируемый). В него продублировал те же самые адреса 2 раза<br><br>Написал кой какой скрипт (после 5ти часов в инете), расставил по нему принтов чтоб понимать как он работает и работает ли вобще. И результат анализа стал выводить в аутпут файл.<br><br>На определенной стадии заметил странное поведение. В Выводу принтов в консоль было 8 входов во внешний цикл (где https://opennet.dev/openforum/vsluhforumID9/9451.html#1 Wed, 09 May 2012 03:27:26 GMT &gt; Не могли бы вы посянить что именно происходит и почему скрипт так <br>&gt; себя ведет?<br><br>Потому, что ты поискал первый ключ до конца файла, а потом искать стало негде.<br><br>Кроме того, неясно откуда у тебя файл. Если хоть каким-то боком приложена винда - ожидай в конце строки CRLF, с которыми chomp не справляется.<br><br><br><br>&gt; А вот в таком они почему то заносятся в хэш <br>&gt; 1.197.174.247 0 <br><br>У хэша нет порядка, он изображает неупорядоченное множество. Более того, в Perl приняты специальные меры, чтобы порядок ключей оказывался случайным при каждом запуске. Поэтому сервера на PHP, Java и всяких .NET можно легко свалить длинным запросом, а Perl - нет.<br><br><br>&gt; вот сам скрипт <br><br>В первый раз вижу JavaScript программу, писаную Perl'ом. :)<br><br><br><br>&gt; #!/usr/bin/perl -w <br>&gt; use warnings; <br><br>Это тавтология. Следовало бы<br><br>[code]<br>#!/usr/bin/perl<br>use warnings; <br>use strict;<br>[/code]<br><br>Забудешь кого-нибудь из этой пары - есть шанс прокатиться в дурку.<br><br><br>&gt; my %hash = do { <br>&gt; open my $f, '&lt;/tmp/1ip' or die $!; <br>&gt; ma